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>
66 lines
2.4 KiB
Plaintext
66 lines
2.4 KiB
Plaintext
;; Events service — inter-service action endpoints
|
|
;;
|
|
;; Each defaction replaces a Python handler in bp/actions/routes.py.
|
|
;; The (service ...) primitive calls the registered CalendarService method
|
|
;; with g.s (async session) + keyword args.
|
|
|
|
(defaction adjust-ticket-quantity (&key entry-id count user-id session-id ticket-type-id)
|
|
"Add or remove tickets for a calendar entry."
|
|
(do
|
|
(service "calendar" "adjust-ticket-quantity"
|
|
:entry-id entry-id :count count
|
|
:user-id user-id :session-id session-id
|
|
:ticket-type-id ticket-type-id)
|
|
{"ok" true}))
|
|
|
|
(defaction claim-entries-for-order (&key order-id user-id session-id page-post-id)
|
|
"Claim pending calendar entries for an order."
|
|
(do
|
|
(service "calendar" "claim-entries-for-order"
|
|
:order-id order-id :user-id user-id
|
|
:session-id session-id :page-post-id page-post-id)
|
|
{"ok" true}))
|
|
|
|
(defaction claim-tickets-for-order (&key order-id user-id session-id page-post-id)
|
|
"Claim pending tickets for an order."
|
|
(do
|
|
(service "calendar" "claim-tickets-for-order"
|
|
:order-id order-id :user-id user-id
|
|
:session-id session-id :page-post-id page-post-id)
|
|
{"ok" true}))
|
|
|
|
(defaction confirm-entries-for-order (&key order-id user-id session-id)
|
|
"Confirm calendar entries after payment."
|
|
(do
|
|
(service "calendar" "confirm-entries-for-order"
|
|
:order-id order-id :user-id user-id :session-id session-id)
|
|
{"ok" true}))
|
|
|
|
(defaction confirm-tickets-for-order (&key order-id)
|
|
"Confirm tickets after payment."
|
|
(do
|
|
(service "calendar" "confirm-tickets-for-order" :order-id order-id)
|
|
{"ok" true}))
|
|
|
|
(defaction toggle-entry-post (&key entry-id content-type content-id)
|
|
"Toggle association between a calendar entry and a content item."
|
|
(let ((is-associated (service "calendar" "toggle-entry-post"
|
|
:entry-id entry-id
|
|
:content-type content-type
|
|
:content-id content-id)))
|
|
{"is_associated" is-associated}))
|
|
|
|
(defaction adopt-entries-for-user (&key user-id session-id)
|
|
"Transfer anonymous calendar entries to a logged-in user."
|
|
(do
|
|
(service "calendar" "adopt-entries-for-user"
|
|
:user-id user-id :session-id session-id)
|
|
{"ok" true}))
|
|
|
|
(defaction adopt-tickets-for-user (&key user-id session-id)
|
|
"Transfer anonymous tickets to a logged-in user."
|
|
(do
|
|
(service "calendar" "adopt-tickets-for-user"
|
|
:user-id user-id :session-id session-id)
|
|
{"ok" true}))
|