[add comment body
·𐑑𐑴𐑕𐑑𐑩𐑤 <toastal@posteo.net>**20260617144141
 Ignore-this: c6ec3da645d4624c21b9b40aea8bfcbeb26c7ab220dd73869d9b26e9f9d1c454c1d5cfff35dfb50e
] hunk ./extra/darcs-hooks2/darcs-hooks2.factor 49
+            [ "comment" tag-named children>string clean-darcs-comment ]
hunk ./extra/darcs-hooks2/darcs-hooks2.factor 54
-        3array
+        4array
hunk ./extra/darcs-hooks2/darcs-hooks2.factor 56
-    ! tags-seq: { title date hash }
-
-    dup [ second ] map supremum
+    ! tags-seq: { content title date hash }
+
+    dup [ third ] map supremum
hunk ./extra/darcs-hooks2/darcs-hooks2.factor 61
-    swap [ first3 tag-entry-xml ] map
+    swap [ first4 tag-entry-xml ] map
hunk ./extra/darcs-hooks2/util/util.factor 3
-USING: accessors calendar calendar.format combinators kernel math math.order
-math.parser sequences xml.syntax ;
+USING: accessors ascii calendar calendar.format combinators kernel math math.order
+math.parser sequences splitting strings xml.syntax ;
hunk ./extra/darcs-hooks2/util/util.factor 29
-: tag-entry-xml ( title date hash -- xml )
+: clean-darcs-comment ( str -- str' )
+    string-lines [ "Ignore-this:" head? not ] filter "\n" join
+    [ blank? ] trim ;
+
+: tag-entry-xml ( content title date hash -- xml )
hunk ./extra/darcs-hooks2/util/util.factor 35
-    -rot
+    swap
hunk ./extra/darcs-hooks2/util/util.factor 40
+            <content type="html"><-></content>
+            <title type="html"><-></title>
hunk ./extra/darcs-hooks2/util/util.factor 43
-            <title type="html"><-></title>
hunk ./extra/darcs-hooks2/util/util.factor 46
-            <content type="html"></content>