Normalize home directory in prompts to avoid display oddities (#12)

* Normalize home directory in prompts. * use simple concatenation instead of "file join" to avoid problems with leading slashes Fixes #6
flightaware · Feb 8, 2019 · 93d4c60 · 93d4c60
1 parent 18313d9
commit 93d4c60
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/tclreadlineSetup.tcl.in b/tclreadlineSetup.tcl.in
@@ -155,8 +155,14 @@ namespace eval tclreadline {
                             set pwd "unable to get pwd"
                         }
 
-                        if [info exists env(HOME)] {
-                            regsub $env(HOME) $pwd "~" pwd
+                        if {[info exists env(HOME)]} {
+                            variable normalized_home
+                            if {![info exists normalized_home]} {
+                                set normalized_home [file normalize $env(HOME)]
+                            }
+                            if {[string equal -length [string length $normalized_home] $pwd $normalized_home]} {
+                                set pwd "~[string range $pwd [string length $normalized_home] end]"
+                            }
                         }
                         return "$prompt_string \[$pwd\] "
                     }