Remove heading from terminal display

This commit is contained in:
2025-12-26 11:48:41 +00:00
parent 98c411c581
commit 589cfd6d79
2 changed files with 3 additions and 2 deletions
+2 -1
View File
@@ -353,7 +353,8 @@ drawTerminalDisplay w cfig tid = fold $ do
tm <- w ^? cWorld . lWorld . terminals . ix tid
let toselitm (str, col) = SelItem [str] 1 55 True col 0 Nothing NoSIDisplayMod
f =
toselitm ("TERMINAL " ++ show tid, white)
--toselitm ("TERMINAL " ++ show tid, white)
toselitm ("", white)
: ( map (toselitm . (_1 %~ (" " <>)))
. displayTermInput
. reverse
+1 -1
View File
@@ -447,7 +447,7 @@ distributerRoom atype aamount = do
& rmInPmnt <>~ [(0,dst),(1,thepipe)]
tmDistributeLines :: [TerminalLine]
tmDistributeLines = [TLine 1 [TerminalLineConst "DISTRIBUTING..." white] TmDistributeAmmo]
tmDistributeLines = [TLine 1 [TerminalLineConst "ATTEMPTING TO DISTRIBUTE MATERIAL..." white] TmDistributeAmmo]
-- cor <- shuffleLinks corridor
-- return $ tToBTree "corDoor" $ treePost [door,cor,cleatOnward door]