giles
22802bd36b
- 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>
20 lines
568 B
Plaintext
20 lines
568 B
Plaintext
;; Market meta/SEO components
|
|
|
|
(defcomp ~market-meta-title (&key title)
|
|
(title title))
|
|
|
|
(defcomp ~market-meta-description (&key description)
|
|
(meta :name "description" :content description))
|
|
|
|
(defcomp ~market-meta-canonical (&key href)
|
|
(link :rel "canonical" :href href))
|
|
|
|
(defcomp ~market-meta-og (&key property content)
|
|
(meta :property property :content content))
|
|
|
|
(defcomp ~market-meta-twitter (&key name content)
|
|
(meta :name name :content content))
|
|
|
|
(defcomp ~market-meta-jsonld (&key json)
|
|
(script :type "application/ld+json" (~rich-text :html json)))
|