giles
22802bd36b
All checks were successful
Build and Deploy / build-and-deploy (push) Successful in 5m35s
- Server sends sexp source text, client (sexp.js) renders everything - SexpExpr marker class for nested sexp composition in serialize() - sexp_page() HTML shell with data-mount="body" for full page loads - sexp_response() returns text/sexp for OOB/partial responses - ~app-body layout component replaces ~app-layout (no raw!) - ~rich-text is the only component using raw! (for CMS HTML content) - Fragment endpoints return text/sexp, auto-wrapped in SexpExpr - All _*_html() helpers converted to _*_sexp() returning sexp source - Head auto-hoist: sexp.js moves meta/title/link/script[ld+json] from rendered body to document.head automatically - Unknown components render warning box instead of crashing page - Component kwargs preserve AST for lazy rendering (fixes <> in kwargs) - Fix unterminated paren in events/sexp/tickets.sexpr Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
54 lines
3.0 KiB
Plaintext
54 lines
3.0 KiB
Plaintext
;; Cart single order detail components
|
|
|
|
(defcomp ~cart-order-item-img (&key src alt)
|
|
(img :src src :alt alt :class "w-full h-full object-contain object-center" :loading "lazy" :decoding "async"))
|
|
|
|
(defcomp ~cart-order-item-no-img ()
|
|
(div :class "w-full h-full flex items-center justify-center text-[9px] text-stone-400" "No image"))
|
|
|
|
(defcomp ~cart-order-item (&key prod-url img title product-id qty price)
|
|
(li (a :class "w-full py-2 flex gap-3" :href prod-url
|
|
(div :class "w-12 h-12 sm:w-14 sm:h-14 rounded-md bg-stone-100 flex-shrink-0 overflow-hidden" img)
|
|
(div :class "flex-1 flex justify-between gap-3"
|
|
(div (p :class "font-medium" title)
|
|
(p :class "text-[11px] text-stone-500" product-id))
|
|
(div :class "text-right whitespace-nowrap"
|
|
(p qty) (p price))))))
|
|
|
|
(defcomp ~cart-order-items-panel (&key items)
|
|
(div :class "rounded-2xl border border-stone-200 bg-white/80 p-4 sm:p-6"
|
|
(h2 :class "text-sm sm:text-base font-semibold mb-3" "Items")
|
|
(ul :class "divide-y divide-stone-100 text-xs sm:text-sm" items)))
|
|
|
|
(defcomp ~cart-order-cal-entry (&key name pill status date-str cost)
|
|
(li :class "px-4 py-3 flex items-start justify-between text-sm"
|
|
(div (div :class "font-medium flex items-center gap-2"
|
|
name (span :class pill status))
|
|
(div :class "text-xs text-stone-500" date-str))
|
|
(div :class "ml-4 font-medium" cost)))
|
|
|
|
(defcomp ~cart-order-cal-section (&key items)
|
|
(section :class "mt-6 space-y-3"
|
|
(h2 :class "text-base sm:text-lg font-semibold" "Calendar bookings in this order")
|
|
(ul :class "divide-y divide-stone-200 rounded-2xl border border-stone-200 bg-white/80" items)))
|
|
|
|
(defcomp ~cart-order-main (&key summary items cal)
|
|
(div :class "max-w-full px-3 py-3 space-y-4" summary items cal))
|
|
|
|
(defcomp ~cart-order-pay-btn (&key url)
|
|
(a :href url :class "inline-flex items-center px-3 py-2 text-xs sm:text-sm rounded-full border border-emerald-600 bg-emerald-600 text-white hover:bg-emerald-700 transition"
|
|
(i :class "fa fa-credit-card mr-2" :aria-hidden "true") "Open payment page"))
|
|
|
|
(defcomp ~cart-order-filter (&key info list-url recheck-url csrf pay)
|
|
(header :class "mb-6 sm:mb-8 flex flex-col sm:flex-row sm:items-center justify-between gap-3 sm:gap-4"
|
|
(div :class "space-y-1"
|
|
(p :class "text-xs sm:text-sm text-stone-600" info))
|
|
(div :class "flex w-full sm:w-auto justify-start sm:justify-end gap-2"
|
|
(a :href list-url :class "inline-flex items-center px-3 py-2 text-xs sm:text-sm rounded-full border border-stone-300 bg-white hover:bg-stone-50 transition"
|
|
(i :class "fa-solid fa-list mr-2" :aria-hidden "true") "All orders")
|
|
(form :method "post" :action recheck-url :class "inline"
|
|
(input :type "hidden" :name "csrf_token" :value csrf)
|
|
(button :type "submit" :class "inline-flex items-center px-3 py-2 text-xs sm:text-sm rounded-full border border-stone-300 bg-white hover:bg-stone-50 transition"
|
|
(i :class "fa-solid fa-rotate mr-2" :aria-hidden "true") "Re-check status"))
|
|
pay)))
|