Limit terminal input to 42 characters

src/Dodge/Render/List.hs

@@ -4,7 +4,6 @@ module Dodge.Render.List (
     renderListAt,
     drawList,
     drawSelectionList,
-    drawSelectionListBackground,
     drawListYgapScaleYoff,
     drawListElement,
     dShadCol,
@@ -55,20 +54,6 @@ drawTitleBackground cfig =
         . reverse
         $ rectNSWE 70 0 0 560
 
-drawSelectionListBackground ::
-    LDParams ->
-    Config ->
-    Int -> -- list length
-    Picture
-drawSelectionListBackground ldp cfig l =
-    translateScreenPos cfig (ldp ^. ldpPos)
-        . polygon
-        . reverse
-        $ rectNSWE 5 s (-5) e
-  where
-    s = -(5 + fromIntegral l * (20 * ldp ^. ldpScale + ldp ^. ldpVerticalGap))
-    e = 555 -- HACK isOverTerminalScreen
-
 makeSelectionListPictures :: [SelectionItem a] -> [Picture]
 makeSelectionListPictures = concatMap f
   where