blob: 78d30bad7384ee83ee8152bebcea6be50daea389 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
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)
|