From 9361d6444548748445db1548d0e3a6291d802bd3 Mon Sep 17 00:00:00 2001 From: Miguel Ángel Moreno Date: Mon, 26 Dec 2022 21:46:15 +0100 Subject: feat: Abstract away result items into standalone namespace --- src/backend/tau/api/search.clj | 18 ++++-------------- 1 file changed, 4 insertions(+), 14 deletions(-) (limited to 'src/backend/tau/api/search.clj') diff --git a/src/backend/tau/api/search.clj b/src/backend/tau/api/search.clj index 106999d..9f3132f 100644 --- a/src/backend/tau/api/search.clj +++ b/src/backend/tau/api/search.clj @@ -1,10 +1,8 @@ (ns tau.api.search (:require - [tau.api.stream :as stream] - [tau.api.channel :as channel] - [tau.api.playlist :as playlist] [clojure.java.data :as j] - [ring.util.codec :refer [url-encode url-decode]]) + [ring.util.codec :refer [url-encode url-decode]] + [tau.api.result :as result]) (:import org.schabi.newpipe.extractor.search.SearchInfo org.schabi.newpipe.extractor.InfoItem @@ -17,14 +15,6 @@ (defrecord SearchResultPage [items next-page]) -(defn get-results - [items] - (map #(case (.name (.getInfoType %)) - "STREAM" (stream/get-result %) - "CHANNEL" (channel/get-result %) - "PLAYLIST" (playlist/get-result %)) - items)) - (defn get-info ([service-id query content-filters sort-filter] (let [service (NewPipe/getService service-id) @@ -33,7 +23,7 @@ (fromQuery query (or content-filters '()) (or sort-filter ""))) info (SearchInfo/getInfo service query-handler)] (map->SearchResult - {:items (get-results (.getRelatedItems info)) + {:items (result/get-results (.getRelatedItems info)) :next-page (j/from-java (.getNextPage info)) :search-suggestion (.getSearchSuggestion info) :corrected-search? (.isCorrectedSearch info)}))) @@ -45,5 +35,5 @@ (fromQuery query (or content-filters '()) (or sort-filter ""))) info (SearchInfo/getMoreItems service query-handler (Page. url))] (map->SearchResultPage - {:items (get-results (.getItems info)) + {:items (result/get-results (.getItems info)) :next-page (j/from-java (.getNextPage info))})))) -- cgit v1.2.3