From 4d669ba5d5858e47b8d5723aae89b75481a2df2f Mon Sep 17 00:00:00 2001 From: Akshay Nair Date: Fri, 3 Oct 2025 17:30:44 +0530 Subject: Add multifile selection/marking --- lib/Daffm/Event.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'lib/Daffm/Event.hs') diff --git a/lib/Daffm/Event.hs b/lib/Daffm/Event.hs index 8eaf960..247719b 100644 --- a/lib/Daffm/Event.hs +++ b/lib/Daffm/Event.hs @@ -5,8 +5,8 @@ import qualified Brick.Types as T import qualified Brick.Widgets.Edit as Editor import qualified Brick.Widgets.List as L import Control.Monad.State (gets, modify) -import Daffm.Action.Cmdline (enterCmdline, evaluateCommand, leaveCmdline, runCmdline, setCmdlineText) -import Daffm.Action.Core (goBackToParentDir, openSelectedFile, reloadDir) +import Daffm.Action.Cmdline +import Daffm.Action.Core import Daffm.State (cacheDirPosition) import Daffm.Types (AppEvent, AppState (..), FocusTarget (..)) import qualified Graphics.Vty as V @@ -19,10 +19,13 @@ appEvent brickevent@(T.VtyEvent event) = do (FocusMain, V.EvKey (V.KChar 'h') []) -> goBackToParentDir (FocusMain, V.EvKey V.KEnter []) -> openSelectedFile (FocusMain, V.EvKey V.KBS []) -> goBackToParentDir + (FocusMain, V.EvKey (V.KChar '~') []) -> goHome (FocusMain, V.EvKey (V.KChar ':') []) -> enterCmdline (FocusMain, V.EvKey (V.KChar '!') []) -> setCmdlineText "!" >> enterCmdline (FocusMain, V.EvKey (V.KChar 'q') []) -> M.halt (FocusMain, V.EvKey (V.KChar 'r') [V.MCtrl]) -> reloadDir + (FocusMain, V.EvKey (V.KChar 'v') []) -> toggleCurrentFileSelection + (FocusMain, V.EvKey (V.KChar 'C') []) -> clearFileSelections -- Just for testing (FocusMain, V.EvKey (V.KChar 'p') [V.MCtrl]) -> evaluateCommand "!!chafa -f kitty %" (FocusCmdline, V.EvKey V.KEsc []) -> leaveCmdline -- cgit v1.3.1