Remove section-wide indentation

2024-11-24 10:52:20 +00:00
parent aca7ebd808
commit 9529185319
11 changed files with 110 additions and 178 deletions
@@ -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)