From e98d666447061b85394f7bc8f1eca82f6c222fcb Mon Sep 17 00:00:00 2001 From: slotThe Date: Sat, 19 Feb 2022 11:52:09 +0100 Subject: [PATCH] X.U.XUtils: Fix alignment in showSimpleWindow --- XMonad/Util/XUtils.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/XMonad/Util/XUtils.hs b/XMonad/Util/XUtils.hs index bf012665..77c67d4b 100644 --- a/XMonad/Util/XUtils.hs +++ b/XMonad/Util/XUtils.hs @@ -223,7 +223,7 @@ showSimpleWindow WindowConfig{..} strs = do x = sx + (fi sw - width + 2) `div` 2 y = sy + (fi sh - height + 2) `div` 2 -- y position of first string - yFirst = (height + extends) `div` fi (1 + length strs) + yFirst = (height + 2 * extends) `div` fi (2 + length strs) -- (x starting, y starting) for all strings strPositions = map (pad `div` 2, ) [yFirst, yFirst + extends ..]