Improve terminal color possibilities

src/Dodge/Render/HUD.hs

@@ -145,7 +145,7 @@ drawSubInventory subinv cfig w = case subinv of
     LockedInventory -> mempty -- topInvCursor col cursPos cfig w
     NoSubInventory{} -> drawRBOptions cfig w
     ExamineInventory -> drawExamineInventory cfig w
-    DisplayTerminal tid -> displayTerminal tid cfig (w ^. cWorld . lWorld)
+    DisplayTerminal tid -> drawTerminalDisplay tid cfig (w ^. cWorld . lWorld)
     CombineInventory{_ciSections = sss} -> drawCombineInventory cfig sss w
 
 drawCombineInventory ::
@@ -343,12 +343,14 @@ combineInventoryExtra sss msel cfig w = fromMaybe mempty $ do
                     sss'
                     (Just (0, i))
 
-displayTerminal :: Int -> Configuration -> LWorld -> Picture
-displayTerminal tid cfig w = fromMaybe mempty $ do
+drawTerminalDisplay :: Int -> Configuration -> LWorld -> Picture
+drawTerminalDisplay tid cfig w = fromMaybe mempty $ do
     tm <- w ^? terminals . ix tid
     return $
         invHead cfig (_tmTitle tm ++ ":T" ++ show tid)
             <> drawSelectionList secondColumnParams cfig (thesellist tm)
+            <> color (withAlpha 0.5 green) (drawSelectionListBackground secondColumnParams cfig 15)
+            <> color (dark $ _tmExternalColor tm) (drawTitleBackground cfig)
   where
     toselitm (str, col) = SelectionItem [str] 1 True col 0 ()
     thesellist tm = defaultSelectionList & slItems .~ thelist tm
@@ -382,7 +384,7 @@ lnkMidPosInvSelsCol cfig w i col = fromMaybe mempty . foldMap f
 
 invHead :: Configuration -> String -> Picture
 invHead cfig =
-    translateScreenPos cfig (fromTopLeft (V2 (subInvX - 5) 80))
+    translateScreenPos cfig (fromTopLeft (V2 subInvX 80))
         . dShadCol white
         . scale 0.4 0.4
         . textJustifyLeft