Allow for inventory item bolding

src/Dodge/Render/HUD.hs

@@ -58,7 +58,7 @@ drawHUD cfig w = case w ^. hud of
 
 drawInventory :: IM.IntMap (SelSection ()) -> World -> Config -> SubInventory -> Picture
 drawInventory sss w cfig = \case 
-    DisplayTerminal {} -> mempty
+--    DisplayTerminal {} -> mempty
     _ -> drawSelectionSections sss invDP cfig
         <> drawSSCursor sss invDP curs cfig (f $ w ^? hud . diSelection . _Just)
         <> drawRootCursor w sss (f $ w ^? hud . diSelection . _Just) invDP cfig
@@ -222,6 +222,7 @@ drawExamineInventory cfig w =
             , _siColor = white
             , _siOffX = 0
             , _siPayload = Nothing
+            , _siDisplayMod = NoSIDisplayMod
             }
 
 closeObjectInfo :: Int -> Either Item Button -> String
@@ -360,7 +361,7 @@ combineInventoryExtra sss msel cfig w = fold $ do
 
 drawTerminalDisplay :: LWorld -> Config -> Terminal -> Picture
 drawTerminalDisplay lw cfig tm =
-        drawSelectionList invDP cfig f
+        drawSelectionList secondColumnLDP cfig f
 --        <> invHead cfig ("TERMINAL-" ++ show tid)
 --        <> color
 --            (withAlpha 0.5 green) -- consider integrating termScreenColor somehow
@@ -369,7 +370,7 @@ drawTerminalDisplay lw cfig tm =
   where
     tid = tm ^. tmID
 --    tsize = getMaxLinesTM + 1
-    toselitm (str, col) = SelItem [str] 1 55 True col 0 Nothing
+    toselitm (str, col) = SelItem [str] 1 55 True col 0 Nothing NoSIDisplayMod
     -- not sure if the width (55) is correct here
     f = toselitm ("TERMINAL " ++ show tid,white) :
         (map (toselitm . (_1 %~ ("  "<>))) . displayTermInput