From 53217de064301f3ab4fc13924d1dd0c0938b6719 Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Mon, 5 Oct 2009 18:42:21 +0200
Subject: Add a SetStruts message to H.ManageDocks.

Ignore-this: 98a76bb48b8a569b459cadc4e6412c06

This patch also uses Data.Set instead of [] for the AvoidStruts
constructor to simplify the SetStruts implementation.

darcs-hash:20091005164221-1499c-3339a4b57ddaba0e6cb6aaf08fcfb1567063ae35.gz
---
 XMonad/Actions/FloatSnap.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'XMonad/Actions')

diff --git a/XMonad/Actions/FloatSnap.hs b/XMonad/Actions/FloatSnap.hs
index 51281a4..357162d 100644
--- a/XMonad/Actions/FloatSnap.hs
+++ b/XMonad/Actions/FloatSnap.hs
@@ -32,6 +32,8 @@ import qualified XMonad.StackSet as W
 import XMonad.Hooks.ManageDocks (calcGap)
 import XMonad.Util.Types (Direction2D(..))
 
+import qualified Data.Set as S
+
 -- $usage
 -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@:
 --
@@ -279,7 +281,7 @@ getSnap horiz collidedist d w = do
     screen <- W.current <$> gets windowset
     let sr = screenRect $ W.screenDetail screen
         wl = W.integrate' . W.stack $ W.workspace screen
-    gr <- fmap ($sr) $ calcGap [L,R,U,D]
+    gr <- fmap ($sr) $ calcGap $ S.fromList [minBound .. maxBound]
     wla <- filter (collides wa) `fmap` (io $ mapM (getWindowAttributes d) $ filter (/=w) wl)
 
     return ( neighbours (back wa sr gr wla) (wpos wa)
-- 
cgit v1.2.3