jesper.madsen@gmail.com wrote:
> Hej Gruppe;
> Jeg leder efter en prompt beskrivelse (til .profile) som kan forkorte
> lange stier; fx.
> /usr/local/lib/perl5/site_perl/5.6.1/Curses/UI/Dialog
> kunne forkortes i prompten til
> /usr/.../5.6.1/Curses/UI/Dialog
> ( eller lign. )
>
> Lidt googling gav følgende[
http://www.semicomplete.com/blog/geekery/
> 60.html]:
>
> PS1='$(A=$?; [ $A -ne 0 ] && A="!!{$A}!! " || A=""; SPWD=$(/bin/pwd | /
> usr/bin/sed -Ee "s,(/usr)?$HOME,~,; sz(/[^/]+/).*(/.{20,})$z
> \1...\2z"); /bin/echo -n $HOST"("$SPWD") [!] ${A}${Z} " )'
>
> [ -w "/" ] && Z="#" || Z=">"; export Z
> PROMPT='$(A=$?; [ $A -ne 0 ] && A="!!{$A}!! " || A=""; SPWD=$(/bin/pwd
> | \
> /usr/bin/sed -Ee "s,(/usr)?$HOME,~,; sz(/[^/]+/).*(/.{20,})\$z
> \1...\2z"); \
> /bin/echo -n $HOST"("$SPWD") [!] ${A}${Z} " )'
>
> case $TERM in
> aterm|xterm|dtterm)
> PROMPT=${PROMPT%)*}'; /bin/echo -n "^[]2;"$HOST"("$SPWD") [!] $
> {A}^G" 1>&2)'
> ;;
> esac
> PS1=$PROMPT
>
> Men det virker ikke; For det første brokker sed sig over -E flagget, i
> syntaksen iøvrigt (sed: 1: "s,(/usr)?/home/myuser,~,; ...: \1 not
> defined in the RE). Er der nogen som har lavet noget i stil med det
> jeg søger, eller umiddelbart kan se hvad koden ovenfor fejler?
>
> Mvh. Jesper.
Kan sige, at der ikke er noget der virker her. Og ved ikke hvad option
-E er i sed. Ikke noget jeg har kunne finde fra senere versioner.