Start simplifying mouse inventory selection

src/Dodge/SelectionSections.hs

@@ -41,11 +41,12 @@ ssScrollUsing ::
     SelectionSections a
 ssScrollUsing g sss =
     sss & sssExtra . sssSelPos
-        .~ fmap f (ssScrollUsing' g (sss & sssSections %~ fmap (ssItems %~ IM.filter _siIsSelectable)))
+        .~ fmap f (ssScrollSelectable g 
+                (sss & sssSections %~ fmap (ssItems %~ IM.filter _siIsSelectable)))
   where
     f (i, j, _) = (i, j)
 
-ssScrollUsing' ::
+ssScrollSelectable ::
     ( Int ->
       Int ->
       SelectionSections a ->
@@ -53,7 +54,7 @@ ssScrollUsing' ::
     ) ->
     SelectionSections a ->
     Maybe (Int, Int, SelectionItem a)
-ssScrollUsing' f sss = l <|> ssLookupMin sss
+ssScrollSelectable f sss = l <|> ssLookupMin sss
   where
     l = do
         (i, j) <- sss ^? sssExtra . sssSelPos . _Just
@@ -188,6 +189,7 @@ inverseSelNumPos ::
 inverseSelNumPos cfig ldp sss (V2 x y) =
     inverseSelSecYintXPosCheck cfig ldp x (posSelSecYint cfig ldp y) sss
 
+
 inverseSelBoundaryUp :: 
     Configuration ->
     ListDisplayParams ->