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"