From 933c12a10ca00295f4187cf5bc8e2d49dc7f6b87 Mon Sep 17 00:00:00 2001
From: Mattias Andrée <maandree@operamail.com>
Date: Sat, 18 Aug 2012 04:21:49 +0200
Subject: -l and -L fix and one less lib file

---
 ponysay | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

(limited to 'ponysay')

diff --git a/ponysay b/ponysay
index 0d0beee..9936fae 100755
--- a/ponysay
+++ b/ponysay
@@ -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
-- 
cgit