diff options
author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-01-24 02:32:07 +0100 |
---|---|---|
committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-01-24 02:32:07 +0100 |
commit | 2fc212c92a6b4d51c12520109d24f7d69a64d2d3 (patch) | |
tree | 77cee20c45d158eb9ef1eeb83848eb22b5f47973 /XMonad/Layout.hs | |
parent | 52ba5826e93aabab0adaeb62ee33cc1d581c5d2a (diff) | |
download | xmonad-2fc212c92a6b4d51c12520109d24f7d69a64d2d3.tar.gz xmonad-2fc212c92a6b4d51c12520109d24f7d69a64d2d3.tar.xz xmonad-2fc212c92a6b4d51c12520109d24f7d69a64d2d3.zip |
Add emptyLayout to LayoutClass, a method to be called when a workspace is empty
darcs-hash:20080124013207-32816-35328360400d6ee06c81586b9e1cc45413df5a61.gz
Diffstat (limited to 'XMonad/Layout.hs')
-rw-r--r-- | XMonad/Layout.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/XMonad/Layout.hs b/XMonad/Layout.hs index 01c0428..981541c 100644 --- a/XMonad/Layout.hs +++ b/XMonad/Layout.hs @@ -54,6 +54,9 @@ instance (LayoutClass l a, LayoutClass r a) => LayoutClass (Choose l r) a where doLayout (SLeft r l) = (fmap (second . fmap $ SLeft r) .) . doLayout l doLayout (SRight l r) = (fmap (second . fmap $ SRight l) .) . doLayout r + emptyLayout (SLeft r l) = (fmap (second . fmap $ SLeft r) .) $ emptyLayout l + emptyLayout (SRight l r) = (fmap (second . fmap $ SRight l) .) $ emptyLayout r + description (SLeft _ l) = description l description (SRight _ r) = description r |