diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-01-26 19:59:36 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-01-26 19:59:36 +0100 |
| commit | f69c334a8cd5c7ae3b132c95db95b6e9ccd68b16 (patch) | |
| tree | 632a58d2c2fba4fb7c505d59167d2deed6ebc520 /XMonad/Hooks/ManageDocks.hs | |
| parent | 8653dddaddefcd7fd4b8fc0c31a743c4c286c7a4 (diff) | |
| download | XMonadContrib-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
Diffstat (limited to 'XMonad/Hooks/ManageDocks.hs')
| -rw-r--r-- | XMonad/Hooks/ManageDocks.hs | 3 |
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) |