diff options
| author | Mike Lundy <mike@fluffypenguin.org> | 2009-12-21 03:54:08 +0100 |
|---|---|---|
| committer | Mike Lundy <mike@fluffypenguin.org> | 2009-12-21 03:54:08 +0100 |
| commit | 506a524dbb57a9f7fc9c43f989b8cff4bd595cac (patch) | |
| tree | 54e1a89283b80d2dc7ff18cec1295178ade3e597 /XMonad/Prompt/Window.hs | |
| parent | 1c05da6f3230be66bc62184a72526338c1757877 (diff) | |
| download | XMonadContrib-506a524dbb57a9f7fc9c43f989b8cff4bd595cac.tar.gz XMonadContrib-506a524dbb57a9f7fc9c43f989b8cff4bd595cac.tar.xz XMonadContrib-506a524dbb57a9f7fc9c43f989b8cff4bd595cac.zip | |
Add a search predicate option to XMonad.Prompt
Ignore-this: 8e8804eeb9650d38bc225e15887310da
darcs-hash:20091221025408-88b46-c700aa5d2fdcad96495c23e53f51496be36cbc7c.gz
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Prompt/Window.hs | 3 |
1 files changed, 1 insertions, 2 deletions
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. |