twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-26 09:41:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

X.U.XUtils: Fix alignment in showSimpleWindow

Browse Source
This commit is contained in:
slotThe
2022-02-19 11:52:09 +01:00
parent ee3ea2402d
commit e98d666447
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Util/XUtils.hs
View File

@@ -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 ..]