dot/swank.lisp: Rewrite the Swank `contribs' hacking.

[profile] / dot / shrc

diff --git a/dot/shrc b/dot/shrc
index 90710df..e663050 100644 (file)
--- a/dot/shrc
+++ b/dot/shrc
@@ -16,8 +16,10 @@ __mdw_set_prompt_hacks () {
       ;;
   esac
   host=$(hostname)
-  dir=""
+  dir=' $(d=$(pwd); case "$d" in ("$HOME") d="~" ;; ("$HOME"/*) d="~${d#$HOME}" ;; esac; echo $d)'
 }
 
 __mdw_set_prompt_pieces
 __mdw_set_prompt
+
+###----- That's all, folks --------------------------------------------------