twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 12:41:52 -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_paneY :: Integer
, td_drawingWin :: Window
, td_searchString :: String
}
td_elementmap :: TwoDState a -> [(TwoDPosition,(String,a))]
td_elementmap 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
where sub `isSubstringOf` string = or [ sub `isPrefixOf` t | t <- tails string ]
newtype TwoD a b = TwoD { unTwoD :: StateT (TwoDState a) X b }
deriving (Monad,Functor,MonadState (TwoDState a))
@@ -455,7 +457,8 @@ gridselect gsconfig elements =
td_font = font,
td_paneX = screenWidth,
td_paneY = screenHeight,
td_drawingWin = win }
td_drawingWin = win,
td_searchString = "" }
else
return Nothing
liftIO $ do