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