Add SearchResults.filterMatches

Author: hojberg

src/Lib/Search.elm

@@ -4,6 +4,7 @@ module Lib.Search exposing
     , debounce
     , debounce_
     , empty
+    , fromList
     , fromResult
     , hasSubstantialQuery
     , isEmptyQuery
@@ -64,6 +65,11 @@ search query_ =
     NotAsked query_
 
 
+fromList : String -> List a -> Search a
+fromList q matches =
+    Success q (SearchResults.fromList matches)
+
+
 
 -- TRANSFORM
 

src/Lib/SearchResults.elm

@@ -5,6 +5,7 @@ module Lib.SearchResults exposing
     , cycleNext
     , cyclePrev
     , empty
+    , filterMatches
     , focus
     , focusOn
     , from
@@ -110,6 +111,24 @@ mapToList f results =
             mapMatchesToList f matches
 
 
+filterMatches : (a -> Bool) -> SearchResults a -> SearchResults a
+filterMatches f results =
+    case results of
+        Empty ->
+            Empty
+
+        SearchResults (Matches matches) ->
+            SearchResults
+                (Matches
+                    (matches
+                        |> Zipper.toList
+                        |> List.filter f
+                        |> Zipper.fromList
+                        |> Maybe.withDefault matches
+                    )
+                )
+
+
 toMaybe : SearchResults a -> Maybe (Matches a)
 toMaybe results =
     case results of