diff --git a/resources/public/output.css b/resources/public/output.css index 73530dec..96983899 100644 --- a/resources/public/output.css +++ b/resources/public/output.css @@ -1357,6 +1357,10 @@ input:checked + .toggle-bg { height: min-content; } +.h-\[90vh\] { + height: 90vh; +} + .max-h-96 { max-height: 24rem; } @@ -1369,6 +1373,10 @@ input:checked + .toggle-bg { max-height: 90vh; } +.max-h-\[100vh\] { + max-height: 100vh; +} + .max-h-\[80vh\] { max-height: 80vh; } @@ -1446,6 +1454,19 @@ input:checked + .toggle-bg { width: 100vw; } +.w-min { + width: -moz-min-content; + width: min-content; +} + +.w-8\/12 { + width: 66.666667%; +} + +.w-6\/12 { + width: 50%; +} + .w-1\/4 { width: 25%; } @@ -1474,6 +1495,10 @@ input:checked + .toggle-bg { max-width: 1024px; } +.max-w-xs { + max-width: 20rem; +} + .flex-1 { flex: 1 1 0%; } @@ -1692,6 +1717,10 @@ input:checked + .toggle-bg { place-items: center; } +.content-center { + align-content: center; +} + .items-start { align-items: flex-start; } @@ -3601,6 +3630,10 @@ input:checked + .toggle-bg { padding: 1.5rem; } + .sm\:p-12 { + padding: 3rem; + } + .sm\:py-5 { padding-top: 1.25rem; padding-bottom: 1.25rem; diff --git a/src/clj/auto_ap/ssr/admin/accounts.clj b/src/clj/auto_ap/ssr/admin/accounts.clj index 28ddfc5e..35eca1b0 100644 --- a/src/clj/auto_ap/ssr/admin/accounts.clj +++ b/src/clj/auto_ap/ssr/admin/accounts.clj @@ -35,7 +35,8 @@ [datomic.api :as dc] [hiccup2.core :as hiccup] [malli.core :as mc] - [auto-ap.ssr.form-cursor :as fc])) + [auto-ap.ssr.form-cursor :as fc] + [clj-time.format :as f])) (defn filters [request] [:form {"hx-trigger" "change delay:500ms, keyup changed from:.hot-filter delay:1000ms" @@ -328,8 +329,13 @@ "Save account"))]])) (defn new-client-override [{ {:keys [index]} :query-params}] - (html-response - (client-override* {:db/id (str (java.util.UUID/randomUUID))}))) + (let [index (or index 0) + account {:account/client-overrides (conj (into [] (repeat index {})) + {:db/id (str (java.util.UUID/randomUUID))})}] ;; TODO schema decode is not working + (html-response + (fc/start-form account [] + (fc/with-cursor (get-in fc/*current* [:account/client-overrides index]) + (client-override* fc/*current*)))))) (defn account-edit-dialog [request] (let [account (some-> request :route-params :db/id (#(dc/pull (dc/db conn) default-read %)))]