twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-01 12:41:53 -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

7
XMonad/Core.hs
View File

@@ -218,6 +218,10 @@ class Show (layout a) => LayoutClass layout a where
pureLayout :: layout a -> Rectangle -> Stack a -> [(a, Rectangle)] pureLayout :: layout a -> Rectangle -> Stack a -> [(a, Rectangle)]
pureLayout _ r s = [(focus s, r)] pureLayout _ r s = [(focus s, r)]
-- | 'emptyLayout' is called when there is no window.
emptyLayout :: layout a -> Rectangle -> X ([(a, Rectangle)], Maybe (layout a))
emptyLayout _ _ = return ([], Nothing)
-- | 'handleMessage' performs message handling for that layout. If -- | 'handleMessage' performs message handling for that layout. If
-- 'handleMessage' returns Nothing, then the layout did not respond to -- 'handleMessage' returns Nothing, then the layout did not respond to
-- that message and the screen is not refreshed. Otherwise, 'handleMessage' -- that message and the screen is not refreshed. Otherwise, 'handleMessage'
@@ -238,6 +242,7 @@ class Show (layout a) => LayoutClass layout a where
instance LayoutClass Layout Window where instance LayoutClass Layout Window where
doLayout (Layout l) r s = fmap (fmap Layout) `fmap` doLayout l r s doLayout (Layout l) r s = fmap (fmap Layout) `fmap` doLayout l r s
emptyLayout (Layout l) r = fmap (fmap Layout) `fmap` emptyLayout l r
handleMessage (Layout l) = fmap (fmap Layout) . handleMessage l handleMessage (Layout l) = fmap (fmap Layout) . handleMessage l
description (Layout l) = description l description (Layout l) = description l
@@ -245,7 +250,7 @@ instance Show (Layout a) where show (Layout l) = show l
-- | This calls doLayout if there are any windows to be laid out. -- | This calls doLayout if there are any windows to be laid out.
runLayout :: LayoutClass l a => l a -> Rectangle -> Maybe (Stack a) -> X ([(a, Rectangle)], Maybe (l a)) runLayout :: LayoutClass l a => l a -> Rectangle -> Maybe (Stack a) -> X ([(a, Rectangle)], Maybe (l a))
runLayout l r = maybe (return ([], Nothing)) (doLayout l r) runLayout l r = maybe (emptyLayout l r) (doLayout l r)
-- | Based on ideas in /An Extensible Dynamically-Typed Hierarchy of Exceptions/, -- | Based on ideas in /An Extensible Dynamically-Typed Hierarchy of Exceptions/,
-- Simon Marlow, 2006. Use extensible messages to the handleMessage handler. -- Simon Marlow, 2006. Use extensible messages to the handleMessage handler.

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 (SLeft r l) = (fmap (second . fmap $ SLeft r) .) . doLayout l
doLayout (SRight l r) = (fmap (second . fmap $ SRight l) .) . doLayout r 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 (SLeft _ l) = description l
description (SRight _ r) = description r description (SRight _ r) = description r