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

Timestamp:

Sep 24, 2022, 8:01:37 PM (3 years ago)

Author:

fox

Message:

List peers (from index.pck) in exported htm and gmi index

File:

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

trunk/cli/html.ml

@@ -37 +37 @@
 let topic_link root topic = 
   let replaced_space = String.map (function ' '->'+' | x->x) in
-  "<a href='index." ^ replaced_space root ^ ".htm#" ^ replaced_space topic ^ "'>"
+  "<a href='index." ^ root ^ ".htm#" ^ replaced_space topic ^ "'>"
   ^ String.capitalize_ascii topic ^ "</a>"
 
@@ -148 +148 @@
     (fold_topic_roots topic_roots
      ^ "<nav><h1>Latest</h1><ul>" ^ to_dated_links ~limit:8 metas
-     ^ {|</ul><a href="index.date.htm">More by date</a></nav>|} )
+     ^ {|</ul><a href="index.date.htm">More by date</a>|}
+     ^ let peers = Logarion.Store.KV.find "Peers" conv.kv in
+       (if peers = "" then "" else
+        List.fold_left (fun a s -> Printf.sprintf {|%s<li><a href="%s">%s</a>|} a s s) "<h1>Peers</h1><ul>"
+        (Str.split (Str.regexp ";\n") (Logarion.Store.KV.find "Peers" conv.kv))
+        ^ "</ul>"))
 
 let topic_sub_index conv htm topic_map topic_root metas =
@@ -172 +177 @@
 
         let base_url = try
-                let _i = Str.(search_forward (regexp "https?://[^;]*") (Store.KV.find "Locations" c.kv) 0) in
-                Str.(matched_string (Store.KV.find "Locations" c.kv))
+                let locs = Store.KV.find "Locations" c.kv in
+                let _i = Str.(search_forward (regexp "https?://[^;]*") locs 0) in
+                Str.(matched_string locs)
                 with Not_found -> prerr_endline "Missing location for HTTP(S)"; "" in
         file "feed.atom" (Atom.feed title c.id base_url "text/html" c.texts)