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>
37 lines
1.6 KiB
Plaintext
37 lines
1.6 KiB
Plaintext
;; Relations service — inter-service action endpoints
|
|
|
|
(defaction attach-child (&key parent-type parent-id child-type child-id
|
|
label sort-order relation-type metadata)
|
|
"Create or revive a container relation."
|
|
(service "relations" "attach-child"
|
|
:parent-type parent-type :parent-id parent-id
|
|
:child-type child-type :child-id child-id
|
|
:label label :sort-order sort-order
|
|
:relation-type relation-type :metadata metadata))
|
|
|
|
(defaction detach-child (&key parent-type parent-id child-type child-id relation-type)
|
|
"Soft-delete a container relation."
|
|
(let ((deleted (service "relations" "detach-child"
|
|
:parent-type parent-type :parent-id parent-id
|
|
:child-type child-type :child-id child-id
|
|
:relation-type relation-type)))
|
|
{"deleted" deleted}))
|
|
|
|
(defaction relate (&key relation-type from-id to-id label sort-order metadata)
|
|
"Create a typed relation with registry validation and cardinality enforcement."
|
|
(service "relations" "relate"
|
|
:relation-type relation-type :from-id from-id :to-id to-id
|
|
:label label :sort-order sort-order :metadata metadata))
|
|
|
|
(defaction unrelate (&key relation-type from-id to-id)
|
|
"Remove a typed relation with registry validation."
|
|
(let ((deleted (service "relations" "unrelate"
|
|
:relation-type relation-type
|
|
:from-id from-id :to-id to-id)))
|
|
{"deleted" deleted}))
|
|
|
|
(defaction can-relate (&key relation-type from-id)
|
|
"Check if a relation can be created (cardinality, registry validation)."
|
|
(service "relations" "can-relate"
|
|
:relation-type relation-type :from-id from-id))
|