From 556f890c3bb799dd6bc1e83c5dcff12f25ed5c24 Mon Sep 17 00:00:00 2001
From: Akshay Nair <phenax5@gmail.com>
Date: Sun, 5 Oct 2025 11:51:37 +0530
Subject: Add ~ substitution for cd paths

---
 lib/Daffm/Action/Core.hs | 19 +++++++++----------
 lib/Daffm/State.hs       | 49 +++++++++++++++++++++++++++++-------------------
 lib/Daffm/Types.hs       |  1 -
 3 files changed, 39 insertions(+), 30 deletions(-)

(limited to 'lib')

diff --git a/lib/Daffm/Action/Core.hs b/lib/Daffm/Action/Core.hs
index ce04073..fef6b36 100644
--- a/lib/Daffm/Action/Core.hs
+++ b/lib/Daffm/Action/Core.hs
@@ -18,23 +18,23 @@ import System.Process (callProcess)
 modifyM :: (MonadState s m) => (s -> m s) -> m ()
 modifyM f = get >>= f >>= put
 
-loadDir :: FilePathText -> FilePathText -> AppEvent ()
-loadDir dir parentDir = do
-  modifyM (liftIO . (>>= filterInvalidSelections) . loadDirToState dir parentDir)
+loadDir :: FilePathText -> AppEvent ()
+loadDir dir = do
+  modifyM (liftIO . (>>= filterInvalidSelections) . loadDirToState dir)
 
 reloadDir :: AppEvent ()
 reloadDir = do
-  AppState {stateCwd, stateParentDir} <- get
-  loadDir stateCwd stateParentDir
+  AppState {stateCwd} <- get
+  loadDir stateCwd
 
 goBackToParentDir :: AppEvent ()
 goBackToParentDir = do
-  dir <- gets stateParentDir
-  loadDir dir (Text.pack . takeDirectory $ Text.unpack dir)
+  dir <- gets (Text.pack . takeDirectory . Text.unpack . stateCwd)
+  loadDir dir
 
 changeDir :: FilePathText -> AppEvent ()
 changeDir dir = do
-  loadDir dir (Text.pack $ takeDirectory $ Text.unpack dir)
+  loadDir dir
 
 goHome :: AppEvent ()
 goHome = do
@@ -47,8 +47,7 @@ openSelectedFile = do
     Nothing -> pure ()
 
 openFile :: FileInfo -> AppEvent ()
-openFile (FileInfo {filePath, fileType = Directory}) = do
-  gets stateCwd >>= loadDir filePath
+openFile (FileInfo {filePath, fileType = Directory}) = loadDir filePath
 openFile (FileInfo {filePath, fileType}) = do
   suspendAndResume' $ do
     putStrLn $ "Opening " <> show fileType <> ": " <> Text.unpack filePath
diff --git a/lib/Daffm/State.hs b/lib/Daffm/State.hs
index 2596f0c..d1964dc 100644
--- a/lib/Daffm/State.hs
+++ b/lib/Daffm/State.hs
@@ -13,7 +13,8 @@ import qualified Data.Text as Text
 import qualified Data.Text.Zipper.Generic as Zipper
 import qualified Data.Vector as Vec
 import qualified Graphics.Vty as K
-import System.Directory (listDirectory, makeAbsolute, setCurrentDirectory)
+import System.Directory (doesDirectoryExist, getHomeDirectory, listDirectory, makeAbsolute, setCurrentDirectory)
+import System.FilePath (joinPath)
 import System.PosixCompat (fileExist)
 import qualified System.PosixCompat as Posix
 
@@ -29,7 +30,6 @@ mkEmptyAppState config =
       stateListPositionCache = Map.empty,
       stateFileSelections = Set.empty,
       stateCwd = "",
-      stateParentDir = "",
       stateKeyMap = defaultKeymaps <> configKeymap config,
       stateKeySequence = []
     }
@@ -47,31 +47,42 @@ mkEmptyAppState config =
           ([K.KChar 'v'], CmdToggleSelection),
           ([K.KChar '\t'], CmdToggleSelection),
           ([K.KChar 'C'], CmdClearSelection),
-          ([K.KChar '~'], CmdChangeDir "/home/imsohexy"),
-          ([K.KChar 'g', K.KChar 'h'], CmdChangeDir "/home/imsohexy")
+          ([K.KChar '~'], CmdChangeDir "~"),
+          ([K.KChar 'g', K.KChar 'h'], CmdChangeDir "~")
         ]
 
 toggleSetItem :: (Ord a) => a -> Set.Set a -> Set.Set a
 toggleSetItem val set =
-  if val `Set.member` set then Set.delete val set else Set.insert val set
+  if Set.member val set then Set.delete val set else Set.insert val set
 
 toggleFileSelection :: FilePathText -> AppState -> AppState
 toggleFileSelection path st = st {stateFileSelections = toggleSetItem path $ stateFileSelections st}
 
-loadDirToState :: FilePathText -> FilePathText -> AppState -> IO AppState
-loadDirToState dir parentDir appState@(AppState {stateCwd, stateListPositionCache}) = do
-  setCurrentDirectory $ Text.unpack dir
-  files <- listFilesInDir dir
-  let prevDirPosM = findIndex ((== stateCwd) . filePath) files
-  let cachedPosM = Map.lookup dir stateListPositionCache
-  let pos = fromMaybe 0 (cachedPosM <|> prevDirPosM)
-  let list = L.listMoveTo pos $ L.list FocusMain (Vec.fromList files) 1
-  pure $
-    appState
-      { stateFiles = list,
-        stateCwd = dir,
-        stateParentDir = parentDir
-      }
+normalizePath :: FilePathText -> IO FilePathText
+normalizePath (Text.null -> True) = normalizePath "~"
+normalizePath "~" = Text.pack <$> getHomeDirectory
+normalizePath (Text.splitAt 2 -> ("~/", rest)) = do
+  home <- normalizePath "~"
+  pure . Text.pack . joinPath $ map Text.unpack [home, rest]
+normalizePath dir = pure dir
+
+loadDirToState :: FilePathText -> AppState -> IO AppState
+loadDirToState dir' appState@(AppState {stateCwd, stateListPositionCache}) = do
+  dir <- normalizePath dir'
+  doesDirectoryExist (Text.unpack dir) >>= \case
+    True -> do
+      setCurrentDirectory $ Text.unpack dir
+      files <- listFilesInDir dir
+      let prevDirPosM = findIndex ((== stateCwd) . filePath) files
+      let cachedPosM = Map.lookup dir stateListPositionCache
+      let pos = fromMaybe 0 (cachedPosM <|> prevDirPosM)
+      let list = L.listMoveTo pos $ L.list FocusMain (Vec.fromList files) 1
+      pure $
+        appState
+          { stateFiles = list,
+            stateCwd = dir
+          }
+    False -> pure appState
 
 fileTypeFromStatus :: Posix.FileStatus -> FileType
 fileTypeFromStatus s =
diff --git a/lib/Daffm/Types.hs b/lib/Daffm/Types.hs
index 7264673..ee25e44 100644
--- a/lib/Daffm/Types.hs
+++ b/lib/Daffm/Types.hs
@@ -40,7 +40,6 @@ data AppState = AppState
     stateFocusTarget :: FocusTarget,
     stateCwd :: FilePathText,
     stateListPositionCache :: Map.Map Text.Text Int,
-    stateParentDir :: FilePathText,
     stateKeySequence :: KeySequence,
     stateKeyMap :: Keymap
   }
-- 
cgit v1.3.1