From fe4e176eb66b8fa18267bc385acd5f9db8f52225 Mon Sep 17 00:00:00 2001
From: Sergey Matveev <stargrave@stargrave.org>
Date: Mon, 1 May 2023 19:55:15 +0300
Subject: [PATCH] Ability to set description

---
 mkv/bin/my-mkvmerge | 28 +++++++++++++---------------
 1 file changed, 13 insertions(+), 15 deletions(-)

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]}
-- 
2.44.0