diff --git a/xmonad.hs b/xmonad.hs index 76877ee..dd68f32 100755 --- a/xmonad.hs +++ b/xmonad.hs @@ -86,23 +86,25 @@ myConfig = desktopConfig `additionalKeysP` -- Add some extra key bindings: [ ("M-S-q", confirmPrompt myXPConfig "exit" (io exitSuccess)) + , ("-b", sendMessage (Toggle "Full")) , ("", spawn "/run/current-system/sw/bin/xbacklight -10") , ("", spawn "/run/current-system/sw/bin/xbacklight +10") , ("M-", kill) , ("M-", windows W.focusDown) , ("M-", sendMessage (Toggle "Full")) , ("M-", prevWS) + , ("M-", nextScreen) + , ("M-" , prevScreen) , ("M-", nextWS) , ("M-", toggleWS) , ("M-", windows W.focusUp) , ("M-S-", spawn "/run/current-system/sw/bin/i3lock-fancy -g -p") , ("M-S-", shiftToPrev >> prevWS) , ("M-S-", shiftToNext >> nextWS) - , ("M-p", fuzzyPrompt myXPConfig) , ("M-S-p", shellPrompt myXPConfig) - , ("-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)]