From 81f03c0b449bec1fa60cf2936bfc3f66a5ad58c1 Mon Sep 17 00:00:00 2001
From: Miguel Ángel Moreno <mail@migalmoreno.com>
Date: Tue, 17 Jan 2023 13:17:40 +0100
Subject: chore: Rename project

---
 src/backend/tau/handler.clj | 70 ---------------------------------------------
 1 file changed, 70 deletions(-)
 delete mode 100644 src/backend/tau/handler.clj

(limited to 'src/backend/tau/handler.clj')

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)))
-- 
cgit v1.2.3