hCenterWith: account for centered image width properly when computing…

… additional right padding (see also #520)
jtdaugherty · Nov 30, 2024 · 1dd6b21 · 1dd6b21
1 parent 2652a19
commit 1dd6b21
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Brick/Widgets/Center.hs b/src/Brick/Widgets/Center.hs
@@ -60,7 +60,7 @@ hCenterWith mChar p =
            c <- getContext
            let rWidth = result^.imageL.to imageWidth
                rHeight = result^.imageL.to imageHeight
-               remainder = max 0 $ c^.availWidthL - (leftPaddingAmount * 2)
+               remainder = max 0 $ c^.availWidthL - (rWidth + (leftPaddingAmount * 2))
                leftPaddingAmount = max 0 $ (c^.availWidthL - rWidth) `div` 2
                rightPaddingAmount = max 0 $ leftPaddingAmount + remainder
                leftPadding = charFill (c^.attrL) ch leftPaddingAmount rHeight