diff options
| author | Akshay Nair <phenax5@gmail.com> | 2025-10-03 17:30:44 +0530 |
|---|---|---|
| committer | Akshay Nair <phenax5@gmail.com> | 2025-10-03 17:30:44 +0530 |
| commit | 4d669ba5d5858e47b8d5723aae89b75481a2df2f (patch) | |
| tree | 8a939aa17cf850a74b51637a8a7e1a1846e3a02a /lib/Daffm/Event.hs | |
| parent | a3d5295ee745ab851c28d0a53147cbad65a7805f (diff) | |
| download | daffm-4d669ba5d5858e47b8d5723aae89b75481a2df2f.tar.gz daffm-4d669ba5d5858e47b8d5723aae89b75481a2df2f.zip | |
Add multifile selection/marking
Diffstat (limited to '')
| -rw-r--r-- | lib/Daffm/Event.hs | 7 |
1 files changed, 5 insertions, 2 deletions
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 |