[XMonad] Reorganize keybindings make hangouts a scratchpad

This commit is contained in:
Ivan Malison 2016-12-24 19:37:34 -08:00
parent 30fc4d50bf
commit e0c7bd63d7
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -599,8 +599,27 @@ goToNextScreen = windows $ \ws ->
-- Key bindings -- Key bindings
addKeys conf@XConfig {modMask = modm} = addKeys conf@XConfig {modMask = modm} =
[ ((modm, xK_p), spawn "rofi -show drun")
-- Specific program spawning
bindBringAndRaiseMany
[ (modalt, xK_e, spawn emacsCommand, emacsSelector)
, (modalt, xK_c, spawn chromeCommand, chromeSelector)
, (modalt, xK_s, spawn spotifyCommand, spotifySelector)
, (modalt, xK_t, spawn transmissionCommand, transmissionSelector)
] ++
-- ScratchPads
[ ((modalt, xK_m), doScratchpad "htop")
, ((modalt, xK_v), doScratchpad "volume")
, ((modalt, xK_h), doScratchpad "hangouts")
-- Specific program spawning
, ((modm, xK_p), spawn "rofi -show drun")
, ((modm .|. shiftMask, xK_p), spawn "rofi -show run") , ((modm .|. shiftMask, xK_p), spawn "rofi -show run")
-- Window manipulation
, ((modm, xK_g), andDeactivateFull . maybeUnminimizeAfter $ , ((modm, xK_g), andDeactivateFull . maybeUnminimizeAfter $
actionMenu myWindowBringerConfig greedyFocusWindow) actionMenu myWindowBringerConfig greedyFocusWindow)
, ((modm .|. shiftMask, xK_g), andDeactivateFull . sameClassOnly $ , ((modm .|. shiftMask, xK_g), andDeactivateFull . sameClassOnly $
@ -608,34 +627,45 @@ addKeys conf@XConfig {modMask = modm} =
, ((modm, xK_b), andDeactivateFull $ myBringWindow myWindowBringerConfig) , ((modm, xK_b), andDeactivateFull $ myBringWindow myWindowBringerConfig)
, ((modm .|. shiftMask, xK_b), , ((modm .|. shiftMask, xK_b),
swapMinimizeStateAfter $ actionMenu myWindowBringerConfig swapFocusedWith) swapMinimizeStateAfter $ actionMenu myWindowBringerConfig swapFocusedWith)
, ((modm .|. controlMask, xK_t), spawn
"systemctl --user restart taffybar.service")
, ((modm, xK_v), spawn "copyq paste")
, ((modm, xK_s), swapNextScreen >> goToNextScreen)
, ((modm .|. shiftMask, xK_s), goToNextScreen)
, ((modm .|. controlMask, xK_space), goFullscreen) , ((modm .|. controlMask, xK_space), goFullscreen)
, ((modm, xK_slash), sendMessage $ Toggle MIRROR)
, ((modm, xK_m), withFocused minimizeWindow) , ((modm, xK_m), withFocused minimizeWindow)
, ((modm .|. shiftMask, xK_m), , ((modm .|. shiftMask, xK_m),
deactivateFullOr $ withLastMinimized maximizeWindowAndFocus) deactivateFullOr $ withLastMinimized maximizeWindowAndFocus)
, ((modm, xK_x), addHiddenWorkspace "NSP" >> (windows $ W.shift "NSP"))
, ((modalt, xK_space), deactivateFullOr restoreOrMinimizeOtherClasses)
, ((modalt, xK_Return), deactivateFullAnd restoreAllMinimized)
-- Focus/Layout manipulation
, ((modm, xK_s), swapNextScreen >> goToNextScreen)
, ((modm, xK_e), goToNextScreen)
, ((modm, xK_slash), sendMessage $ Toggle MIRROR)
, ((modm, xK_backslash), toggleWS) , ((modm, xK_backslash), toggleWS)
, ((modm, xK_space), deactivateFullOr $ sendMessage NextLayout) , ((modm, xK_space), deactivateFullOr $ sendMessage NextLayout)
, ((modm, xK_z), shiftToNextScreen) , ((modm, xK_z), shiftToNextScreen)
, ((modm .|. shiftMask, xK_z), shiftToEmptyNextScreen) , ((modm .|. shiftMask, xK_z), shiftToEmptyNextScreen)
, ((modm, xK_x), addHiddenWorkspace "NSP" >> (windows $ W.shift "NSP"))
, ((modm .|. shiftMask, xK_h), shiftToEmptyAndView) , ((modm .|. shiftMask, xK_h), shiftToEmptyAndView)
-- These need to be rebound to support boringWindows -- These need to be rebound to support boringWindows
, ((modm, xK_j), focusDown) , ((modm, xK_j), focusDown)
, ((modm, xK_k), focusUp) , ((modm, xK_k), focusUp)
, ((modm, xK_m), focusMaster) , ((modm, xK_m), focusMaster)
, ((modm, xK_Tab), focusNextClass) , ((modm, xK_Tab), focusNextClass)
, ((modm .|. controlMask, xK_s), spawn "split_out.sh") , ((mod3Mask, xK_e), moveTo Next EmptyWS)
-- Miscellaneous XMonad
-- Hyper bindings
, ((mod3Mask, xK_1), toggleFadingForActiveWindow) , ((mod3Mask, xK_1), toggleFadingForActiveWindow)
, ((mod3Mask .|. shiftMask, xK_1), toggleFadingForActiveWorkspace) , ((mod3Mask .|. shiftMask, xK_1), toggleFadingForActiveWorkspace)
, ((mod3Mask .|. controlMask, xK_1), toggleFadingForActiveScreen) , ((mod3Mask .|. controlMask, xK_1), toggleFadingForActiveScreen)
, ((mod3Mask, xK_e), moveTo Next EmptyWS) , ((mod3Mask, xK_t), selectToggle)
, ((modalt, xK_4), selectLimit)
-- Non-XMonad
, ((modm .|. controlMask, xK_t), spawn
"systemctl --user restart taffybar.service")
, ((modm, xK_v), spawn "copyq paste")
, ((modm .|. controlMask, xK_s), spawn "split_out.sh")
, ((mod3Mask, xK_v), spawn "copyq_rofi.sh") , ((mod3Mask, xK_v), spawn "copyq_rofi.sh")
, ((mod3Mask, xK_p), spawn "rofi_password.sh") , ((mod3Mask, xK_p), spawn "rofi_password.sh")
, ((mod3Mask, xK_h), spawn "screenshot.sh") , ((mod3Mask, xK_h), spawn "screenshot.sh")
@ -643,29 +673,12 @@ addKeys conf@XConfig {modMask = modm} =
, ((mod3Mask .|. shiftMask, xK_l), spawn "dm-tool lock") , ((mod3Mask .|. shiftMask, xK_l), spawn "dm-tool lock")
, ((mod3Mask, xK_l), selectLayout) , ((mod3Mask, xK_l), selectLayout)
, ((mod3Mask, xK_k), spawn "rofi_kill_process.sh") , ((mod3Mask, xK_k), spawn "rofi_kill_process.sh")
, ((mod3Mask, xK_t), selectToggle)
, ((mod3Mask, xK_r), spawn "rofi_restart_service.sh") , ((mod3Mask, xK_r), spawn "rofi_restart_service.sh")
, ((mod3Mask, xK_0), spawn "tvpower.js") , ((mod3Mask, xK_0), spawn "tvpower.js")
-- ModAlt bindings
, ((modalt, xK_w), spawn "rofi_wallpaper.sh") , ((modalt, xK_w), spawn "rofi_wallpaper.sh")
, ((modalt, xK_z), spawn "split_out_chrome_tab.sh") , ((modalt, xK_z), spawn "split_out_chrome_tab.sh")
, ((modalt, xK_space), deactivateFullOr restoreOrMinimizeOtherClasses)
, ((modalt, xK_Return), deactivateFullAnd restoreAllMinimized) -- Media keys
, ((modalt, xK_4), selectLimit)
-- ScratchPads
, ((modalt, xK_m), doScratchpad "htop")
, ((modalt .|. controlMask, xK_s), doScratchpad "spotify")
, ((modalt .|. controlMask, xK_h), doScratchpad "hangouts")
, ((modalt .|. controlMask, xK_v), doScratchpad "volume")
, ((modalt, xK_h),
myRaiseNextMaybe (spawn hangoutsCommand) hangoutsSelector)
, ((modalt, xK_s),
myRaiseNextMaybe (spawn spotifyCommand) spotifySelector)
, ((modalt, xK_v),
myRaiseNextMaybe (spawn volumeCommand) volumeSelector)
-- playerctl -- playerctl
, ((mod3Mask, xK_f), spawn "playerctl play-pause") , ((mod3Mask, xK_f), spawn "playerctl play-pause")
@ -676,29 +689,25 @@ addKeys conf@XConfig {modMask = modm} =
, ((mod3Mask, xK_a), spawn "playerctl previous") , ((mod3Mask, xK_a), spawn "playerctl previous")
, ((0, xF86XK_AudioPrev), spawn "playerctl previous") , ((0, xF86XK_AudioPrev), spawn "playerctl previous")
-- volume control -- Volume control
, ((0, xF86XK_AudioRaiseVolume), spawn "pulseaudio-ctl up") , ((0, xF86XK_AudioRaiseVolume), spawn "pulseaudio-ctl up")
, ((0, xF86XK_AudioLowerVolume), spawn "pulseaudio-ctl down") , ((0, xF86XK_AudioLowerVolume), spawn "pulseaudio-ctl down")
, ((0, xF86XK_AudioMute), spawn "pulseaudio-ctl mute") , ((0, xF86XK_AudioMute), spawn "pulseaudio-ctl mute")
, ((mod3Mask, xK_w), spawn "pulseaudio-ctl up") , ((mod3Mask, xK_w), spawn "pulseaudio-ctl up")
, ((mod3Mask, xK_s), spawn "pulseaudio-ctl down") , ((mod3Mask, xK_s), spawn "pulseaudio-ctl down")
] ++ bindBringAndRaiseMany
[ (modalt, xK_e, spawn emacsCommand, emacsSelector)
, (modalt, xK_c, spawn chromeCommand, chromeSelector)
-- , (modalt, xK_s, spawn spotifyCommand, spotifySelector)
-- , (modalt, xK_h, spawn hangoutsCommand, hangoutsSelector)
-- , (modalt, xK_v, spawn volumeCommand, volumeSelector)
, (modalt, xK_t, spawn transmissionCommand, transmissionSelector)
] ++ ] ++
-- Replace original moving stuff around + greedy view bindings
-- Replace moving bindings
[((additionalMask .|. modm, key), windows $ function workspace) [((additionalMask .|. modm, key), windows $ function workspace)
| (workspace, key) <- zip (workspaces conf) [xK_1 .. xK_9] | (workspace, key) <- zip (workspaces conf) [xK_1 .. xK_9]
, (function, additionalMask) <- , (function, additionalMask) <-
[ (W.greedyView, 0) [ (W.greedyView, 0)
, (W.shift, shiftMask) , (W.shift, shiftMask)
, (shiftThenView, controlMask)]] , (shiftThenView, controlMask)
]
]
where where
modalt = modm .|. mod1Mask modalt = modm .|. mod1Mask