let rss_items_of_log s =
let entries = analyze_log s in
let f (date, l) =
List.map
(fun (author, comments) ->
Rss.item
~pubdate: (Rss.float_to_date date)
~title: author
~comments: (String.concat "\n" comments)
()
)
l
in
List.flatten (List.map f entries)