# -*-sh-*-


# mp3
alias rr=replace_regexp
alias rrp=replace_prefix

alias renumber='foreach file (*) {mv  -v $file "$(mp3info -p "%n %f" $file)" }'

function replace_prefix () {
    if [ $# -ne 1 ] ;
        then 
        echo "usage: replace_regexp string

where regexp is the string to be deleted"
    else
        prefix="$1"
        length=$(expr length ${prefix})
        for filename  in *"${prefix}"*;
          do
#      echo ${length} $(expr substr ${filename} 1 ${length})  ${prefix}
          if [ "$(expr substr ${filename} 1 ${length})" = ${prefix} ]
              then
#	echo "$filename";
              rest=$(expr $(expr length ${filename}) - ${length} )
	# newname=$(echo "$filename"|sed -e "s/$prefix//")
              newname=$(expr substr ${filename} $(expr ${length} + 1) ${rest})
#        echo "${newname}"
              mv -v --  "${filename}" "${newname}";
          fi
        done
    fi
}

# alias prefix="prefix=\"Track  \";for i in *\"$prefix\"*; do echo \"$i\"; name=\$(echo $i|sed -e \"s/\$prefix//\"); \
# mv  \"$i\" \"$name\"; done"

function replace_regexp () {
if [ $# -ne 1 ] ;
    then 
    echo "usage: replace_regexp string

where regexp is the string to be deleted"
else
    prefix="$1"
    length=$(expr length ${prefix})
    for filename  in *"${prefix}"*;
    do
#      echo ${length} $(expr substr ${filename} 1 ${length})  ${prefix}
#      if [ "$(expr substr ${filename} 1 ${length})" = ${prefix} ]
#      then
#	echo "$filename";
#        rest=$(expr $(expr length ${filename}) - ${length} )
	newname=$(echo "$filename"|sed -e "s/$prefix//")
#        newname=$(expr substr ${filename} $(expr ${length} + 1) ${rest})
#        echo "${newname}"
        if [ ! ${newname} = ${filename} ];
        then
            mv -v --  "${filename}" "${newname}";
        fi
    done
fi
}





if which chcase >& /dev/null;
then
    alias downcase="chcase  -d '*'"
fi

alias renumber="file=/tmp/renumber; renumber.pl < order  > \\\$file && . \\\$file && rm order"



# books
# -printf "%f\n"
alias sm='find ${SCANMATHROOT} -maxdepth 2 -type d |grep'



# foto
alias dekodak='jpegtran -verbose  -copy comments  -outfile '
alias flaten='for i in */**/*; do name=$(echo $i|sed -e "s/\//_/g"); ln -s $i $name; done'
alias flaten_pnm='for i in */**/*.pnm; do name=$(echo $i|sed -e "s/\//_/g"); ln -s $i $name; done'

alias deflaten='for i in *(.); do name=$(echo $i| sed -e"s/_/\//g"); mv $i $name; done'


alias rename_png='for i in  */*.pnm; do file=$(file $i); if echo $file|grep "image/png"; then name=$(echo $i|sed -e "s/pnm/png/g"); mv -v  $i $name ;fi; done'


# Video
# How to rip a DVD?
# mencoder dvd:// -ovc lavc -oac mp3lame -o thematrix.avi


