Add http-port override, login UI improvements, and dev tooling

src/clj/auto_ap/server.clj

@@ -62,7 +62,9 @@
     (.setHandler server stats-handler))
   (.setStopAtShutdown server true))
 
-(mount/defstate port :start (Integer/parseInt (str (or (env :port) "3000"))))
+(def ^:dynamic *http-port-override* nil)
+
+(mount/defstate port :start (Integer/parseInt (str (or *http-port-override* (env :port) "3000"))))
 
 (mount/defstate jetty
   :start (run-jetty app {:port port
@@ -82,7 +84,7 @@
     (statsd/gauge "requests.5xx" (double (.getResponses5xx (.getHandler jetty))))
     (.statsReset (.getHandler jetty))
     (catch Exception e
-      (alog/warn ::cant-collect-stats :error  e))))
+      (alog/warn ::cant-collect-stats :error e))))
 
 #_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
 (mount/defstate jetty-stats

src/clj/auto_ap/ssr/auth.clj

@@ -15,7 +15,7 @@
    :session {}})
 
 (defn impersonate [request]
-  {:status  200
+  {:status 200
    :session {:identity (dissoc (jwt/unsign (get-in request [:query-params "jwt"])
                                            (:jwt-secret env)
                                            {:alg :hs512})
@@ -88,13 +88,14 @@
           [:p "To see error details, " [:a.underline.cursor-pointer {"@click" "expandError=true"} "click here"] "."]
           [:pre#error-details.text-xs {:x-show "expandError" :x-text "errorDetails"}]]]]]]
      [:div.p-4.flex.flex-row.justify-center.items-center.h-screen
-      (com/card {:class "animate-slideUp"}
-
-                [:div.p-4
-                 [:img {:src "/img/logo-big.png"}]
+      (com/card {:class "animate-slideUp w-full max-w-md"}
+                [:div.p-8
+                 [:div.flex.justify-center.mb-6
+                  [:img {:src "/img/logo-big.png" :class "max-w-[200px]"}]]
                  [:div
-                  [:a.button.is-large.is-primary {:href (login-url (get (:query-params request) "redirect-to"))} "Login with Google"]]
-                 "HELLO"])]]]])
+                  [:a {:href (login-url (get (:query-params request) "redirect-to"))
+                       :class "inline-flex items-center justify-center w-full px-8 py-3 text-base font-medium text-white bg-blue-600 hover:bg-blue-700 rounded-lg transition-colors duration-200 focus:outline-none focus:ring-2 focus:ring-blue-500 focus:ring-offset-2"}
+                   "Login with Google"]]])]]]])
 
 (defn login [request]
   (base-page