diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-10 08:45:44 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-10 08:45:44 +0100 |
| commit | e1a8859eca6329e92df76148f9a4146714d50716 (patch) | |
| tree | 2722d732379ed25a7254d1e303fb9312ee71d611 /XMonad/Layout/ResizeScreen.hs | |
| parent | b5be8711b216cdf5589faa9c1153dbf045f01bcc (diff) | |
| download | XMonadContrib-e1a8859eca6329e92df76148f9a4146714d50716.tar.gz XMonadContrib-e1a8859eca6329e92df76148f9a4146714d50716.tar.xz XMonadContrib-e1a8859eca6329e92df76148f9a4146714d50716.zip | |
ScreenResize: vertical and horizontal now respond to SetTheme
And so they will change the screen dimension accordingly.
darcs-hash:20080210074544-32816-8f48df80b768eb518ac07dacb17e25b685097a6e.gz
Diffstat (limited to 'XMonad/Layout/ResizeScreen.hs')
| -rw-r--r-- | XMonad/Layout/ResizeScreen.hs | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/XMonad/Layout/ResizeScreen.hs b/XMonad/Layout/ResizeScreen.hs index 7eeff90..4d7acff 100644 --- a/XMonad/Layout/ResizeScreen.hs +++ b/XMonad/Layout/ResizeScreen.hs @@ -10,7 +10,9 @@ -- Portability : unportable -- -- A layout transformer to have a layout respect a given screen --- geometry +-- geometry. Mostly used with "Decoration" (the Horizontal and the +-- Vertical version will react to SetTheme and change their dimension +-- accordingly. ----------------------------------------------------------------------------- module XMonad.Layout.ResizeScreen @@ -23,8 +25,7 @@ module XMonad.Layout.ResizeScreen ) where import XMonad -import XMonad.Util.XUtils (fi) -import XMonad.Layout.LayoutModifier +import XMonad.Layout.Decoration -- $usage -- You can use this module by importing it into your @@ -61,3 +62,7 @@ instance LayoutModifier ResizeScreen a where | WithNewScreen r <- m = resize r | otherwise = resize re where resize nr = doLayout l nr s + + pureMess (ResizeScreen d _) m + | Just (SetTheme t) <- fromMessage m = Just $ ResizeScreen d (fi $ decoHeight t) + pureMess _ _ = Nothing |