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

fix prompt width

Browse Source
This commit is contained in:
Bogdan Sinitsyn 2015-12-28 19:37:52 +03:00
parent 0447c76d48
commit becb724f95
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Prompt.hs
View File

@ -859,7 +859,7 @@ drawWin = do
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 = case position c of wh = case position c of
CenteredAt _ wd -> floor $ ((1 - wd) / 2) * fi (widthOfScreen scr) CenteredAt _ wd -> floor $ wd * fi (widthOfScreen scr)
_ -> widthOfScreen scr _ -> widthOfScreen scr
ht = height c ht = height c
bw = promptBorderWidth c bw = promptBorderWidth c