diff options
| author | Clemens Fruhwirth <clemens@endorphin.org> | 2010-10-16 23:29:04 +0200 |
|---|---|---|
| committer | Clemens Fruhwirth <clemens@endorphin.org> | 2010-10-16 23:29:04 +0200 |
| commit | e340dfa45668ac119ebddc0d9645fa801c6e8e85 (patch) | |
| tree | 83c94e15923a3dc97fff99d0233a39359f719635 /XMonad | |
| parent | 4d1dd4f341d876c7fa7a2738585855cb4e5e8fc1 (diff) | |
| download | XMonadContrib-e340dfa45668ac119ebddc0d9645fa801c6e8e85.tar.gz XMonadContrib-e340dfa45668ac119ebddc0d9645fa801c6e8e85.tar.xz XMonadContrib-e340dfa45668ac119ebddc0d9645fa801c6e8e85.zip | |
Make substring search case insensitive
Ignore-this: dce1ae9e4164c24447ae9c79c4557f11
darcs-hash:20101016212904-ed0c4-97eb2fdce04a77c3ea64a65e4bd5074ee6256453.gz
Diffstat (limited to 'XMonad')
| -rw-r--r-- | XMonad/Actions/GridSelect.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/XMonad/Actions/GridSelect.hs b/XMonad/Actions/GridSelect.hs index 91735ed..434d1d1 100644 --- a/XMonad/Actions/GridSelect.hs +++ b/XMonad/Actions/GridSelect.hs @@ -53,6 +53,7 @@ module XMonad.Actions.GridSelect ( ) where import Data.Maybe import Data.Bits +import Data.Char import Control.Applicative import Control.Monad.State import Control.Arrow @@ -216,7 +217,8 @@ td_elementmap s = let positions = td_availSlots s elements = L.filter (((td_searchString s) `isSubstringOf`) . fst) (td_elements s) in zipWith (,) positions elements - where sub `isSubstringOf` string = or [ sub `isPrefixOf` t | t <- tails string ] + where sub `isSubstringOf` string = or [ (upper sub) `isPrefixOf` t | t <- tails (upper string) ] + upper = map toUpper newtype TwoD a b = TwoD { unTwoD :: StateT (TwoDState a) X b } deriving (Monad,Functor,MonadState (TwoDState a)) |