Changeset 43 in code for trunk/cli/html.ml

Timestamp:

Dec 18, 2022, 2:49:25 PM (2 years ago)

Author:

fox

Message:

Relation dates, with conversion condition upon it

File:

• trunk/cli/html.ml (modified) (2 diffs)

trunk/cli/html.ml

@@ -74 +74 @@
                         String_set.fold (fun r a -> sep_append a (link r)) x ""
                 in
-                Printf.eprintf "%s %d\n" text.id (Conversion.Id_map.cardinal conversion.Conversion.replies);
+                let references, replies = let open Conversion in
+                        let Rel.{ref_set; rep_set; _} =
+                                try Rel.Id_map.find text.id conversion.relations
+                                with Not_found -> Rel.empty in
+                        ref_links ref_set, ref_links rep_set
+                in
                 "<article><header><dl>"
                 ^ opt_kv "Title:" text.title
@@ -84 +89 @@
                 ^ opt_kv "Refers:" (ref_links (set "references" text))
                 ^ opt_kv "In reply to:" (ref_links (set "in-reply-to" text))
-                ^ opt_kv "Referred by:" (try
-                                ref_links (Conversion.Id_map.find text.id conversion.Conversion.references)
-                                with Not_found -> "")
-                ^ opt_kv "Replies:" (try
-                                ref_links (Conversion.Id_map.find text.id conversion.Conversion.replies)
-                                with Not_found -> "")
+                ^ opt_kv "Referred by:" references
+                ^ opt_kv "Replies:" replies
                 ^ {|</dl></header><pre style="white-space:pre-wrap">|} in
         wrap conversion htm text.title ((T.of_string text.body header) ^ "</pre></article>")