neocturne/xmonad-conf
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Just minor changes

Browse source
This commit is contained in:
Matthias Schiffer 2010-02-18 12:52:34 +01:00
parent c00ae76a70
commit 1e2f5c3c8c
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
xmonad.hs
View file

@ -21,10 +21,10 @@ import FullscreenManager
import NoBorders import NoBorders
myModMask = mod4Mask modm = mod4Mask
main = xmonad $ gnomeConfig main = xmonad $ gnomeConfig
{ modMask = myModMask { modMask = modm
, manageHook = myManageHook , manageHook = myManageHook
, layoutHook = desktopLayoutModifiers myLayoutHook , layoutHook = desktopLayoutModifiers myLayoutHook
, startupHook = myStartupHook , startupHook = myStartupHook
@ -44,16 +44,16 @@ main = xmonad $ gnomeConfig
, ("M-<F3>", viewOrWarp 2) , ("M-<F3>", viewOrWarp 2)
] ]
`additionalMouseBindings` `additionalMouseBindings`
[ ((myModMask, button4), \_ -> sendMessage Shrink) [ ((modm, button4), \_ -> sendMessage Shrink)
, ((myModMask, button5), \_ -> sendMessage Expand) , ((modm, button5), \_ -> sendMessage Expand)
, ((myModMask .|. shiftMask, button4), \_ -> sendMessage MirrorExpand) , ((modm .|. shiftMask, button4), \_ -> sendMessage MirrorExpand)
, ((myModMask .|. shiftMask, button5), \_ -> sendMessage MirrorShrink) , ((modm .|. shiftMask, button5), \_ -> sendMessage MirrorShrink)
] ]
viewOrWarp :: Int -> X () viewOrWarp :: Int -> X ()
viewOrWarp n = do viewOrWarp n = do
XState {windowset = wset} <- get wset <- gets windowset
i <- getScreen $ P n i <- getScreen $ P n
whenJust i $ \s -> do whenJust i $ \s -> do
ws <- screenWorkspace s ws <- screenWorkspace s