diff options
| author | portnov84 <portnov84@rambler.ru> | 2009-02-21 15:23:00 +0100 |
|---|---|---|
| committer | portnov84 <portnov84@rambler.ru> | 2009-02-21 15:23:00 +0100 |
| commit | 0d61ab7372d1f6a4e5d8107f6537e734fff8570c (patch) | |
| tree | d0bafaa81fa24991e1acb240cfe83e0d2908cb3f /XMonad/Layout/OneBig.hs | |
| parent | 24b6affb7d70f4e5389d43779de2557d5ff9b546 (diff) | |
| download | XMonadContrib-0d61ab7372d1f6a4e5d8107f6537e734fff8570c.tar.gz XMonadContrib-0d61ab7372d1f6a4e5d8107f6537e734fff8570c.tar.xz XMonadContrib-0d61ab7372d1f6a4e5d8107f6537e734fff8570c.zip | |
OneBig_resize.dpatch
Ignore-this: c02b25bd370ee449aab28005eb4418cf
Add Shrink/Expand messages handling for OneBig layout.
darcs-hash:20090221142300-94bf2-b2d0ac6f1a7603321c122e1b755ab0baffbb7032.gz
Diffstat (limited to 'XMonad/Layout/OneBig.hs')
| -rw-r--r-- | XMonad/Layout/OneBig.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/XMonad/Layout/OneBig.hs b/XMonad/Layout/OneBig.hs index 2b80088..365dfb4 100644 --- a/XMonad/Layout/OneBig.hs +++ b/XMonad/Layout/OneBig.hs @@ -43,6 +43,14 @@ data OneBig a = OneBig Float Float deriving (Read,Show) instance LayoutClass OneBig a where 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 oneBigLayout :: OneBig a -> Rectangle -> W.Stack a -> [(a, Rectangle)] |