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

add pureMessage.

Browse Source
This commit is contained in:
David Roundy
2007-10-05 14:05:53 +00:00
parent 1f9e77bd90
commit 6294e6adf5
2 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Operations.hs
View File

@@ -423,8 +423,7 @@ instance LayoutClass Tall a where
doLayout (Tall nmaster _ frac) r = doLayout (Tall nmaster _ frac) r =
return . (\x->(x,Nothing)) . return . (\x->(x,Nothing)) .
ap zip (tile frac r nmaster . length) . W.integrate ap zip (tile frac r nmaster . length) . W.integrate
handleMessage (Tall nmaster delta frac) m = pureMessage (Tall nmaster delta frac) m = msum [fmap resize (fromMessage m)
return $ msum [fmap resize (fromMessage m)
,fmap incmastern (fromMessage m)] ,fmap incmastern (fromMessage m)]
where resize Shrink = Tall nmaster delta (max 0 $ frac-delta) where resize Shrink = Tall nmaster delta (max 0 $ frac-delta)
resize Expand = Tall nmaster delta (min 1 $ frac+delta) resize Expand = Tall nmaster delta (min 1 $ frac+delta)

4
XMonad.hs
View File

@@ -160,7 +160,9 @@ class (Show (layout a), Read (layout a)) => LayoutClass layout a where
pureLayout _ r s = [(focus s, r)] pureLayout _ r s = [(focus s, r)]
handleMessage :: layout a -> SomeMessage -> X (Maybe (layout a)) handleMessage :: layout a -> SomeMessage -> X (Maybe (layout a))
handleMessage _ _ = return Nothing handleMessage l = return . pureMessage l
pureMessage :: layout a -> SomeMessage -> Maybe (layout a)
pureMessage _ _ = Nothing
description :: layout a -> String description :: layout a -> String
description = show description = show