diff options
Diffstat (limited to 'src/backend/tau/api/channel.clj')
| -rw-r--r-- | src/backend/tau/api/channel.clj | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/src/backend/tau/api/channel.clj b/src/backend/tau/api/channel.clj deleted file mode 100644 index 89c6a7c..0000000 --- a/src/backend/tau/api/channel.clj +++ /dev/null @@ -1,38 +0,0 @@ -(ns tau.api.channel - (:require - [clojure.java.data :as j] - [ring.util.codec :refer [url-decode]] - [tau.api.result :as result]) - (:import - org.schabi.newpipe.extractor.channel.ChannelInfo - org.schabi.newpipe.extractor.NewPipe - org.schabi.newpipe.extractor.Page)) - -(defrecord Channel - [id name description verified? banner avatar - subscriber-count donation-links next-page - related-streams]) - -(defrecord ChannelPage - [next-page related-streams]) - -(defn get-info - ([url] - (let [info (ChannelInfo/getInfo (url-decode url))] - (map->Channel - {:id (.getId info) - :name (.getName info) - :verified? (.isVerified info) - :banner (.getBannerUrl info) - :avatar (.getAvatarUrl info) - :description (.getDescription info) - :subscriber-count (if (= (.getSubscriberCount info) -1) false (.getSubscriberCount info)) - :donation-links (.getDonationLinks 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 (ChannelInfo/getMoreItems service (url-decode url) (Page. (url-decode page-url)))] - (map->ChannelPage - {:related-streams (result/get-results (.getItems info)) - :next-page (j/from-java (.getNextPage info))})))) |