giles
b0920a1121
Component names now reflect filesystem location using / as path separator and : as namespace separator for shared components: ~sx-header → ~layouts/header ~layout-app-body → ~shared:layout/app-body ~blog-admin-dashboard → ~admin/dashboard 209 files, 4,941 replacements across all services. Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
45 lines
1.3 KiB
Plaintext
45 lines
1.3 KiB
Plaintext
;; Cart app defpage declarations.
|
|
;; All data fetching via (service ...) IO primitives, no Python helpers.
|
|
|
|
(defpage cart-overview
|
|
:path "/"
|
|
:auth :public
|
|
:layout :root
|
|
:data (service "cart-page" "overview-data")
|
|
:content (~overview/content
|
|
:page-groups page-groups
|
|
:cart-url-base cart-url-base))
|
|
|
|
(defpage page-cart-view
|
|
:path "/<page_slug>/"
|
|
:auth :public
|
|
:layout :cart-page
|
|
:data (service "cart-page" "page-cart-data")
|
|
:content (~items/page-cart-content
|
|
:cart-items cart-items
|
|
:cal-entries cal-entries
|
|
:ticket-groups ticket-groups
|
|
:summary (~items/summary-from-data
|
|
:item-count (get summary "item_count")
|
|
:grand-total (get summary "grand_total")
|
|
:symbol (get summary "symbol")
|
|
:is-logged-in (get summary "is_logged_in")
|
|
:checkout-action (get summary "checkout_action")
|
|
:login-href (get summary "login_href")
|
|
:user-email (get summary "user_email"))))
|
|
|
|
(defpage cart-admin
|
|
:path "/<page_slug>/admin/"
|
|
:auth :admin
|
|
:layout :cart-admin
|
|
:data (service "cart-page" "admin-data")
|
|
:content (~payments/admin-content))
|
|
|
|
(defpage cart-payments
|
|
:path "/<page_slug>/admin/payments/"
|
|
:auth :admin
|
|
:layout (:cart-admin :selected "payments")
|
|
:data (service "cart-page" "payments-admin-data")
|
|
:content (~payments/content
|
|
:page-config page-config))
|