Work on terminal text display

2025-12-23 22:02:38 +00:00
parent 238d6b8799
commit 9e8b847940
5 changed files with 40 additions and 45 deletions
@@ -358,7 +358,8 @@ combineInventoryExtra sss msel cfig w = fold $ do
                    (Just (0, i))

 drawTerminalDisplay :: LWorld -> Config -> Terminal -> Picture
-drawTerminalDisplay lw cfig tm = drawSelectionList secondColumnLDP cfig f
+drawTerminalDisplay lw cfig tm 
+    = drawSelectionList (secondColumnLDP & ldpBorder ?~ (49, 16)) cfig f
  where
    --        <> invHead cfig ("TERMINAL-" ++ show tid)
    --        <> color