Work on toggle terminals

src/Dodge/Data/Terminal.hs

@@ -51,7 +51,7 @@ data TCom
     | TCBase
     | TCDamageCommand
     | TCSensorInfo
-    | TCToggles
+--    | TCToggles
 
 data TmWdWd
     = TmWdId

src/Dodge/Room/Warning.hs

@@ -42,18 +42,12 @@ addWarningTerminal str outplid = (rmName .++~ "warningTerm-")
             )
     termMessages trpl =
         lineOutputTerminal (makeColorTermLine red "WARNING" : makeTermPara str)
-            & tmCommands .:~ TCToggles
+--            & tmCommands .:~ TCToggles
             & tmToggles .~ M.fromList
                     [("DOOR", TerminalToggle (fromJust $ _plMID trpl) (BlConst True))]
 
 lineOutputTerminal :: [TerminalLine] -> Terminal
-lineOutputTerminal tls =
+lineOutputTerminal tls = defaultTerminal & tmBootLines .~ connectionBlurbLines tls
-    defaultTerminal
-        { _tmDisplayedLines = []
-        , _tmFutureLines = []
-        , _tmBootLines = connectionBlurbLines tls
-        , _tmDeathEffect = TmWdWdDoDeathTriggers
-        }
 
 moveToSideFirstOutLink :: RoomPos -> Room -> Maybe (Point2, Float)
 moveToSideFirstOutLink rp rm = do

src/Dodge/Terminal.hs

@@ -9,7 +9,7 @@ module Dodge.Terminal (
     sensorCommand,
     makeColorTermLine,
     makeTermPara,
-    toggleCommand,
+--    toggleCommand,
     terminalReturnEffect,
     getCommands,
     tabComplete,
@@ -59,9 +59,9 @@ getCommand :: World
     -> Terminal -> TCom -> PTE.TrieMap Char (PTE.TrieMap Char [TerminalLine])
 getCommand w tm = \case
     TCInfo x z -> PTE.singleton x (PTE.singleton "" (makeTermPara z))
-    TCBase -> helpCommand <> quitCommand
+    TCBase -> helpCommand <> quitCommand <> toggleCommands tm
     TCDamageCommand -> damageCodeCommand w
-    TCToggles -> toggleCommand tm
+--    TCToggles -> toggleCommand tm
     TCSensorInfo -> sensorCommand w tm
 
 damageCodeCommand :: World -> PTE.TrieMap Char (PTE.TrieMap Char [TerminalLine])
@@ -92,18 +92,18 @@ sensorCommand w tm = PTE.singleton "SENSOR" $ fromMaybe mempty $ do
             ]
     
 
-toggleCommand :: Terminal -> PTE.TrieMap Char (PTE.TrieMap Char [TerminalLine])
+toggleCommands :: Terminal -> PTE.TrieMap Char (PTE.TrieMap Char [TerminalLine])
-toggleCommand tm =
+toggleCommands tm 
-    PTE.singleton "TOGGLE" $
+    | null ts = mempty
-        PTE.fromList $
+    | otherwise = PTE.singleton "TOGGLE" $ PTE.fromList $ fmap f $ M.toList ts
-            M.toList $ fmap f $ tm ^. tmToggles
   where
-    f x =
+    ts = tm ^. tmToggles
+    f (s,x) = (s,
         [ TLine
             1
-            [TerminalLineConst "TOGGLE DONE!" termTextColor]
+            [TerminalLineConst (s ++ " TOGGLE DONE!") termTextColor]
             (TmWdWdfromWdWd (WdWdNegateTrig $ x ^. ttTriggerID))
-        ]
+        ])
 
 helpCommand :: PTE.TrieMap Char (PTE.TrieMap Char [TerminalLine])
 helpCommand = PTE.singleton "HELP" (fmap makeTermPara helpStrings)