let make_target_menu ~targets ?(filter_target=fun _ -> true) () =
List.filter targets ~f:filter_target
|> sort_target_list
|> List.map ~f:(fun target ->
menu_item ~log:Log.(Document.target_for_menu target)
(`Go (Target.id target)))