diff options
| -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 |