From c3eb868c3873af2fc556525350bde6faebbd7cc8 Mon Sep 17 00:00:00 2001 From: Akshay Nair Date: Fri, 3 Oct 2025 14:32:44 +0530 Subject: Add "press key to continue" with !! prefix --- lib/Daffm/Types.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'lib/Daffm/Types.hs') diff --git a/lib/Daffm/Types.hs b/lib/Daffm/Types.hs index fa9796a..14444f4 100644 --- a/lib/Daffm/Types.hs +++ b/lib/Daffm/Types.hs @@ -4,7 +4,7 @@ import Brick (EventM) import qualified Brick.Widgets.Edit as Editor import qualified Brick.Widgets.List as L import qualified Data.Map as Map -import System.Posix.Types (FileOffset) +import System.Posix.Types (FileMode, FileOffset) data FileType = RegularFile @@ -21,6 +21,7 @@ data FileInfo = FileInfo { fileName :: String, filePath :: FilePath, fileSize :: FileOffset, + fileMode :: FileMode, fileType :: FileType } deriving (Show) @@ -29,7 +30,7 @@ data FocusTarget = FocusCmdline | FocusMain deriving (Show, Eq, Ord) data AppState = AppState { stateFiles :: L.List FocusTarget FileInfo, - stateCmdlineEditor :: Editor.Editor String FocusTarget, + stateCmdlineEditor :: CmdlineEditor, stateFocusTarget :: FocusTarget, stateCwd :: FilePath, stateListPositionCache :: Map.Map String Int, @@ -38,3 +39,5 @@ data AppState = AppState deriving (Show) type AppEvent = EventM FocusTarget AppState + +type CmdlineEditor = Editor.Editor String FocusTarget -- cgit v1.3.1