aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xlinklist.pl35
-rwxr-xr-xponysay.sh51
2 files changed, 0 insertions, 86 deletions
diff --git a/linklist.pl b/linklist.pl
deleted file mode 100755
index c0377aa..0000000
--- a/linklist.pl
+++ /dev/null
@@ -1,35 +0,0 @@
-#!/usr/bin/perl
-
-# ponysaylist
-# Prints a list of ponies in columns
-#
-# Licensed under WTFPL
-# See COPYING for details
-
-# Author: Mattias Andrée, maandree@kth.se
-# spider-mario
-
-
-use strict;
-use warnings;
-use utf8;
-
-my %hash;
-
-{
- local @ARGV = @ARGV;
- while ((my ($source, $target), @ARGV) = @ARGV) {
- unless ($source eq $target) {
- push @{$hash{$target}}, $source;
- }
- }
-}
-
-while ((my ($source, $target), @ARGV) = @ARGV) {
- if ($source eq $target) {
- my @list = @{$hash{$source} // []};
- print $source;
- print ' (', join(' ', @list), ')' if @list;
- print "\n";
- }
-}
diff --git a/ponysay.sh b/ponysay.sh
index 9936fae..482dabc 100755
--- a/ponysay.sh
+++ b/ponysay.sh
@@ -60,62 +60,11 @@ fi
-# Ponysay version print function
-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) | 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) | qoutelist
- fi
- if [ ! -d $SYSTEMPONIES ] && [ ! -d $HOMEPONIES ]; then
- echo >&2 "All the ponies are missing! Call the Princess!"
- fi
-}
-
-# Pony list function with symlink map, for one directory
-_linklist() {
- echo -e "\\e[01mponyfiles located in $1:\\e[21m"
- files=$(ls --color=no $1 | sed -e 's/\.pony$//' | sort)
-
- args=""
-
- for file in $files; do
- target="$(readlink $1"/"$file".pony")"
-
- if [ "$target" = "" ]; then
- target=$file
- else
- target=$(echo $target | sed -e 's/^\.\///g' -e 's/\.pony$//g')
- fi
-
- args=$(echo $args $file $target)
- done
-
- 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
-linklist() {
- _linklist $SYSTEMPONIES
-
- if [ -d $HOMEPONIES ]; then
- _linklist $HOMEPONIES
- fi
-}
-
# Pony quotes
ponyquotes() {
[ "$TERM" = "-linux-" ] && TERM="linux"