# X title stuff
        wt ()
        {
                echo "^[]2;${@}^G\c"
        }
        it ()
        {
                echo "^[]0;${@}^G\c"
        }
        defwt ()
        {
                echo "^[]2;$(whoami) @ $(hostname)^G"
        }
        cls ()
        {
          # works only for vt100's and the like
               echo "^[[;H^[[2J"
        }

PROMPT_COMMAND=pc
titlebar="$myhostname ::: $myname   "
tprompt="[$myname@$myhostname]"
        if [ "$TERM" != "void" -a "$TERM" != "dumb" ] ; then
                bold=`tput bold`
                normal=`tput rmso`
                PROMPT_COMMAND=pc
                #PS1="\!\\[$bold\\]\`promptlen\`\\[$normal\\]\\$ "
        fi
function pc
        {
                pc_wd=`pwd`
                if [ \( "$TERM" = "vt100" \) -o \( "$TERM" = "xterm" \) ] ; then
                        wt "$titlebar << `pwd` >>" > `tty`
                fi
                # go to a 2-line prompt if >38 chars in path...
                case "$pc_wd" in
                /)
                        pc_path="/" ; pc_suffix="\\$ "
                ;;
                $HOME)
                        pc_path="~" ; pc_suffix="\\$ "
                ;;
                ??????????????????????????????????????*)
                        pc_path=$pc_wd ; pc_suffix="\n\\$ "
                ;;
                *)
                        pc_path=$pc_wd ; pc_suffix="\\$ "
                ;;
                esac
                PS1="\!\\[$bold\\]${tprompt}${pc_path}\\[$normal\\]${pc_suffix}"
                return
        }