From 40164221fbae896ba14715fa0c01cbb56a426105 Mon Sep 17 00:00:00 2001 From: Elis Axelsson Date: Sat, 21 Jul 2012 09:36:33 +0200 Subject: Updated perl-script to format the ponies names --- ponysaylist.pl | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/ponysaylist.pl b/ponysaylist.pl index 7a09376..72c0a92 100755 --- a/ponysaylist.pl +++ b/ponysaylist.pl @@ -15,6 +15,10 @@ $maxw = 1; foreach $arg (@ARGV) { + # Format names from ponyies names + $arg =~ s/([a-z])([A-Z])/\1 \2/; + $arg =~ s/_(.*)/\t(\1)/; + if ($first == 1) { $first = 0; $scrw = $arg; -- cgit From 57fdde2f5e78abf097a0af2249031989de2ef0b5 Mon Sep 17 00:00:00 2001 From: Elis Axelsson Date: Sat, 21 Jul 2012 10:39:24 +0200 Subject: Support ponies by name like "Apple Jack" --- ponysay | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ponysay b/ponysay index c856fd2..4a73cbe 100755 --- a/ponysay +++ b/ponysay @@ -270,7 +270,7 @@ while getopts $opts OPT; do case ${OPT} in v) version; exit ;; h) usage; exit ;; - f) ponies+=( "$OPTARG" ) ;; + f) ponies=($(echo $OPTARG | sed -e 's/ //g' -e 's/,/\n/')) ;; l) list; exit ;; L) linklist; exit ;; W) wrap="$OPTARG" ;; -- cgit From 86be6c93ff8ad6b0bedc67295c7236c13fbfeafa Mon Sep 17 00:00:00 2001 From: Elis Axelsson Date: Sat, 21 Jul 2012 12:34:35 +0200 Subject: Fish-completion now supports the new .pony-filename-format --- completion/fish-completion.fish | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/completion/fish-completion.fish b/completion/fish-completion.fish index 08b42c4..8299564 100644 --- a/completion/fish-completion.fish +++ b/completion/fish-completion.fish @@ -13,11 +13,11 @@ end if test -d $systempath - set -g systemponies (ls --color=no $systempath | sed 's/\.pony//') + set -g systemponies (ls --color=no $systempath | sed -e 's/\.pony//' -e 's/_.*//' | perl -pe 's/([a-z])([A-Z])/\1\\\ \2/' ) end if test -d $homepath - set -g homeponies (ls --color=no $homepath | sed 's/\.pony//') + set -g homeponies (ls --color=no $systempath | sed -e 's/\.pony//' -e 's/_.*//' | perl -pe 's/([a-z])([A-Z])/\1\\\ \2/' ) end -- cgit From 991ab2cf03a895f238d07fb4c112c1200f15c984 Mon Sep 17 00:00:00 2001 From: Elis Axelsson Date: Sat, 21 Jul 2012 12:54:34 +0200 Subject: Sorry :) Missed that part, fixed. --- ponysay | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ponysay b/ponysay index 4a73cbe..0d84cd8 100755 --- a/ponysay +++ b/ponysay @@ -270,7 +270,7 @@ while getopts $opts OPT; do case ${OPT} in v) version; exit ;; h) usage; exit ;; - f) ponies=($(echo $OPTARG | sed -e 's/ //g' -e 's/,/\n/')) ;; + f) ponies+=($(echo $OPTARG | sed -e 's/ //g')) ;; l) list; exit ;; L) linklist; exit ;; W) wrap="$OPTARG" ;; -- cgit