forked from colonelpanic/dotfiles
[XMonad] Move main to top of xmonad.hs
This commit is contained in:
parent
352f684cca
commit
093bf7314a
@ -35,6 +35,18 @@ import XMonad.Util.CustomKeys
|
||||
import qualified XMonad.Util.ExtensibleState as XS
|
||||
import XMonad.Util.NamedWindows (getName)
|
||||
|
||||
main = xmonad $ pagerHints def
|
||||
{ modMask = mod4Mask
|
||||
, terminal = "urxvt"
|
||||
, manageHook = manageDocks <+> myManageHook <+> manageHook def
|
||||
, layoutHook = myLayoutHook
|
||||
, logHook = myLogHook +++ ewmhWorkspaceNamesLogHook
|
||||
, handleEventHook = docksEventHook <+> fullscreenEventHook +++ ewmhDesktopsEventHook
|
||||
, startupHook = myStartup +++ ewmhWorkspaceNamesLogHook
|
||||
, keys = customKeys (const []) addKeys
|
||||
} where
|
||||
x +++ y = mappend y x
|
||||
|
||||
getClass :: Window -> X String
|
||||
getClass w = do
|
||||
classHint <- withDisplay $ \d -> io $ getClassHint d w
|
||||
@ -57,18 +69,6 @@ getClassRemap = do
|
||||
text <- B.readFile (home </> ".lib/class_remap.json")
|
||||
return $ fromMaybe M.empty (decode text)
|
||||
|
||||
main = xmonad $ pagerHints def
|
||||
{ modMask = mod4Mask
|
||||
, terminal = "urxvt"
|
||||
, manageHook = manageDocks <+> myManageHook <+> manageHook def
|
||||
, layoutHook = myLayoutHook
|
||||
, logHook = myLogHook +++ ewmhWorkspaceNamesLogHook
|
||||
, handleEventHook = docksEventHook <+> fullscreenEventHook +++ ewmhDesktopsEventHook
|
||||
, startupHook = myStartup +++ ewmhWorkspaceNamesLogHook
|
||||
, keys = customKeys (const []) addKeys
|
||||
} where
|
||||
x +++ y = mappend y x
|
||||
|
||||
myLogHook = fadeInactiveLogHook 0.9
|
||||
|
||||
ewmhWorkspaceNamesLogHook = do
|
||||
|
Loading…
Reference in New Issue
Block a user