aboutsummaryrefslogtreecommitdiff
path: root/src/backend/tau/api/channel.clj
diff options
context:
space:
mode:
authorMiguel Ángel Moreno <mail@migalmoreno.com>2022-12-29 01:53:08 +0100
committerMiguel Ángel Moreno <mail@migalmoreno.com>2022-12-29 01:53:08 +0100
commitdfcc61063822dfb0fe699896da312249e93d5439 (patch)
treec1dc29de45cfe4ae67f104510dc3c4b6d858aa46 /src/backend/tau/api/channel.clj
parent6382ec24c5bbbf93ced1e587103a52b3a63e6045 (diff)
feat(backend): Remove records and simplify API
Diffstat (limited to 'src/backend/tau/api/channel.clj')
-rw-r--r--src/backend/tau/api/channel.clj38
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))}))))