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]