giles
1f36987f77
All checks were successful
Build and Deploy / build-and-deploy (push) Successful in 2m5s
The inter-service data layer (fetch_data/call_action) was the least structured part of the codebase — Python _handlers dicts with ad-hoc param extraction scattered across 16 route files. This replaces them with declarative .sx query/action definitions that make the entire inter-service protocol self-describing and greppable. Infrastructure: - defquery/defaction special forms in the sx evaluator - Query/action registry with load, lookup, and schema introspection - Query executor using async_eval with I/O primitives - Blueprint factories (create_data_blueprint/create_action_blueprint) with sx-first dispatch and Python fallback - /internal/schema endpoint on every service - parse-datetime and split-ids primitives for type coercion Service extractions: - LikesService (toggle, is_liked, liked_slugs, liked_ids) - PageConfigService (ensure, get_by_container, get_by_id, get_batch, update) - RelationsService (wraps module-level functions) - AccountDataService (user_by_email, newsletters) - CartItemsService, MarketDataService (raw SQLAlchemy lookups) 50 of 54 handlers converted to sx, 4 Python fallbacks remain (ghost-sync/push-member, clear-cart-for-order, create-order). Net: -1,383 lines Python, +251 lines modified. Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
39 lines
1.5 KiB
Plaintext
39 lines
1.5 KiB
Plaintext
;; Blog service — inter-service data queries
|
|
|
|
(defquery post-by-slug (&key slug)
|
|
"Fetch a single blog post by its URL slug."
|
|
(service "blog" "get-post-by-slug" :slug slug))
|
|
|
|
(defquery post-by-id (&key id)
|
|
"Fetch a single blog post by its primary key."
|
|
(service "blog" "get-post-by-id" :id id))
|
|
|
|
(defquery posts-by-ids (&key ids)
|
|
"Fetch multiple blog posts by comma-separated IDs."
|
|
(service "blog" "get-posts-by-ids" :ids (split-ids ids)))
|
|
|
|
(defquery search-posts (&key query page per-page)
|
|
"Search blog posts by text query, paginated."
|
|
(let ((result (service "blog" "search-posts"
|
|
:query query :page page :per-page per-page)))
|
|
{"posts" (nth result 0) "total" (nth result 1)}))
|
|
|
|
(defquery page-config-ensure (&key container-type container-id)
|
|
"Get or create a PageConfig for a container."
|
|
(service "page-config" "ensure"
|
|
:container-type container-type :container-id container-id))
|
|
|
|
(defquery page-config (&key container-type container-id)
|
|
"Return a single PageConfig by container type + id."
|
|
(service "page-config" "get-by-container"
|
|
:container-type container-type :container-id container-id))
|
|
|
|
(defquery page-config-by-id (&key id)
|
|
"Return a single PageConfig by primary key."
|
|
(service "page-config" "get-by-id" :id id))
|
|
|
|
(defquery page-configs-batch (&key container-type ids)
|
|
"Return PageConfigs for multiple container IDs (comma-separated)."
|
|
(service "page-config" "get-batch"
|
|
:container-type container-type :ids (split-ids ids)))
|