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 | c4846b536c9da5d419c82f4057813564df246a71 (patch) | |
tree | 77cee20c45d158eb9ef1eeb83848eb22b5f47973 /XMonad/Layout.hs | |
parent | e579a061a5ad4c947255ff6fbe5f0a8d837c3791 (diff) | |
download | metatile-c4846b536c9da5d419c82f4057813564df246a71.tar metatile-c4846b536c9da5d419c82f4057813564df246a71.zip |
Add emptyLayout to LayoutClass, a method to be called when a workspace is empty
darcs-hash:20080124013207-32816-35328360400d6ee06c81586b9e1cc45413df5a61
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 |