fn windowtitle {|t| print "\e]0;"$t"\a" } fn on-chdir {|dir| windowtitle (tilde-abbr $dir) } windowtitle (tilde-abbr $pwd) set after-chdir = [$on-chdir~ $@after-chdir]
