Commit b6c7388e by Stavros Polymenis

Map note topics to Atom feed categories

parent d72a09f6
......@@ -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>"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment