On the Mac OS X Unix mailing list (<X-
[EMAIL PROTECTED]>), what started out as (IIRC) an
innocent question about xterm escape sequences has become a
hellish exercise in feeping creaturism. The line was crossed
when someone asked:
> E.g., if pwd is
>
> /Users/me/Documents/LearnC/FirstSteps
>
> then I'd like
>
> .../LearnC/FirstSteps
>
> to display in the title bar (or on the prompt).
To which I replied:
> Okay. Here's one way to do it, but I don't think you're going
> to like it. :-)
>
> export PROMPT_COMMAND="perl -e
> '@d=split/\//,qx(pwd);@d=(q(...),@d[\$#d-1..\$#d])if(@d>3);chomp@d;print
> join(q(/),@d),q( )'"
>
> (That should all be one line, in case various mail handlers
> happen to wrap it.) Figuring out how to turn that monstrosity
> into an xterm sequence that sets the window title is left as an
> exercise for the reader.... No, apparently I'm a glutton for
> self-abuse, because here it is:
>
> export PROMPT_COMMAND="perl -e
> '@d=split/\//,qx(pwd);@d=(q(...),@d[\$#d-1..\$#d])if(@d>3);chomp@d;print
> qq(\033]0;).join(q(/),@d).qq(\007)'"
Can anyone see a way the second script can be condensed? I don't
fancy myself a golf expert (either in Perl or in real life), but
I can't see any way to shorten it, save maybe for using regexes
(which, frankly, I'm too tired at the moment to contemplate).
You are allowed to assume that you're running bash on a
Unix-like system, interacting via xterm or some other
application that accepts xterm escape sequences.
--
Craig S. Cottingham
[EMAIL PROTECTED]
PGP key available from:
<http://pgp.ai.mit.edu:11371/pks/lookup?op=get&search=0xA2FFBE41>
ID=0xA2FFBE41, fingerprint=6AA8 2E28 2404 8A95 B8FC 7EFC 136F
0CEF A2FF BE41
