[XMonad] Minor cleanup

This commit is contained in:
Ivan Malison 2016-10-13 13:28:44 -07:00
parent 0a3ee6ecc4
commit a1301bf629
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -27,10 +27,9 @@ main = xmonad $ ewmh $ pagerHints def
, logHook = myLogHook , logHook = myLogHook
, handleEventHook = docksEventHook <+> fullscreenEventHook , handleEventHook = docksEventHook <+> fullscreenEventHook
, startupHook = myStartup , startupHook = myStartup
, keys = customKeys (\x -> []) addKeys , keys = customKeys (const []) addKeys
} }
myLogHook :: X()
myLogHook = fadeInactiveLogHook 0.9 myLogHook = fadeInactiveLogHook 0.9
shiftThenView i = W.greedyView i . W.shift i shiftThenView i = W.greedyView i . W.shift i