Add CmdChain to run commands sequentially in keys

1 files changed, 7 insertions, 6 deletions

diff --git a/lib/Daffm/Types.hs b/lib/Daffm/Types.hs
index d3dcc70..197ab63 100644
--- a/lib/Daffm/Types.hs
+++ b/lib/Daffm/Types.hs
@@ -34,15 +34,15 @@ data FileInfo = FileInfo
 data FocusTarget = FocusCmdline | FocusMain deriving (Show, Eq, Ord)
 
 data AppState = AppState
-  { stateFiles :: L.List FocusTarget FileInfo,
-    stateCmdlineEditor :: CmdlineEditor,
+  { stateCmdlineEditor :: CmdlineEditor,
+    stateCwd :: FilePathText,
     stateFileSelections :: Set.Set FilePathText,
+    stateFiles :: L.List FocusTarget FileInfo,
     stateFocusTarget :: FocusTarget,
-    stateCwd :: FilePathText,
-    stateListPositionHistory :: Map.Map Text.Text Int,
+    stateKeyMap :: Keymap,
     stateKeySequence :: KeySequence,
-    stateOpenerScript :: Maybe Text.Text,
-    stateKeyMap :: Keymap
+    stateListPositionHistory :: Map.Map Text.Text Int,
+    stateOpenerScript :: Maybe Text.Text
   }
   deriving (Show)
 
@@ -65,6 +65,7 @@ data Command
   | CmdToggleSelection
   | CmdClearSelection
   | CmdGoBack
+  | CmdChain [Command]
   | CmdNoop
   deriving (Show, Eq)