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

fix border drawing

Browse Source
This commit is contained in:
Bogdan Sinitsyn
2015-12-28 15:14:35 +03:00
parent edd6b8be55
commit e47794148c
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad/Prompt.hs
View File

@@ -858,7 +858,9 @@ drawWin = do
st <- get st <- get
let (c,(d,(w,gc))) = (config &&& dpy &&& win &&& gcon) st let (c,(d,(w,gc))) = (config &&& dpy &&& win &&& gcon) st
scr = defaultScreenOfDisplay d scr = defaultScreenOfDisplay d
wh = widthOfScreen scr wh = case position c of
CenteredAt _ wd -> floor $ ((1 - wd) / 2) * fi (widthOfScreen scr)
_ -> widthOfScreen scr
ht = height c ht = height c
bw = promptBorderWidth c bw = promptBorderWidth c
Just bgcolor <- io $ initColor d (bgColor c) Just bgcolor <- io $ initColor d (bgColor c)