From 87be0d3dd54e71f33b9d8a757273ae4f2170e3f0 Mon Sep 17 00:00:00 2001
From: Christian <thechristiansoltermann@gmail.com>
Date: Sun, 18 Jan 2026 21:17:14 -0600
Subject: Multiple configs

---
 modules/xmonad.hs | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 modules/xmonad.hs

(limited to 'modules/xmonad.hs')

diff --git a/modules/xmonad.hs b/modules/xmonad.hs
new file mode 100644
index 0000000..1df21b5
--- /dev/null
+++ b/modules/xmonad.hs
@@ -0,0 +1,29 @@
+import XMonad
+import XMonad.Util.EZConfig (additionalKeys)
+import Control.Monad (when)
+import Text.Printf (printf)
+import System.Posix.Process (executeFile)
+import System.Info (arch,os)
+import System.Environment (getArgs)
+import System.FilePath ((</>))
+
+compiledConfig = printf "xmonad-%s-%s" arch os
+
+myConfig = defaultConfig
+  { modMask = mod1Mask
+  , terminal = "alacritty" }
+  `additionalKeys`
+  [ ( (mod1Mask, xK_r), compileRestart True)
+  , ( (mod1Mask, xK_q), restart "xmonad" True ) ]
+
+compileRestart resume = do
+  dirs <- asks directories
+  whenX (recompile dirs True) $ do
+    when resume writeStateToFile
+    catchIO
+      ( do
+          args <- getArgs
+          executeFile (cacheDir dirs </> compiledConfig) False args Nothing
+      )
+
+main = getDirectories >>= launch myConfig  
-- 
cgit v1.2.3