tc-audio-trancode: {}()[] will precede cap in titlecase

.scripts/tc-audio-transcode

@@ -193,7 +193,7 @@ fi
 STREAM=$(ffmpeg -i "$1" 2>&1)
 
 if [ -z "$(echo $STREAM | grep "Stream")" ]; then
-    echo "[$1] Non-audio file."
+    echo "ERROR: Non-audio file [$1]."
     exit
 fi
 
@@ -206,13 +206,14 @@ INPUT_FILE="${INPUT_FILE##*/}"
 INPUT_FOLDER="$(realpath "$1")"
 INPUT_FOLDER="${INPUT_FOLDER%/*}"
 INPUT_EXT="${1##*.}"
-BITRATE=$(echo "$STREAM" | sed -n '/Duration/ {s|.* \([[:digit:]]\+\) kb/s|\1|;p;q}')
+INPUT_BITRATE=$(echo "$STREAM" | sed -n '/Duration/ {s|.* \([[:digit:]]\+\) kb/s|\1|;p;q}')
 ## CODEC is unused for now.
 # CODEC=$(echo "$STREAM" | sed -n '/Stream.*Audio:/ {s/.*Audio: \([^,]*\),.*/\1/;p}')
 
-## We get audio format from extension, because codec is not reliable either.
-if [ -z "$INPUT_EXT" ]; then
-    echo "ERROR: non-audio file."
+## Extension needs to be set in case we skip encoding so that ffmpeg will not be
+## disturbed by unappropriate extension.
+if $SKIP &&[ -z "$INPUT_EXT" ]; then
+    echo "ERROR: Extension missing [$1]."
     exit
 fi
 
@@ -308,19 +309,20 @@ if [ ${#DATE} -ne 4 ] && [ ${#TYER_REG} -eq 4 ]; then
 fi
 
 ## QUALITY
-## If bitrate argument is not provided, we use BITRATE value.
-[ $OUTPUT_BITRATE -eq 0 ] && OUTPUT_BITRATE=${BITRATE}
+## If bitrate argument is not provided, we use INPUT_BITRATE value.
+[ $OUTPUT_BITRATE -eq 0 ] && OUTPUT_BITRATE=${INPUT_BITRATE}
 ## If OUTPUT_BITRATE is beyond OGG's limit, we trim it.
 [ $OUTPUT_BITRATE -gt 500 ] && OUTPUT_BITRATE=500
 
 
 ## Only reencode if not in OGG and if SKIP not set.
 OGG_PARAM="-c:a libvorbis -b:a ${OUTPUT_BITRATE}k"
+INPUT_EXT_LOW="$(echo $INPUT_EXT | tr [:upper:] [:lower:])"
 if $SKIP; then
     OGG_PARAM="-c:a copy"
-    OUTPUT_EXT="$INPUT_EXT"
+    OUTPUT_EXT="$INPUT_EXT_LOW"
 fi
-[ "$INPUT_EXT" = "ogg" ] && OGG_PARAM="-c:a copy"
+[ "$INPUT_EXT_LOW" = "ogg" ] && OGG_PARAM="-c:a copy"
 
 ## Make sure track number has two digits for file name only.
 OUTPUT_PADDEDTRACK=$OUTPUT_TRACK

.scripts/titlecase.awk

@@ -1,11 +1,10 @@
 #!/bin/gawk -f
 ## This script is inspired by
 ##   http://www.pement.org/awk/titlecase.awk.txt
-
 ##
 ## function: titlecase("CHANGE TO TITLE CASE") --> "Change to Title Case"
 ##
-## Other Features:
+## Features:
 ##
 ##   titlecase() will compress whitespace if a second parameter is passed.  It
 ##   is sufficient to use a positive number: titlecase(string,1)
@@ -178,7 +177,7 @@ function titlecase(string)  {
     ## Double exception 2: Set 1st word after a some punctuation marks in title
     ## case. This kludge handles multiple colons, question marks, etc. on the
     ## line. \a is the BEL or CTRL-G character.
-    result = gensub(/([:?!"-][^[:alnum:]]*)([a-zA-Z])/, "\\1\a\\2", "g", a)
+    result = gensub(/([:{}\[\]?!"()-][^[:alnum:]]*)([a-zA-Z])/, "\\1\a\\2", "g", a)
     while (match(result, /\a/)) {
         beg = substr(result, 1, RSTART-1)
         cap = toupper(substr(result, RSTART+1, 1))