Move item inv size and item dimensions from records to external function

src/Dodge/Render/List.hs

@@ -67,8 +67,7 @@ makeSelectionListPictures = concatMap f
   where
     f si = map (color (_siColor si) . text) $ _siPictures si
 
--- note this does not take into account any selectionsection indent, nor the LDP
--- selection width
+-- note this does not take into account any selectionsection indent
 drawCursorAt ::
     Maybe Int ->
     [SelectionItem a] ->
@@ -125,13 +124,11 @@ selSecDrawCursorAt ldp curs sss (i, j) = fold $ do
             (_siHeight si)
 
 selSecDrawCursor ::
---    Int ->
     ListDisplayParams ->
     CursorDisplay ->
     IM.IntMap (SelectionSection a) ->
     Maybe (Int, Int) ->
     Picture
---selSecDrawCursor xsize ldp curs = maybe mempty . selSecDrawCursorAt xsize ldp curs
 selSecDrawCursor ldp curs = maybe mempty . selSecDrawCursorAt ldp curs
 
 -- displays a cursor that should match up to list text pictures