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)))