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/fragments.sx

@@ -68,3 +68,65 @@
 
 (defcomp ~events-frag-bookings-list (&key items)
   (div :class "divide-y divide-stone-100" items))
+
+
+;; ---------------------------------------------------------------------------
+;; From-data defcomps — iteration in sx
+;; ---------------------------------------------------------------------------
+
+;; Container cards: list of widgets, each with entries
+(defcomp ~events-frag-container-cards-from-data (&key widgets)
+  (<> (map (lambda (w)
+    (if (get w "entries")
+      (~events-frag-entries-widget
+        :cards (<> (map (lambda (e)
+          (~events-frag-entry-card
+            :href (get e "href") :name (get e "name")
+            :date-str (get e "date-str") :time-str (get e "time-str")))
+          (get w "entries"))))
+      ""))
+    (or widgets (list)))))
+
+;; Ticket item from data — composes badge + optional spans
+(defcomp ~events-frag-ticket-item-from-data (&key href entry-name date-str calendar-name type-name state)
+  (~events-frag-ticket-item
+    :href href :entry-name entry-name :date-str date-str
+    :calendar-name (when calendar-name (span "\u00b7 " calendar-name))
+    :type-name (when type-name (span "\u00b7 " type-name))
+    :badge (~status-pill :status state)))
+
+;; Tickets panel from data — full panel with list iteration
+(defcomp ~events-frag-tickets-panel-from-data (&key tickets)
+  (~events-frag-tickets-panel
+    :items (if (empty? (or tickets (list)))
+      (~empty-state :message "No tickets yet." :cls "text-sm text-stone-500")
+      (~events-frag-tickets-list
+        :items (<> (map (lambda (t)
+          (~events-frag-ticket-item-from-data
+            :href (get t "href") :entry-name (get t "entry-name")
+            :date-str (get t "date-str") :calendar-name (get t "calendar-name")
+            :type-name (get t "type-name") :state (get t "state")))
+          tickets))))))
+
+;; Booking item from data — composes badge + optional spans
+(defcomp ~events-frag-booking-item-from-data (&key name date-str end-time calendar-name cost-str state)
+  (~events-frag-booking-item
+    :name name
+    :date-str (<> date-str (when end-time (span "\u2013 " end-time)))
+    :calendar-name (when calendar-name (span "\u00b7 " calendar-name))
+    :cost-str (when cost-str (span "\u00b7 \u00a3" cost-str))
+    :badge (~status-pill :status state)))
+
+;; Bookings panel from data — full panel with list iteration
+(defcomp ~events-frag-bookings-panel-from-data (&key bookings)
+  (~events-frag-bookings-panel
+    :items (if (empty? (or bookings (list)))
+      (~empty-state :message "No bookings yet." :cls "text-sm text-stone-500")
+      (~events-frag-bookings-list
+        :items (<> (map (lambda (b)
+          (~events-frag-booking-item-from-data
+            :href (get b "href") :name (get b "name")
+            :date-str (get b "date-str") :end-time (get b "end-time")
+            :calendar-name (get b "calendar-name") :cost-str (get b "cost-str")
+            :state (get b "state")))
+          bookings))))))