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 getCompletions

Browse Source
This commit is contained in:
slotThe 2021-04-14 20:31:05 +02:00
parent 26c4fb0f2d
commit aa35d6a2f2
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
XMonad/Prompt.hs
View File

@ -1499,20 +1499,20 @@ printPrompt drw = do
-- flip back to the original colors and print the rest of the string
draw (fgNormal color) (bgNormal color) (x + fi (pcFont + cFont)) y postCursor
-- get the current completion function depending on the active mode
getCompletionFunction :: XPState -> ComplFunction
getCompletionFunction st = case operationMode st of
XPSingleMode compl _ -> compl
XPMultipleModes modes -> completionFunction $ W.focus modes
-- Completions
-- | Get all available completions for the current input.
getCompletions :: XP [String]
getCompletions = do
s <- get
let q = commandToComplete (currentXPMode s) (command s)
compl = getCompletionFunction s
srt = sorter (config s)
io $ (srt q <$> compl q) `E.catch` \(SomeException _) -> return []
st@XPS{ config } <- get
let cmd = commandToComplete (currentXPMode st) (command st)
compl = getCompletionFunction st
srt = sorter config
io $ (srt cmd <$> compl cmd) `E.catch` \(SomeException _) -> return []
where
-- | Get the current completion function depending on the active mode.
getCompletionFunction :: XPState -> ComplFunction
getCompletionFunction st = case operationMode st of
XPSingleMode compl _ -> compl
XPMultipleModes modes -> completionFunction $ W.focus modes
destroyComplWin :: XP ()
destroyComplWin = do