diff options
| -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)] |