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