add `log` command

1 files changed, 35 insertions, 1 deletions

diff --git a/app/Main.hs b/app/Main.hs
index 28632ad..a7901bd 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -453,7 +453,7 @@ import Data.Text qualified as T
 import Data.Text.Lazy qualified as LT
 import Data.Text.Lazy.IO qualified as LT
 import Data.Time.Clock (UTCTime (utctDay))
-import History (listIssues)
+import History (IssueEvent (..), listEvents, listIssues)
 import Issue (Issue (..))
 import Issue qualified as I
 import Issue.Filter (Filter)
@@ -545,6 +545,7 @@ data Command
         filters :: [Filter],
         sort :: [Sort]
       }
+  | Log
   | Show
       { id :: String
       }
@@ -555,6 +556,8 @@ cmd =
   O.hsubparser . mconcat $
     [ O.command "list" . O.info listCmd $
         O.progDesc "List all issues",
+      O.command "log" . O.info logCmd $
+        O.progDesc "Show a log of all issues",
       O.command "show" . O.info showCmd $
         O.progDesc "Show details of all issues"
     ]
@@ -566,6 +569,10 @@ listCmd =
     <*> I.filterArg
     <*> I.sortArg
 
+logCmd :: O.Parser Command
+logCmd =
+  pure Log
+
 showCmd :: O.Parser Command
 showCmd =
   Show
@@ -625,6 +632,33 @@ main = do
                     ]
           )
           issues
+    Options {colorize, noPager, width, command = Log} -> do
+      -- TODO Reconcile log
+      --
+      -- When viewing the log I am confused by
+      --
+      -- (1) lots of sequential commits "changing" the same one issue, but no
+      -- others,
+      -- (2) having unknown hashes interleaved
+      --
+      -- I would assume changes to be less frequent, or, if no changes are
+      -- considered changes, the log output sorted by hashes (and not
+      -- commits?). I would expect only the first commit hash to be unknown.
+      --
+      -- Thoughts? :-)
+      es <- concat <$> listEvents
+      putDoc colorize noPager width . P.vsep $
+        map
+          ( \e ->
+              let shortHash = P.annotate (P.color P.Yellow) . P.pretty $ maybe "UNKNOWN" (T.take 7) e.hash
+                  kwd = P.annotate (P.color P.Green) . P.pretty . T.pack
+                  title issue = P.annotate (P.color P.Blue) . P.annotate P.bold $ P.pretty issue.title
+               in case e of
+                    IssueCreated {issue} -> shortHash <+> kwd "created" <+> title issue
+                    IssueChanged {issue} -> shortHash <+> kwd "changed" <+> title issue
+                    IssueDeleted {} -> shortHash <+> kwd "deleted"
+          )
+          es
     Options {colorize, width, command = Show {id}} -> do
       issues <- listIssues [] [] []
       case find ((==) (Just id) . I.id) issues of