open Cmdliner let tag_arg = let doc = "Search entries for a given tag." in Arg.(value & opt string "" & info [ "t"; "tag" ] ~docv:"TAG" ~doc) let headlines_t = Term.(const Stitch.start $ tag_arg $ const ()) let headlines_cmd = let doc = "Show titles in a condensed list" in let man = [ `S Manpage.s_bugs; `P "Email bug reports to marc@mccd.space" ] in let info = Cmd.info "headlines" ~version:"0.1" ~doc ~man in Cmd.v info headlines_t let () = exit (Cmd.eval headlines_cmd)