aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorBrent Yorgey <byorgey@gmail.com>2007-11-12 16:45:25 +0100
committerBrent Yorgey <byorgey@gmail.com>2007-11-12 16:45:25 +0100
commit3a6bd93ba054c34acaf7fbb006d5b814da683a89 (patch)
tree794e3d248b16464d663ecd431b61ec28d5b056e1 /XMonad
parent462a070db69dd7138899159378c8dadf7ebf05c7 (diff)
downloadXMonadContrib-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')
-rw-r--r--XMonad/Layout/NoBorders.hs5
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