let print_item oc i =
  p oc "<div class=\"TDL_item\"><span class=\"TDL_item_title\">";
  p oc "%s%s [<span class=\"TDL_item_state\">%s</span>]"
    i.item_title
    ""
    (Tdl.string_of_state i.item_state);
  p oc "</span>";
  (
   match i.item_desc with
     None -> ()
   | Some s -> p oc "<div class=\"TDL_item_desc\">%s</div>" s
  );
  p oc "</div>\n"