On Fri, Sep 07, 2001 at 08:32:52AM +0200, Newton, Philip wrote:
> 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)'"
^^^^^^^^^
Still too repetitive. :)
