From 6fc8c2e6450b9ecd8c5929dc8d10d353f493f032 Mon Sep 17 00:00:00 2001
From: Devin Mullins <me@twifkak.com>
Date: Sun, 11 Nov 2007 06:50:47 +0100
Subject: remove obviated (and confusing) comments

darcs-hash:20071111055047-78224-d09022c6b287c8404ffa94805045ae7f4ff172c6.gz
---
 XMonad/Config.hs | 12 ------------
 1 file changed, 12 deletions(-)

(limited to 'XMonad')

diff --git a/XMonad/Config.hs b/XMonad/Config.hs
index a645207..371c2d4 100644
--- a/XMonad/Config.hs
+++ b/XMonad/Config.hs
@@ -37,8 +37,6 @@ import qualified Data.Map as M
 import System.Exit
 import Graphics.X11.Xlib
 
--- % Extension-provided imports
-
 -- | The default number of workspaces (virtual screens) and their names.
 -- By default we use numeric strings, but any string may be used as a
 -- workspace name. The number of workspaces is determined by the length
@@ -146,8 +144,6 @@ logHook = return ()
 -- | The available layouts.  Note that each layout is separated by |||, which
 -- denotes layout choice.
 layout = tiled ||| Mirror tiled ||| Full
-     -- Add extra layouts you want to use here:
-     -- % Extension-provided layouts
   where
      -- default tiling algorithm partitions the screen into two panes
      tiled   = Tall nmaster delta ratio
@@ -214,8 +210,6 @@ keys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
     -- quit, or restart
     , ((modMask .|. shiftMask, xK_q     ), io (exitWith ExitSuccess)) -- %! Quit xmonad
     , ((modMask              , xK_q     ), broadcastMessage ReleaseResources >> restart (Just "xmonad") True) -- %! Restart xmonad
-
-    -- % Extension-provided key bindings
     ]
     ++
     -- mod-[1..9] %! Switch to workspace N
@@ -230,8 +224,6 @@ keys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
         | (key, sc) <- zip [xK_w, xK_e, xK_r] [0..]
         , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]
 
-    -- % Extension-provided key bindings lists
-
 -- | Mouse bindings: default actions bound to mouse events
 --
 mouseBindings :: XConfig Layout -> M.Map (KeyMask, Button) (Window -> X ())
@@ -243,12 +235,8 @@ mouseBindings (XConfig {XMonad.modMask = modMask}) = M.fromList $
     -- mod-button3 %! Set the window to floating mode and resize by dragging
     , ((modMask, button3), (\w -> focus w >> mouseResizeWindow w))
     -- you may also bind events to the mouse scroll wheel (button4 and button5)
-
-    -- % Extension-provided mouse bindings
     ]
 
--- % Extension-provided definitions
-
 -- | And, finally, the default set of configuration values itself
 defaultConfig = XConfig
     { XMonad.borderWidth        = borderWidth
-- 
cgit v1.2.3