diff options
| -rw-r--r-- | XMonad/Layout/Spacing.hs | 21 |
1 files changed, 3 insertions, 18 deletions
diff --git a/XMonad/Layout/Spacing.hs b/XMonad/Layout/Spacing.hs index 359487a..38ffbd5 100644 --- a/XMonad/Layout/Spacing.hs +++ b/XMonad/Layout/Spacing.hs @@ -1,5 +1,4 @@ -{-# LANGUAGE FlexibleInstances, MultiParamTypeClasses, DeriveDataTypeable #-} -{-# LANGUAGE PatternGuards #-} +{-# LANGUAGE FlexibleInstances, MultiParamTypeClasses #-} ----------------------------------------------------------------------------- -- | @@ -22,12 +21,12 @@ module XMonad.Layout.Spacing ( spacingWithEdge, SpacingWithEdge, smartSpacing, SmartSpacing, smartSpacingWithEdge, SmartSpacingWithEdge, - SpacingMsg(..) + ) where import Graphics.X11 (Rectangle(..)) import Control.Arrow (second) -import XMonad.Core (runLayout,Message,fromMessage,Typeable) +import XMonad.Core (runLayout) import XMonad.StackSet (up, down, Workspace(..)) import XMonad.Util.Font (fi) @@ -50,19 +49,10 @@ spacing p = ModifiedLayout (Spacing p) data Spacing a = Spacing Int deriving (Show, Read) --- | Message to dynamically increase, decrease or set the size of the window spacing -data SpacingMsg = SetSpacing Int | IncSpacing Int deriving (Show,Read,Eq,Typeable) -instance Message SpacingMsg - instance LayoutModifier Spacing a where pureModifier (Spacing p) _ _ wrs = (map (second $ shrinkRect p) wrs, Nothing) - pureMess (Spacing px) m - | Just (SetSpacing px') <- fromMessage m = Just $ Spacing (max 0 px') - | Just (IncSpacing n) <- fromMessage m = Just $ Spacing (max 0 (px+n)) - | otherwise = Nothing - modifierDescription (Spacing p) = "Spacing " ++ show p -- | Surround all windows by a certain number of pixels of blank space, and @@ -76,11 +66,6 @@ instance LayoutModifier SpacingWithEdge a where pureModifier (SpacingWithEdge p) _ _ wrs = (map (second $ shrinkRect p) wrs, Nothing) - pureMess (SpacingWithEdge px) m - | Just (SetSpacing px') <- fromMessage m = Just $ SpacingWithEdge (max 0 px') - | Just (IncSpacing n) <- fromMessage m = Just $ SpacingWithEdge (max 0 (px+n)) - | otherwise = Nothing - modifyLayout (SpacingWithEdge p) w r = runLayout w (shrinkRect p r) modifierDescription (SpacingWithEdge p) = "SpacingWithEdge " ++ show p |