Fix indentation display of indented sections

src/Dodge/SelectionSections/Draw.hs

@@ -25,7 +25,8 @@ drawSelectionSections sss ldp cfig =
             (_ldpVerticalGap ldp)
             (_ldpScale ldp)
             0
-            (foldMap _ssShownItems sss)
+            (foldMap 
+                (\ss -> fmap (translate (100*fromIntegral (_ssIndent ss)) 0) $ _ssShownItems ss) sss)
 
 drawSSCursor ::
     IM.IntMap (SelectionSection a) ->
@@ -53,6 +54,7 @@ drawSSMultiCursor sss msel mextra ldp curs cfig = translateScreenPos cfig (ldp ^
         yint <- selSecYint i j sss
         ydown <- mextra
         ssitms <- sss ^? ix i . ssItems
+        sindent <- sss ^? ix i . ssIndent
         let selitms = fst . IM.split (j + ydown + 1) . snd . IM.split (j -1) $ ssitms
             ysize = sum . fmap _siHeight $ selitms
             maxxoff = maximum . fmap _siOffX $ selitms
@@ -65,7 +67,7 @@ drawSSMultiCursor sss msel mextra ldp curs cfig = translateScreenPos cfig (ldp ^
                 (ldp ^. ldpScale)
                 curs
                 yint
-                minxoff
+                (minxoff + sindent)
                 col
-                (15 + maxxoff - minxoff)
+                (sindent + 15 + maxxoff - minxoff)
                 ysize