diff options
| author | Ben Sima <ben@bsima.me> | 2023-01-01 21:06:25 -0500 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2023-01-01 21:07:39 -0500 |
| commit | 5ba3de2573492ecf563088b3d3ba88b42b47610f (patch) | |
| tree | 1dddc2a25adf51c99c67f49e39112746e88b12ff | |
| parent | 31a0b52f4f91756612e7c6c570e0f53e91e582d0 (diff) | |
xmonad: scratchpad and gap spacing
i think the scratchpad doesn't work but idk why
Change-Id: I9e09ae6c2a736b5f88c769ec3754759b665a9901
| -rw-r--r-- | lib/xmonad.hs | 17 |
1 files 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 = |