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 redrawComplWin

Browse Source
This commit is contained in:
slotThe 2021-04-14 20:24:11 +02:00
parent b7dbc277a7
commit 548595ed34
1 changed files with 30 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
XMonad/Prompt.hs
View File

@ -1439,6 +1439,36 @@ redrawWindows emptyAction compls = do
io $ copyArea dpy pm win gcon 0 0 width ht 0 0 io $ copyArea dpy pm win gcon 0 0 width ht 0 0
io $ freePixmap dpy pm io $ freePixmap dpy pm
-- | Redraw the completion window, if necessary.
redrawComplWin :: [String] -> XP ()
redrawComplWin compl = do
XPS{ showComplWin, complWinDim, complWin } <- get
nwi <- getComplWinDim compl
let recreate = do destroyComplWin
w <- createComplWin nwi
drawComplWin w compl
if compl /= [] && showComplWin
then case complWin of
Just w -> case complWinDim of
Just wi -> if nwi == wi -- complWinDim did not change
then drawComplWin w compl -- so update
else recreate
Nothing -> recreate
Nothing -> recreate
else destroyComplWin
where
createComplWin :: ComplWindowDim -> XP Window
createComplWin wi@ComplWindowDim{ cwX, cwY, cwWidth, cwRowHeight } = do
XPS{ dpy, rootw, complWinRef } <- get
let scr = defaultScreenOfDisplay dpy
w <- io $ mkUnmanagedWindow dpy scr rootw cwX cwY cwWidth cwRowHeight
io $ mapWindow dpy w
-- Update the IORef
io $ writeIORef complWinRef (Just w)
-- Set the completion window to the just created one
modify (\s -> s { complWin = Just w, complWinDim = Just wi })
return w
printPrompt :: Drawable -> XP () printPrompt :: Drawable -> XP ()
printPrompt drw = do printPrompt drw = do
st <- get st <- get
@ -1481,12 +1511,6 @@ getCompletions = do
srt = sorter (config s) srt = sorter (config s)
io $ (srt q <$> compl q) `E.catch` \(SomeException _) -> return [] io $ (srt q <$> compl q) `E.catch` \(SomeException _) -> return []
setComplWin :: Window -> ComplWindowDim -> XP ()
setComplWin w wi = do
wr <- gets complWinRef
io $ writeIORef wr (Just w)
modify (\s -> s { complWin = Just w, complWinDim = Just wi })
destroyComplWin :: XP () destroyComplWin :: XP ()
destroyComplWin = do destroyComplWin = do
d <- gets dpy d <- gets dpy
@ -1498,16 +1522,6 @@ destroyComplWin = do
modify (\s -> s { complWin = Nothing, complWinDim = Nothing }) modify (\s -> s { complWin = Nothing, complWinDim = Nothing })
Nothing -> return () Nothing -> return ()
createComplWin :: ComplWindowDim -> XP Window
createComplWin wi@ComplWindowDim{ cwX, cwY, cwWidth, cwRowHeight } = do
st <- get
let d = dpy st
scr = defaultScreenOfDisplay d
w <- io $ mkUnmanagedWindow d scr (rootw st) cwX cwY cwWidth cwRowHeight
io $ mapWindow d w
setComplWin w wi
return w
getComplWinDim :: [String] -> XP ComplWindowDim getComplWinDim :: [String] -> XP ComplWindowDim
getComplWinDim compl = do getComplWinDim compl = do
st <- get st <- get
@ -1568,23 +1582,6 @@ drawComplWin w compl = do
io $ copyArea d p w gc 0 0 cwWidth cwRowHeight 0 0 io $ copyArea d p w gc 0 0 cwWidth cwRowHeight 0 0
io $ freePixmap d p io $ freePixmap d p
redrawComplWin :: [String] -> XP ()
redrawComplWin compl = do
st <- get
nwi <- getComplWinDim compl
let recreate = do destroyComplWin
w <- createComplWin nwi
drawComplWin w compl
if compl /= [] && showComplWin st
then case complWin st of
Just w -> case complWinDim st of
Just wi -> if nwi == wi -- complWinDim did not change
then drawComplWin w compl -- so update
else recreate
Nothing -> recreate
Nothing -> recreate
else destroyComplWin
-- 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)
findComplIndex :: String -> [[String]] -> (Int,Int) findComplIndex :: String -> [[String]] -> (Int,Int)