Changeset 15 in code for trunk/cli/gemini.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/gemini.ml (modified) (2 diffs)

trunk/cli/gemini.ml

@@ -72 +72 @@
   List.fold_left (fun a x -> a ^ list_item x x) "" (List.rev topic_roots)
 
-let topic_main_index title topic_roots metas =
-        "# " ^ title ^ "\n\n"
+let topic_main_index r title topic_roots metas =
+  "# " ^ title ^ "\n\n"
   ^ (if topic_roots <> [] then ("## Main topics\n\n" ^ fold_topic_roots topic_roots) else "")
   ^ "\n## Latest\n\n" ^ to_dated_links ~limit:10 metas
-  ^ "\n=> index.date.gmi More by date\n"
+  ^ "\n=> index.date.gmi More by date\n\n"
+  ^ let peers = Logarion.Store.KV.find "Peers" r.Conversion.kv in
+    if peers = "" then "" else
+    List.fold_left (fun a s -> Printf.sprintf "%s=> %s\n" a s) "## Peers\n\n"
+      (Str.split (Str.regexp ";\n") peers)
 
 let topic_sub_index title topic_map topic_root metas =
@@ -89 +93 @@
 
         if index_name <> "" then
-                file index_name (topic_main_index title r.topic_roots r.texts);
+                file index_name (topic_main_index r title r.topic_roots r.texts);
 
         file "index.date.gmi" (date_index title r.texts);