Browse Source

Add pavucontrol scratchpad to emacs on Mod4+C+5

Signed-off-by: Collin J. Doering <rekahsoft@gmail.com>
master
1 changed files with 10 additions and 3 deletions
  1. +10
    -3
      .xmonad/xmonad.hs

+ 10
- 3
.xmonad/xmonad.hs View File

@@ -272,6 +272,9 @@ myGenericKeys =

-- Launch ncmpcpp scratchpad
, ((modm .|. controlMask, xK_4), namedScratchpadAction scratchpads "ncmpcpp-scratch")

-- Launch pavucontrol scratchpad
, ((modm .|. controlMask, xK_5), namedScratchpadAction scratchpads "pavucontrol-scratch")
-- Enable movement and resizing of floating windows
, ((modm, xK_d), withFocused (keysMoveWindow (10,0))) -- move floating window right
@@ -413,25 +416,29 @@ scratchpads = [ NS "emacs-scratch" spawnEmacsScratch findEmacsScratch manageEmac
, NS "maintenance-terminal" spawnMaintenanceTerminal findMaintenanceTerminal manageMaintenanceTerminal
, NS "screen-terminal" spawnScreenTerminal findScreenTerminal manageScreenTerminal
, NS "mc-scratch" spawnMcScratch findMcScratch manageMcScratch
, NS "ncmpcpp-scratch" spawnNcmpcppScratch findNcmpcppScratch manageNcmpcppScratch]
, NS "ncmpcpp-scratch" spawnNcmpcppScratch findNcmpcppScratch manageNcmpcppScratch
, NS "pavucontrol-scratch" spawnPavucontrolScratch findPavucontrolScratch managePavucontrolScratch ]
where
findEmacsScratch = title =? "emacs-scratch"
findMaintenanceTerminal = resource =? "scratchpad"
findScreenTerminal = title =? "screen-scratch"
findMcScratch = resource =? "mc-scratch"
findNcmpcppScratch = resource =? "ncmpcpp-scratch"
findPavucontrolScratch = resource =? "pavucontrol"

spawnEmacsScratch = "emacsclient --eval '(make-frame-with-static-name \"emacs-scratch\")'"
spawnMaintenanceTerminal = myTerminal ++ " -name scratchpad -bg black"
spawnScreenTerminal = "emacsclient --eval '(make-frame-with-static-name \"screen-scratch\")'"
spawnMcScratch = myTerminal ++ " -name mc-scratch -pe -tabbedex -e mc"
spawnNcmpcppScratch = myTerminal ++ " -name ncmpcpp-scratch -pe -tabbedex -e ncmpcpp"
spawnPavucontrolScratch = "pavucontrol"

manageEmacsScratch = customFloating $ W.RationalRect 0.10 0.10 0.80 0.80
manageEmacsScratch = doMaxFloat
manageMaintenanceTerminal = customFloating $ W.RationalRect 0 0.66 1 0.34
manageScreenTerminal = customFloating $ W.RationalRect 0 0.01 1 0.99
manageScreenTerminal = doFullFloat
manageMcScratch = customFloating $ W.RationalRect 0.125 0.125 0.75 0.75
manageNcmpcppScratch = customFloating $ W.RationalRect 0.225 0.10 0.55 0.80
managePavucontrolScratch = doMaxFloat

-- manageScreenTerminal = customFloating $ W.RationalRect l t w h
-- where


Loading…
Cancel
Save