twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-07-31 20:21:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Add emptyLayout to LayoutClass, a method to be called when a workspace is empty

Browse Source
This commit is contained in:
Andrea Rossato
2008-01-24 01:32:07 +00:00
parent 66f623b656
commit 10be8aaae0
2 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
XMonad/Layout.hs
View File

@@ -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