diff options
Diffstat (limited to 'modules/xmonad.hs')
| -rw-r--r-- | modules/xmonad.hs | 28 |
1 files changed, 15 insertions, 13 deletions
diff --git a/modules/xmonad.hs b/modules/xmonad.hs index 1df21b5..6de28c7 100644 --- a/modules/xmonad.hs +++ b/modules/xmonad.hs @@ -1,5 +1,8 @@ import XMonad import XMonad.Util.EZConfig (additionalKeys) +import XMonad.Hooks.ManageDocks +import XMonad.Hooks.StatusBar +import XMonad.Hooks.StatusBar.PP import Control.Monad (when) import Text.Printf (printf) import System.Posix.Process (executeFile) @@ -7,23 +10,22 @@ import System.Info (arch,os) import System.Environment (getArgs) import System.FilePath ((</>)) -compiledConfig = printf "xmonad-%s-%s" arch os +myLayout = avoidStruts (tiled ||| Mirror tiled ||| Full) + where + tiled = Tall nmaster delta ratio + nmaster = 1 -- Default number of windows in the master pane + ratio = 1/2 -- Default proportion of screen occupied by master pane + delta = 3/100 -- Percent of screen to increment by when resizing panes myConfig = defaultConfig { modMask = mod1Mask + , layoutHook = myLayout + , focusedBorderColor = "#4eb4fa" , terminal = "alacritty" } `additionalKeys` - [ ( (mod1Mask, xK_r), compileRestart True) - , ( (mod1Mask, xK_q), restart "xmonad" 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 - ) +mySB = statusBarProp "xmobar" (pure xmobarPP) +-- main = xmonad $ withEasySB mySB defToggleStrutsKey def -main = getDirectories >>= launch myConfig +main = getDirectories >>= launch (docks $ withSB mySB myConfig) |