Decouple selection section inventory position

2024-10-24 14:55:51 +01:00
parent 81f4f38166
commit 388064895f
17 changed files with 304 additions and 261 deletions
@@ -7,14 +7,14 @@ import Dodge.Render.List
 import Dodge.ScreenPos
 import Picture.Base

-drawSelectionSections :: SelectionSections a -> ListDisplayParams -> Configuration -> Picture
-drawSelectionSections sss ldp cfig =
+drawSelectionSections :: SelectionSections a -> Maybe (Int,Int) -> ListDisplayParams -> Configuration -> Picture
+drawSelectionSections sss msel ldp cfig =
    translateScreenPos cfig (ldp ^. ldpPos) $
        drawListYgapScaleYoff
            (_ldpVerticalGap ldp)
            (_ldpScale ldp)
            0
            pics
-            <> selSecDrawCursor 15 ldp sss
+            <> selSecDrawCursor 15 ldp sss msel
  where
    pics = foldMap _ssShownItems (_sssSections sss)