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

OneBig_resize.dpatch

Browse Source 
Add Shrink/Expand messages handling for OneBig layout.
This commit is contained in:
portnov84
2009-02-21 14:23:00 +00:00
parent 1c0d227c44
commit e0ca57557b
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
XMonad/Layout/OneBig.hs
View File

@@ -43,6 +43,14 @@ data OneBig a = OneBig Float Float deriving (Read,Show)
instance LayoutClass OneBig a where instance LayoutClass OneBig a where
pureLayout = oneBigLayout pureLayout = oneBigLayout
pureMessage = oneBigMessage
-- | Processes Shrink/Expand messages
oneBigMessage :: OneBig a -> SomeMessage -> Maybe (OneBig a)
oneBigMessage (OneBig cx cy) m = fmap resize (fromMessage m)
where resize Shrink = OneBig (cx-delta) (cy-delta)
resize Expand = OneBig (cx+delta) (cy+delta)
delta = 3/100
-- | Main layout function -- | Main layout function
oneBigLayout :: OneBig a -> Rectangle -> W.Stack a -> [(a, Rectangle)] oneBigLayout :: OneBig a -> Rectangle -> W.Stack a -> [(a, Rectangle)]