aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--XMonad/Prompt.hs9
-rw-r--r--XMonad/Prompt/Window.hs3
2 files changed, 8 insertions, 4 deletions
diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs
index a8646e1..087da9f 100644
--- a/XMonad/Prompt.hs
+++ b/XMonad/Prompt.hs
@@ -138,7 +138,10 @@ data XPConfig =
, defaultText :: String -- ^ The text by default in the prompt line
, autoComplete :: Maybe Int -- ^ Just x: if only one completion remains, auto-select it,
, showCompletionOnTab :: Bool -- ^ Only show list of completions when Tab was pressed
- -- and delay by x microseconds
+ -- and delay by x microseconds
+ , searchPredicate :: String -> String -> Bool
+ -- ^ Given the typed string and a possible
+ -- completion, is the completion valid?
}
data XPType = forall p . XPrompt p => XPT p
@@ -212,7 +215,9 @@ defaultXPConfig =
, historyFilter = id
, defaultText = []
, autoComplete = Nothing
- , showCompletionOnTab = False }
+ , showCompletionOnTab = False
+ , searchPredicate = isPrefixOf
+ }
greenXPConfig = defaultXPConfig { fgColor = "green", bgColor = "black" }
amberXPConfig = defaultXPConfig { fgColor = "#ca8f2d", bgColor = "black", fgHLight = "#eaaf4c" }
diff --git a/XMonad/Prompt/Window.hs b/XMonad/Prompt/Window.hs
index 0f0ed2a..a5b6aeb 100644
--- a/XMonad/Prompt/Window.hs
+++ b/XMonad/Prompt/Window.hs
@@ -24,7 +24,6 @@ module XMonad.Prompt.Window
) where
import qualified Data.Map as M
-import Data.List
import qualified XMonad.StackSet as W
import XMonad
@@ -89,7 +88,7 @@ doPrompt t c = do
bringAction = winAction bringWindow
bringCopyAction = winAction bringCopyWindow
- compList m s = return . filter (isPrefixOf s) . map fst . M.toList $ m
+ compList m s = return . filter (searchPredicate c s) . map fst . M.toList $ m
-- | Brings a copy of the specified window into the current workspace.