aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@unibz.it>2008-01-26 19:59:36 +0100
committerAndrea Rossato <andrea.rossato@unibz.it>2008-01-26 19:59:36 +0100
commitf69c334a8cd5c7ae3b132c95db95b6e9ccd68b16 (patch)
tree632a58d2c2fba4fb7c505d59167d2deed6ebc520
parent8653dddaddefcd7fd4b8fc0c31a743c4c286c7a4 (diff)
downloadXMonadContrib-f69c334a8cd5c7ae3b132c95db95b6e9ccd68b16.tar.gz
XMonadContrib-f69c334a8cd5c7ae3b132c95db95b6e9ccd68b16.tar.xz
XMonadContrib-f69c334a8cd5c7ae3b132c95db95b6e9ccd68b16.zip
ManageDocks: add emptyLayout definition for supporting the new decoration framework
darcs-hash:20080126185936-32816-eaeed6cf2631348fbe1640c778397c6883dae174.gz
-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)