From 0bc09a4c739d570efc6b6a0ee98ca3aec6d93264 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Mon, 11 Nov 2024 11:25:18 -0500 Subject: update xmonad scratchpads --- lib/xmonad.hs | 23 ++++++++++++++++------- 1 file changed, 16 insertions(+), 7 deletions(-) (limited to 'lib/xmonad.hs') diff --git a/lib/xmonad.hs b/lib/xmonad.hs index 047dd83..3c8a274 100644 --- a/lib/xmonad.hs +++ b/lib/xmonad.hs @@ -40,7 +40,6 @@ import XMonad.Layout.TwoPane 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 @@ -90,17 +89,23 @@ shouldFloat = do return (fs && not (shouldntFloat name)) -- RationalRect is x y w h -scratchHook = scratchpadManageHook (W.RationalRect 0.125 0.125 0.75 0.75) +scratchHook = namedScratchpadManageHook scratchpads -- myManageHook = manageDocks <+> scratchHook <+> (shouldFloat --> doFullFloat) <+> manageHook def -- todo: use urxvtc with daemon termName = "/home/ben/.nix-profile/bin/urxvt" -transparentTerm = termName <> " -depth 32 -bg rgba:0000/0000/0000/4444" + +centerFloat = customFloating (W.RationalRect 0.125 0.125 0.75 0.75) scratchpads = [ - NS "pavucontrol" "pavucontrol" (className =? "Pavucontrol") - (customFloating $ W.RationalRect (1/4) (1/4) (2/4) (2/4)) + -- run htop in xterm, find it by title + NS "htop" "urxvt -e htop" (title =? "htop") centerFloat, + NS "gotop" "urxvt -e gotop" (title =? "gotop") centerFloat, + + NS "nvtop" "urxvt -e nvtop" (title =? "nvtop") centerFloat, + + NS "pavucontrol" "pavucontrol" (className =? "Pavucontrol") centerFloat ] insKeys :: XConfig l -> [((KeyMask, KeySym), X ())] @@ -110,9 +115,13 @@ 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), + + -- scratchpads + ((modMask .|. shiftMask, xK_h), namedScratchpadAction scratchpads "htop"), + ((modMask .|. shiftMask, xK_g), namedScratchpadAction scratchpads "gotop"), + ((modMask .|. shiftMask, xK_n), namedScratchpadAction scratchpads "nvtop"), ((modMask .|. shiftMask, xK_p), namedScratchpadAction scratchpads "pavucontrol"), - -- ((modMask, xK_h), spawn transparentTerm), + -- refresh display via autorandr ( (modMask, xK_r), spawn $ "autorandr --cycle" -- cgit v1.2.3