From 4582ce60603c57c6b75b73d590d93f443acda96a Mon Sep 17 00:00:00 2001 From: Akshay Nair Date: Sun, 5 Oct 2025 00:43:39 +0530 Subject: Add configuration (keymap) loading from toml file --- exe/Main.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'exe') diff --git a/exe/Main.hs b/exe/Main.hs index 79a49f9..d165653 100644 --- a/exe/Main.hs +++ b/exe/Main.hs @@ -3,6 +3,7 @@ module Main where import qualified Brick.Main as M import Control.Monad (void) import qualified Daffm +import Daffm.Configuration (loadConfigFile) import qualified Data.Text as Text import System.Directory (getCurrentDirectory) import System.FilePath (takeDirectory) @@ -11,5 +12,6 @@ main :: IO () main = do cwd <- getCurrentDirectory let parentDir = Text.pack $ takeDirectory cwd - initialState <- Daffm.loadDirToState (Text.pack cwd) parentDir Daffm.mkEmptyAppState + config <- loadConfigFile + initialState <- Daffm.loadDirToState (Text.pack cwd) parentDir $ Daffm.mkEmptyAppState config void $ M.defaultMain Daffm.app initialState -- cgit v1.3.1