mpo/xmonad-config
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Change xinerama screen with Page_Up / Page_Down

Browse source
This commit is contained in:
Martin Potier 2017-12-11 10:21:22 +02:00
parent b59c77776f
commit c900b93209
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
xmonad.hs
View file

@ -86,23 +86,25 @@ myConfig = desktopConfig
`additionalKeysP` -- Add some extra key bindings:
[ ("M-S-q", confirmPrompt myXPConfig "exit" (io exitSuccess))
, ("<Tab>-b", sendMessage (Toggle "Full"))
, ("<XF86MonBrightnessDown>", spawn "/run/current-system/sw/bin/xbacklight -10")
, ("<XF86MonBrightnessUp>", spawn "/run/current-system/sw/bin/xbacklight +10")
, ("M-<Delete>", kill)
, ("M-<Down>", windows W.focusDown)
, ("M-<Esc>", sendMessage (Toggle "Full"))
, ("M-<Left>", prevWS)
, ("M-<Page_Down>", nextScreen)
, ("M-<Page_Up>" , prevScreen)
, ("M-<Right>", nextWS)
, ("M-<Tab>", toggleWS)
, ("M-<Up>", windows W.focusUp)
, ("M-S-<Delete>", spawn "/run/current-system/sw/bin/i3lock-fancy -g -p")
, ("M-S-<Left>", shiftToPrev >> prevWS)
, ("M-S-<Right>", shiftToNext >> nextWS)
, ("M-p", fuzzyPrompt myXPConfig)
, ("M-S-p", shellPrompt myXPConfig)
, ("<Tab>-b", sendMessage (Toggle "Full"))
, ("M-s", spawn "/run/current-system/sw/bin/scrot /tmp/screen.png")
, ("M-S-s", spawn "sleep 0.2 ; /run/current-system/sw/bin/scrot -s /tmp/screenSel.png")
, ("M-p", fuzzyPrompt myXPConfig)
, ("M-s", spawn "/run/current-system/sw/bin/scrot /tmp/screen.png")
]
`additionalKeys`-- Add some more (automatic) key bindings:
@ -520,4 +522,4 @@ fuzzyPrompt config = do
--- --
--- [((m .|. modm, key), screenWorkspace sc >>= flip whenJust (windows . f))
--- | (key, sc) <- zip [xK_z, xK_e, xK_r] [0..]
--- , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]
--- , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]