giles
1dbf600af2
Phase 4 (Test): Update ~test-layout-full and ~test-detail-layout-full defcomps to use ~root-header with env free variables. Switch render functions to render_to_sx_with_env. Phase 5 (Cart): Convert cart-page, cart-admin, and order render functions. Update cart .sx layout defcomps to use ~root-header from free variables. Phase 6 (Blog): Convert all 7 blog layouts (blog, settings, sub-settings x5). Remove all root_header_sx calls from blog. Phase 7 (Market): Convert market and market-admin layouts plus browse/product render functions. Remove root_header_sx import. Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
79 lines
3.9 KiB
Plaintext
79 lines
3.9 KiB
Plaintext
;; Cart layout defcomps — root header from env free variables,
|
|
;; cart-specific headers passed as &key params.
|
|
|
|
;; --- cart-page layout: root + cart row + page-cart row ---
|
|
|
|
(defcomp ~cart-page-layout-full (&key cart-row page-cart-row)
|
|
(<> (~root-header :cart-mini cart-mini :blog-url blog-url :site-title site-title
|
|
:app-label app-label :nav-tree nav-tree :auth-menu auth-menu
|
|
:nav-panel nav-panel :settings-url settings-url :is-admin is-admin)
|
|
(~header-child-sx
|
|
:inner (<> cart-row
|
|
(~header-child-sx :id "cart-header-child" :inner page-cart-row)))))
|
|
|
|
(defcomp ~cart-page-layout-oob (&key root-header-oob cart-row-oob page-cart-row)
|
|
(<> (~oob-header-sx :parent-id "cart-header-child" :row page-cart-row)
|
|
cart-row-oob
|
|
root-header-oob))
|
|
|
|
;; --- cart-admin layout: root + post header + admin header ---
|
|
|
|
(defcomp ~cart-admin-layout-full (&key post-header admin-header)
|
|
(<> (~root-header :cart-mini cart-mini :blog-url blog-url :site-title site-title
|
|
:app-label app-label :nav-tree nav-tree :auth-menu auth-menu
|
|
:nav-panel nav-panel :settings-url settings-url :is-admin is-admin)
|
|
post-header admin-header))
|
|
|
|
;; --- orders-within-cart: root + auth-simple + orders ---
|
|
|
|
(defcomp ~cart-orders-layout-full (&key list-url)
|
|
(<> (~root-header :cart-mini cart-mini :blog-url blog-url :site-title site-title
|
|
:app-label app-label :nav-tree nav-tree :auth-menu auth-menu
|
|
:nav-panel nav-panel :settings-url settings-url :is-admin is-admin)
|
|
(~header-child-sx
|
|
:inner (<> (~auth-header-row-simple :account-url account-url)
|
|
(~header-child-sx :id "auth-header-child"
|
|
:inner (~orders-header-row :list-url list-url))))))
|
|
|
|
(defcomp ~cart-orders-layout-oob (&key list-url)
|
|
(<> (~auth-header-row-simple :account-url account-url :oob true)
|
|
(~oob-header-sx
|
|
:parent-id "auth-header-child"
|
|
:row (~orders-header-row :list-url list-url))
|
|
(~root-header :cart-mini cart-mini :blog-url blog-url :site-title site-title
|
|
:app-label app-label :nav-tree nav-tree :auth-menu auth-menu
|
|
:nav-panel nav-panel :settings-url settings-url :is-admin is-admin
|
|
:oob true)))
|
|
|
|
;; --- order-detail-within-cart: root + auth-simple + orders + order ---
|
|
|
|
(defcomp ~cart-order-detail-layout-full (&key list-url detail-url order-label)
|
|
(<> (~root-header :cart-mini cart-mini :blog-url blog-url :site-title site-title
|
|
:app-label app-label :nav-tree nav-tree :auth-menu auth-menu
|
|
:nav-panel nav-panel :settings-url settings-url :is-admin is-admin)
|
|
(~header-child-sx
|
|
:inner (<> (~auth-header-row-simple :account-url account-url)
|
|
(~header-child-sx :id "auth-header-child"
|
|
:inner (<> (~orders-header-row :list-url list-url)
|
|
(~header-child-sx :id "orders-header-child"
|
|
:inner (~menu-row-sx :id "order-row" :level 3 :colour "sky"
|
|
:link-href detail-url
|
|
:link-label order-label
|
|
:icon "fa fa-gbp"))))))))
|
|
|
|
(defcomp ~cart-order-detail-layout-oob (&key detail-url order-label)
|
|
(<> (~oob-header-sx
|
|
:parent-id "orders-header-child"
|
|
:row (~menu-row-sx :id "order-row" :level 3 :colour "sky"
|
|
:link-href detail-url :link-label order-label
|
|
:icon "fa fa-gbp" :oob true))
|
|
(~root-header :cart-mini cart-mini :blog-url blog-url :site-title site-title
|
|
:app-label app-label :nav-tree nav-tree :auth-menu auth-menu
|
|
:nav-panel nav-panel :settings-url settings-url :is-admin is-admin
|
|
:oob true)))
|
|
|
|
;; --- orders rows wrapper (for infinite scroll) ---
|
|
|
|
(defcomp ~cart-orders-rows (&key rows next-scroll)
|
|
(<> rows next-scroll))
|