Broken: refactor terminals

2022-07-25 00:45:15 +01:00
parent d1bf49319a
commit d219d8d889
25 changed files with 505 additions and 364 deletions
@@ -0,0 +1,32 @@
+module Dodge.Default.Terminal
+    where
+import Dodge.Data.WorldEffect
+import Dodge.Data.Terminal
+import qualified Data.Map.Strict as M
+import qualified Data.Text as T
+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 = M.empty
+    }
+defaultTerminalInput :: TerminalInput
+defaultTerminalInput = TerminalInput
+    { _tiText = T.pack ""
+    , _tiFocus = True
+    , _tiSel = (0,0)
+    }
+