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

add customization for prompt position

Browse Source
This commit is contained in:
Bogdan Sinitsyn
2015-12-28 14:49:36 +03:00
parent cc7ddcfa60
commit edd6b8be55
1 changed files with 11 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
XMonad/Prompt.hs
View File

@@ -228,6 +228,8 @@ class XPrompt t where
data XPPosition = Top
| Bottom
| CenteredAt { xpHeight :: Rational
, xpWidth :: Rational }
deriving (Show,Read)
amberXPConfig, defaultXPConfig, greenXPConfig :: XPConfig
@@ -842,8 +844,12 @@ createWin d rw c s = do
let (x,y) = case position c of
Top -> (0,0)
Bottom -> (0, rect_height s - height c)
CenteredAt py w -> (floor $ fi (rect_width s) * ((1 - w) / 2), floor $ py * fi (rect_height s))
width = case position c of
CenteredAt _ w -> floor $ fi (rect_width s) * w
_ -> rect_width s
w <- mkUnmanagedWindow d (defaultScreenOfDisplay d) rw
(rect_x s + x) (rect_y s + fi y) (rect_width s) (height c)
(rect_x s + x) (rect_y s + fi y) width (height c)
mapWindow d w
return w
@@ -935,7 +941,9 @@ getComplWinDim :: [String] -> XP ComplWindowDim
getComplWinDim compl = do
st <- get
let (c,(scr,fs)) = (config &&& screen &&& fontS) st
wh = rect_width scr
wh = case position c of
CenteredAt _ w -> floor $ fi (rect_width scr) * w
_ -> rect_width scr
ht = height c
tws <- mapM (textWidthXMF (dpy st) fs) compl
@@ -953,6 +961,7 @@ getComplWinDim compl = do
(x,y) = case position c of
Top -> (0,ht)
Bottom -> (0, (0 + rem_height - actual_height))
CenteredAt py w -> (floor $ fi (rect_width scr) * ((1 - w) / 2), ht + floor (py * fi (rect_height scr)))
(asc,desc) <- io $ textExtentsXMF fs $ head compl
let yp = fi $ (ht + fi (asc - desc)) `div` 2
xp = (asc + desc) `div` 2