aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Config/Droundy.hs26
1 files changed, 2 insertions, 24 deletions
diff --git a/XMonad/Config/Droundy.hs b/XMonad/Config/Droundy.hs
index 8e9f3c1..856db86 100644
--- a/XMonad/Config/Droundy.hs
+++ b/XMonad/Config/Droundy.hs
@@ -4,14 +4,6 @@
-- Copyright : (c) Spencer Janssen 2007
-- License : BSD3-style (see LICENSE)
--
--- Maintainer : dons@galois.com
--- Stability : stable
--- Portability : portable
---
--- This module specifies configurable defaults for xmonad. If you change
--- values here, be sure to recompile and restart (mod-q) xmonad,
--- for the changes to take effect.
---
------------------------------------------------------------------------
module XMonad.Config.Droundy where
@@ -19,8 +11,8 @@ module XMonad.Config.Droundy where
--
-- Useful imports
--
-import XMonad hiding (keys,mouseBindings)
-import qualified XMonad (keys,mouseBindings)
+import XMonad hiding (keys)
+import qualified XMonad (keys)
import XMonad.Config ( defaultConfig )
import XMonad.Layouts hiding ( (|||) )
@@ -124,19 +116,6 @@ keys x = M.fromList $
++
zip (zip (repeat (modMask x .|. shiftMask)) [xK_F1..xK_F12]) (map (withNthWorkspace copy) [0..])
--- | Mouse bindings: default actions bound to mouse events
---
-mouseBindings :: XConfig Layout -> M.Map (KeyMask, Button) (Window -> X ())
-mouseBindings x = M.fromList $
- -- mod-button1 %! Set the window to floating mode and move by dragging
- [ ((modMask x, button1), (\w -> focus w >> mouseMoveWindow w))
- -- mod-button2 %! Raise the window to the top of the stack
- , ((modMask x, button2), (\w -> focus w >> windows W.swapMaster))
- -- mod-button3 %! Set the window to floating mode and resize by dragging
- , ((modMask x, button3), (\w -> focus w >> mouseResizeWindow w))
- -- you may also bind events to the mouse scroll wheel (button4 and button5)
- ]
-
config = defaultConfig
{ borderWidth = 1 -- Width of the window border in pixels.
, XMonad.workspaces = ["1:mutt","2:iceweasel"]
@@ -149,7 +128,6 @@ config = defaultConfig
, focusedBorderColor = "#00ff00" -- Border color for focused windows.
, XMonad.modMask = mod1Mask
, XMonad.keys = keys
- , XMonad.mouseBindings = mouseBindings
}
where mytab = tabbed shrinkText defaultTConf