wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

[XMonad] Use named scratchpads for hangouts, spotify and htop

Browse Source
This commit is contained in:
Ivan Malison 2016-11-21 23:46:16 -06:00
parent c483e4957b
commit fed2941ec5
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
dotfiles/xmonad/xmonad.hs
View File

@ -45,6 +45,7 @@ import XMonad.Util.CustomKeys
import qualified XMonad.Util.Dmenu as DM
import qualified XMonad.Util.ExtensibleState as XS
import XMonad.Util.Minimize
import XMonad.Util.NamedScratchpad (NamedScratchpad(NS), nonFloating, namedScratchpadAction)
import XMonad.Util.NamedWindows (getName)
main = xmonad $ def
@ -364,6 +365,14 @@ swapMinimizeStateAfter action = withFocused $ \originalWindow -> do
when (newWindow /= originalWindow)
$ minimizeWindow originalWindow
-- Named Scratchpads
scratchpads = [ NS "htop" htopCommnad (title =? "htop") nonFloating
, NS "spotify" spotifyCommand spotifySelector nonFloating
, NS "hangouts" hangoutsCommand hangoutsSelector nonFloating
]
doScratchpad = deactivateFullAnd . namedScratchpadAction scratchpads
-- Raise or spawn
myRaiseNextMaybe = (maybeUnminimizeClassAfter .) . raiseNextMaybeCustomFocus greedyFocusWindow
@ -421,6 +430,16 @@ addKeys conf@XConfig {modMask = modm} =
, ((modalt, xK_5), selectToggle)
, ((modalt, xK_4), selectLimit)
-- ScratchPads
, ((modalt, xK_m), doScratchpad "htop")
, ((modalt, xK_s), doScratchpad "spotify")
, ((modalt, xK_h), doScratchpad "hangouts")
, ((modalt .|. controlMask, xK_h),
myRaiseNextMaybe (spawn hangoutsCommand) hangoutsSelector)
, ((modalt .|. controlMask, xK_s),
myRaiseNextMaybe (spawn spotifyCommand) spotifySelector)
-- playerctl
, ((mod3Mask, xK_f), spawn "playerctl play-pause")
, ((0, xF86XK_AudioPause), spawn "playerctl play-pause")
@ -440,8 +459,8 @@ addKeys conf@XConfig {modMask = modm} =
[ (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_s, spawn spotifyCommand, spotifySelector)
-- , (modalt, xK_h, spawn hangoutsCommand, hangoutsSelector)
, (modalt, xK_t, spawn transmissionCommand, transmissionSelector)
] ++
-- Replace original moving stuff around + greedy view bindings