Move towards implementing terminal autocomplete

2025-08-16 23:13:24 +01:00
parent f7759b1f31
commit 76b6cda19b
14 changed files with 351 additions and 261 deletions
@@ -74,7 +74,8 @@ sensInsideDoor senseType outplid rm =
            .++~ [ psPt atFstLnkOut . PutForeground $ floorWire (V2 20 0) (V2 20 (-100))
                 , psPt atFstLnkOut . PutForeground $ floorWire (V2 0 (-100)) (V2 20 (-100))
                 , psPt atFstLnkOut . PutForeground $ verticalWire (V2 20 0) 0 80
-                 , putMessageTerminal terminalColor (basicTerminal & tmCommands .:~ damageCodeCommand)
+                 , putMessageTerminal terminalColor (basicTerminal-- & tmCommands .:~ damageCodeCommand)
+                    )
                    & plSpot .~ rprBoolShift isUnusedLnk (shiftInBy 10)
                 ]
        & rmOutPmnt .~ [OutPlacement (sensAboveDoor senseType 10 (atFstLnkOutShiftInward 100)) outplid]