From 82e961482fa512ccc090357cf828f31de0d3b3f8 Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Mon, 25 May 2009 02:18:34 +0200
Subject: A.FloatSnap snap to unmanaged docks too

Ignore-this: 46a856cae139d2e224ded985a9866ecf

darcs-hash:20090525001834-1499c-c4ef9061c280a7f5c7b3a698d86548e8d83d7940.gz
---
 XMonad/Actions/FloatSnap.hs | 15 ++++++++++++---
 XMonad/Hooks/ManageDocks.hs |  5 ++++-
 2 files changed, 16 insertions(+), 4 deletions(-)

diff --git a/XMonad/Actions/FloatSnap.hs b/XMonad/Actions/FloatSnap.hs
index 725ebf2..24f4ebc 100644
--- a/XMonad/Actions/FloatSnap.hs
+++ b/XMonad/Actions/FloatSnap.hs
@@ -24,11 +24,13 @@ module XMonad.Actions.FloatSnap (
                 snapMagicMouseResize) where
 
 import XMonad
+import Control.Monad(filterM)
+import Control.Applicative((<$>))
 import Data.List (sort)
 import Data.Maybe (listToMaybe,fromJust,isNothing)
 import qualified XMonad.StackSet as W
 
-import XMonad.Hooks.ManageDocks (Direction(..))
+import XMonad.Hooks.ManageDocks (Direction(..),getStrut)
 
 -- $usage
 -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@:
@@ -274,9 +276,10 @@ snapResize grow dir collidedist w = whenX (isClient w) $ withDisplay $ \d -> do
 getSnap :: Bool -> Maybe Int -> Display -> Window -> X ((Maybe Int,Maybe Int,Bool),(Maybe Int,Maybe Int,Bool))
 getSnap horiz collidedist d w = do
     wa <- io $ getWindowAttributes d w
-    screen <- W.current `fmap` gets windowset
+    screen <- W.current <$> gets windowset
+    unManaged <- unManagedDocks
     let sr = screenRect $ W.screenDetail screen
-        wl = W.integrate' $ W.stack $ W.workspace screen
+        wl = (unManaged ++) . W.integrate' . W.stack $ W.workspace screen
     wla <- filter (collides wa) `fmap` (io $ mapM (getWindowAttributes d) $ filter (/=w) wl)
 
     return ( neighbours (back wa sr wla) (wpos wa)
@@ -307,6 +310,12 @@ getSnap horiz collidedist d w = do
                              Just dist -> (  refwpos oa - wborder oa < refwpos wa + refwdim wa + wborder wa + dist
                                           && refwpos wa - wborder wa - dist < refwpos oa + refwdim oa + wborder oa )
 
+        unManagedDocks :: X [Window]
+        unManagedDocks = withWindowSet $ \ws -> withDisplay $ \disp ->
+            fmap (filter (`notElem` W.allWindows ws)) .
+            filterM (fmap (not . null) . getStrut) . (\(_,_,x) -> x)
+            =<< io . queryTree disp
+            =<< asks theRoot
 
 constructors :: Bool -> (WindowAttributes -> Int, WindowAttributes -> Int, Rectangle -> Int, Rectangle -> Int)
 constructors True = ( fromIntegral.wa_x
diff --git a/XMonad/Hooks/ManageDocks.hs b/XMonad/Hooks/ManageDocks.hs
index 88c3f0d..b33362d 100644
--- a/XMonad/Hooks/ManageDocks.hs
+++ b/XMonad/Hooks/ManageDocks.hs
@@ -18,7 +18,10 @@ module XMonad.Hooks.ManageDocks (
     -- * Usage
     -- $usage
     manageDocks, checkDock, AvoidStruts, avoidStruts, avoidStrutsOn,
-    ToggleStruts(..), Direction(..)
+    ToggleStruts(..), Direction(..),
+
+    -- for XMonad.Actions.FloatSnap
+    getStrut
     ) where
 
 
-- 
cgit v1.2.3