anndl: Print raw names in choice list.
[utils.git] / planime
diff --git a/planime b/planime
index 60549e9..854ef7f 100755 (executable)
--- a/planime
+++ b/planime
@@ -4,10 +4,35 @@ isnum() {
     grep -xq '[0-9]\+' <<<"$1"
 }
 
+scorefile() {
+    if [ "${1##*.}" = mkv ]; then
+       echo 10
+    elif [ "${1##*.}" = ogm ]; then
+       echo 5
+    else
+       echo 0
+    fi
+}
+
+findbase() {
+    if [ -r aliases ]; then
+       while read alias rest; do
+           if [ "$alias" = "$1" ]; then
+               echo "$rest"
+               return
+           fi
+       done <aliases
+    fi
+    echo "$1"
+}
+
 findfile() {
-    local file tail eq eqt m
-    for file in "$1"*; do
-       tail="${file#$1}"
+    if [ -n "$debug" ]; then echo "finding base='$1', ep='$2', qual='$3'" >&2; fi
+    local base file tail eq eqt m matches max score
+    matches=()
+    base="$(findbase "$1")"
+    for file in "$base"*; do
+       tail="${file#"$base"}"
        eq="${tail%.*}"
        m=n
        if [ "${eq%% *}" -eq "$2" ] 2>/dev/null; then
@@ -25,31 +50,60 @@ findfile() {
            fi
        fi
        if [ "$m" = y ]; then
-           if [ "$eqt" = "$3" -o "$eqt" = "($3)" ]; then
-               echo "$file"
-               return 0
+           if [ "$eqt" = "$3" -o "$eqt" = "($3)" -o "${eqt:0:2}" = "- " ]; then
+               matches=("${matches[@]}" "$file")
            fi
        fi
     done
-    return 1
+    if [ ${#matches[@]} -lt 1 ]; then return 1; fi
+    max=
+    for m in "${matches[@]}"; do
+       score="$(scorefile "$m")"
+       if [ -n "$debug" ]; then echo "found \`$m': score $score" >&2; fi
+       if [ -z "$max" ] || [ "$score" -gt "$max" ]; then
+           max="$score"
+           file="$m"
+       fi
+    done
+    if [ -n "$debug" ]; then echo "using \`$file'" >&2; fi
+    echo "$file"
+    return 0
 }
 
 origargs=("$0" "$@")
-cmdline=(mplayer -fs)
+cmdline=(mpv -fs)
+debug=
+log=y
+unset pretend printfile
 
 while [ "${1:0:1}" = - ]; do
     a="$1"
     shift
     case "$a" in
        -h)
-           echo "usage: planime [-ht] [-s PAR VAL] [NAME-QUAL] [EP|.] [TYPE-QUAL]" >&2
+           echo "usage: planime [-fdhtCL] [-A PLAYER-ARGS... ;] [-s PAR VAL] [--] [NAME-QUAL] [EP|.] [TYPE-QUAL]" >&2
            exit 0
            ;;
+       -d)
+           debug=y
+           ;;
        -t)
-           cmdline=("${cmdline[@]}" -ao oss:/dev/dsp1)
+           cmdline=("${cmdline[@]}" -audio-device 'alsa/hdmi:CARD=PCH,DEV=0')
+           DISPLAY=:1
+           chwp=y
+           ;;
+       -C)
+           pretend=y
+           ;;
+       -L)
+           log=
            ;;
        -A)
            while :; do
+               if [ $# -lt 1 ]; then
+                   echo "planime: unterminated argument list" >&2
+                   exit 1
+               fi
                a="$1"
                shift
                if [ "$a" = \; ]; then
@@ -64,47 +118,47 @@ while [ "${1:0:1}" = - ]; do
            saveval="$1"
            shift
            ;;
+       -f)
+           printfile=y
+           ;;
+       -v)
+           cmdline=("${cmdline[@]}" -v)
+           ;;
+       --)
+           break
+           ;;
+       *)
+           echo "planime: unknown option \`$a'"
+           exit 1
+           ;;
     esac
 done
 
-base="$(basename "$(pwd)")"
+dirbase="$(basename "$(pwd)")"
+base=.
 nextep=n
 file=
 tqual=
 if [ $# -eq 0 ]; then
     nextep=y
-    if [ -r curser ]; then
-       base="$base $(<curser)"
-    fi
 elif [ $# -eq 1 ]; then
     if [ -r "$1" ]; then
        file="$1"
     else
-       if findfile "$base - " "$1" >/dev/null; then
-           ep="$1"
-       else
-           nextep=y
-           base="$base $1"
-       fi
+       base=
+       ep="$1"
     fi
 elif [ $# -eq 2 ]; then
-    if findfile "$base - " "$1" "$2" >/dev/null; then
+    if findfile "$dirbase - " "$1" "$2" >/dev/null; then
+       base=""
        ep="$1"
        tqual="$2"
     else
-       if [ "$1" = . -a -r curser ]; then
-           base="$base $(<curser)"
-       else
-           base="$base $1"
-       fi
+       base="$1"
        ep="$2"
     fi
 else
-    if [ "$1" = . -a -r curser ]; then
-       base="$base $(<curser)"
-    else
-       base="$base $1"
-    fi
+    base="$1"
     ep="$2"
     tqual="$3"
 fi
@@ -117,7 +171,21 @@ if [ "$nextep" = y -a -r nextep ]; then
     fi
 fi
 if [ -z "$file" ]; then
-    file="$(findfile "$base - " "$ep" "$tqual")"
+    if [ "$base" = . ]; then
+       if [ -r curser ]; then
+           curser="$(<curser)"
+       else
+           curser=
+       fi
+    else
+       curser="$(findbase "$base")"
+    fi
+    if [ -n "$curser" ]; then
+       file="$(findfile "$dirbase $curser - " "$ep" "$tqual")" || \
+           file="$(findfile "$curser - " "$ep" "$tqual")"
+    else
+       file="$(findfile "$dirbase - " "$ep" "$tqual")"
+    fi
 fi
 
 if [ -z "$file" -o ! -r "$file" ]; then
@@ -127,10 +195,12 @@ fi
 
 case "${file##*.}" in
     ogm)
-       defopts=(-aid 1 -sid 0)
+       aid=1
+       sid=0
        ;;
     mkv)
-       defopts=(-slang eng -alang jpn)
+       alang=jpn
+       slang=eng
        ;;
 esac
 
@@ -155,46 +225,78 @@ if [ -r "$ifile" ]; then
            cmdline=("${cmdline[@]}" -delay "$arg")
        elif [ "$par" = aspect ]; then
            cmdline=("${cmdline[@]}" -aspect "$arg")
+       elif [ "$par" = volmod ]; then
+           cmdline=("${cmdline[@]}" -af volume="$arg")
+       elif [ "$par" = alang ]; then
+           unset alang aid
+           alang="$arg"
+       elif [ "$par" = aid ]; then
+           unset alang aid
+           aid="$arg"
+       elif [ "$par" = slang ]; then
+           unset slang sid
+           slang="$arg"
+       elif [ "$par" = sid ]; then
+           unset slang sid
+           sid="$arg"
        fi
     done
     exec 0<&3
     exec 3<&-
-else
-    cmdline=("${cmdline[@]}" "${defopts[@]}")
 fi
 
-if [ "`hostname`" = pc6 ]; then chwp=y; fi
-
-if [ "$chwp" = y ]; then (sleep 2; randomwp) & fi
-"${cmdline[@]}" "$file"
+if [ -n "$alang" ]; then
+    cmdline=("${cmdline[@]}" -alang "$alang")
+elif [ -n "$aid" ]; then
+    cmdline=("${cmdline[@]}" -aid "$((aid + 1))")
+fi
+if [ -n "$slang" ]; then
+    cmdline=("${cmdline[@]}" -slang "$slang")
+elif [ -n "$sid" ]; then
+    cmdline=("${cmdline[@]}" -sid "$((sid + 1))")
+fi
 
-if [ "$nextep" = y ]; then
-    echo "0. Save and continue (or Space)"
-    echo "1. Continue without saving"
-    echo "2. Save and exit (or Enter)"
-    echo "3. Exit without saving (or any key)"
-    IFS= read -sn1 c
-    save=n
-    cont=n
-    case "$c" in
-       0|" ")
-           save=y
-           cont=y
-           ;;
-       1)
-           cont=y
-           ;;
-       2|"")
-           save=y
-           ;;
-    esac
-    if [ "$save" = y ]; then
-       let ep++
-       echo "$ep" >nextep
+if [ -n "$pretend" ]; then
+    echo "${cmdline[@]}" "$file"
+elif [ -n "$printfile" ]; then
+    echo "$file"
+else
+    if [ "$chwp" = y ]; then (sleep 2; randomwp) & fi
+    if [ "$log" = y ]; then
+       if [ -d $HOME/.anime ]; then
+           echo "$(date) $(basename "$file")" >>$HOME/.anime/plog
+       fi
     fi
-    if [ "$cont" = y ]; then
-       exec "${origargs[@]}"
-    else
-       echo "nextep is $ep"
+    "${cmdline[@]}" "$file"
+    
+    if [ "$nextep" = y ]; then
+       echo "0. Save and continue (or Space)"
+       echo "1. Continue without saving"
+       echo "2. Save and exit (or Enter)"
+       echo "3. Exit without saving (or any key)"
+       IFS= read -sn1 c
+       save=n
+       cont=n
+       case "$c" in
+           0|" ")
+               save=y
+               cont=y
+               ;;
+           1)
+               cont=y
+               ;;
+           2|"")
+               save=y
+               ;;
+       esac
+       if [ "$save" = y ]; then
+           let ep++
+           echo "$ep" >nextep
+       fi
+       if [ "$cont" = y ]; then
+           exec "${origargs[@]}"
+       else
+           echo "nextep is $ep"
+       fi
     fi
 fi