twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-06 15:11:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

formatting

Browse Source
This commit is contained in:
Don Stewart
2008-03-21 23:09:56 +00:00
parent 79754fd5d3
commit 4bd9073937
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
XMonad/Core.hs
View File

@@ -229,7 +229,9 @@ class Show (layout a) => LayoutClass layout a where
-- 'runLayout'; it is only useful for layouts which wish to make -- 'runLayout'; it is only useful for layouts which wish to make
-- use of more of the 'Workspace' information (for example, -- use of more of the 'Workspace' information (for example,
-- "XMonad.Layout.PerWorkspace"). -- "XMonad.Layout.PerWorkspace").
runLayout :: Workspace WorkspaceId (layout a) a -> Rectangle -> X ([(a, Rectangle)], Maybe (layout a)) runLayout :: Workspace WorkspaceId (layout a) a
-> Rectangle
-> X ([(a, Rectangle)], Maybe (layout a))
runLayout (Workspace _ l ms) r = maybe (emptyLayout l r) (doLayout l r) ms runLayout (Workspace _ l ms) r = maybe (emptyLayout l r) (doLayout l r) ms
-- | Given a 'Rectangle' in which to place the windows, and a 'Stack' -- | Given a 'Rectangle' in which to place the windows, and a 'Stack'
@@ -246,7 +248,8 @@ class Show (layout a) => LayoutClass layout a where
-- Layouts which do not need access to the 'X' monad ('IO', window -- Layouts which do not need access to the 'X' monad ('IO', window
-- manager state, or configuration) and do not keep track of their -- manager state, or configuration) and do not keep track of their
-- own state should implement 'pureLayout' instead of 'doLayout'. -- own state should implement 'pureLayout' instead of 'doLayout'.
doLayout :: layout a -> Rectangle -> Stack a -> X ([(a, Rectangle)], Maybe (layout a)) doLayout :: layout a -> Rectangle -> Stack a
-> X ([(a, Rectangle)], Maybe (layout a))
doLayout l r s = return (pureLayout l r s, Nothing) doLayout l r s = return (pureLayout l r s, Nothing)
-- | This is a pure version of 'doLayout', for cases where we -- | This is a pure version of 'doLayout', for cases where we