twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

'XMonad.Util.Rectangle': 'withBorder' fixes

Browse Source 
Fix handling of negative borders in 'withBorder'.
This commit is contained in:
Yclept Nemo 2018-04-19 18:23:46 -04:00
parent cc00a93f1a
commit 31bfcc217f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
XMonad/Util/Rectangle.hs
View File

@ -179,12 +179,12 @@ withBorder t b r l i (Rectangle x y w h) =
bh = w' - iw bh = w' - iw
bv = h' - ih bv = h' - ih
-- scaled border ratios -- scaled border ratios
rh = if l + r == 0 rh = if l + r <= 0
then 1 then 1
else min 1 $ abs $ bh % (l + r) else min 1 $ bh % (l + r)
rv = if t + b == 0 rv = if t + b <= 0
then 1 then 1
else min 1 $ abs $ bv % (t + b) else min 1 $ bv % (t + b)
-- scaled border pixels -- scaled border pixels
t' = truncate $ rv * fromIntegral t t' = truncate $ rv * fromIntegral t
b' = truncate $ rv * fromIntegral b b' = truncate $ rv * fromIntegral b