module Scratchpads where

import XMonad
import qualified XMonad.StackSet as W
import XMonad.Util.NamedScratchpad

-- open a scratchpad
myScratchpad :: String -> X ()
myScratchpad x = namedScratchpadAction myScratchpads x

myScratchpads =
  [ NS "Term 0"      "alacritty -t 'Term 0'"     (title     =? "Term 0")          (customFloating $ W.RationalRect (1/16)   (1/16) (7/8)  (7/8))
  , NS "Term 1"      "alacritty -t 'Term 1'"     (title     =? "Term 1")          (customFloating $ W.RationalRect (1/16)   (1/16) (7/8)  (7/8))
  , NS "Term 2"      "alacritty -t 'Term 2'"     (title     =? "Term 2")          (customFloating $ W.RationalRect (1/16)   (1/16) (7/8)  (7/8))
  , NS "Term 3"      "alacritty -t 'Term 3'"     (title     =? "Term 3")          (customFloating $ W.RationalRect (1/16)   (1/16) (7/8)  (7/8))
  , NS "lf"          "alacritty -t 'lf' -e 'lf'" (title     =? "lf")              (customFloating $ W.RationalRect (1/16)   (1/16) (7/8)  (7/8))
  , NS "arandr"      "arandr"                    (className =? "Arandr")          (customFloating $ W.RationalRect (1/4)    (1/4)  (1/2)  (1/2))
  , NS "calc"        "galculator"                (className =? "Galculator")      (customFloating $ W.RationalRect (5/13)   (4/13) (3/13) (6/13))
  , NS "blueman"     "blueman-manager"           (className =? "Blueman-manager") (customFloating $ W.RationalRect (5.5/16) (4/13) (5/16) (6/13))
  , NS "pavucontrol" "pavucontrol"               (className =? "Pavucontrol")     (customFloating $ W.RationalRect (3/12)   (1/12) (3/6)  (5/6))
  , NS "wallpaper"   "nitrogen"                  (className =? "Nitrogen")        (customFloating $ W.RationalRect (3/12)   (1/12) (3/6)  (5/6))
  , NS "BPYTOP" "alacritty -t 'BPYTOP' -e 'bpytop'"  (title =? "BPYTOP")          (customFloating $ W.RationalRect (1/16)   (1/16) (7/8)  (7/8))
  ]