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

Timestamp:

Dec 13, 2022, 11:04:19 PM (2 years ago)

Author:

fox

Message:

In-Reply-To header field. Note extra list.rev in convert

File:

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

trunk/cli/html.ml

@@ -40 +40 @@
         header body footer
 
-let topic_link root topic = 
+let topic_link root topic =
         let replaced_space = String.map (function ' '->'+' | x->x) in
         "<a href='index." ^ root ^ ".htm#" ^ replaced_space topic ^ "'>"
@@ -47 +47 @@
 module HtmlConverter = struct
         include Converter.Html
-        let uid_uri u a = Printf.sprintf "%s<a href='%s%s'>%s</a>" a u ext u
+        let uid_uri u a = Printf.sprintf "%s<a href='%s%s'>&lt;%s&gt;</a>" a u ext u
         let angled_uri u a =
                 if try String.sub u 0 10 = "urn:txtid:" with Invalid_argument _ -> false
@@ -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);
                 "<article><header><dl>"
                 ^ opt_kv "Title:" text.title
@@ -82 +83 @@
                 ^ opt_kv "Id:" text.id
                 ^ 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 -> "empty replies")
                 ^ {|</dl></header><pre style="white-space:pre-wrap">|} in
         wrap conversion htm text.title ((T.of_string text.body header) ^ "</pre></article>")