method gen_if_tag name target info_opt =
match info_opt with
None -> ()
| Some i ->
let l =
List.fold_left
(fun acc (t, text) ->
match t with
"todo" -> text :: acc
| _ -> acc
)
[]
i.i_custom
in
match l with
[] -> ()
| _ ->
let i = Tdl.item ~title: name
~state: Tdl.Priority_normal
~desc: (String.concat "\n" (List.map Odoc_info.string_of_text l))
()
in
current_group.group_items <- current_group.group_items @ [i]