Move events/market/blog composition from Python to .sx defcomps (Phase 9)

Continues the pattern of eliminating Python sx_call tree-building in favour
of data-driven .sx defcomps. POST/PUT/DELETE routes now pass plain data
(dicts, lists, scalars) and let .sx handle iteration, conditionals, and
layout via map/let/when/if. Single response components wrap OOB swaps.

Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>

events/sx/tickets.sx

@@ -204,3 +204,152 @@
       (h3 :class "text-lg font-semibold" (str "Tickets for: " entry-name))
       (span :class "text-sm text-stone-500" count-label))
     body))
+
+
+;; ---------------------------------------------------------------------------
+;; Composition defcomps — receive data, compose ticket trees
+;; ---------------------------------------------------------------------------
+
+;; My tickets panel from data
+(defcomp ~events-tickets-panel-from-data (&key list-container tickets)
+  (~events-tickets-panel
+    :list-container list-container
+    :has-tickets (not (empty? (or tickets (list))))
+    :cards (<> (map (lambda (t)
+      (~events-ticket-card
+        :href (get t "href") :entry-name (get t "entry-name")
+        :type-name (get t "type-name") :time-str (get t "time-str")
+        :cal-name (get t "cal-name")
+        :badge (~ticket-state-badge :state (get t "state"))
+        :code-prefix (get t "code-prefix")))
+      (or tickets (list))))))
+
+;; Ticket detail from data — uses lg badge variant
+(defcomp ~events-ticket-detail-from-data (&key list-container back-href header-bg entry-name
+                                                state type-name code time-date time-range
+                                                cal-name type-desc checkin-str qr-script)
+  (~events-ticket-detail
+    :list-container list-container :back-href back-href
+    :header-bg header-bg :entry-name entry-name
+    :badge (~ticket-state-badge-lg :state state)
+    :type-name type-name :code code
+    :time-date time-date :time-range time-range
+    :cal-name cal-name :type-desc type-desc
+    :checkin-str checkin-str :qr-script qr-script))
+
+;; Ticket admin row from data — conditional action column
+(defcomp ~events-ticket-admin-row-from-data (&key code code-short entry-name date-str
+                                                   type-name state checkin-url csrf
+                                                   checked-in-time)
+  (~events-ticket-admin-row
+    :code code :code-short code-short
+    :entry-name entry-name
+    :date (when date-str (~events-ticket-admin-date :date-str date-str))
+    :type-name type-name
+    :badge (~ticket-state-badge :state state)
+    :action (cond
+      ((or (= state "confirmed") (= state "reserved"))
+        (~events-ticket-admin-checkin-form
+          :checkin-url checkin-url :code code :csrf csrf))
+      ((= state "checked_in")
+        (~events-ticket-admin-checked-in :time-str (or checked-in-time "")))
+      (true nil))))
+
+;; Ticket admin panel from data
+(defcomp ~events-ticket-admin-panel-from-data (&key list-container lookup-url tickets
+                                                     total confirmed checked-in reserved)
+  (~events-ticket-admin-panel
+    :list-container list-container
+    :stats (<>
+      (~events-ticket-admin-stat :border "border-stone-200" :bg ""
+        :text-cls "text-stone-900" :label-cls "text-stone-500"
+        :value (str (or total 0)) :label "Total")
+      (~events-ticket-admin-stat :border "border-emerald-200" :bg "bg-emerald-50"
+        :text-cls "text-emerald-700" :label-cls "text-emerald-600"
+        :value (str (or confirmed 0)) :label "Confirmed")
+      (~events-ticket-admin-stat :border "border-blue-200" :bg "bg-blue-50"
+        :text-cls "text-blue-700" :label-cls "text-blue-600"
+        :value (str (or checked-in 0)) :label "Checked In")
+      (~events-ticket-admin-stat :border "border-amber-200" :bg "bg-amber-50"
+        :text-cls "text-amber-700" :label-cls "text-amber-600"
+        :value (str (or reserved 0)) :label "Reserved"))
+    :lookup-url lookup-url
+    :has-tickets (not (empty? (or tickets (list))))
+    :rows (<> (map (lambda (t)
+      (~events-ticket-admin-row-from-data
+        :code (get t "code") :code-short (get t "code-short")
+        :entry-name (get t "entry-name") :date-str (get t "date-str")
+        :type-name (get t "type-name") :state (get t "state")
+        :checkin-url (get t "checkin-url") :csrf (get t "csrf")
+        :checked-in-time (get t "checked-in-time")))
+      (or tickets (list))))))
+
+;; Entry tickets admin from data
+(defcomp ~events-entry-tickets-admin-from-data (&key entry-name count-label tickets csrf)
+  (~events-entry-tickets-admin-panel
+    :entry-name entry-name :count-label count-label
+    :body (if (empty? (or tickets (list)))
+      (~events-entry-tickets-admin-empty)
+      (~events-entry-tickets-admin-table
+        :rows (<> (map (lambda (t)
+          (~events-entry-tickets-admin-row
+            :code (get t "code") :code-short (get t "code-short")
+            :type-name (get t "type-name")
+            :badge (~ticket-state-badge :state (get t "state"))
+            :action (cond
+              ((or (= (get t "state") "confirmed") (= (get t "state") "reserved"))
+                (~events-entry-tickets-admin-checkin
+                  :checkin-url (get t "checkin-url") :code (get t "code") :csrf csrf))
+              ((= (get t "state") "checked_in")
+                (~events-ticket-admin-checked-in :time-str (or (get t "checked-in-time") "")))
+              (true nil))))
+          (or tickets (list))))))))
+
+;; Checkin success row from data
+(defcomp ~events-checkin-success-row-from-data (&key code code-short entry-name date-str type-name time-str)
+  (~events-checkin-success-row
+    :code code :code-short code-short
+    :entry-name entry-name
+    :date (when date-str (~events-ticket-admin-date :date-str date-str))
+    :type-name type-name
+    :badge (~ticket-state-badge :state "checked_in")
+    :time-str time-str))
+
+;; Ticket types table from data
+(defcomp ~events-ticket-types-table-from-data (&key list-container ticket-types action-btn add-url
+                                                     tr-cls pill-cls hx-select csrf-hdr)
+  (~events-ticket-types-table
+    :list-container list-container
+    :rows (if (empty? (or ticket-types (list)))
+      (~events-ticket-types-empty-row)
+      (<> (map (lambda (tt)
+        (~events-ticket-types-row
+          :tr-cls tr-cls :tt-href (get tt "tt-href")
+          :pill-cls pill-cls :hx-select hx-select
+          :tt-name (get tt "tt-name") :cost-str (get tt "cost-str")
+          :count (get tt "count") :action-btn action-btn
+          :del-url (get tt "del-url") :csrf-hdr csrf-hdr))
+        (or ticket-types (list)))))
+    :action-btn action-btn :add-url add-url))
+
+;; Lookup result from data
+(defcomp ~events-lookup-result-from-data (&key entry-name type-name date-str cal-name
+                                                state code checked-in-str
+                                                checkin-url csrf)
+  (~events-lookup-card
+    :info (<>
+      (~events-lookup-info :entry-name entry-name)
+      (when type-name (~events-lookup-type :type-name type-name))
+      (when date-str (~events-lookup-date :date-str date-str))
+      (when cal-name (~events-lookup-cal :cal-name cal-name))
+      (~events-lookup-status
+        :badge (~ticket-state-badge :state state) :code code)
+      (when checked-in-str
+        (~events-lookup-checkin-time :date-str checked-in-str)))
+    :code code
+    :action (cond
+      ((or (= state "confirmed") (= state "reserved"))
+        (~events-lookup-checkin-btn :checkin-url checkin-url :code code :csrf csrf))
+      ((= state "checked_in") (~events-lookup-checked-in))
+      ((= state "cancelled") (~events-lookup-cancelled))
+      (true nil))))