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

Add selection item width

Browse Source
This commit is contained in:
justin
2024-11-26 21:53:49 +00:00
parent 9e0ef2ed1d
commit f12c390778
6 changed files with 26 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/DisplayInventory.hs
+6 -5
View File
@@ -170,11 +170,11 @@ updateDisplaySections w cfig =
btitems =
IM.fromDistinctAscList . zip [0 ..] $
mapMaybe (closeButtonToSelectionItem w) (w ^. hud . closeButtons)
makehead str i = (i, IM.singleton 0 $ SelectionInfo [str] 1 False white 0)
statushead = (-4, IM.singleton 0 $ SelectionInfo ["STATUS"] 1 False white 0)
statusdisplay = (-3, IM.singleton 0 $ SelectionInfo ["HEALTH: " ++ show (_crHP cr)] 1 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
youitems = IM.singleton 0 $ SelectionItem [thetext] 1 True invDimColor 2 ()
youitems = IM.singleton 0 $ SelectionItem [thetext] 1 15 True invDimColor 2 ()
thetext = displayFreeSlots (crNumFreeSlots cr)
closeitms =
IM.fromDistinctAscList . zip [0 ..] $
@@ -207,6 +207,7 @@ filterSectionsPair infocus filtfn itms filtdescription mfilt = (filtsis, itms')
$ SelectionInfo
[filtdescription ++ " FILTER/" ++ str ++ [filtcurs], numfiltitems]
2
15
True
white
0
@@ -370,7 +371,7 @@ enterCombineInv cfig w =
cm
| null cm' =
IM.singleton 0 $
SelectionInfo ["No possible combinations"] 1 False white 0
SelectionInfo ["No possible combinations"] 1 25 False white 0
| otherwise = cm'
selpos
| null cm' = Nothing