Fix cursor positioning in selection sections

src/Dodge/Render/List.hs

@@ -86,7 +86,8 @@ stackPicturesAtOff i = mconcat . zipWith (drawListElement 10 1 0) [i, i -1 ..]
 selSecDrawCursor :: Int -> ListDisplayParams -> SelectionSections a -> Picture
 selSecDrawCursor xsize ldp sss = fromMaybe mempty $ do
     (i, j) <- sss ^? sssExtra . sssSelPos . _Just
-    yint <- selSecYint i j sss
+    --yint <- selSecYint i j sss
+    yint <- sss ^? sssSections . ix i . ssCursor . _Just . scurPos
     xint <- sss ^? sssSections . ix i . ssIndent
     si <- sss ^? sssSections . ix i . ssItems . ix j
     return $
@@ -98,7 +99,7 @@ selSecDrawCursor xsize ldp sss = fromMaybe mempty $ do
             xint
             (_siColor si)
             xsize
-            (length $ _siPictures si)
+            (_siHeight si)
 
 -- displays a cursor that should match up to list text pictures
 listCursorChooseBorderScale ::