[XMonad] Handle dock events

dotfiles/xmonad/xmonad.hs

@@ -17,8 +17,7 @@ main = xmonad $ ewmh def
        , terminal = "urxvt"
        , manageHook = manageDocks <+> manageHook def
        , layoutHook = myLayoutHook
-       -- , logHook = myLogHook topBar
-       , handleEventHook = handleEventHook def <+> fullscreenEventHook
+       , handleEventHook = docksEventHook <+> fullscreenEventHook
        , startupHook = myStartup
        , keys = customKeys delKeys addKeys
        }
@@ -60,6 +59,5 @@ myStartup = do
   spawn "copyq"
 
 -- Local Variables:
--- eval: (progn (flycheck-mode +1) (flycheck-disable-checker 'haskell-stack-ghc))
 -- flycheck-ghc-args: ("-Wno-missing-signatures")
 -- End: