aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--XMonad/Hooks/ManageDocks.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/XMonad/Hooks/ManageDocks.hs b/XMonad/Hooks/ManageDocks.hs
index 69b7e16..475499a 100644
--- a/XMonad/Hooks/ManageDocks.hs
+++ b/XMonad/Hooks/ManageDocks.hs
@@ -142,6 +142,9 @@ instance LayoutClass l a => LayoutClass (AvoidStruts l) a where
return (AvoidStruts b `fmap` ml')
description (AvoidStruts _ l) = description l
+ emptyLayout (AvoidStruts b l) r = do (wrs,ml) <- emptyLayout l r
+ return (wrs, AvoidStruts b `fmap` ml)
+
data Side = L | R | T | B
type Strut = (Side, CLong, CLong, CLong)