From e1a8859eca6329e92df76148f9a4146714d50716 Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Sun, 10 Feb 2008 08:45:44 +0100 Subject: ScreenResize: vertical and horizontal now respond to SetTheme And so they will change the screen dimension accordingly. darcs-hash:20080210074544-32816-8f48df80b768eb518ac07dacb17e25b685097a6e.gz --- XMonad/Layout/ResizeScreen.hs | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) (limited to 'XMonad/Layout/ResizeScreen.hs') 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 -- cgit v1.2.3