Add manageDocks to manageHook

This commit is contained in:
2016-09-13 17:51:12 -07:00
parent 17f036258f
commit e535a0eb7b

View File

@@ -18,10 +18,11 @@ main = do
xmonad $ ewmh def
{ modMask = myModMask
, terminal = "urxvt"
, layoutHook = avoidStruts $ layoutHook def
, manageHook = manageDocks <+> manageHook def
, layoutHook = myLayoutHook
, logHook = dynamicLogWithPP xmobarPP
{ ppOutput = hPutStrLn xmproc
, ppTitle = xmobarColor "green" "" . shorten 50
, ppTitle = xmobarColor "blue" "" . shorten 50
}
, handleEventHook = handleEventHook def <+> fullscreenEventHook
, startupHook = myStartup
@@ -32,6 +33,8 @@ main = do
, ((myModMask, xK_b), spawn "rofi -show run")
]
myLayoutHook = avoidStruts $ layoutHook def
myStartup :: X()
myStartup = do
spawn "stalonetray"