summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDevin Mullins <me@twifkak.com>2007-11-11 06:50:47 +0100
committerDevin Mullins <me@twifkak.com>2007-11-11 06:50:47 +0100
commit38f93481c60b8a74d196c10dc9f12193a8b45760 (patch)
tree5fb307c5c67e998ca7abc1eeb8357d92ae55bb5e
parentd781ad63d0f228de71ba5a50ff29e138c3333794 (diff)
downloadmetatile-38f93481c60b8a74d196c10dc9f12193a8b45760.tar
metatile-38f93481c60b8a74d196c10dc9f12193a8b45760.zip
remove obviated (and confusing) comments
darcs-hash:20071111055047-78224-d09022c6b287c8404ffa94805045ae7f4ff172c6
-rw-r--r--XMonad/Config.hs12
1 files changed, 0 insertions, 12 deletions
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