giles
278ae3e8f6
SxExpr is now a str subclass so it works everywhere a plain string does (join, isinstance, f-strings) while serialize() still emits it unquoted. sx_call() and all internal render functions (_render_to_sx, async_eval_to_sx, etc.) return SxExpr, eliminating the "forgot to wrap" bug class that caused the sx_content leak and list serialization bugs. - Phase 0: SxExpr(str) with .source property, __add__/__radd__ - Phase 1: sx_call returns SxExpr (drop-in, all 200+ sites unchanged) - Phase 2: async_eval_to_sx, async_eval_slot_to_sx, _render_to_sx, mobile_menu_sx return SxExpr; remove isinstance(str) workaround - Phase 3: Remove ~150 redundant SxExpr() wrappings across 45 files - Phase 4: serialize() docstring, handler return docs, ;; returns: sx Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
51 lines
2.6 KiB
Plaintext
51 lines
2.6 KiB
Plaintext
;; Account-page fragment handler
|
|
;; returns: sx
|
|
;;
|
|
;; Renders tickets or bookings panel for the account dashboard.
|
|
;; slug=tickets → ticket list; slug=bookings → booking list.
|
|
|
|
(defhandler account-page (&key slug user_id)
|
|
(let ((uid (parse-int (or user_id "0"))))
|
|
(when (> uid 0)
|
|
(cond
|
|
(= slug "tickets")
|
|
(let ((tickets (service "calendar" "user-tickets" :user-id uid)))
|
|
(~events-frag-tickets-panel
|
|
:items (if (empty? tickets)
|
|
(~empty-state :message "No tickets yet."
|
|
:cls "text-sm text-stone-500")
|
|
(~events-frag-tickets-list
|
|
:items (<> (map (fn (t)
|
|
(~events-frag-ticket-item
|
|
:href (app-url "events"
|
|
(str "/tickets/" (get t "code") "/"))
|
|
:entry-name (get t "entry_name")
|
|
:date-str (format-date (get t "entry_start_at") "%d %b %Y, %H:%M")
|
|
:calendar-name (when (get t "calendar_name")
|
|
(span (str "\u00b7 " (get t "calendar_name"))))
|
|
:type-name (when (get t "ticket_type_name")
|
|
(span (str "\u00b7 " (get t "ticket_type_name"))))
|
|
:badge (~status-pill :status (or (get t "state") ""))))
|
|
tickets))))))
|
|
|
|
(= slug "bookings")
|
|
(let ((bookings (service "calendar" "user-bookings" :user-id uid)))
|
|
(~events-frag-bookings-panel
|
|
:items (if (empty? bookings)
|
|
(~empty-state :message "No bookings yet."
|
|
:cls "text-sm text-stone-500")
|
|
(~events-frag-bookings-list
|
|
:items (<> (map (fn (b)
|
|
(~events-frag-booking-item
|
|
:name (get b "name")
|
|
:date-str (str (format-date (get b "start_at") "%d %b %Y, %H:%M")
|
|
(if (get b "end_at")
|
|
(str " \u2013 " (format-date (get b "end_at") "%H:%M"))
|
|
""))
|
|
:calendar-name (when (get b "calendar_name")
|
|
(span (str "\u00b7 " (get b "calendar_name"))))
|
|
:cost-str (when (get b "cost")
|
|
(span (str "\u00b7 \u00a3" (get b "cost"))))
|
|
:badge (~status-pill :status (or (get b "state") ""))))
|
|
bookings))))))))))
|