diff options
author | Kjetil Orbekk <kjetil.orbekk@gmail.com> | 2020-02-13 08:20:15 -0500 |
---|---|---|
committer | Kjetil Orbekk <kjetil.orbekk@gmail.com> | 2020-02-13 08:20:15 -0500 |
commit | 40cc866243ef8fc731dad55c3db9d1a62db7c109 (patch) | |
tree | 72babe11681eeb26364951e9f76c40c3a14cd693 /xmonad | |
parent | 9b13124581a9399db6f4153acdc88a56514afd80 (diff) |
fix xmonad for mate
Diffstat (limited to 'xmonad')
-rw-r--r-- | xmonad/xmonad.hs | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/xmonad/xmonad.hs b/xmonad/xmonad.hs index 407ef89..4df0d58 100644 --- a/xmonad/xmonad.hs +++ b/xmonad/xmonad.hs @@ -26,13 +26,14 @@ 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 @@ -41,13 +42,10 @@ myConfig host = , focusedBorderColor = "#ff0000" , normalBorderColor = "#777778" , workspaces = pure <$> "\"<>PYFAOEUI" - , startupHook = do - setWMName "LG3D" - -- when (host == layoutScreensHost) (layoutScreens 2 (TwoPane 0.5 0.5)) , 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)) |