Search.searchResultsFocus

unisonweb · Apr 22, 2024 · ada6f07 · ada6f07
1 parent 277f1a6
commit ada6f07
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/src/Lib/Search.elm b/src/Lib/Search.elm
@@ -18,6 +18,7 @@ module Lib.Search exposing
     , searchResults
     , searchResultsCycleNext
     , searchResultsCyclePrev
+    , searchResultsFocus
     , searchResultsNext
     , searchResultsPrev
     , toFailure
@@ -191,6 +192,16 @@ isSearching search_ =
             False
 
 
+searchResultsFocus : Search a -> Maybe a
+searchResultsFocus s =
+    case s of
+        Success _ r ->
+            SearchResults.focus r
+
+        _ ->
+            Nothing
+
+
 searchResultsPrev : Search a -> Search a
 searchResultsPrev s =
     case s of