Remove section-wide indentation

src/Dodge/SelectionSections/Draw.hs

@@ -51,13 +51,12 @@ drawSSMultiCursor sss msel mextra ldp curs cfig = translateScreenPos cfig (ldp ^
     $ do
         (i, j) <- msel
         yint <- selSecYint i j sss
-        xint <- sss ^? ix i . ssIndent
         ydown <- mextra
         ssitms <- sss ^? ix i . ssItems
         let selitms = fst . IM.split (j + ydown + 1) . snd . IM.split (j -1) $ ssitms
             ysize = sum . fmap _siHeight $ selitms
-            maxoff = maximum . fmap _siOffX $ selitms
-            minoff = minimum . fmap _siOffX $ selitms
+            maxxoff = maximum . fmap _siOffX $ selitms
+            minxoff = minimum . fmap _siOffX $ selitms
         let col = white
 --        col <- fmap (_siColor . fst) $ IM.minView selitms
         return $
@@ -66,7 +65,7 @@ drawSSMultiCursor sss msel mextra ldp curs cfig = translateScreenPos cfig (ldp ^
                 (ldp ^. ldpScale)
                 curs
                 yint
-                (xint + minoff)
+                minxoff
                 col
-                (15 + maxoff - minoff)
+                (15 + maxxoff - minxoff)
                 ysize