diff options
author | Matthias Schiffer <matthias@gamezock.de> | 2010-02-18 12:52:34 +0100 |
---|---|---|
committer | Matthias Schiffer <matthias@gamezock.de> | 2010-02-18 12:52:34 +0100 |
commit | 1e2f5c3c8c049a96865f5318c52039a7f2cf698a (patch) | |
tree | 259c0fc2ac9a9afdb7634e61533eb334e29e0d77 | |
parent | c00ae76a705354900f503ed85a6c9fe7cd938620 (diff) | |
download | xmonad-conf-1e2f5c3c8c049a96865f5318c52039a7f2cf698a.tar xmonad-conf-1e2f5c3c8c049a96865f5318c52039a7f2cf698a.zip |
Just minor changes
-rw-r--r-- | xmonad.hs | 14 |
1 files changed, 7 insertions, 7 deletions
@@ -21,10 +21,10 @@ import FullscreenManager import NoBorders -myModMask = mod4Mask +modm = mod4Mask main = xmonad $ gnomeConfig - { modMask = myModMask + { modMask = modm , manageHook = myManageHook , layoutHook = desktopLayoutModifiers myLayoutHook , startupHook = myStartupHook @@ -44,16 +44,16 @@ main = xmonad $ gnomeConfig , ("M-<F3>", viewOrWarp 2) ] `additionalMouseBindings` - [ ((myModMask, button4), \_ -> sendMessage Shrink) - , ((myModMask, button5), \_ -> sendMessage Expand) - , ((myModMask .|. shiftMask, button4), \_ -> sendMessage MirrorExpand) - , ((myModMask .|. shiftMask, button5), \_ -> sendMessage MirrorShrink) + [ ((modm, button4), \_ -> sendMessage Shrink) + , ((modm, button5), \_ -> sendMessage Expand) + , ((modm .|. shiftMask, button4), \_ -> sendMessage MirrorExpand) + , ((modm .|. shiftMask, button5), \_ -> sendMessage MirrorShrink) ] viewOrWarp :: Int -> X () viewOrWarp n = do - XState {windowset = wset} <- get + wset <- gets windowset i <- getScreen $ P n whenJust i $ \s -> do ws <- screenWorkspace s |