From 87be0d3dd54e71f33b9d8a757273ae4f2170e3f0 Mon Sep 17 00:00:00 2001 From: Christian Date: Sun, 18 Jan 2026 21:17:14 -0600 Subject: Multiple configs --- xmonad.hs | 29 ----------------------------- 1 file changed, 29 deletions(-) delete mode 100644 xmonad.hs (limited to 'xmonad.hs') diff --git a/xmonad.hs b/xmonad.hs deleted file mode 100644 index 1df21b5..0000000 --- a/xmonad.hs +++ /dev/null @@ -1,29 +0,0 @@ -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