import XMonad
import XMonad.Actions.CycleRecentWS
import XMonad.Actions.PhysicalScreens
+import XMonad.Config.Desktop
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ICCCMFocus
main = do
xmonadDir <- getXMonadDir
xmobars <- mapM (\x -> spawnPipe ("xmobar -x " ++ (show x) ++ " " ++ xmonadDir ++ "/xmobar.hs")) [1, 2]
- xmonad $ ewmh defaultConfig {
+ xmonad $ desktopConfig {
manageHook = myManageHook,
layoutHook = myLayout,
workspaces = myWorkspaces,
startupHook = myStartupHook,
keys = myKeys,
modMask = mod4Mask,
- handleEventHook = handleEventHook defaultConfig <+> fullscreenEventHook,
+ handleEventHook = handleEventHook desktopConfig <+> fullscreenEventHook,
focusFollowsMouse = False
}