blob: de2e994f225f1595eb37bcce6282ed73105f52c0 (
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
|
(ns tau.api.service
(:require
[clojure.java.data :as j]
[tau.api.kiosk :as kiosk])
(:import
org.schabi.newpipe.extractor.NewPipe
org.schabi.newpipe.extractor.kiosk.KioskList
org.schabi.newpipe.extractor.StreamingService))
(defrecord Service
[id info base-url kiosk-list])
(defn get-service-info
[service]
(map->Service
{:id (.getServiceId service)
:info (j/from-java (.getServiceInfo service))
:base-url (.getBaseUrl service)
:kiosk-list (map #(kiosk/get-kiosk-info % (.getServiceId service))
(.getAvailableKiosks (.getKioskList service)))}))
(defn get-service-list-info
[]
(map #(get-service-info %) (NewPipe/getServices)))
|
