aboutsummaryrefslogtreecommitdiff
path: root/lib/Daffm/Types.hs
diff options
context:
space:
mode:
authorAkshay Nair <phenax5@gmail.com>2025-10-03 14:32:44 +0530
committerAkshay Nair <phenax5@gmail.com>2025-10-03 14:32:44 +0530
commitc3eb868c3873af2fc556525350bde6faebbd7cc8 (patch)
treeb289076a0ef9872221ef1a79399aa93236cf2a7b /lib/Daffm/Types.hs
parentf820f302130445d8b983ab89746f6de7443c0bea (diff)
downloaddaffm-c3eb868c3873af2fc556525350bde6faebbd7cc8.tar.gz
daffm-c3eb868c3873af2fc556525350bde6faebbd7cc8.zip
Add "press key to continue" with !! prefix
Diffstat (limited to 'lib/Daffm/Types.hs')
-rw-r--r--lib/Daffm/Types.hs7
1 files changed, 5 insertions, 2 deletions
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