module Scratchpads where

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

import Defaults

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

-- if I try to concatinate strings directly 
-- it won't compile for some reason
term0Cmd  = myTerminal' ++ " -t 'Term U'"
term1Cmd  = myTerminal' ++ " -t 'Term I'"
term2Cmd  = myTerminal' ++ " -t 'Term O'"
term3Cmd  = myTerminal' ++ " -t 'Term P'"
lfCmd     = myTerminal' ++ " -t 'lf' -e 'lf'"
nmtuiCmd  = myTerminal' ++ " -t 'nmtui' -e 'nmtui'"
bpytopCmd = myTerminal' ++ " -t 'BPYTOP' -e 'bpytop'"

myScratchpads =
  [ NS "Term 0" term0Cmd  (title =? "Term U") (customFloating $ W.RationalRect (1/16)   (1/16) (7/8)  (7/8))
  , NS "Term 1" term1Cmd  (title =? "Term I") (customFloating $ W.RationalRect (1/16)   (1/16) (7/8)  (7/8))
  , NS "Term 2" term2Cmd  (title =? "Term O") (customFloating $ W.RationalRect (1/16)   (1/16) (7/8)  (7/8))
  , NS "Term 3" term3Cmd  (title =? "Term P") (customFloating $ W.RationalRect (1/16)   (1/16) (7/8)  (7/8))
  , NS "lf"     lfCmd     (title =? "lf")     (customFloating $ W.RationalRect (1/16)   (1/16) (7/8)  (7/8))
  , NS "nmtui"  nmtuiCmd  (title =? "nmtui")  (customFloating $ W.RationalRect (1/16)   (1/16) (7/8)  (7/8))
  , NS "BPYTOP" bpytopCmd (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))
  ]