diff --git a/XMonad/Config/Desktop.hs b/XMonad/Config/Desktop.hs
index add5548d..088aef87 100644
--- a/XMonad/Config/Desktop.hs
+++ b/XMonad/Config/Desktop.hs
@@ -165,9 +165,10 @@ import qualified Data.Map as M
 --
 
 desktopConfig = ewmh def
-    { startupHook     = setDefaultCursor xC_left_ptr
+    { startupHook     = setDefaultCursor xC_left_ptr <+> docksStartupHook <+> startupHook def
     , layoutHook      = desktopLayoutModifiers $ layoutHook def
-    , manageHook      = manageHook def <+> manageDocks
+    , manageHook      = manageDocks <+> manageHook def
+    , handleEventHook = docksEventHook <+> handleEventHook def
     , keys            = desktopKeys <+> keys def }
 
 desktopKeys (XConfig {modMask = modm}) = M.fromList $
diff --git a/XMonad/Config/Gnome.hs b/XMonad/Config/Gnome.hs
index 3ab7270f..aa506e1e 100644
--- a/XMonad/Config/Gnome.hs
+++ b/XMonad/Config/Gnome.hs
@@ -18,7 +18,8 @@ module XMonad.Config.Gnome (
     -- $usage
     gnomeConfig,
     gnomeRun,
-    gnomeRegister
+    gnomeRegister,
+    desktopLayoutModifiers
     ) where
 
 import XMonad
diff --git a/XMonad/Config/Kde.hs b/XMonad/Config/Kde.hs
index bda58a47..80468046 100644
--- a/XMonad/Config/Kde.hs
+++ b/XMonad/Config/Kde.hs
@@ -17,7 +17,8 @@ module XMonad.Config.Kde (
     -- * Usage
     -- $usage
     kdeConfig,
-    kde4Config
+    kde4Config,
+    desktopLayoutModifiers
     ) where
 
 import XMonad
diff --git a/XMonad/Config/Mate.hs b/XMonad/Config/Mate.hs
index d54f03cd..16b1cced 100644
--- a/XMonad/Config/Mate.hs
+++ b/XMonad/Config/Mate.hs
@@ -20,7 +20,8 @@ module XMonad.Config.Mate (
     -- $usage
     mateConfig,
     mateRun,
-    mateRegister
+    mateRegister,
+    desktopLayoutModifiers
     ) where
 
 import XMonad
diff --git a/XMonad/Config/Xfce.hs b/XMonad/Config/Xfce.hs
index c6bca4c7..713b9758 100644
--- a/XMonad/Config/Xfce.hs
+++ b/XMonad/Config/Xfce.hs
@@ -16,7 +16,8 @@
 module XMonad.Config.Xfce (
     -- * Usage
     -- $usage
-    xfceConfig
+    xfceConfig,
+    desktopLayoutModifiers
     ) where
 
 import XMonad