Work on inventory ui

src/Dodge/SelectionSections/Draw.hs

@@ -1,25 +1,20 @@
 module Dodge.SelectionSections.Draw where
 
-import Dodge.ScreenPos
 import Control.Lens
-import Data.Maybe
-import Dodge.Data.CardinalPoint
 import Dodge.Data.Config
 import Dodge.Data.SelectionList
 import Dodge.Render.List
+import Dodge.ScreenPos
 import Picture.Base
 
 drawSelectionSections :: SelectionSections a -> ListDisplayParams -> Configuration -> Picture
-drawSelectionSections sss ldps cfig =
-    translateScreenPos cfig (ldps ^. ldpPos) $
+drawSelectionSections sss ldp cfig =
+    translateScreenPos cfig (ldp ^. ldpPos) $
         listPicturesYgapScaleYoff
-            (_ldpVerticalGap ldps)
-            (_ldpScale ldps)
+            (_ldpVerticalGap ldp)
+            (_ldpScale ldp)
             0
             pics
-            <> thecursor'
+            <> selSecDrawCursor 15 ldp sss
   where
-    thecursor' = fromMaybe mempty $ do
-        (i, j) <- sss ^? sssExtra . sssSelPos . _Just
-        return $ selSecDrawCursor 15 [North, South, West] ldps sss i j
     pics = foldMap _ssShownItems (_sssSections sss)