From dfcc61063822dfb0fe699896da312249e93d5439 Mon Sep 17 00:00:00 2001 From: Miguel Ángel Moreno Date: Thu, 29 Dec 2022 01:53:08 +0100 Subject: feat(backend): Remove records and simplify API --- src/backend/tau/api/search.clj | 39 --------------------------------------- 1 file changed, 39 deletions(-) delete mode 100644 src/backend/tau/api/search.clj (limited to 'src/backend/tau/api/search.clj') diff --git a/src/backend/tau/api/search.clj b/src/backend/tau/api/search.clj deleted file mode 100644 index 9f3132f..0000000 --- a/src/backend/tau/api/search.clj +++ /dev/null @@ -1,39 +0,0 @@ -(ns tau.api.search - (:require - [clojure.java.data :as j] - [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 - org.schabi.newpipe.extractor.NewPipe - org.schabi.newpipe.extractor.Page)) - -(defrecord SearchResult - [items next-page search-suggestion corrected-search?]) - -(defrecord SearchResultPage - [items next-page]) - -(defn get-info - ([service-id query content-filters sort-filter] - (let [service (NewPipe/getService service-id) - query-handler (.. service - (getSearchQHFactory) - (fromQuery query (or content-filters '()) (or sort-filter ""))) - info (SearchInfo/getInfo service query-handler)] - (map->SearchResult - {:items (result/get-results (.getRelatedItems info)) - :next-page (j/from-java (.getNextPage info)) - :search-suggestion (.getSearchSuggestion info) - :corrected-search? (.isCorrectedSearch info)}))) - ([service-id query content-filters sort-filter page-url] - (let [service (NewPipe/getService service-id) - url (url-decode page-url) - query-handler (.. service - (getSearchQHFactory) - (fromQuery query (or content-filters '()) (or sort-filter ""))) - info (SearchInfo/getMoreItems service query-handler (Page. url))] - (map->SearchResultPage - {:items (result/get-results (.getItems info)) - :next-page (j/from-java (.getNextPage info))})))) -- cgit v1.2.3