From dfcc61063822dfb0fe699896da312249e93d5439 Mon Sep 17 00:00:00 2001
From: Miguel Ángel Moreno <mail@migalmoreno.com>
Date: Thu, 29 Dec 2022 01:53:08 +0100
Subject: feat(backend): Remove records and simplify API

---
 src/backend/tau/api/kiosk.clj | 47 -------------------------------------------
 1 file changed, 47 deletions(-)
 delete mode 100644 src/backend/tau/api/kiosk.clj

(limited to 'src/backend/tau/api/kiosk.clj')

diff --git a/src/backend/tau/api/kiosk.clj b/src/backend/tau/api/kiosk.clj
deleted file mode 100644
index 4243a32..0000000
--- a/src/backend/tau/api/kiosk.clj
+++ /dev/null
@@ -1,47 +0,0 @@
-(ns tau.api.kiosk
-  (:require
-   [clojure.java.data :as j]
-   [ring.util.codec :refer [url-decode]]
-   [tau.api.result :as result])
-  (:import
-   org.schabi.newpipe.extractor.StreamingService
-   org.schabi.newpipe.extractor.Page
-   org.schabi.newpipe.extractor.kiosk.KioskInfo
-   org.schabi.newpipe.extractor.NewPipe))
-
-(defrecord KioskList
-    [default-kiosk available-kiosks])
-
-(defrecord Kiosk
-    [id url next-page related-streams])
-
-(defrecord KioskPage
-    [next-page related-streams])
-
-(defn get-info
-  ([kiosk-id service-id]
-   (let [service (NewPipe/getService service-id)
-         extractor (.getExtractorById (.getKioskList service) kiosk-id nil)
-         info (KioskInfo/getInfo extractor)]
-     (map->Kiosk
-      {:id (.getId info)
-       :url (.getUrl info)
-       :next-page (j/from-java (.getNextPage info))
-       :related-streams (result/get-results (.getRelatedItems info))})))
-  ([kiosk-id service-id page-url]
-   (let  [service (NewPipe/getService service-id)
-          extractor (.getExtractorById (.getKioskList service) kiosk-id nil)
-          url (url-decode page-url)
-          kiosk-info (KioskInfo/getInfo extractor)
-          info (KioskInfo/getMoreItems service (.getUrl kiosk-info) (Page. url))]
-     (map->KioskPage
-      {:next-page (j/from-java (.getNextPage info))
-       :related-streams (result/get-results (.getItems info))}))))
-
-(defn get-kiosks
-  [service-id]
-  (let [service (NewPipe/getService service-id)
-        kiosks (.getKioskList service)]
-    (map->KioskList
-     {:default-kiosk (.getDefaultKioskId kiosks)
-      :available-kiosks (.getAvailableKiosks kiosks)})))
-- 
cgit v1.2.3