aboutsummaryrefslogtreecommitdiff
path: root/src/backend/tau/handler.clj
diff options
context:
space:
mode:
authorMiguel Ángel Moreno <mail@migalmoreno.com>2023-01-17 13:17:40 +0100
committerMiguel Ángel Moreno <mail@migalmoreno.com>2023-01-17 13:17:40 +0100
commit81f03c0b449bec1fa60cf2936bfc3f66a5ad58c1 (patch)
treea2a7aa01f61dd71b511dd3729a9f4b28c35b531f /src/backend/tau/handler.clj
parent5e995881dd0c431ae63b1a50c2d03e59962241f1 (diff)
chore: Rename project
Diffstat (limited to 'src/backend/tau/handler.clj')
-rw-r--r--src/backend/tau/handler.clj70
1 files changed, 0 insertions, 70 deletions
diff --git a/src/backend/tau/handler.clj b/src/backend/tau/handler.clj
deleted file mode 100644
index 3ec4469..0000000
--- a/src/backend/tau/handler.clj
+++ /dev/null
@@ -1,70 +0,0 @@
-(ns tau.handler
- (:require
- [clojure.string :as str]
- [hiccup.page :as hiccup]
- [ring.util.response :refer [response]]
- [tau.api.streams :as streams]
- [tau.api.channels :as channels]
- [tau.api.playlists :as playlists]
- [tau.api.comments :as comments]
- [tau.api.services :as services]))
-
-(defn index
- [_]
- (response
- (hiccup/html5
- [:head
- [:meta {:charset "UTF-8"}]
- [:meta {:name "viewport" :content "width=device-width, initial-scale=1"}]
- [:title "Tau"]
- (hiccup/include-css "/css/tau.css")]
- [:body
- [:div#app]
- (hiccup/include-js "/js/main.js")
- [:script "tau.core.init();"]])))
-
-(defn search
- [{:keys [parameters] :as req}]
- (let [{:keys [service-id]} (:path parameters)
- {:keys [q]} (:query parameters)
- {:strs [contentFilters sortFilter nextPage]} (:query-params req)
- content-filters (and contentFilters (str/split contentFilters #","))]
- (response (if nextPage
- (services/search service-id q contentFilters sortFilter nextPage)
- (services/search service-id q contentFilters sortFilter)))))
-
-(defn channel
- [{{:keys [url]} :path-params {:strs [nextPage]} :query-params}]
- (response (if nextPage
- (channels/get-channel url nextPage)
- (channels/get-channel url))))
-
-(defn playlist
- [{{:keys [url]} :path-params {:strs [nextPage]} :query-params}]
- (response (if nextPage
- (playlists/get-playlist url nextPage)
- (playlists/get-playlist url))))
-
-(defn comments
- [{{:keys [url]} :path-params {:strs [nextPage]} :query-params}]
- (response (if nextPage
- (comments/get-comments url nextPage)
- (comments/get-comments url))))
-
-(defn services
- [_]
- (response (services/get-services)))
-
-(defn kiosks
- [{{{:keys [service-id]} :path} :parameters}]
- (response (services/get-kiosks service-id)))
-
-(defn kiosk
- [{{{:keys [kiosk-id service-id]} :path} :parameters {:strs [nextPage]} :query-params}]
- (response (cond
- (and kiosk-id service-id nextPage) (services/get-kiosk kiosk-id service-id nextPage)
- (and kiosk-id service-id) (services/get-kiosk kiosk-id service-id)
- :else (services/get-kiosk service-id))))
-
-(defn stream [{{:keys [url]} :path-params}]
- (response (streams/get-stream url)))