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>
41 lines
1.3 KiB
Plaintext
41 lines
1.3 KiB
Plaintext
;; Account app — declarative page definitions
|
|
|
|
;; ---------------------------------------------------------------------------
|
|
;; Account dashboard
|
|
;; ---------------------------------------------------------------------------
|
|
|
|
(defpage account-dashboard
|
|
:path "/"
|
|
:auth :login
|
|
:layout :account
|
|
:content (~dashboard/content))
|
|
|
|
;; ---------------------------------------------------------------------------
|
|
;; Newsletters
|
|
;; ---------------------------------------------------------------------------
|
|
|
|
(defpage newsletters
|
|
:path "/newsletters/"
|
|
:auth :login
|
|
:layout :account
|
|
:data (service "account-page" "newsletters-data")
|
|
:content (~newsletters/content
|
|
:newsletter-list newsletter-list
|
|
:account-url account-url))
|
|
|
|
;; ---------------------------------------------------------------------------
|
|
;; Fragment pages (tickets, bookings, etc. from events service)
|
|
;; ---------------------------------------------------------------------------
|
|
|
|
(defpage fragment-page
|
|
:path "/<slug>/"
|
|
:auth :login
|
|
:layout :account
|
|
:content (let* ((user (current-user))
|
|
(result (frag "events" "account-page"
|
|
:slug slug
|
|
:user-id (str (get user "id")))))
|
|
(if (or (nil? result) (empty? result))
|
|
(abort 404)
|
|
result)))
|