Ability to set description

diff --git a/mkv/bin/my-mkvmerge b/mkv/bin/my-mkvmerge
index d87248f606602e4305f7aa0cd6352653a5836183..471898df271abae3068569e8e94c2022192b28a4 100755 (executable)
--- a/mkv/bin/my-mkvmerge
+++ b/mkv/bin/my-mkvmerge
@@ -1,20 +1,18 @@
 #!/usr/bin/env zsh
 
 set -e
-out="$1"
-shift
-[[ -z "$url" ]] || {
-    tags=`mktemp`
-    trap "rm -f $tags" HUP PIPE INT QUIT TERM EXIT
+zparseopts -D -A info url: descr: out:
+tags=`mktemp`
+trap "rm -f $tags" HUP PIPE INT QUIT TERM EXIT
+[[ -z ${info[-url]} ]] || {
+    urlTag="<Tag><Simple><Name>URL</Name><String>${info[-url]}</String></Simple></Tag>"
     tagsopt=(--global-tags $tags)
-    cat > $tags <<EOF
-<Tags><Tag>
-    <Simple>
-        <Name>URL</Name>
-        <String>${url}</String>
-    </Simple>
-</Tag></Tags>
-EOF
 }
-mkvmerge --no-date --disable-track-statistics-tags $tagsopt --output $out $@
-mkvpropedit --set muxing-application=- --set writing-application=- $out
+[[ -z ${info[-descr]} ]] || {
+    txt=`xml esc < ${info[-descr]}`
+    descrTag="<Tag><Simple><Name>DESCRIPTION</Name><String>$txt</String></Simple></Tag>"
+    tagsopt=(--global-tags $tags)
+}
+printf "<Tags>\n%s\n%s\n</Tags>" $urlTag $descrTag > $tags
+mkvmerge --no-date --disable-track-statistics-tags $tagsopt --output ${info[-out]} $@
+mkvpropedit --set muxing-application=- --set writing-application=- ${info[-out]}