From be2bf751536850e7bdfbd876ef908c5d6cf00087 Mon Sep 17 00:00:00 2001
From: Marc Coquand <marc@mccd.space>
Date: Tue, 14 May 2024 10:46:28 -0500
Subject: Add search and tag search

---
 bin/main.ml | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

(limited to 'bin/main.ml')

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)
-- 
cgit v1.2.3