Newton, Philip wrote: > So here's my attempt: > > export PROMPT_COMMAND="perl -e > '@d=split/\//,qx(pwd);@d=(q(...),@d[-2,-1])if@d>3; > chomp@d;\$\"=q(/);print+qq(\33]0;@d\7)'" Oops, make that export PROMPT_COMMAND="perl -e '@d=split/\//,qx(pwd);@d=(q(...),@d[-2,-1])if@d>3; chomp@d;\$\"=q(/);print+qq(\e]0;@d\a)'" , of course. Cheers, Philip -- Philip Newton <[EMAIL PROTECTED]> All opinions are my own, not my employer's. If you're not part of the solution, you're part of the precipitate.
