From 8cc1763237f9f12d25cf00735ce63c5655877899 Mon Sep 17 00:00:00 2001 From: Akshay Nair Date: Sun, 5 Oct 2025 20:21:13 +0530 Subject: Add CmdChain to run commands sequentially in keys --- lib/Daffm/Types.hs | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'lib/Daffm/Types.hs') 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) -- cgit v1.3.1