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

create default modifyLayout that ignores messages.

Browse Source
This commit is contained in:
David Roundy
2007-09-23 11:52:19 +00:00
parent 1c603ebc4b
commit 4a7ec374d0
2 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Operations.hs
View File

@@ -381,7 +381,6 @@ instance Message IncMasterN
data Full a = Full deriving ( Show, Read ) data Full a = Full deriving ( Show, Read )
instance Layout Full a where instance Layout Full a where
doLayout Full sc (W.Stack f _ _) = return ([(f, sc)], Nothing) doLayout Full sc (W.Stack f _ _) = return ([(f, sc)], Nothing)
modifyLayout Full _ = return Nothing -- no changes
-- --
-- The tiling mode of xmonad, and its operations. -- The tiling mode of xmonad, and its operations.
-- --

1
XMonad.hs
View File

@@ -152,6 +152,7 @@ readLayout ls s = concatMap rl ls
class (Show (layout a), Read (layout a)) => Layout layout a where class (Show (layout a), Read (layout a)) => Layout layout a where
doLayout :: layout a -> Rectangle -> Stack a -> X ([(a, Rectangle)], Maybe (layout a)) doLayout :: layout a -> Rectangle -> Stack a -> X ([(a, Rectangle)], Maybe (layout a))
modifyLayout :: layout a -> SomeMessage -> X (Maybe (layout a)) modifyLayout :: layout a -> SomeMessage -> X (Maybe (layout a))
modifyLayout _ _ = return Nothing
runLayout :: Layout l a => l a -> Rectangle -> StackOrNot a -> X ([(a, Rectangle)], Maybe (l a)) runLayout :: Layout l a => l a -> Rectangle -> StackOrNot a -> X ([(a, Rectangle)], Maybe (l a))
runLayout l r = maybe (return ([], Nothing)) (doLayout l r) runLayout l r = maybe (return ([], Nothing)) (doLayout l r)