diff options
| author | Brent Yorgey <byorgey@gmail.com> | 2007-11-12 16:45:25 +0100 |
|---|---|---|
| committer | Brent Yorgey <byorgey@gmail.com> | 2007-11-12 16:45:25 +0100 |
| commit | 3a6bd93ba054c34acaf7fbb006d5b814da683a89 (patch) | |
| tree | 794e3d248b16464d663ecd431b61ec28d5b056e1 /XMonad/Layout/NoBorders.hs | |
| parent | 462a070db69dd7138899159378c8dadf7ebf05c7 (diff) | |
| download | XMonadContrib-3a6bd93ba054c34acaf7fbb006d5b814da683a89.tar.gz XMonadContrib-3a6bd93ba054c34acaf7fbb006d5b814da683a89.tar.xz XMonadContrib-3a6bd93ba054c34acaf7fbb006d5b814da683a89.zip | |
NoBorders.hs: remove modifierDescription definitions, so NoBorders and SmartBorder don't change the layout description.
darcs-hash:20071112154525-bd4d7-af5063264a118a32d3105f2e2dc9708a6ad516b2.gz
Diffstat (limited to 'XMonad/Layout/NoBorders.hs')
| -rw-r--r-- | XMonad/Layout/NoBorders.hs | 5 |
1 files changed, 0 insertions, 5 deletions
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 |