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

X.Prompt: Document destroyComplWin

Browse Source
This commit is contained in:
slotThe 2021-04-14 20:32:33 +02:00
parent aa35d6a2f2
commit 6036151ca7
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
XMonad/Prompt.hs
View File

@ -1514,14 +1514,13 @@ getCompletions = do
XPSingleMode compl _ -> compl XPSingleMode compl _ -> compl
XPMultipleModes modes -> completionFunction $ W.focus modes XPMultipleModes modes -> completionFunction $ W.focus modes
-- | Destroy the currently drawn completion window, if there is one.
destroyComplWin :: XP () destroyComplWin :: XP ()
destroyComplWin = do destroyComplWin = do
d <- gets dpy XPS{ dpy, complWin, complWinRef } <- get
cw <- gets complWin case complWin of
wr <- gets complWinRef Just w -> do io $ destroyWindow dpy w
case cw of io $ writeIORef complWinRef Nothing
Just w -> do io $ destroyWindow d w
io $ writeIORef wr Nothing
modify (\s -> s { complWin = Nothing, complWinDim = Nothing }) modify (\s -> s { complWin = Nothing, complWinDim = Nothing })
Nothing -> return () Nothing -> return ()