#!/bin/zsh
#
# Genererar tumnaglar
#
# nagla --help fr anvndarinstruktion.
#
# Av Johan Sundstrm <johan@id3.org>, 1998-10-10
#

if [[ $ARGC != 0 && $1 != <-> ]]; then
   name=$(basename $0)
   echo "$name - Skapar en katalog med tumnaglar"
   echo "Format: $name [hjd] [bildkatalog] [tumnagelkatalog]"
   echo
   echo "hjd:"
   echo "Anger tumnaglarnas hjd i pixlar. Om inget vrde angetts, anvnds 50."
   echo "bildkatalog:"
   echo "Anger var bilderna ligger. Har ingen katalog angetts, anvnds nuvarande katalog (\"$PWD\")."
   echo "tumnagelkatalog:"
   echo "Anger var tumnaglarna ska lggas. Har ingen katalog angetts, anvnds katalogen \"naglar\"."
   echo
   echo "Exempel:"
   echo "$name"
   echo "En katalog \"naglar\" skapas i nuvarande katalog."
   echo "I denna hamnar 50 pixlar hga tumnaglar."
   echo "Bildoriginalen hmtas frn nuvarande katalog (\"$PWD\")."
   echo
   echo "$name 25 ~/dwww/public_www/bilder/pallen98"
   echo "En katalog \"naglar\" skapas i \"$HOME/dwww/public_html/bilder/pallen98/\""
   echo "I denna hamnar 25 pixlar hga tumnaglar."
   echo "Bildoriginalen hmtas ur \"$HOME/dwww/public_html/bilder/pallen98\"."
   echo
   echo "$name 10 ~/html ~/tummen"
   echo "katalogen \"$HOME/tummen\" skapas."
   echo "I denna hamnar 10 pixlar hga tumnaglar."
   echo "Bildoriginalen hmtas ur \"$HOME/html\"."
else
   hjd=${1:-50}
   orig=${2:-$PWD}
   dest=${3:-naglar}
   if [[ ! -r $orig || ! -x $orig ]]; then
      echo "Du har ej tillgng till \"$orig\"."
   else
      pushd $orig >/dev/null
      if [[ ! -d $dest ]]; then
         if ! mkdir $dest 2>/dev/null; then
	    echo "Du har inte skrivrttigheter i \"$dest\"!"
	    popd >/dev/null
	    exit 5
	 else
	    echo "\"$dest\" skapad."
	 fi
      fi
      if [[ ! -w $dest ]]; then
	 echo "Du har inte skrivrttigheter i \"$dest\"!"
	 popd >/dev/null
	 exit 5
      else
	 bilder=(*.([jJ][pP][gG]|[gG][iI][fF]|[pP][nN][gG]))
	 echo "Gr $hjd pixlar hga tumnaglar av fljande bilder:"
	 echo $bilder
	 echo -n "["
	 for a in {1..${#bilder}}; { echo -n "."; }
	 echo -n "]\r["
	 for a in $bilder
	 do
	    /usr/X11R6/bin/convert -geometry x$hjd $a $dest/$a
	    echo -n "#"
	 done
      fi
   fi
fi
