[XMonad] Tweaks

dotfiles/config/xmonad/xmonad.hs

@@ -57,6 +57,7 @@ import           XMonad.Core (getDirectories)
 import           XMonad.Hooks.DynamicProperty
 import           XMonad.Hooks.EwmhDesktops
 import           XMonad.Hooks.FadeInactive
+import           XMonad.Hooks.Focus hiding (currentWorkspace)
 import           XMonad.Hooks.ManageDocks
 import           XMonad.Hooks.ManageHelpers
 import           XMonad.Hooks.Minimize
@@ -105,7 +106,6 @@ myConfig = def
   <> toggleFadeInactiveLogHook 0.9
   <> workspaceHistoryHook
   <> setWorkspaceNames
-  <> activateLogHook (reader W.focusWindow >>= doF)
   <> logHook def
   , handleEventHook
   =  followIfNoMagicFocus
@@ -141,6 +141,7 @@ main =
   xmonad
       . docks
       . pagerHints
+      . setEwmhActivateHook activateSwitchWs
       . ewmh
       . ewmhFullscreen
       . withNavigation2DConfig myNavigation2DConfig $ myConfig