notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

handles home page

Browse Source
This commit is contained in:
Bryce
2025-03-11 20:27:28 -07:00
parent e22beb149e
commit 04ec980b02
4 changed files with 13 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
resources/public/output.css
View File

File diff suppressed because one or more lines are too long

11
src/clj/auto_ap/handler.clj
View File

@@ -73,8 +73,17 @@
(defn render-index [_] (defn render-index [_]
(response/resource-response "index.html" {:root "public"})) (response/resource-response "index.html" {:root "public"}))
(defn home-handler [{:keys [identity]}]
(if identity
{:status 302
:headers {"Location" "/dashboard"}}
{:status 302
:headers {"Location" "/login"}}))
(def match->handler-lookup (def match->handler-lookup
(-> {:not-found not-found} (-> {:not-found not-found
:home home-handler}
(merge ssr/key->handler) (merge ssr/key->handler)
(merge graphql/match->handler) (merge graphql/match->handler)
(merge ezcater/match->handler) (merge ezcater/match->handler)

2
src/clj/user.clj
View File

@@ -642,5 +642,3 @@
(partition-all 1000))] (partition-all 1000))]
(print ".") (print ".")
@(dc/transact auto-ap.datomic/conn n))) @(dc/transact auto-ap.datomic/conn n)))

3
src/cljc/auto_ap/ssr_routes.cljc
View File

@@ -15,7 +15,8 @@
[auto-ap.routes.admin.sales-summaries :as ss-routes] [auto-ap.routes.admin.sales-summaries :as ss-routes]
[auto-ap.routes.admin.transaction-rules :as tr-routes])) [auto-ap.routes.admin.transaction-rules :as tr-routes]))
(def routes {"impersonate" :impersonate (def routes {"" :home
"impersonate" :impersonate
"logout" :logout "logout" :logout
"login" :login "login" :login
"search" :search "search" :search