Decouple selection section inventory position

src/Dodge/Render/List.hs

@@ -101,10 +101,11 @@ selSecDrawCursorAt (i,j) xsize ldp sss = fromMaybe mempty $ do
             xsize
             (_siHeight si)
 
-selSecDrawCursor :: Int -> ListDisplayParams -> SelectionSections a -> Picture
-selSecDrawCursor xsize ldp sss = maybe mempty 
+selSecDrawCursor :: Int -> ListDisplayParams -> SelectionSections a -> 
+    Maybe (Int,Int) -> Picture
+selSecDrawCursor xsize ldp sss msel = maybe mempty 
     (\x -> selSecDrawCursorAt x xsize ldp sss)
-    (sss ^? sssExtra . sssSelPos . _Just) 
+    msel
 
 -- displays a cursor that should match up to list text pictures
 listCursorChooseBorderScale ::