Move towards inputs in terminal

2022-06-01 14:34:16 +01:00
parent b54864bbda
commit 2cedc1b968
13 changed files with 90 additions and 64 deletions
@@ -66,9 +66,15 @@ addWarningTerminal outplid = (rmName .++~ "warningTerm-")
                then Just (rtpos, rpdir)
                else Just (ltpos, rpdir)
        _ -> Nothing
-    termMessages trid = (genTermMessage $ const ["A","TEST"]) 
-        <&> termFutureLines %~ (++ [TerminalLineChoice 0 (ops trid)])
-    ops trid = [ ("OPEN", triggers . ix (fromJust $ _plMID trid) .~ const True)
-        , ("LEAVE", id)
-        ]
+    termMessages trid = ops trid (genTermMessage $ const ["AVAILABLE COMMANDS:"
+        , "  QUIT  TOGGLE"
+        , replicate 50 'M'
+        ]) 
+--        <&> termFutureLines %~ (++ [TerminalLineChoice 0 (ops trid)])
+    ops _ f gw w = f gw w & termFutureLines %~
+        (++ [ TerminalLineInput 0 (const id) ])
+--        (++ [ TerminalLineChoice 0 [ ("TOGGLE", toggledoor trid)
+--        , ("EXIT", id)
+--        ]])
+    --toggledoor trid w' = w' & triggers . ix (fromJust $ _plMID trid) .~ const True