diff options
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Config/Sjanssen.hs | 24 |
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 } |