aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Config
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-11-05 07:00:36 +0100
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-11-05 07:00:36 +0100
commit79584d0940895c4aea161ea079951ab64dd78676 (patch)
tree0231a22452d83a15f992feba3d8f05ab0e58a44a /XMonad/Config
parent63ba747da073e414fa716683ee331ed8c0eccba6 (diff)
downloadXMonadContrib-79584d0940895c4aea161ea079951ab64dd78676.tar.gz
XMonadContrib-79584d0940895c4aea161ea079951ab64dd78676.tar.xz
XMonadContrib-79584d0940895c4aea161ea079951ab64dd78676.zip
-Wall police
darcs-hash:20071105060036-a5988-67e0d7402a87ae5d672e5b556a5a03caf6ad5559.gz
Diffstat (limited to 'XMonad/Config')
-rw-r--r--XMonad/Config/Sjanssen.hs24
1 files changed, 11 insertions, 13 deletions
diff --git a/XMonad/Config/Sjanssen.hs b/XMonad/Config/Sjanssen.hs
index 76d7e1f..75969bd 100644
--- a/XMonad/Config/Sjanssen.hs
+++ b/XMonad/Config/Sjanssen.hs
@@ -11,7 +11,6 @@ import XMonad.Hooks.DynamicLog
import XMonad.Prompt
import XMonad.Prompt.Shell
-import Data.Ratio
import Data.Bits
import qualified Data.Map as M
import Graphics.X11
@@ -20,23 +19,22 @@ sjanssenConfig :: XConfig
sjanssenConfig = defaultConfig
{ defaultGaps = [(15,0,0,0)]
, terminal = "urxvt"
- , workspaces = ["irc", "web"] ++ map show [3..7] ++ ["mail", "im"]
+ , workspaces = ["irc", "web"] ++ map show [3 .. 7 :: Int] ++ ["mail", "im"]
, logHook = dynamicLogWithPP sjanssenPP
, modMask = mod4Mask
- , mouseBindings = \(XConfig {modMask = modMask}) -> M.fromList $
- [ ((modMask, button1), (\w -> focus w >> mouseMoveWindow w))
- , ((modMask, button2), (\w -> focus w >> windows W.swapMaster))
- , ((modMask .|. shiftMask, button1), (\w -> focus w >> mouseResizeWindow w)) ]
+ , mouseBindings = \(XConfig {modMask = modm}) -> M.fromList $
+ [ ((modm, button1), (\w -> focus w >> mouseMoveWindow w))
+ , ((modm, button2), (\w -> focus w >> windows W.swapMaster))
+ , ((modm.|. shiftMask, button1), (\w -> focus w >> mouseResizeWindow w)) ]
, keys = \c -> mykeys c `M.union` keys defaultConfig c
, layoutHook = Layout (smartBorders (tiled ||| Mirror tiled ||| Full ||| tabbed shrinkText defaultTConf))
}
where
- mykeys (XConfig {modMask = modMask}) = M.fromList $
- [((modMask, xK_p ), shellPrompt myPromptConfig)]
- -- default tiling algorithm partitions the screen into two panes
tiled = Tall 1 0.5 0.03
-myPromptConfig = defaultXPConfig
- { position = Top
- , promptBorderWidth = 0
- }
+ mykeys (XConfig {modMask = modm}) = M.fromList $
+ [((modm, xK_p ), shellPrompt myPromptConfig)]
+
+ myPromptConfig = defaultXPConfig
+ { position = Top
+ , promptBorderWidth = 0 }