From 8cc1763237f9f12d25cf00735ce63c5655877899 Mon Sep 17 00:00:00 2001
From: Akshay Nair <phenax5@gmail.com>
Date: Sun, 5 Oct 2025 20:21:13 +0530
Subject: Add CmdChain to run commands sequentially in keys

---
 lib/Daffm/Action/Commands.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'lib/Daffm/Action/Commands.hs')

diff --git a/lib/Daffm/Action/Commands.hs b/lib/Daffm/Action/Commands.hs
index a9b706f..a5116eb 100644
--- a/lib/Daffm/Action/Commands.hs
+++ b/lib/Daffm/Action/Commands.hs
@@ -4,13 +4,13 @@
 module Daffm.Action.Commands where
 
 import qualified Brick as M
+import Control.Monad (forM_)
 import Daffm.Action.Cmdline
 import Daffm.Action.Core
 import Daffm.Types
 import Daffm.Utils (trimStart)
 import Data.Bifunctor (Bifunctor (second))
 import Data.Char (isSpace)
-import Data.Maybe (fromMaybe)
 import qualified Data.Text as Text
 
 runCmdline :: AppEvent ()
@@ -24,8 +24,7 @@ parseCommand (Text.splitAt 2 -> ("!!", cmd)) = Just $ CmdShell True cmd
 parseCommand (Text.splitAt 1 -> ("!", cmd)) = Just $ CmdShell False cmd
 parseCommand cmd = mkCmd . splitCmdArgs $ trimStart cmd
   where
-    splitCmdArgs = second trimStart . Text.splitAt cmdEndIdx
-    cmdEndIdx = fromMaybe (Text.length cmd) $ Text.findIndex isSpace cmd
+    splitCmdArgs = second trimStart . Text.break isSpace
     mkCmd = \case
       ("q", _) -> Just CmdQuit
       ("quit", _) -> Just CmdQuit
@@ -57,6 +56,7 @@ processCommand CmdReload = reloadDir
 processCommand CmdToggleSelection = toggleCurrentFileSelection
 processCommand CmdClearSelection = clearFileSelections
 processCommand CmdGoBack = goBackToParentDir
+processCommand (CmdChain chain) = forM_ chain processCommand
 processCommand CmdNoop = pure ()
 
 evaluateCommand :: Text.Text -> AppEvent ()
-- 
cgit v1.3.1