24 lines
710 B
Haskell
24 lines
710 B
Haskell
|
|
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" "rio -e 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"
|