(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-info
  [service]
  (map->Service
   {:id (.getServiceId service)
    :info (j/from-java (.getServiceInfo service))
    :base-url (.getBaseUrl service)
    ;; :kiosk-list (map #(kiosk/get-info % (.getServiceId service))
    ;;                  (.getAvailableKiosks (.getKioskList service)))
    }))

(defn get-services
  []
  (map #(get-info %) (NewPipe/getServices)))