module Dodge.Default.Terminal 
    ( defaultTerminal
    ) where

import Color
import Dodge.Data.Terminal
import Dodge.Data.WorldEffect

defaultTerminal :: Terminal
defaultTerminal =
    Terminal
        { _tmID = 0
        , _tmBootProgram = TerminalBootMempty
        , _tmButtonID = 0
        , _tmMachineID = 0
        , _tmName = "TESTTERMINAL"
        , _tmDisplayedLines = []
        , _tmFutureLines = []
        , _tmTitle = "TERMINAL IN LOCATION"
        , _tmInput = defaultTerminalInput
        , _tmScrollCommands = []
        , _tmWriteCommands = []
        , _tmDeathEffect = TmWdId
        , _tmStatus = TerminalOff
        , _tmCommandHistory = []
        , _tmToggles = mempty
        , _tmPartialCommand = Nothing
        , _tmType = DefaultTerminal
        , _tmExternalColor = dark magenta
        , _tmScreenColor = green
        }

defaultTerminalInput :: TerminalInput
defaultTerminalInput =
    TerminalInput
        { _tiText = ""
        , _tiFocus = True
        , _tiSel = (0, 0)
        }