diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-01-27 00:30:53 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-01-27 00:30:53 +0100 |
| commit | 393f14979694137423eacffcc7ef3bc14fa69ed6 (patch) | |
| tree | 56091eb9ce59997d0697db6b255727ce6d1ec4d2 /XMonad/Layout/SimpleFloat.hs | |
| parent | fe8f07ea81eab9a1eee0a76b82a37eb2ca81656d (diff) | |
| download | XMonadContrib-393f14979694137423eacffcc7ef3bc14fa69ed6.tar.gz XMonadContrib-393f14979694137423eacffcc7ef3bc14fa69ed6.tar.xz XMonadContrib-393f14979694137423eacffcc7ef3bc14fa69ed6.zip | |
WindowArranger can now arrange all windows
This is useful for SimpleFloat, whose state can now persists across
layout switches.
darcs-hash:20080126233053-32816-32077f5bc265ef80b14137e4abe65a82bf9b7378.gz
Diffstat (limited to 'XMonad/Layout/SimpleFloat.hs')
| -rw-r--r-- | XMonad/Layout/SimpleFloat.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/XMonad/Layout/SimpleFloat.hs b/XMonad/Layout/SimpleFloat.hs index 6e7df92..89c3cab 100644 --- a/XMonad/Layout/SimpleFloat.hs +++ b/XMonad/Layout/SimpleFloat.hs @@ -46,13 +46,13 @@ import XMonad.Layout.WindowArranger -- | FIXME simpleFloat :: ModifiedLayout (Decoration SimpleDecoration DefaultShrinker) (ModifiedLayout WindowArranger SimpleFloat) a -simpleFloat = decoration shrinkText defaultSFConfig (windowArranger $ SF 20) +simpleFloat = decoration shrinkText defaultSFConfig (windowArrangeAll $ SF 20) -- | FIXME simpleFloat' :: Shrinker s => s -> DeConfig SimpleDecoration a -> ModifiedLayout (Decoration SimpleDecoration s) (ModifiedLayout WindowArranger SimpleFloat) a -simpleFloat' s c = decoration s c (windowArranger $ SF (decoHeight c)) +simpleFloat' s c = decoration s c (windowArrangeAll $ SF (decoHeight c)) defaultSFConfig :: DeConfig SimpleDecoration a defaultSFConfig = mkDefaultDeConfig $ Simple False @@ -69,8 +69,8 @@ getSize i (Rectangle rx ry _ _) w = do bw <- asks (borderWidth . config) wa <- io $ getWindowAttributes d w let ny = ry + fi i - x = max rx $ fi $ wa_x wa - y = max ny $ fi $ wa_y wa + x = max rx $ fi $ wa_x wa + y = max ny $ fi $ wa_y wa wh = (fi $ wa_width wa) + (bw * 2) ht = (fi $ wa_height wa) + (bw * 2) return (w, Rectangle x y wh ht) |