diff options
author | Miguel Ángel Moreno <mail@migalmoreno.com> | 2023-01-17 13:17:40 +0100 |
---|---|---|
committer | Miguel Ángel Moreno <mail@migalmoreno.com> | 2023-01-17 13:17:40 +0100 |
commit | 81f03c0b449bec1fa60cf2936bfc3f66a5ad58c1 (patch) | |
tree | a2a7aa01f61dd71b511dd3729a9f4b28c35b531f /src/backend/tau/handler.clj | |
parent | 5e995881dd0c431ae63b1a50c2d03e59962241f1 (diff) |
chore: Rename project
Diffstat (limited to 'src/backend/tau/handler.clj')
-rw-r--r-- | src/backend/tau/handler.clj | 70 |
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))) |