1 files changed, 0 insertions, 91 deletions
diff --git a/users/grfn/bbbg/src/bbbg/handlers/core.clj b/users/grfn/bbbg/src/bbbg/handlers/core.clj
deleted file mode 100644
index caa679ee87..0000000000
--- a/users/grfn/bbbg/src/bbbg/handlers/core.clj
+++ /dev/null
@@ -1,91 +0,0 @@
-(ns bbbg.handlers.core
-  (:require
-   [bbbg.user :as user]
-   [bbbg.views.flash :as flash]
-   [hiccup.core :refer [html]]
-   [ring.util.response :refer [content-type response]]
-   [clojure.string :as str]))
-
-(def ^:dynamic *authenticated?* false)
-
-(defn authenticated? [request]
-  (some? (get-in request [:session ::user/id])))
-
-(defn wrap-auth-required [handler]
-  (fn [req]
-    (when (authenticated? req)
-      (handler req))))
-
-(defn wrap-dynamic-auth [handler]
-  (fn [req]
-    (binding [*authenticated?* (authenticated? req)]
-      (handler req))))
-
-(def ^:dynamic *current-uri*)
-
-(defn wrap-current-uri [handler]
-  (fn [req]
-    (binding [*current-uri* (:uri req)]
-      (handler req))))
-
-(defn nav-item [href label]
-  (let [active?
-        (when *current-uri*
-          (str/starts-with?
-           *current-uri*
-           href))]
-    [:li {:class (when active? "active")}
-     [:a {:href href}
-      label]]))
-
-(defn global-nav []
-  [:nav.global-nav
-   [:ul
-    (nav-item "/events" "Events")
-    (when *authenticated?*
-      (nav-item "/attendees" "Attendees"))
-    [:li.spacer]
-    [:li
-     (if *authenticated?*
-       [:form.link-form
-        {:method :post
-         :action "/auth/sign-out"}
-        [:input {:type "submit"
-                 :value "Sign Out"}]]
-       [:a {:href "/auth/discord"}
-        "Sign In"])]]])
-
-(defn render-page [opts & body]
-  (let [[{:keys [title]} body]
-        (if (map? opts)
-          [opts body]
-          [{} (concat [opts] body)])]
-    (html
-     [:html {:lang "en"}
-      [:head
-       [:meta {:charset "UTF-8"}]
-       [:meta {:name "viewport"
-               :content "width=device-width,initial-scale=1"}]
-       [:title (if title
-                 (str title " - BBBG")
-                 "BBBG")]
-       [:link {:rel "stylesheet"
-               :type "text/css"
-               :href "/main.css"}]]
-      [:body
-       [:div.content
-        (global-nav)
-        #_(flash/render-flash flash/test-flash)
-        (flash/render-flash)
-        body]
-       [:script {:src "/main.js"}]]])))
-
-(defn page-response [& render-page-args]
-  (-> (apply render-page render-page-args)
-      response
-      (content-type "text/html")))
-
-(comment
-  (render-page
-   [:h1 "hi"])
-  )