From: James Bunton <jbunton@atlassian.com>
Date: Tue, 14 Feb 2017 05:00:29 +0000 (+1100)
Subject: xmonad: fixes for 0.13
X-Git-Url: https://code.delx.au/dotfiles/commitdiff_plain/6d3a69f07ef988ec7ba36b5ebd95ef69b54bfd50

xmonad: fixes for 0.13
---

diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index bc4edd9..7fa7a65 100644
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -3,6 +3,7 @@ import System.IO
 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
@@ -160,7 +161,7 @@ myLayout =
 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,
@@ -168,7 +169,7 @@ main = do
         startupHook = myStartupHook,
         keys = myKeys,
         modMask = mod4Mask,
-        handleEventHook = handleEventHook defaultConfig <+> fullscreenEventHook,
+        handleEventHook = handleEventHook desktopConfig <+> fullscreenEventHook,
         focusFollowsMouse = False
     }