ʘ‿ʘ

2023-10-16 16:14:18 +02:00 · 2023-10-16 16:14:18 +02:00 · 934145980b
commit 934145980b
parent 82fe300c87
1 changed files with 6 additions and 1 deletions
--- a/app/Main.hs
+++ b/app/Main.hs
@ -93,7 +93,12 @@ pathWidget (f, s) = str (show f) <+> padLeft Max (str (show s))
 sizeDir :: AppS -> IO AppS
 sizeDir s = do
  subFiles <- getSizeSubpaths $ _appCWD s
-  pure $ s {_appSubFiles = subFiles}
+  pure $
+    s {
+        _appCursor = 0
+      , _appFocus = map fst subFiles !? 0
+      , _appSubFiles = subFiles
+      }

 changeDir :: AppS -> IO AppS
 changeDir so