;; 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)))