diff options
author | Kjetil Orbekk <kjetil.orbekk@gmail.com> | 2020-05-19 10:31:52 -0400 |
---|---|---|
committer | Kjetil Orbekk <kjetil.orbekk@gmail.com> | 2020-05-19 10:31:52 -0400 |
commit | d96074c330da0077ad99b21e0a50e22f461a4ea7 (patch) | |
tree | 99856796e7fff197daca71728c66fda6502d4c0b /xmonad/xmonad.hs | |
parent | 1e60a5ef4e0515c89ae53860f5a28ce36ac64c01 (diff) | |
parent | aa90d361401d9f5eb57e5d5ff0e9941a5b4ef7fa (diff) |
Merge branch 'master' of ssh://dragon.orbekk.com/storage/projects/dotfiles
Diffstat (limited to 'xmonad/xmonad.hs')
-rw-r--r-- | xmonad/xmonad.hs | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/xmonad/xmonad.hs b/xmonad/xmonad.hs index 3cd577d..4df0d58 100644 --- a/xmonad/xmonad.hs +++ b/xmonad/xmonad.hs @@ -26,28 +26,26 @@ import Control.Monad main = do host <- (head . splitOn "." . nodeName) <$> getSystemID setEnv "HOST" host True - config <- xmobar (myConfig host) + -- config <- xmobar (myConfig host) + let config = myConfig host xmonad config layoutScreensHost = "unused" -- orange myConfig host = - ewmh desktopConfig + (docks . ewmh) $ desktopConfig { layoutHook = smartBorders $ myLayout , keys = myKeys , modMask = mod4Mask - , terminal = "$TERMINAL" + , terminal = "urxvt" , borderWidth = 2 , focusedBorderColor = "#ff0000" , normalBorderColor = "#777778" - , workspaces = pure <$> "\"<>PYFAOEU" - , startupHook = do - setWMName "LG3D" - -- when (host == layoutScreensHost) (layoutScreens 2 (TwoPane 0.5 0.5)) + , workspaces = pure <$> "\"<>PYFAOEUI" , manageHook = insertPosition Below Newer <+> (isDialog --> doF W.shiftMaster <+> doF W.swapDown) } where myLayout = onHost layoutScreensHost (verticalTiled ||| horizontalTiled ||| Full) $ - layoutHook defaultConfig + layoutHook desktopConfig verticalTiled = Mirror (Tall 1 (5/100) (2/3)) horizontalTiled = Tall 0 (5/100) (2/3) @@ -122,7 +120,7 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $ , ((modm .|. shiftMask, xK_s ), rescreen) -- This is redundant because it's added by the statusBar function. - -- , ((modm , xK_b ), sendMessage ToggleStruts) + , ((modm , xK_b ), sendMessage ToggleStruts) -- Quit xmonad -- , ((modm .|. shiftMask, xK_q ), io (exitWith ExitSuccess)) @@ -131,7 +129,7 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $ -- , ((modm , xK_q ), spawn "xmonad --recompile; xmonad --restart") -- Lock screen - , ((modm .|. shiftMask, xK_z), spawn "xscreensaver-command -lock") + , ((modm .|. shiftMask, xK_z), spawn "mate-screensaver-command --lock") ] ++ |