diff options
Diffstat (limited to 'xmonad.hs')
| -rw-r--r-- | xmonad.hs | 29 |
1 files changed, 0 insertions, 29 deletions
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 |
