Add manageDocks to manageHook

This commit is contained in:
Ivan Malison 2016-09-13 17:51:12 -07:00
parent 17f036258f
commit e535a0eb7b
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

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"