Map note topics to Atom feed categories

2017-08-23 23:27:54 +01:00 · 2017-08-23 23:27:54 +01:00 · b6c7388e23
commit b6c7388e23
parent d72a09f66d
1 changed files with 1 additions and 0 deletions
--- a/src/converters/atom.ml
+++ b/src/converters/atom.ml
@ -31,6 +31,7 @@ let entry config url node_fn note =
   |> opt_element "email" @@ esc meta.author.email
   |> opt_element "summary" @@ esc meta.abstract)
  ^ "</author>"
+  ^ Meta.StringSet.fold (fun elt a -> a ^ "<category term=\"" ^ elt ^ "\"/>") meta.topics ""
  ^ "<content type=\"xhtml\"><div xmlns=\"http://www.w3.org/1999/xhtml\">"
  ^ (Omd.to_html @@ Omd.of_string @@ esc note.Note.body)
  ^ "</div></content>"