Cleanup, hide item selection cursor when in terminal

src/Dodge/SelectionSections/Draw.hs

@@ -13,7 +13,7 @@ import Dodge.ScreenPos
 import Dodge.SelectionSections
 import Picture.Base
 
-drawSelectionSections :: IM.IntMap (SelSection a) -> ListDisplayParams -> Config -> Picture
+drawSelectionSections :: IM.IntMap (SelSection a) -> LDParams -> Config -> Picture
 drawSelectionSections sss ldp cfig =
     translateScreenPos cfig (ldp ^. ldpPos) $
         drawListYgapScaleYoff
@@ -29,12 +29,7 @@ drawSelectionSections sss ldp cfig =
             )
 
 drawSSCursor ::
-    IM.IntMap (SelSection a) ->
-    ListDisplayParams ->
-    CursorDisplay ->
-    Config ->
-    Maybe (Int, Int) ->
-    Picture
+    IM.IntMap (SelSection a) -> LDParams -> CursorDisplay -> Config -> Maybe (Int, Int) -> Picture
 drawSSCursor sss ldp curs cfig =
     translateScreenPos cfig (ldp ^. ldpPos) .
         selSecDrawCursor ldp curs sss
@@ -43,7 +38,7 @@ drawSSMultiCursor ::
     IM.IntMap (SelSection a) ->
     Maybe (Int, Int) ->
     Maybe Int ->
-    ListDisplayParams ->
+    LDParams ->
     CursorDisplay ->
     Config ->
     Picture