add TODO

jaspervdj · Feb 9, 2024 · 7194109 · 7194109
1 parent 162b174
commit 7194109
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib/Patat/Presentation/Display.hs b/lib/Patat/Presentation/Display.hs
@@ -88,8 +88,10 @@ displayWithBorders (Size rows columns) pres@Presentation {..} f =
     -- Room left for content
     body = f ds
     topMargin = case mTop $ margins settings of
-        Auto -> let (r, _) = PP.dimensions body in (rows - 4 - r) `div` 2
+        Auto -> let (r, _) = PP.dimensions body in (rows - 2 - r) `div` 2
         NotAuto x -> x
+    -- NOTE: rows in canvasSize seems incorrect, but maybe it's not used?
+    -- topMargin here should match offsetRow in 'displayPresentation'
     canvasSize = Size (rows - 2 - topMargin) columns
 
     -- Compute footer.