chpwd() {
    [[ -t 1 ]] || return
        case $TERM in
        sun-cmd) print -Pn "\e]l%~\e\\"
        ;;
    *xterm*|rxvt|(dt|k|E)term) print -Pn "\e]2;%~\a"
        ;;
    esac
}