From 3a6bd93ba054c34acaf7fbb006d5b814da683a89 Mon Sep 17 00:00:00 2001 From: Brent Yorgey Date: Mon, 12 Nov 2007 16:45:25 +0100 Subject: NoBorders.hs: remove modifierDescription definitions, so NoBorders and SmartBorder don't change the layout description. darcs-hash:20071112154525-bd4d7-af5063264a118a32d3105f2e2dc9708a6ad516b2.gz --- XMonad/Layout/NoBorders.hs | 5 ----- 1 file changed, 5 deletions(-) (limited to 'XMonad/Layout/NoBorders.hs') diff --git a/XMonad/Layout/NoBorders.hs b/XMonad/Layout/NoBorders.hs index 30ad907..be818d8 100644 --- a/XMonad/Layout/NoBorders.hs +++ b/XMonad/Layout/NoBorders.hs @@ -53,9 +53,6 @@ import Data.List ((\\)) data WithBorder a = WithBorder Dimension [a] deriving ( Read, Show ) instance LayoutModifier WithBorder Window where - modifierDescription (WithBorder 0 _) = "NoBorders" - modifierDescription (WithBorder n _) = "Borders " ++ show n - unhook (WithBorder _ s) = asks (borderWidth . config) >>= setBorders s redoLayout (WithBorder n s) _ _ wrs = do @@ -77,8 +74,6 @@ setBorders ws bw = withDisplay $ \d -> mapM_ (\w -> io $ setWindowBorderWidth d data SmartBorder a = SmartBorder [a] deriving (Read, Show) instance LayoutModifier SmartBorder Window where - modifierDescription _ = "SmartBorder" - unhook (SmartBorder s) = asks (borderWidth . config) >>= setBorders s redoLayout (SmartBorder s) _ _ wrs = do -- cgit v1.2.3