Changeset 63 in code for trunk/cli/atom.ml

Timestamp:

Apr 1, 2024, 3:49:44 PM (13 months ago)

Author:

yakumo.izuru

Message:

Make the atom feed more palatable

Signed-off-by: Izuru Yakumo <yakumo.izuru@…>

File:

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

trunk/cli/atom.ml

@@ -12 +12 @@
 module P = Parsers.Plain_text.Make (Converter.Html)
 
-let id txt = "<id>urn:txtid:" ^ Logarion.(txt.Text.id) ^ "</id>"
-let title text = "<title>" ^ esc text.Logarion.Text.title ^ "</title>"
+let id txt = "<id>urn:txtid:" ^ Logarion.(txt.Text.id) ^ "</id>\n"
+let title text = "<title>" ^ esc text.Logarion.Text.title ^ "</title>\n"
 
 let authors text =
@@ -21 +21 @@
         a ^ "<author>" ^ (opt_element "name" @@ esc txt.Person.name)
         ^ (List.fold_left u "" txt.Person.addresses)
-        ^ "</author>" in
+        ^ "</author>\n" in
   Person.Set.fold fn text.Text.authors ""
 
 let updated txt = let open Logarion in
-        "<updated>"^ Date.(txt.Text.date |> listing |> rfc_string) ^"</updated>"
+        "<updated>"^ Date.(txt.Text.date |> listing |> rfc_string) ^"</updated>\n"
         
 let htm_entry base_url text =
   let open Logarion in
   let u = Text.short_id text in
-  "<entry>\n<link rel=\"alternate\" href=\"" ^ base_url ^ "/" ^ u ^ ".htm\" />"
+  "<entry>\n<link rel=\"alternate\" href=\"" ^ base_url ^ "/" ^ u ^ ".htm\" />\n"
   ^ title text ^ id text ^ updated text ^ authors text
   ^ (opt_element "summary" @@ esc @@ Text.str "abstract" text)