let rss_channel_of_tdl title tdl =
let rss_items = rss_items_of_tdl tdl in
let rss_items = List.sort
(fun (_,i1) (_,i2) ->
Pervasives.compare i2.Rss.item_pubdate i1.Rss.item_pubdate)
rss_items
in
let rss_items = List.map
(fun (groups,i) ->
match groups with
[] -> i
| _ ->
let item_title =
match i.Rss.item_title with
None -> ""
| Some s -> s
in
let item_title =
Printf.sprintf "[%s]%s" (String.concat "/" groups) item_title
in
{ i with Rss.item_title = Some item_title }
)
rss_items
in
Rss.channel
~title
~generator: Tdl_messages.software
~desc: "My things done"
~link: "http://pauillac.inria.fr/~guesdon/todo.rss"
rss_items