justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Remove separate status from selection list

Browse Source
This commit is contained in:
justin
2025-01-01 15:33:59 +00:00
parent dda6cb2ad6
commit 356301fb61
1 changed files with 2 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/DisplayInventory.hs
+2 -6
View File
@@ -121,7 +121,7 @@ displaySectionsSizes 3 = 10
displaySectionsSizes _ = 3 displaySectionsSizes _ = 3
displayIndents :: Int -> Int displayIndents :: Int -> Int
displayIndents (-3) = 2 --displayIndents (-3) = 2
displayIndents 0 = 2 displayIndents 0 = 2
displayIndents 3 = 2 displayIndents 3 = 2
displayIndents 5 = 2 displayIndents 5 = 2
@@ -138,9 +138,7 @@ updateDisplaySections w cfig =
displayIndents displayIndents
mselpos mselpos
(getAvailableListLines invDP cfig) (getAvailableListLines invDP cfig)
[ statushead [ invhead
, statusdisplay
, invhead
, invx , invx
, youx , youx
, nearbyhead , nearbyhead
@@ -171,8 +169,6 @@ updateDisplaySections w cfig =
IM.fromDistinctAscList . zip [0 ..] $ IM.fromDistinctAscList . zip [0 ..] $
mapMaybe (closeButtonToSelectionItem w) (w ^. hud . closeButtons) mapMaybe (closeButtonToSelectionItem w) (w ^. hud . closeButtons)
makehead str i = (i, IM.singleton 0 $ SelectionInfo [str] 1 15 False white 0) makehead str i = (i, IM.singleton 0 $ SelectionInfo [str] 1 15 False white 0)
statushead = (-4, IM.singleton 0 $ SelectionInfo ["STATUS"] 1 15 False white 0)
statusdisplay = (-3, IM.singleton 0 $ SelectionInfo ["HEALTH: " ++ show (_crHP cr)] 1 15 False white 0)
invhead = if null sfinv then makehead "INVENTORY" (-1) else filtinv invhead = if null sfinv then makehead "INVENTORY" (-1) else filtinv
youitems = IM.singleton 0 $ SelectionItem [thetext] 1 15 True invDimColor 2 () youitems = IM.singleton 0 $ SelectionItem [thetext] 1 15 True invDimColor 2 ()
thetext = displayFreeSlots (crNumFreeSlots cr) thetext = displayFreeSlots (crNumFreeSlots cr)