From: Sergey Matveev <stargrave@stargrave.org>
Date: Mon, 1 May 2023 16:55:15 +0000 (+0300)
Subject: Ability to set description
X-Git-Url: http://www.git.stargrave.org/?p=dotfiles.git;a=commitdiff_plain;h=fe4e176eb66b8fa18267bc385acd5f9db8f52225

Ability to set description
---

diff --git a/mkv/bin/my-mkvmerge b/mkv/bin/my-mkvmerge
index d87248f..471898d 100755
--- 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]}