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/playlist.clj | 39 --------------------------------------- 1 file changed, 39 deletions(-) delete mode 100644 src/backend/tau/api/playlist.clj (limited to 'src/backend/tau/api/playlist.clj') diff --git a/src/backend/tau/api/playlist.clj b/src/backend/tau/api/playlist.clj deleted file mode 100644 index 8f2b22c..0000000 --- a/src/backend/tau/api/playlist.clj +++ /dev/null @@ -1,39 +0,0 @@ -(ns tau.api.playlist - (:require - [clojure.java.data :as j] - [ring.util.codec :refer [url-decode]] - [tau.api.result :as result]) - (:import - org.schabi.newpipe.extractor.playlist.PlaylistInfo - org.schabi.newpipe.extractor.Page - org.schabi.newpipe.extractor.NewPipe)) - -(defrecord Playlist - [id name playlist-type thumbnail-url uploader-name uploader-url - uploader-avatar banner-url next-page stream-count related-streams]) - -(defrecord PlaylistPage - [next-page related-streams]) - -(defn get-info - ([url] - (let [service (NewPipe/getServiceByUrl (url-decode url)) - info (PlaylistInfo/getInfo service (url-decode url))] - (map->Playlist - {:id (.getId info) - :name (.getName info) - :playlist-type (j/from-java (.getPlaylistType info)) - :thumbnail-url (.getThumbnailUrl info) - :banner-url (.getBannerUrl info) - :uploader-name (.getUploaderName info) - :uploader-url (.getUploaderUrl info) - :uploader-avatar (.getUploaderAvatarUrl info) - :stream-count (.getStreamCount info) - :next-page (j/from-java (.getNextPage info)) - :related-streams (result/get-results (.getRelatedItems info))}))) - ([url page-url] - (let [service (NewPipe/getServiceByUrl (url-decode url)) - info (PlaylistInfo/getMoreItems service url (Page. (url-decode page-url)))] - (map->PlaylistPage - {:next-page (j/from-java (.getNextPage info)) - :related-streams (result/get-results (.getItems info))})))) -- cgit v1.2.3