aboutsummaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--bin/main.ml17
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)