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>
36 lines
1.3 KiB
Common Lisp
36 lines
1.3 KiB
Common Lisp
;; Miscellaneous shared components for Phase 3 conversion
|
|
|
|
;; The single place where raw! lives — for CMS content (Ghost post body,
|
|
;; product descriptions, etc.) that arrives as pre-rendered HTML.
|
|
(defcomp ~rich-text (&key html)
|
|
(raw! html))
|
|
|
|
(defcomp ~error-inline (&key message)
|
|
(div :class "text-red-600 text-sm" message))
|
|
|
|
(defcomp ~notification-badge (&key count)
|
|
(span :class "bg-red-500 text-white text-xs rounded-full px-1.5 py-0.5" count))
|
|
|
|
(defcomp ~cache-cleared (&key time-str)
|
|
(span :class "text-green-600 font-bold" "Cache cleared at " time-str))
|
|
|
|
(defcomp ~error-list (&key items)
|
|
(ul :class "list-disc pl-5 space-y-1 text-sm text-red-600"
|
|
(when items items)))
|
|
|
|
(defcomp ~error-list-item (&key message)
|
|
(li message))
|
|
|
|
(defcomp ~fragment-error (&key service)
|
|
(p :class "text-sm text-red-600" "Service " (b service) " is unavailable."))
|
|
|
|
(defcomp ~htmx-sentinel (&key id hx-get hx-trigger hx-swap class extra-attrs)
|
|
(div :id id :sx-get hx-get :sx-trigger hx-trigger :sx-swap hx-swap :class class))
|
|
|
|
(defcomp ~nav-group-link (&key href hx-select nav-class label)
|
|
(div :class "relative nav-group"
|
|
(a :href href :sx-get href :sx-target "#main-panel"
|
|
:sx-select hx-select :sx-swap "outerHTML"
|
|
:sx-push-url "true" :class nav-class
|
|
label)))
|