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

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