List rendering work

2023-05-05 10:22:46 +01:00
parent 988bb7591d
commit 865706df3b
7 changed files with 60 additions and 58 deletions
@@ -10,17 +10,17 @@ import Dodge.Data.SelectionList

 drawSelectionSections :: SelectionSections a -> ListDisplayParams -> Configuration -> Picture
 drawSelectionSections sss ldps cfig =
-    listPicturesAtScaleOff
+    toTopLeft cfig (listPicturesAtScaleOff
        (_ldpVerticalGap ldps)
        (_ldpScale ldps)
        (_ldpPosX ldps)
        (_ldpPosY ldps)
-        cfig
        0
        pics
        <> thecursor'
+        )
  where
    thecursor' = fromMaybe mempty $ do
        (i, j) <- sss ^? sssExtra . sssSelPos . _Just
-        return $ selSecDrawCursor 15 [North, South, West] cfig ldps sss i j
+        return $ selSecDrawCursor 15 [North, South, West] ldps sss i j
    pics = foldMap _ssShownItems (_sssSections sss)