giles
477ce766ff
Annotates ~500 defcomp params across 62 files: market (5), blog (7), cart (5), events (3), federation (4), account (3), orders (2), shared templates (11), sx docs (14), plus remaining spec fn params (z3, test-framework, adapter-dom, adapter-async, engine, eval). Total annotations in codebase: 1043. Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
43 lines
1.6 KiB
Plaintext
43 lines
1.6 KiB
Plaintext
;; Orders layout defcomps — fully self-contained via IO primitives.
|
|
;; Registered via register_sx_layout("orders", ...) in __init__.py.
|
|
|
|
;; --- orders layout: root + auth + orders rows ---
|
|
|
|
(defcomp ~orders-layout-full (&key (list-url :as string))
|
|
(<> (~root-header-auto)
|
|
(~header-child-sx
|
|
:inner (<> (~auth-header-row-auto)
|
|
(~orders-header-row :list-url (or list-url "/"))))))
|
|
|
|
(defcomp ~orders-layout-oob (&key (list-url :as string))
|
|
(<> (~auth-header-row-auto true)
|
|
(~oob-header-sx
|
|
:parent-id "auth-header-child"
|
|
:row (~orders-header-row :list-url (or list-url "/")))
|
|
(~root-header-auto true)))
|
|
|
|
(defcomp ~orders-layout-mobile ()
|
|
(~root-mobile-auto))
|
|
|
|
;; --- order-detail layout: root + auth + orders + order rows ---
|
|
|
|
(defcomp ~order-detail-layout-full (&key (list-url :as string) (detail-url :as string))
|
|
(<> (~root-header-auto)
|
|
(~order-detail-header-stack
|
|
:auth (~auth-header-row-auto)
|
|
:orders (~orders-header-row :list-url (or list-url "/"))
|
|
:order (~menu-row-sx :id "order-row" :level 3 :colour "sky"
|
|
:link-href (or detail-url "/") :link-label "Order"
|
|
:icon "fa fa-gbp"))))
|
|
|
|
(defcomp ~order-detail-layout-oob (&key (detail-url :as string))
|
|
(<> (~oob-header-sx
|
|
:parent-id "orders-header-child"
|
|
:row (~menu-row-sx :id "order-row" :level 3 :colour "sky"
|
|
:link-href (or detail-url "/") :link-label "Order"
|
|
:icon "fa fa-gbp" :oob true))
|
|
(~root-header-auto true)))
|
|
|
|
(defcomp ~order-detail-layout-mobile ()
|
|
(~root-mobile-auto))
|