From c3eb868c3873af2fc556525350bde6faebbd7cc8 Mon Sep 17 00:00:00 2001
From: Akshay Nair <phenax5@gmail.com>
Date: Fri, 3 Oct 2025 14:32:44 +0530
Subject: Add "press key to continue" with !! prefix

---
 lib/Daffm/State.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'lib/Daffm/State.hs')

diff --git a/lib/Daffm/State.hs b/lib/Daffm/State.hs
index 13fb613..3990ac0 100644
--- a/lib/Daffm/State.hs
+++ b/lib/Daffm/State.hs
@@ -9,15 +9,19 @@ import Data.Char (toLower)
 import Data.List (findIndex, sortBy)
 import qualified Data.Map.Strict as Map
 import Data.Maybe (fromMaybe)
+import qualified Data.Text.Zipper.Generic as Zipper
 import qualified Data.Vector as Vec
 import System.Directory (listDirectory, makeAbsolute, setCurrentDirectory)
 import qualified System.PosixCompat as Posix
 
+mkEditor :: (Zipper.GenericTextZipper a) => a -> Editor.Editor a FocusTarget
+mkEditor = Editor.editor FocusCmdline (Just 1)
+
 mkEmptyAppState :: AppState
 mkEmptyAppState =
   AppState
     { stateFiles = L.list FocusMain (Vec.fromList []) 1,
-      stateCmdlineEditor = Editor.editor FocusCmdline (Just 1) "",
+      stateCmdlineEditor = mkEditor "",
       stateFocusTarget = FocusMain,
       stateListPositionCache = Map.empty,
       stateCwd = "",
@@ -60,6 +64,7 @@ getFileInfo name = do
       { filePath = path,
         fileName = name,
         fileSize = Posix.fileSize stat,
+        fileMode = Posix.fileMode stat,
         fileType = fileTypeFromStatus stat
       }
 
-- 
cgit v1.3.1