title.elv 173 B

123456789
  1. fn windowtitle {|t| print "\e]0;"$t"\a" }
  2. fn on-chdir {|dir|
  3. windowtitle (tilde-abbr $dir)
  4. }
  5. windowtitle (tilde-abbr $pwd)
  6. set after-chdir = [$on-chdir~ $@after-chdir]