From 8ddbb295aabb24362c49dd368b64a08cd48c3aa9 Mon Sep 17 00:00:00 2001 From: "c.lopez" Date: Sat, 9 Feb 2013 20:04:56 +0100 Subject: spawn command when no completion is available (if alwaysHighlight is True); changes commandToComplete in Prompt/Shell to complete the whole word instead of using getLastWord Ignore-this: ca7d354bb301b555b64d5e76e31d10e8 darcs-hash:20130209190456-c3db2-5bb4a8a2aa97c180814ca90a090054efc36d4cfe.gz --- XMonad/Prompt.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'XMonad/Prompt.hs') 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 -- cgit v1.2.3