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>
61 lines
2.7 KiB
Plaintext
61 lines
2.7 KiB
Plaintext
;; Blog post detail components
|
|
|
|
(defcomp ~blog-detail-edit-link (&key href hx-select)
|
|
(a :href href :sx-get href :sx-target "#main-panel"
|
|
:sx-select hx-select :sx-swap "outerHTML" :sx-push-url "true"
|
|
:class "inline-block px-3 py-1 rounded-full text-sm font-semibold bg-stone-700 text-white hover:bg-stone-800 transition-colors"
|
|
(i :class "fa fa-pencil mr-1") " Edit"))
|
|
|
|
(defcomp ~blog-detail-draft (&key publish-requested edit)
|
|
(div :class "flex items-center justify-center gap-2 mb-3"
|
|
(span :class "inline-block px-3 py-1 rounded-full text-sm font-semibold bg-amber-100 text-amber-800" "Draft")
|
|
(when publish-requested (span :class "inline-block px-3 py-1 rounded-full text-sm font-semibold bg-blue-100 text-blue-800" "Publish requested"))
|
|
edit))
|
|
|
|
(defcomp ~blog-detail-like (&key like-url hx-headers heart)
|
|
(div :class "absolute top-2 right-2 z-10 text-8xl md:text-6xl"
|
|
(button :sx-post like-url :sx-swap "outerHTML"
|
|
:sx-headers hx-headers :class "cursor-pointer" heart)))
|
|
|
|
(defcomp ~blog-detail-excerpt (&key excerpt)
|
|
(div :class "w-full text-center italic text-3xl p-2" excerpt))
|
|
|
|
(defcomp ~blog-detail-chrome (&key like excerpt at-bar)
|
|
(<> like
|
|
excerpt
|
|
(div :class "hidden md:block" at-bar)))
|
|
|
|
(defcomp ~blog-detail-main (&key draft chrome feature-image html-content)
|
|
(<> (article :class "relative"
|
|
draft
|
|
chrome
|
|
(when feature-image (div :class "mb-3 flex justify-center"
|
|
(img :src feature-image :alt "" :class "rounded-lg w-full md:w-3/4 object-cover")))
|
|
(when html-content (div :class "blog-content p-2" (~rich-text :html html-content))))
|
|
(div :class "pb-8")))
|
|
|
|
(defcomp ~blog-meta (&key robots page-title desc canonical og-type og-title image twitter-card twitter-title)
|
|
(<>
|
|
(meta :name "robots" :content robots)
|
|
(title page-title)
|
|
(meta :name "description" :content desc)
|
|
(when canonical (link :rel "canonical" :href canonical))
|
|
(meta :property "og:type" :content og-type)
|
|
(meta :property "og:title" :content og-title)
|
|
(meta :property "og:description" :content desc)
|
|
(when canonical (meta :property "og:url" :content canonical))
|
|
(when image (meta :property "og:image" :content image))
|
|
(meta :name "twitter:card" :content twitter-card)
|
|
(meta :name "twitter:title" :content twitter-title)
|
|
(meta :name "twitter:description" :content desc)
|
|
(when image (meta :name "twitter:image" :content image))))
|
|
|
|
(defcomp ~blog-home-main (&key html-content)
|
|
(article :class "relative" (div :class "blog-content p-2" (~rich-text :html html-content))))
|
|
|
|
(defcomp ~blog-admin-empty ()
|
|
(div :class "pb-8"))
|
|
|
|
(defcomp ~blog-settings-empty ()
|
|
(div :class "max-w-2xl mx-auto px-4 py-6"))
|