From 577a30cd5894aa16cf81606767d4d07c3e7b1603 Mon Sep 17 00:00:00 2001 From: Akshay Nair Date: Sun, 5 Oct 2025 18:49:36 +0530 Subject: Add arg parsing, loading config from XDG_CONFIG_HOME and -c arg for loading config file --- lib/Daffm/State.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lib/Daffm/State.hs') diff --git a/lib/Daffm/State.hs b/lib/Daffm/State.hs index 52ac7a0..1ea8bfe 100644 --- a/lib/Daffm/State.hs +++ b/lib/Daffm/State.hs @@ -49,7 +49,8 @@ mkEmptyAppState config = ([K.KChar '\t'], CmdToggleSelection), ([K.KChar 'C'], CmdClearSelection), ([K.KChar '~'], CmdChangeDir "~"), - ([K.KChar 'g', K.KChar 'h'], CmdChangeDir "~") + ([K.KChar 'g', K.KChar 'h'], CmdChangeDir "~"), + ([K.KChar 'g', K.KChar 'c', K.KChar 'f', K.KChar 'g'], CmdChangeDir "~/.config/daffm") ] toggleSetItem :: (Ord a) => a -> Set.Set a -> Set.Set a -- cgit v1.3.1