Thanks, pushed! -Brent On Sat, Sep 22, 2012 at 08:53:04PM -0700, daedalusinfinity@gmail.com wrote:
1 patch for repository http://code.haskell.org/XMonadContrib:
Sat Sep 22 20:45:27 PDT 2012 daedalusinfinity@gmail.com * Added smart spacing to the spacing module Added smart spacing to the spacing module, which adds spacing to all windows, except to windows on singleton workspaces.
[Added smart spacing to the spacing module daedalusinfinity@gmail.com**20120923034527 Ignore-this: 9104bc8feb832f63f2f18998c0f7ba92 Added smart spacing to the spacing module, which adds spacing to all windows, except to windows on singleton workspaces. ] { hunk ./XMonad/Layout/Spacing.hs 21 -- $usage
spacing, Spacing, + smartSpacing, SmartSpacing,
) where
hunk ./XMonad/Layout/Spacing.hs 56
shrinkRect :: Int -> Rectangle -> Rectangle shrinkRect p (Rectangle x y w h) = Rectangle (x+fi p) (y+fi p) (w-2*fi p) (h-2*fi p) + +-- | Surrounds all windows with blank space, except when the window is the only +-- visible window on the current workspace. +smartSpacing :: Int -> l a -> ModifiedLayout SmartSpacing l a +smartSpacing p = ModifiedLayout (SmartSpacing p) + +data SmartSpacing a = SmartSpacing Int deriving (Show, Read) + +instance LayoutModifier SmartSpacing a where + + pureModifier _ _ _ [x] = ([x], Nothing) + pureModifier (SmartSpacing p) _ _ wrs = (map (second $ shrinkRect p) wrs, Nothing) + + modifierDescription (SmartSpacing p) = "SmartSpacing " ++ show p }
_______________________________________________ xmonad mailing list xmonad@haskell.org http://www.haskell.org/mailman/listinfo/xmonad