Partially successful change of terminals to external entities

src/Dodge/Render/HUD.hs

@@ -84,14 +84,16 @@ subInventoryDisplay subinv cfig w = case subinv of
         , invHead cfig "TWEAK"
         , listTextPicturesAt subInvX 60 cfig $ map text (ammoTweakStrings it)
         ]
-    DisplayTerminal {_termParams = tp,_termID = tid} -> pictures
-        [ invHead cfig (_termTitle tp ++ ":T" ++ show tid)
+    DisplayTerminal {_termID = tid,_onInputLine=isoninput} -> 
+      let tp = w ^?! terminals . ix tid
+      in pictures
+        [ invHead cfig (_tmTitle tp ++ ":T" ++ show tid)
         , renderListAt subInvX 60 cfig 
             . displayTermInput tp
 --            . (++ map (\(str,_) -> (str,white)) (_termOptions tp))
             . reverse 
-            . take (_termMaxLines tp) 
-            $ _termDisplayedLines tp <&> ($ w)
+            . take (_tmMaxLines tp) 
+            $ _tmDisplayedLines tp
 --        , fromMaybe mempty $ do
 --            cursori <- _termSel tp <&> (+ _termMaxLines tp)
 --            return $ listCursorNSW subInvX 60 cfig cursori white 15 1
@@ -122,7 +124,7 @@ subInventoryDisplay subinv cfig w = case subinv of
         ]
     InspectInventory -> invHead cfig "INSPECT"
   where 
-    displayTermInput tp = case _termInput tp of
+    displayTermInput tp = case _tmInput tp of
         Nothing -> id
         Just s -> (++ [('>':T.unpack s++clockCycle 10 (V.fromList ["_",""]) w,white)])
     closeobjectcursor = case selectedCloseObject w of