37 lines
922 B
Haskell
37 lines
922 B
Haskell
module Dodge.Default.Terminal
|
|
( defaultTerminal
|
|
) where
|
|
|
|
import Dodge.Data.Terminal
|
|
import Dodge.Data.WorldEffect
|
|
|
|
defaultTerminal :: Terminal
|
|
defaultTerminal =
|
|
Terminal
|
|
{ _tmID = 0
|
|
, _tmBootProgram = TerminalBootMempty
|
|
, _tmButtonID = 0
|
|
, _tmMachineID = 0
|
|
, _tmName = "TESTTERMINAL"
|
|
, _tmDisplayedLines = []
|
|
, _tmFutureLines = []
|
|
, _tmMaxLines = 14
|
|
, _tmTitle = "TERMINAL IN LOCATION"
|
|
, _tmInput = defaultTerminalInput
|
|
, _tmScrollCommands = []
|
|
, _tmWriteCommands = []
|
|
, _tmDeathEffect = TmWdId
|
|
, _tmStatus = TerminalOff
|
|
, _tmCommandHistory = []
|
|
, _tmToggles = mempty
|
|
, _tmPartialCommand = Nothing
|
|
}
|
|
|
|
defaultTerminalInput :: TerminalInput
|
|
defaultTerminalInput =
|
|
TerminalInput
|
|
{ _tiText = ""
|
|
, _tiFocus = True
|
|
, _tiSel = (0, 0)
|
|
}
|