diff options
| -rw-r--r-- | XMonad/Prompt.hs | 3 | ||||
| -rw-r--r-- | XMonad/Prompt/Shell.hs | 1 |
2 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs index 87d4498..d6b44eb 100644 --- a/XMonad/Prompt.hs +++ b/XMonad/Prompt.hs @@ -193,7 +193,6 @@ class XPrompt t where -- | This method is used to generate the string to be passed to -- the completion function. - -- This function is not used when in multiple modes (because alwaysHighlight in XPConfig is True) commandToComplete :: t -> String -> String commandToComplete _ = getLastWord @@ -367,7 +366,7 @@ mkXPromptWithReturn t conf compl action = do --When it is false, it is handled depending on the prompt buffer's value let selectedCompletion = case alwaysHighlight (config st') of False -> command st' - True -> fromMaybe "" $ highlightedCompl st' + True -> fromMaybe (command st') $ highlightedCompl st' -- Just <$> action selectedCompletion else return Nothing diff --git a/XMonad/Prompt/Shell.hs b/XMonad/Prompt/Shell.hs index 05ee5f4..93308bc 100644 --- a/XMonad/Prompt/Shell.hs +++ b/XMonad/Prompt/Shell.hs @@ -62,6 +62,7 @@ data Shell = Shell instance XPrompt Shell where showXPrompt Shell = "Run: " completionToCommand _ = escape + commandToComplete _ c = c shellPrompt :: XPConfig -> X () shellPrompt c = do |