diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2009-10-05 18:42:21 +0200 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2009-10-05 18:42:21 +0200 |
| commit | 53217de064301f3ab4fc13924d1dd0c0938b6719 (patch) | |
| tree | 383026020070ae7b1b2b496d9ed05170be0803da /XMonad/Actions | |
| parent | 9f55be86015de374aee76614f8abb3dacba77f95 (diff) | |
| download | XMonadContrib-53217de064301f3ab4fc13924d1dd0c0938b6719.tar.gz XMonadContrib-53217de064301f3ab4fc13924d1dd0c0938b6719.tar.xz XMonadContrib-53217de064301f3ab4fc13924d1dd0c0938b6719.zip | |
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
Diffstat (limited to 'XMonad/Actions')
| -rw-r--r-- | XMonad/Actions/FloatSnap.hs | 4 |
1 files changed, 3 insertions, 1 deletions
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) |