feat: add `--edit` to `list` command

2 files changed, 37 insertions, 26 deletions

diff --git a/app/History.hs b/app/History.hs
index ed07bcd..57cb53c 100644
--- a/app/History.hs
+++ b/app/History.hs
@@ -1,10 +1,10 @@
 module History
   ( History (..),
     getHistory,
+    getIssues,
   )
 where
 
-import Parallel (parMapM, parSequence)
 import CMark qualified as D
 import Cache (cachedMaybe)
 import Comment qualified as G
@@ -32,6 +32,7 @@ import Issue.Parser qualified as I
 import Issue.Tag qualified as I
 import Issue.Text qualified as I
 import IssueEvent (IssueEvent (..))
+import Parallel (parMapM, parSequence)
 import Patch qualified as A
 import Process (proc, sh)
 import Render qualified as P
diff --git a/app/Main.hs b/app/Main.hs
index 928f1c4..ea9077b 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -364,13 +364,16 @@ module Main where
 
 import Control.Applicative ((<|>))
 import Data.Function ((&))
-import Data.List (intersperse)
+import Data.List (find, intersperse)
 import Data.Map qualified as M
+import Data.Maybe (fromMaybe)
 import Data.Text qualified as T
 import Data.Text.IO qualified as T
 import Data.Text.Lazy qualified as LT
 import Data.Text.Lazy.IO qualified as LT
+import Git qualified
 import History (History (..), getHistory)
+import History qualified as H
 import Issue (Issue (..))
 import Issue qualified as I
 import Issue.Filter qualified as I
@@ -386,8 +389,8 @@ import Render qualified as P
 import Settings (Settings (..), readSettings)
 import System.Console.Terminal.Size qualified as Terminal
 import System.Exit (ExitCode (ExitFailure), exitWith)
-import System.IO (hClose, hFlush)
-import System.IO.Temp (withSystemTempFile)
+import System.FilePath ((</>))
+import System.IO.Temp (withSystemTempDirectory)
 import System.Process.Typed qualified as P
 import Text.Printf
 import Tuple ()
@@ -465,24 +468,14 @@ data Command
         sort :: [I.Sort],
         group :: Maybe T.Text,
         closed :: Bool,
-        detailed :: Bool
+        detailed :: Bool,
+        edit :: Bool
       }
   | Log
       { patch :: Bool
       }
   | Show
       { id :: String,
-        -- TODO Extend `--edit` to `List` command
-        --
-        -- Similarly to `anissue show --edit`, `anisuse list --edit` should open all selected (ie. through `--filter`) issues an `$EDITOR`.
-        --
-        -- This would allow for instance for triaging issues once a week:
-        --
-        -- ```
-        -- anissue list --filter '@createdAt <1w' --edit
-        -- ```
-        --
-        -- \*Note that `<1w` is hypothetical syntax, currenlty.*
         edit :: Bool
       }
   | Tags
@@ -509,6 +502,7 @@ listCmd =
     <*> I.groupArg
     <*> closedArg
     <*> detailedArg
+    <*> editFlag
 
 logCmd :: O.Parser Command
 logCmd =
@@ -587,7 +581,7 @@ main = do
           <$> getHistory
       let groupedIssues = I.groupIssuesByTag group ungroupedIssues
       putDoc colorize noPager width (group, groupedIssues)
-    Options {colorize, noPager, width, command = List {sort, filters, files, group = Nothing, closed, detailed}} -> do
+    Options {colorize, noPager, width, command = List {sort, filters, files, group = Nothing, closed, detailed, edit}} -> do
       issues <-
         I.applySorts sort
           . I.applyFilters filters
@@ -595,8 +589,11 @@ main = do
           . I.applyClosed closed
           . (M.elems . (.issues))
           <$> getHistory
-      putDoc colorize noPager width . (P.vsep . intersperse "") $
-        map (if detailed then (P.render . P.Detailed) else (P.render . P.Summarized)) issues
+      if edit
+        then editIssues issues
+        else
+          putDoc colorize noPager width . (P.vsep . intersperse "") $
+            map (if detailed then (P.render . P.Detailed) else (P.render . P.Summarized)) issues
     Options {colorize, noPager, width, command = Log {patch}} -> do
       es <- reverse . (.issueEvents) <$> getHistory
       putDoc colorize noPager width $
@@ -610,13 +607,7 @@ main = do
           Nothing -> die (printf "no issue with id `%s'\n" id)
           Just issue -> pure issue
       if edit
-        then do
-          withSystemTempFile (printf "%s.md" id) $ \fp h -> do
-            T.hPutStr h (issue.rawText)
-            hFlush h
-            hClose h
-            sh_ (proc "${EDITOR-vi} -- %" fp)
-            I.replaceText issue =<< T.readFile fp
+        then editIssues [issue]
         else putDoc colorize noPager width $ showIssue (M.elems issues) issue
     Options {colorize, noPager, width, internalTags, command = Tags} -> do
       issues <- (.issues) <$> getHistory
@@ -639,6 +630,25 @@ showIssue issues issue = do
     <<< ("\n" :: T.Text)
     <<< meta
 
+editIssues :: [Issue] -> IO ()
+editIssues issues = withSystemTempDirectory "anissue-edit" (go issues)
+  where
+    go :: [Issue] -> FilePath -> IO ()
+    go issues cwd = do
+      mapM_ (\issue -> T.writeFile (fp issue) issue.rawText) issues
+      sh_ (proc "${EDITOR-vi} -- %" (map fp issues))
+      replaceTexts issues
+      where
+        fp issue = cwd </> (T.unpack issue.id <> ".md")
+
+        replaceTexts [] = pure ()
+        replaceTexts [issue] = do
+          I.replaceText issue =<< T.readFile (fp issue)
+        replaceTexts (issue : issues) = do
+          I.replaceText issue =<< T.readFile (fp issue)
+          issues' <- H.getIssues Git.WorkingTree issue.file
+          replaceTexts [fromMaybe issue (find ((==) issue.id . (.id)) issues') | issue <- issues]
+
 putDoc :: P.Render a => Color -> Bool -> Maybe Int -> a -> IO ()
 putDoc colorize noPager width renderable = do
   isTty <- (== 1) <$> c_isatty 1