Allow for indentation of individual selection items

src/Dodge/Render/List.hs

@@ -12,6 +12,7 @@ module Dodge.Render.List (
     listCursorChooseBorderScale,
 ) where
 
+import Dodge.Data.DoubleTree
 import Dodge.SelectionSections
 import Data.Maybe
 import Dodge.Base.Window
@@ -75,6 +76,9 @@ getLDPWidth ldps = case _ldpWidth ldps of
 drawListYoff :: Int -> [Picture] -> Picture
 drawListYoff = drawListYgapScaleYoff 0 1
 
+drawTreeYgapScaleYoff :: Float -> Float -> Int -> DoubleTree [Picture] -> Picture
+drawTreeYgapScaleYoff ygap s i = undefined
+
 drawListYgapScaleYoff :: Float -> Float -> Int -> [Picture] -> Picture
 drawListYgapScaleYoff ygap s i = mconcat . zipWith (drawListElement ygap s 0) [i ..]
 
@@ -96,7 +100,7 @@ selSecDrawCursor xsize ldp sss = fromMaybe mempty $ do
             (ldp ^. ldpScale)
             (ldp ^. ldpCursorSides)
             yint
-            xint
+            (xint + _siOffX si)
             (_siColor si)
             xsize
             (_siHeight si)