Changeset 24 in code for trunk

Timestamp:

Nov 6, 2022, 12:48:40 PM (2 years ago)

Author:

fox

Message:

Fix non-empty authors in HTML conversion

File:

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

trunk/cli/html.ml

@@ -59 +59 @@
                 then "<dt>" ^ key ^ "<dd>" ^ value else "" in
 (*      let author acc auth = sep_append acc Person.(auth.name ^ " ") in*)
-        let authors = (Person.Set.to_string text.authors ^ " ") in
+        let authors = Person.Set.to_string text.authors in
         let keywords = str_set "keywords" text in
         let header =
@@ -72 +72 @@
                 ^ opt_kv "Title:" text.title
                 ^ opt_kv "Authors:" authors
-                ^ opt_kv "Date: " (time (Date.listing text.date))
-                ^ opt_kv "Series: " (str_set "series" text)
-                ^ opt_kv "Topics: " (topic_links (set "topics" text))
-                ^ opt_kv "Keywords: " keywords
-                ^ opt_kv "Id: " text.id
+                ^ opt_kv "Date:" (time (Date.listing text.date))
+                ^ opt_kv "Series:" (str_set "series" text)
+                ^ opt_kv "Topics:" (topic_links (set "topics" text))
+                ^ opt_kv "Keywords:" keywords
+                ^ opt_kv "Id:" text.id
                 ^ {|</dl></header><pre style="white-space:pre-wrap">|} in
         wrap conversion htm text.title ((T.of_string text.body header) ^ "</pre></article>")