Fix indentation display of indented sections

2024-11-24 14:07:54 +00:00
parent 5bea148556
commit e6c2b659fd
6 changed files with 42 additions and 36 deletions
@@ -457,7 +457,9 @@ selNumPosCardinal ::
 selNumPosCardinal card cfig ldp sss i j = do
    ipos <- selSecYint i j sss
    size <- selSecSelSize i j sss
-    indent <- sss ^? ix i . ssItems . ix j . siOffX
+    itmindent <- sss ^? ix i . ssItems . ix j . siOffX
+    sindent <- sss ^? ix i . ssIndent
+    let indent = itmindent + sindent
    let offset = cardEightVec card * V2 0 (fromIntegral size * 0.5 * 20 * s)
    return $
        screenPosAbs cfig (ldp ^. ldpPos)