diff options
Diffstat (limited to '')
| -rw-r--r-- | bin/main.ml | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/bin/main.ml b/bin/main.ml index bb7dc1e..78d30ba 100644 --- a/bin/main.ml +++ b/bin/main.ml @@ -1,3 +1,18 @@ open Stitch +open Cmdliner -let () = Headlines.start () +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) |