twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-06 15:01:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

Add substring filter to td_elementmap

Browse Source
This commit is contained in:
Clemens Fruhwirth
2010-10-16 18:36:44 +00:00
parent 3a35fe3f3d
commit 27fc66bb2c
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
XMonad/Actions/GridSelect.hs
View File

@@ -208,13 +208,15 @@ data TwoDState a = TwoDState { td_curpos :: TwoDPosition
, td_paneX :: Integer , td_paneX :: Integer
, td_paneY :: Integer , td_paneY :: Integer
, td_drawingWin :: Window , td_drawingWin :: Window
, td_searchString :: String
} }
td_elementmap :: TwoDState a -> [(TwoDPosition,(String,a))] td_elementmap :: TwoDState a -> [(TwoDPosition,(String,a))]
td_elementmap s = td_elementmap s =
let positions = td_availSlots s let positions = td_availSlots s
elements = td_elements s elements = L.filter (((td_searchString s) `isSubstringOf`) . fst) (td_elements s)
in zipWith (,) positions elements in zipWith (,) positions elements
where sub `isSubstringOf` string = or [ sub `isPrefixOf` t | t <- tails string ]
newtype TwoD a b = TwoD { unTwoD :: StateT (TwoDState a) X b } newtype TwoD a b = TwoD { unTwoD :: StateT (TwoDState a) X b }
deriving (Monad,Functor,MonadState (TwoDState a)) deriving (Monad,Functor,MonadState (TwoDState a))
@@ -455,7 +457,8 @@ gridselect gsconfig elements =
td_font = font, td_font = font,
td_paneX = screenWidth, td_paneX = screenWidth,
td_paneY = screenHeight, td_paneY = screenHeight,
td_drawingWin = win } td_drawingWin = win,
td_searchString = "" }
else else
return Nothing return Nothing
liftIO $ do liftIO $ do