software-archive/logarion-2021
2
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove L from Atom URLs

Browse Source
This commit is contained in:
orbifx 2021-06-16 11:26:52 +01:00
parent f5033a61fc
commit bf3c14f2d0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cli/atom.ml
View File

@ -19,7 +19,7 @@ let entry base_url text =
^ "</author>"
in
"<entry><title>" ^ esc text.title ^ "</title><id>urn:uuid:" ^ Id.to_string text.uuid ^ "</id><link rel=\"alternate\" href=\""
^ base_url ^ "/" ^ u ^ ".html\" /><updated>"
^ base_url ^ "/" ^ u ^ ".htm\" /><updated>"
^ Date.(text.date |> listing |> rfc_string) ^ "</updated>"
^ Person.Set.fold authors text.authors ""
^ (opt_element "summary" @@ esc @@ Text.str "abstract" text)