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]