From 5ba3de2573492ecf563088b3d3ba88b42b47610f Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Sun, 1 Jan 2023 21:06:25 -0500
Subject: xmonad: scratchpad and gap spacing

i think the scratchpad doesn't work but idk why

Change-Id: I9e09ae6c2a736b5f88c769ec3754759b665a9901
---
 lib/xmonad.hs | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/lib/xmonad.hs b/lib/xmonad.hs
index b3cdffd..75dd652 100644
--- a/lib/xmonad.hs
+++ b/lib/xmonad.hs
@@ -40,6 +40,7 @@ import qualified XMonad.StackSet as W
 import XMonad.Util.CustomKeys (customKeys)
 import XMonad.Util.EZConfig (additionalKeys)
 import XMonad.Util.Scratchpad
+import XMonad.Util.NamedScratchpad
 
 -- Colors
 data Colors = Colors
@@ -94,7 +95,12 @@ myManageHook = manageDocks <+> scratchHook <+> (shouldFloat --> doFullFloat) <+>
 
 -- todo: use urxvtc with daemon
 termName = "/home/ben/.nix-profile/bin/urxvt"
-transparentTerm = "urxvt -depth 32 -bg rgba:0000/0000/0000/4444 -fg '[80]white'"
+transparentTerm = termName <> " -depth 32 -bg rgba:0000/0000/0000/4444"
+
+scratchpads = [
+    NS "pavucontrol" "pavucontrol" (className =? "Pavucontrol")
+      (customFloating $ W.RationalRect (1/4) (1/4) (2/4) (2/4))
+  ]
 
 insKeys :: XConfig l -> [((KeyMask, KeySym), X ())]
 insKeys conf@(XConfig {modMask = modMask}) =
@@ -103,8 +109,9 @@ insKeys conf@(XConfig {modMask = modMask}) =
     ((modMask, xK_o), spawn "rofi -sidebar-mode -show run"),
     ((modMask, xK_n), spawn "rofi -sidebar-mode -show window"),
     ((modMask, xK_u), spawn "rofi -show calc -modi calc -no-show-match -no-sort"),
-    ((modMask, xK_s), scratchpadSpawnActionTerminal transparentTerm),
-    ((modMask, xK_h), spawn transparentTerm),
+    ((modMask, xK_h), scratchpadSpawnActionTerminal transparentTerm),
+    ((modMask .|. shiftMask, xK_p), namedScratchpadAction scratchpads "pavucontrol"),
+    -- ((modMask, xK_h), spawn transparentTerm),
     -- refresh display via autorandr
     ( (modMask, xK_r),
       spawn $ "autorandr --cycle"
@@ -139,9 +146,9 @@ addSpace :: l a -> ModifiedLayout Spacing l a
 addSpace =
   spacingRaw
     False
-    (Border 10 10 10 10)
+    (Border 15 15 15 15)
     True
-    (Border 10 10 10 10)
+    (Border 15 15 15 15)
     True
 
 myTabCfg theme =
-- 
cgit v1.2.3