xmonad-config/lib/Scratchpad.hs

module Scratchpad (
  Scratchpad.modify,
  Scratchpad.pads
) where

import Control.Monad (void)
import XMonad.Core
import XMonad.ManageHook
import XMonad.Util.NamedScratchpad
import qualified XMonad.StackSet as W

modify :: XConfig l -> XConfig l
modify conf = conf
  { manageHook = manageHook conf <> namedScratchpadManageHook pads
  }

pads =
  [ NS "htop" "nvidia-offload kitty --title htop tmux" (title =? "htop")
      (customFloating $ W.RationalRect (1/3) (1/3) (1/3) (1/3))
  -- , NS "stardict" "stardict" (className =? "Stardict")
  --     (customFloating $ W.RationalRect (1/6) (1/6) (2/3) (2/3))
  -- , NS "notes" "gvim --role notes ~/notes.txt" (role =? "notes") nonFloating
  ] where role = stringProperty "WM_WINDOW_ROLE"