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 U'"           (title =? "Term U")        (customFloating $ W.RationalRect (1/16)   (1/16) (7/8)  (7/8))
  , NS "Term 1"      "alacritty -t 'Term I'"           (title =? "Term I")        (customFloating $ W.RationalRect (1/16)   (1/16) (7/8)  (7/8))
  , NS "Term 2"      "alacritty -t 'Term O'"           (title =? "Term O")        (customFloating $ W.RationalRect (1/16)   (1/16) (7/8)  (7/8))
  , NS "Term 3"      "alacritty -t 'Term P'"           (title =? "Term P")        (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 "nmtui"       "alacritty -t 'nmtui' -e 'nmtui'" (title =? "nmtui")         (customFloating $ W.RationalRect (1/16)   (1/16) (7/8)  (7/8))
  , NS "BPYTOP" "alacritty -t 'BPYTOP' -e 'bpytop'"    (title =? "BPYTOP")        (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))
  ]