aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Layout
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@unibz.it>2008-02-10 08:45:44 +0100
committerAndrea Rossato <andrea.rossato@unibz.it>2008-02-10 08:45:44 +0100
commite1a8859eca6329e92df76148f9a4146714d50716 (patch)
tree2722d732379ed25a7254d1e303fb9312ee71d611 /XMonad/Layout
parentb5be8711b216cdf5589faa9c1153dbf045f01bcc (diff)
downloadXMonadContrib-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')
-rw-r--r--XMonad/Layout/ResizeScreen.hs11
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