[XMonad] Tweak 2DNavigation bindings

This commit is contained in:
Ivan Malison 2017-05-19 13:23:35 -07:00
parent bb44afcf00
commit 4d978e8a33
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -757,6 +757,7 @@ addKeys conf@XConfig { modMask = modm } =
[ ((modalt, xK_m), doScratchpad "htop") [ ((modalt, xK_m), doScratchpad "htop")
, ((modalt, xK_v), doScratchpad "volume") , ((modalt, xK_v), doScratchpad "volume")
, ((modalt, xK_h), doScratchpad "hangouts") , ((modalt, xK_h), doScratchpad "hangouts")
, ((modalt, xK_s), doScratchpad "spotify")
, ((modalt .|. controlMask, xK_h), , ((modalt .|. controlMask, xK_h),
myRaiseNextMaybe (spawn hangoutsCommand) hangoutsSelector) myRaiseNextMaybe (spawn hangoutsCommand) hangoutsSelector)
, ((modalt .|. controlMask, xK_s), , ((modalt .|. controlMask, xK_s),
@ -791,15 +792,15 @@ addKeys conf@XConfig { modMask = modm } =
, ((modm .|. shiftMask, xK_a), windowSwap L True) , ((modm .|. shiftMask, xK_a), windowSwap L True)
, ((modm .|. shiftMask, xK_d), windowSwap R True) , ((modm .|. shiftMask, xK_d), windowSwap R True)
, ((modalt, xK_w), followingWindow $ windowToScreen U True) , ((modm .|. controlMask, xK_w), followingWindow $ windowToScreen U True)
, ((modalt, xK_s), followingWindow $ windowToScreen D True) , ((modm .|. controlMask, xK_s), followingWindow $ windowToScreen D True)
, ((modalt, xK_a), followingWindow $ windowToScreen L True) , ((modm .|. controlMask, xK_a), followingWindow $ windowToScreen L True)
, ((modalt, xK_d), followingWindow $ windowToScreen R True) , ((modm .|. controlMask, xK_d), followingWindow $ windowToScreen R True)
, ((halt, xK_w), screenGo U True) , ((hyper, xK_w), screenGo U True)
, ((halt, xK_s), screenGo D True) , ((hyper, xK_s), screenGo D True)
, ((halt, xK_a), screenGo L True) , ((hyper, xK_a), screenGo L True)
, ((halt, xK_d), screenGo R True) , ((hyper, xK_d), screenGo R True)
, ((hyper .|. shiftMask, xK_w), followingWindow $ screenSwap U True) , ((hyper .|. shiftMask, xK_w), followingWindow $ screenSwap U True)
, ((hyper .|. shiftMask, xK_s), followingWindow $ screenSwap D True) , ((hyper .|. shiftMask, xK_s), followingWindow $ screenSwap D True)
@ -861,21 +862,21 @@ addKeys conf@XConfig { modMask = modm } =
-- Media keys -- Media keys
-- playerctl -- playerctl
, ((hyper, xK_f), spawn "playerctl play-pause") , ((modm, xK_semicolon), spawn "playerctl play-pause")
, ((0, xF86XK_AudioPause), spawn "playerctl play-pause") , ((0, xF86XK_AudioPause), spawn "playerctl play-pause")
, ((0, xF86XK_AudioPlay), spawn "playerctl play-pause") , ((0, xF86XK_AudioPlay), spawn "playerctl play-pause")
, ((hyper, xK_d), spawn "playerctl next") , ((modm, xK_l), spawn "playerctl next")
, ((0, xF86XK_AudioNext), spawn "playerctl next") , ((0, xF86XK_AudioNext), spawn "playerctl next")
, ((hyper, xK_a), spawn "playerctl previous") , ((modm, xK_j), spawn "playerctl previous")
, ((0, xF86XK_AudioPrev), spawn "playerctl previous") , ((0, xF86XK_AudioPrev), spawn "playerctl previous")
-- Volume control -- Volume control
, ((0, xF86XK_AudioRaiseVolume), spawn "set_volume.sh up") , ((0, xF86XK_AudioRaiseVolume), spawn "set_volume.sh up")
, ((0, xF86XK_AudioLowerVolume), spawn "set_volume.sh down") , ((0, xF86XK_AudioLowerVolume), spawn "set_volume.sh down")
, ((0, xF86XK_AudioMute), spawn "set_volume.sh mute") , ((0, xF86XK_AudioMute), spawn "set_volume.sh mute")
, ((hyper, xK_w), spawn "set_volume.sh up") , ((modm, xK_i), spawn "set_volume.sh up")
, ((hyper, xK_s), spawn "set_volume.sh down") , ((modm, xK_k), spawn "set_volume.sh down")
, ((hyper, xK_q), spawn "set_volume.sh mute") , ((modm, xK_u), spawn "set_volume.sh mute")
, ((hyper .|. shiftMask, xK_q), spawn "toggle_mute_current_window.sh") , ((hyper .|. shiftMask, xK_q), spawn "toggle_mute_current_window.sh")
, ((hctrl, xK_q), spawn "toggle_mute_current_window.sh only") , ((hctrl, xK_q), spawn "toggle_mute_current_window.sh only")