forked from colonelpanic/dotfiles
Add manageDocks to manageHook
This commit is contained in:
parent
17f036258f
commit
e535a0eb7b
@ -18,10 +18,11 @@ main = do
|
|||||||
xmonad $ ewmh def
|
xmonad $ ewmh def
|
||||||
{ modMask = myModMask
|
{ modMask = myModMask
|
||||||
, terminal = "urxvt"
|
, terminal = "urxvt"
|
||||||
, layoutHook = avoidStruts $ layoutHook def
|
, manageHook = manageDocks <+> manageHook def
|
||||||
|
, layoutHook = myLayoutHook
|
||||||
, logHook = dynamicLogWithPP xmobarPP
|
, logHook = dynamicLogWithPP xmobarPP
|
||||||
{ ppOutput = hPutStrLn xmproc
|
{ ppOutput = hPutStrLn xmproc
|
||||||
, ppTitle = xmobarColor "green" "" . shorten 50
|
, ppTitle = xmobarColor "blue" "" . shorten 50
|
||||||
}
|
}
|
||||||
, handleEventHook = handleEventHook def <+> fullscreenEventHook
|
, handleEventHook = handleEventHook def <+> fullscreenEventHook
|
||||||
, startupHook = myStartup
|
, startupHook = myStartup
|
||||||
@ -32,6 +33,8 @@ main = do
|
|||||||
, ((myModMask, xK_b), spawn "rofi -show run")
|
, ((myModMask, xK_b), spawn "rofi -show run")
|
||||||
]
|
]
|
||||||
|
|
||||||
|
myLayoutHook = avoidStruts $ layoutHook def
|
||||||
|
|
||||||
myStartup :: X()
|
myStartup :: X()
|
||||||
myStartup = do
|
myStartup = do
|
||||||
spawn "stalonetray"
|
spawn "stalonetray"
|
||||||
|
Loading…
Reference in New Issue
Block a user