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