From 424d65e53b99c65f07f36578e3d0975c4d093c0e Mon Sep 17 00:00:00 2001
From: Akshay Nair <phenax5@gmail.com>
Date: Sun, 5 Oct 2025 22:21:42 +0530
Subject: Add extend config property to extend configs + move defaults

---
 lib/Daffm/Configuration.hs | 22 ++++++++++++++++++----
 1 file changed, 18 insertions(+), 4 deletions(-)

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

diff --git a/lib/Daffm/Configuration.hs b/lib/Daffm/Configuration.hs
index d3691cd..9536007 100644
--- a/lib/Daffm/Configuration.hs
+++ b/lib/Daffm/Configuration.hs
@@ -1,3 +1,6 @@
+{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
+
+{-# HLINT ignore "Use <=<" #-}
 module Daffm.Configuration where
 
 import Control.Applicative ((<|>))
@@ -35,12 +38,21 @@ resolveConfigPath (Just path) = pure path
 
 loadConfigFile :: Maybe String -> IO Configuration
 loadConfigFile pathM = do
-  resolveConfigPath pathM >>= (IO.try . Text.readFile) >>= foobar
+  cfgPath <- resolveConfigPath pathM
+  config <- load cfgPath
+  case configExtend config of
+    Just path -> do
+      baseCfgPath <- resolveConfigPath $ Just $ Text.unpack path
+      if baseCfgPath == cfgPath
+        then pure config
+        else (config <>) <$> load baseCfgPath
+    _ -> pure config
   where
-    foobar :: Either IOError Text.Text -> IO Configuration
-    foobar rawE = case rawE of
+    load = (>>= parseWithDefault) . IO.try . Text.readFile
+    parseWithDefault :: Either IOError Text.Text -> IO Configuration
+    parseWithDefault rawE = case rawE of
       Left _ -> pure defaultConfiguration
-      Right txt -> parse txt
+      Right txt -> (<> defaultConfiguration) <$> parse txt
     parse txt = case parseConfig txt of
       Left e -> throwIO $ userError $ show e
       Right c -> pure c
@@ -53,9 +65,11 @@ configurationCodec =
   Configuration
     <$> (keymapCodec "keymap" .= configKeymap)
     <*> (openerCodec "opener" .= configOpener)
+    <*> (extendCodec "extend" .= configExtend)
     <*> pure Map.empty .= configTheme
   where
     openerCodec = Toml.dioptional . Toml.text
+    extendCodec = Toml.dioptional . Toml.text
 
 keymapCodec :: Toml.Key -> Toml.TomlCodec Keymap
 keymapCodec = Toml.dimap (const Map.empty) toKeymap . keymapRawCodec
-- 
cgit v1.3.1