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 drawComplWin

Browse Source
This commit is contained in:
slotThe 2021-04-14 20:32:13 +02:00
parent 2f6546a8d6
commit 5f58fb5cd1
1 changed files with 12 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
XMonad/Prompt.hs
View File

@ -1579,29 +1579,24 @@ getComplWinDim compl = do
pure $ ComplWindowDim x y winWidth rowHeight xCols yRows pure $ ComplWindowDim x y winWidth rowHeight xCols yRows
-- | Draw the completion window.
drawComplWin :: Window -> [String] -> XP () drawComplWin :: Window -> [String] -> XP ()
drawComplWin w compl = do drawComplWin w compl = do
st <- get XPS{ config, color, dpy, gcon } <- get
let c = config st let scr = defaultScreenOfDisplay dpy
cr = color st bw = promptBorderWidth config
d = dpy st Just bgcolor <- io $ initColor dpy (bgNormal color)
scr = defaultScreenOfDisplay d Just borderC <- io $ initColor dpy (border color)
bw = promptBorderWidth c ComplWindowDim{ cwWidth, cwRowHeight, cwCols, cwRows } <- getComplWinDim compl
gc = gcon st
Just bgcolor <- io $ initColor d (bgNormal cr)
Just borderC <- io $ initColor d (border cr)
ComplWindowDim{cwWidth,cwRowHeight,cwCols,cwRows} <- getComplWinDim compl p <- io $ createPixmap dpy w cwWidth cwRowHeight (defaultDepthOfScreen scr)
io $ fillDrawable dpy p gcon borderC bgcolor (fi bw) cwWidth cwRowHeight
p <- io $ createPixmap d w cwWidth cwRowHeight
(defaultDepthOfScreen scr)
io $ fillDrawable d p gc borderC bgcolor (fi bw) cwWidth cwRowHeight
let ac = chunksOf (length cwRows) (take (length cwCols * length cwRows) compl) let ac = chunksOf (length cwRows) (take (length cwCols * length cwRows) compl)
printComplList d p gc (fgNormal cr) (bgNormal cr) cwCols cwRows ac printComplList dpy p gcon (fgNormal color) (bgNormal color) cwCols cwRows ac
--lift $ spawn $ "xmessage " ++ " ac: " ++ show ac ++ " xx: " ++ show xx ++ " length xx: " ++ show (length xx) ++ " yy: " ++ show (length yy) --lift $ spawn $ "xmessage " ++ " ac: " ++ show ac ++ " xx: " ++ show xx ++ " length xx: " ++ show (length xx) ++ " yy: " ++ show (length yy)
io $ copyArea d p w gc 0 0 cwWidth cwRowHeight 0 0 io $ copyArea dpy p w gcon 0 0 cwWidth cwRowHeight 0 0
io $ freePixmap d p io $ freePixmap dpy p
-- Finds the column and row indexes in which a string appears. -- Finds the column and row indexes in which a string appears.
-- if the string is not in the matrix, the indexes default to (0,0) -- if the string is not in the matrix, the indexes default to (0,0)