Permalink
Browse files

replacing tilde ~ references for home dir

  • Loading branch information...
hypatia2 committed Mar 5, 2016
1 parent edee4cb commit e6f22360349e9d178ce8fee8f7609b7079822a2b
Showing with 2 additions and 2 deletions.
  1. +2 −2 sklib/unix.tcl
@@ -65,7 +65,7 @@ proc ::unix::is-x-running {} {
# locate desktop dir for current user
proc ::unix::get-desktop-dir {} {
set userdirs [file normalize ~/.config/user-dirs.dirs]
set userdirs [file normalize [file join [unix homedir] .config user-dirs.dirs]]
set desktop Desktop
if {[file exists $userdirs]} {
set content [slurp $userdirs]
@@ -75,7 +75,7 @@ proc ::unix::get-desktop-dir {} {
if {[llength $desktop] > 3 || [string length $desktop] > 20} {
set desktop Desktop
}
set desktopdir [file normalize "~/$desktop"]
set desktopdir [file normalize [file join [unix homedir] $desktop]]
return $desktopdir
}

0 comments on commit e6f2236

Please sign in to comment.