giles
ab75e505a8
Phase 1 — Macros: defmacro + quasiquote syntax (`, ,, ,@) in parser,
evaluator, HTML renderer, and JS mirror. Macro type, expansion, and
round-trip serialization.
Phase 2 — Expanded primitives: app-url, url-for, asset-url, config,
format-date, parse-int (pure); service, request-arg, request-path,
nav-tree, get-children (I/O); jinja-global, relations-from (pure).
Updated _io_service to accept (service "registry-name" "method" :kwargs)
with auto kebab→snake conversion. DTO-to-dict now expands datetime fields
into year/month/day convenience keys. Tuple returns converted to lists.
Phase 3 — Declarative handlers: HandlerDef type, defhandler special form,
handler registry (service → name → HandlerDef), async evaluator+renderer
(async_eval.py) that awaits I/O primitives inline within control flow.
Handler loading from .sx files, execute_handler, blueprint factory.
Phase 4 — Convert all fragment routes: 13 Python fragment handlers across
8 services replaced with declarative .sx handler files. All routes.py
simplified to uniform sx dispatch pattern. Two Jinja HTML handlers
(events/container-cards, events/account-page) kept as Python.
New files: shared/sx/async_eval.py, shared/sx/handlers.py,
shared/sx/tests/test_handlers.py, plus 13 handler .sx files under
{service}/sx/handlers/. MarketService.product_by_slug() added.
Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
35 lines
1.6 KiB
Plaintext
35 lines
1.6 KiB
Plaintext
;; Events link-card fragment handler
|
|
;;
|
|
;; 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"))))))))))
|