open Stitch
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 Headlines.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)