module Chiasma.Test.Data.TmuxTestConfig where

import Log (Severity (Info))
import qualified Polysemy.Process.Effect.Pty as Pty

data TmuxTestConfig =
  TmuxTestConfig {
    TmuxTestConfig -> Rows
width :: Pty.Rows,
    TmuxTestConfig -> Cols
height :: Pty.Cols,
    TmuxTestConfig -> Int
fontSize :: Int,
    TmuxTestConfig -> Bool
gui :: Bool,
    TmuxTestConfig -> [Text]
conf :: [Text],
    TmuxTestConfig -> Severity
logLevel :: Severity,
    TmuxTestConfig -> Bool
waitForPrompt :: Bool
  }
  deriving stock (TmuxTestConfig -> TmuxTestConfig -> Bool
(TmuxTestConfig -> TmuxTestConfig -> Bool)
-> (TmuxTestConfig -> TmuxTestConfig -> Bool) -> Eq TmuxTestConfig
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TmuxTestConfig -> TmuxTestConfig -> Bool
$c/= :: TmuxTestConfig -> TmuxTestConfig -> Bool
== :: TmuxTestConfig -> TmuxTestConfig -> Bool
$c== :: TmuxTestConfig -> TmuxTestConfig -> Bool
Eq, Int -> TmuxTestConfig -> ShowS
[TmuxTestConfig] -> ShowS
TmuxTestConfig -> String
(Int -> TmuxTestConfig -> ShowS)
-> (TmuxTestConfig -> String)
-> ([TmuxTestConfig] -> ShowS)
-> Show TmuxTestConfig
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [TmuxTestConfig] -> ShowS
$cshowList :: [TmuxTestConfig] -> ShowS
show :: TmuxTestConfig -> String
$cshow :: TmuxTestConfig -> String
showsPrec :: Int -> TmuxTestConfig -> ShowS
$cshowsPrec :: Int -> TmuxTestConfig -> ShowS
Show, (forall x. TmuxTestConfig -> Rep TmuxTestConfig x)
-> (forall x. Rep TmuxTestConfig x -> TmuxTestConfig)
-> Generic TmuxTestConfig
forall x. Rep TmuxTestConfig x -> TmuxTestConfig
forall x. TmuxTestConfig -> Rep TmuxTestConfig x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep TmuxTestConfig x -> TmuxTestConfig
$cfrom :: forall x. TmuxTestConfig -> Rep TmuxTestConfig x
Generic)

instance Default TmuxTestConfig where
  def :: TmuxTestConfig
def =
    Rows
-> Cols
-> Int
-> Bool
-> [Text]
-> Severity
-> Bool
-> TmuxTestConfig
TmuxTestConfig Rows
240 Cols
61 Int
12 Bool
False [Text]
forall a. Monoid a => a
mempty Severity
Info Bool
True