blob: 4bc7054d53b561c139eb84b026bdf9c24817b0bc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
(ns tau.api.playlist
(:require
[clojure.java.data :as j]
[tau.api.stream :as stream]
[tau.api.channel :as channel]
[ring.util.codec :refer [url-decode]])
(: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 PlaylistResult
[name thumbnail-url url upload-author stream-count])
(defrecord PlaylistPage
[next-page related-streams])
(defn get-results
[items]
(map #(case (.name (.getInfoType %))
"STREAM" (stream/get-result %)
"CHANNEL" (channel/get-result %)
"PLAYLIST" (get-result %))
items))
(defn get-result
[playlist]
(map->PlaylistResult
{:name (.getName playlist)
:thumbnail-url (.getThumbnailUrl playlist)
:url (.getUrl playlist)
:upload-author (.getUploaderName playlist)
:stream-count (.getStreamCount playlist)}))
(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 (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 (get-results (.getItems info))}))))
|
