xmonad-config/lib/Scratchpad.hs

25 lines
752 B
Haskell
Raw Normal View History

2018-05-27 15:39:24 +02:00
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
2021-08-25 03:51:46 +02:00
{ manageHook = manageHook conf <> namedScratchpadManageHook pads
2018-05-27 15:39:24 +02:00
}
pads =
2020-12-14 20:49:03 +01:00
[ NS "htop" "/home/eeva/.nix-profile/bin/alacritty -t htop -e tmux" (title =? "htop")
2018-05-27 15:39:24 +02:00
(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"