giles
278ae3e8f6
SxExpr is now a str subclass so it works everywhere a plain string does (join, isinstance, f-strings) while serialize() still emits it unquoted. sx_call() and all internal render functions (_render_to_sx, async_eval_to_sx, etc.) return SxExpr, eliminating the "forgot to wrap" bug class that caused the sx_content leak and list serialization bugs. - Phase 0: SxExpr(str) with .source property, __add__/__radd__ - Phase 1: sx_call returns SxExpr (drop-in, all 200+ sites unchanged) - Phase 2: async_eval_to_sx, async_eval_slot_to_sx, _render_to_sx, mobile_menu_sx return SxExpr; remove isinstance(str) workaround - Phase 3: Remove ~150 redundant SxExpr() wrappings across 45 files - Phase 4: serialize() docstring, handler return docs, ;; returns: sx Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
36 lines
1.6 KiB
Plaintext
36 lines
1.6 KiB
Plaintext
;; Events link-card fragment handler
|
|
;; returns: sx
|
|
;;
|
|
;; Renders event page preview card(s) by slug.
|
|
;; Supports single mode (?slug=x) and batch mode (?keys=x,y,z).
|
|
|
|
(defhandler link-card (&key slug keys)
|
|
(if keys
|
|
(let ((slugs (filter (fn (s) (not (empty? s)))
|
|
(map trim (split keys ",")))))
|
|
(<> (map (fn (s)
|
|
(let ((post (query "blog" "post-by-slug" :slug s)))
|
|
(<> (str "<!-- fragment:" s " -->")
|
|
(when post
|
|
(let ((calendars (service "calendar" "calendars-for-container"
|
|
:container-type "page"
|
|
:container-id (get post "id")))
|
|
(cal-names (join ", " (map (fn (c) (get c "name")) calendars))))
|
|
(~link-card
|
|
:title (get post "title")
|
|
:image (get post "feature_image")
|
|
:subtitle cal-names
|
|
:link (app-url "events" (str "/" (get post "slug"))))))))) slugs)))
|
|
(when slug
|
|
(let ((post (query "blog" "post-by-slug" :slug slug)))
|
|
(when post
|
|
(let ((calendars (service "calendar" "calendars-for-container"
|
|
:container-type "page"
|
|
:container-id (get post "id")))
|
|
(cal-names (join ", " (map (fn (c) (get c "name")) calendars))))
|
|
(~link-card
|
|
:title (get post "title")
|
|
:image (get post "feature_image")
|
|
:subtitle cal-names
|
|
:link (app-url "events" (str "/" (get post "slug"))))))))))
|