wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

Add manageDocks to manageHook

Browse Source
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
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
dotfiles/xmonad/xmonad.hs
View File

@ -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"