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

X.Prompt: Document printPrompt

Browse Source
This commit is contained in:
slotThe 2021-04-14 20:25:18 +02:00
parent 548595ed34
commit 96640f7aae
1 changed files with 18 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
XMonad/Prompt.hs
View File

@ -1469,32 +1469,34 @@ redrawComplWin compl = do
modify (\s -> s { complWin = Just w, complWinDim = Just wi }) modify (\s -> s { complWin = Just w, complWinDim = Just wi })
return w return w
-- | Print the main part of the prompt: the prompter, as well as the
-- command line (including the current input) and the cursor.
printPrompt :: Drawable -> XP () printPrompt :: Drawable -> XP ()
printPrompt drw = do printPrompt drw = do
st <- get st@XPS{ prompter, color, gcon, config, dpy, fontS, offset } <- get
let (pr,(cr,gc)) = (prompter &&& color &&& gcon) st let -- (prompt-specific text before the command, the entered command)
(c,(d,fs)) = (config &&& dpy &&& fontS) st (prt, com) = (prompter . show . currentXPMode &&& command) st
(prt,(com,off)) = (pr . show . currentXPMode &&& command &&& offset) st
str = prt ++ com str = prt ++ com
-- break the string in 3 parts: till the cursor, the cursor and the rest -- break the string in 3 parts: till the cursor, the cursor and the rest
(f,p,ss) = if off >= length com (preCursor, cursor, postCursor) = if offset >= length com
then (str, " ","") -- add a space: it will be our cursor ;-) then (str, " ","") -- add a space: it will be our cursor ;-)
else let (a,b) = splitAt off com else let (a, b) = splitAt offset com
in (prt ++ a, [head b], tail b) in (prt ++ a, [head b], tail b)
ht = height c
fsl <- io $ textWidthXMF (dpy st) fs f -- vertical and horizontal text alignment
psl <- io $ textWidthXMF (dpy st) fs p (asc, desc) <- io $ textExtentsXMF fontS str -- font ascent and descent
(asc,desc) <- io $ textExtentsXMF fs str let y = fi ((height config - fi (asc + desc)) `div` 2) + asc
let y = fi $ ((ht - fi (asc + desc)) `div` 2) + fi asc
x = (asc + desc) `div` 2 x = (asc + desc) `div` 2
let draw = printStringXMF d drw fs gc pcFont <- io $ textWidthXMF dpy fontS preCursor
cFont <- io $ textWidthXMF dpy fontS cursor
let draw = printStringXMF dpy drw fontS gcon
-- print the first part -- print the first part
draw (fgNormal cr) (bgNormal cr) x y f draw (fgNormal color) (bgNormal color) x y preCursor
-- reverse the colors and print the "cursor" ;-) -- reverse the colors and print the "cursor" ;-)
draw (bgNormal cr) (fgNormal cr) (x + fromIntegral fsl) y p draw (bgNormal color) (fgNormal color) (x + fi pcFont) y cursor
-- reverse the colors and print the rest of the string -- flip back to the original colors and print the rest of the string
draw (fgNormal cr) (bgNormal cr) (x + fromIntegral (fsl + psl)) y ss draw (fgNormal color) (bgNormal color) (x + fi (pcFont + cFont)) y postCursor
-- get the current completion function depending on the active mode -- get the current completion function depending on the active mode
getCompletionFunction :: XPState -> ComplFunction getCompletionFunction :: XPState -> ComplFunction