Remove section-wide indentation

src/Dodge/Render/HUD.hs

@@ -422,17 +422,6 @@ invHead cfig =
 --textSelItems :: [String] -> [SelectionItem ()]
 --textSelItems = map (picsToSelectable . (: []))
 
---picsToSelectable :: [String] -> SelectionItem ()
---picsToSelectable pics =
---    SelectionItem
---        { _siPictures = pics
---        , _siHeight = length pics
---        , _siIsSelectable = True
---        , _siColor = white
---        , _siOffX = 0
---        , _siPayload = ()
---        }
-
 -- would be nice to add parameter to orient this with NSEW, cf cursor
 selNumPos ::
     Configuration ->

src/Dodge/Render/List.hs

@@ -113,7 +113,6 @@ selSecDrawCursorAt ::
     Picture
 selSecDrawCursorAt xsize ldp curs sss (i, j) = fold $ do
     yint <- selSecYint i j sss
-    xint <- sss ^? ix i . ssIndent
     si <- sss ^? ix i . ssItems . ix j
     return $
         listCursorChooseBorderScale
@@ -121,7 +120,7 @@ selSecDrawCursorAt xsize ldp curs sss (i, j) = fold $ do
             (ldp ^. ldpScale)
             curs
             yint
-            (xint + _siOffX si)
+            (_siOffX si)
             (_siColor si)
             xsize
             (_siHeight si)