diff options
| author | Mattias Andrée <maandree@operamail.com> | 2012-08-18 04:21:49 +0200 |
|---|---|---|
| committer | Mattias Andrée <maandree@operamail.com> | 2012-08-18 04:21:49 +0200 |
| commit | 933c12a10ca00295f4187cf5bc8e2d49dc7f6b87 (patch) | |
| tree | 2e8a269205e272aa8c06a2fa6494d4dd9f8135c3 /ponysay | |
| parent | a809144674bb95a737ab3d2010f71716dc33baa8 (diff) | |
| download | ponysay-933c12a10ca00295f4187cf5bc8e2d49dc7f6b87.tar.gz ponysay-933c12a10ca00295f4187cf5bc8e2d49dc7f6b87.tar.bz2 ponysay-933c12a10ca00295f4187cf5bc8e2d49dc7f6b87.zip | |
-l and -L fix and one less lib file
Diffstat (limited to 'ponysay')
| -rwxr-xr-x | ponysay | 17 |
1 files changed, 11 insertions, 6 deletions
@@ -15,8 +15,8 @@ HOMESHARE="${HOME}/.local/share/ponysay" listcmd="$INSTALLDIR/lib/ponysay/list.pl" linklistcmd="$INSTALLDIR/lib/ponysay/linklist.pl" truncatercmd="$INSTALLDIR/lib/ponysay/truncater" -qlistcmd="$INSTALLDIR/lib/ponysay/pq4ps-list" quotecmd="$INSTALLDIR/lib/ponysay/pq4ps" +qlistcmd="$INSTALLDIR/lib/ponysay/pq4ps-list.pl" pony="*" # Selected pony wrap="" # Message wrap column @@ -65,15 +65,20 @@ version() { echo "ponysay v$VERSION" } +# Marks ponies in lists that have quotes +qoutelist() { + bash -c "$("$qlistcmd" $("$quotecmd" --list))" +} + # Pony list function list() { if [ -d $SYSTEMPONIES ]; then echo -e "\\e[01mponyfiles located in $SYSTEMPONIES:\\e[21m" - perl $listcmd $scrw $(ls --color=no $SYSTEMPONIES | sed -e 's/\.pony$//' | sort) | $qlistcmd + perl $listcmd $scrw $(ls --color=no $SYSTEMPONIES | sed -e 's/\.pony$//' | sort) | qoutelist fi if [ -d $HOMEPONIES ]; then echo -e "\\e[01mponyfiles located in $HOMEPONIES:\\e[21m" - perl $listcmd $scrw $(ls --color=no $HOMEPONIES | sed -e 's/\.pony$//' | sort) | $qlistcmd + perl $listcmd $scrw $(ls --color=no $HOMEPONIES | sed -e 's/\.pony$//' | sort) | qoutelist fi if [ ! -d $SYSTEMPONIES ] && [ ! -d $HOMEPONIES ]; then echo >&2 "All the ponies are missing! Call the Princess!" @@ -88,9 +93,9 @@ _linklist() { args="" for file in $files; do - target=$(readlink $1"/"$file".pony") + target="$(readlink $1"/"$file".pony")" - if [ $target = "" ]; then + if [ "$target" = "" ]; then target=$file else target=$(echo $target | sed -e 's/^\.\///g' -e 's/\.pony$//g') @@ -99,7 +104,7 @@ _linklist() { args=$(echo $args $file $target) done - perl $listcmd $scrw $(perl $linklistcmd $(echo $args) | sed -e 's/ /_/g') | sed -e 's/_/ /g' | $qlistcmd + perl $listcmd $scrw $(perl $linklistcmd $(echo $args) | sed -e 's/ /_/g') | sed -e 's/_/ /g' | qoutelist } # Pony list function with symlink map, for both directories |