From 4013b920f51790a88b5afce5be72c52b8cb2adc6 Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Fri, 15 Dec 2023 03:19:11 +0100
Subject: feat: add `open` command

---
 app/Main.hs | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/app/Main.hs b/app/Main.hs
index fe031af..52a316d 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -317,6 +317,7 @@
 
 module Main where
 
+import Comment qualified as G
 import Control.Applicative ((<|>))
 import Data.Function ((&))
 import Data.List (find, intersperse)
@@ -420,6 +421,9 @@ data Command
   | Log
       { patch :: Bool
       }
+  | Open
+      { id :: String
+      }
   | Search
       { pattern :: R.RE,
         closed :: Bool,
@@ -438,6 +442,8 @@ cmd =
         O.progDesc "List all issues",
       O.command "log" . O.info logCmd $
         O.progDesc "Show a log of all issues",
+      O.command "open" . O.info openCmd $
+        O.progDesc "Open file containing an issue",
       O.command "search" . O.info searchCmd $
         O.progDesc "List issues matching a pattern",
       O.command "show" . O.info showCmd $
@@ -469,6 +475,11 @@ searchCmd =
     <*> closedArg
     <*> detailedArg
 
+openCmd :: O.Parser Command
+openCmd =
+  Open
+    <$> idArg
+
 showCmd :: O.Parser Command
 showCmd =
   Show
@@ -578,6 +589,13 @@ main = do
     Options {colorize, noPager, width, command = Tags} -> do
       issues <- (.issues) <$> H.getIssues
       putDoc colorize noPager width $ concatMap (.tags) issues
+    Options {command = Open {id}} -> do
+      issues <- (.issues) <$> H.getIssues
+      issue <-
+        case M.lookup (T.pack id) issues of
+          Nothing -> die (printf "no issue with id `%s'\n" id)
+          Just issue -> pure issue
+      sh_ (proc "${EDITOR-vi} +% -- %" issue.startPoint.row issue.file)
     Options {colorize, noPager, width, command = Search {pattern, closed, detailed}} -> do
       issues <-
         I.applyClosed closed
-- 
cgit v1.2.3