Move SX construction from Python to .sx defcomps (phases 0-4)

Eliminate Python s-expression string building across account, orders,
federation, and cart services. Visual rendering logic now lives entirely
in .sx defcomp components; Python files contain only data serialization,
header/layout wiring, and thin wrappers that call defcomps.

Phase 0: Shared DRY extraction — auth/orders header defcomps, format-decimal/
pluralize/escape/route-prefix primitives.
Phase 1: Account — dashboard, newsletters, login/device/check-email content.
Phase 2: Orders — order list, detail, filter, checkout return assembled defcomps.
Phase 3: Federation — social nav, post cards, timeline, search, actors,
notifications, compose, profile assembled defcomps.
Phase 4: Cart — overview, page cart items/calendar/tickets/summary, admin,
payments assembled defcomps; orders rendering reuses Phase 2 shared defcomps.

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

federation/sx/search.sx

@@ -60,3 +60,99 @@
   (h1 :class "text-2xl font-bold mb-6" title " "
     (span :class "text-stone-400 font-normal" count-str))
   (div :id "actor-list" items))
+
+;; ---------------------------------------------------------------------------
+;; Assembled actor card — replaces Python _actor_card_sx
+;; ---------------------------------------------------------------------------
+
+(defcomp ~federation-actor-card-from-data (&key a actor followed-urls list-type)
+  (let* ((display-name (or (get a "display_name") (get a "preferred_username") ""))
+         (username (or (get a "preferred_username") ""))
+         (domain (or (get a "domain") ""))
+         (icon-url (get a "icon_url"))
+         (actor-url (or (get a "actor_url") ""))
+         (summary (get a "summary"))
+         (aid (get a "id"))
+         (safe-id (replace (replace actor-url "/" "_") ":" "_"))
+         (initial (if (and (not icon-url) (or display-name username))
+                    (upper (slice (or display-name username) 0 1)) "?"))
+         (csrf (csrf-token))
+         (is-followed (contains? (or followed-urls (list)) actor-url)))
+    (~federation-actor-card
+      :cls "bg-white rounded-lg shadow-sm border border-stone-200 p-4 mb-3 flex items-center gap-4"
+      :id (str "actor-" safe-id)
+      :avatar (~avatar
+        :src icon-url
+        :cls (if icon-url "w-12 h-12 rounded-full"
+               "w-12 h-12 rounded-full bg-stone-300 flex items-center justify-center text-stone-600 font-bold")
+        :initial (when (not icon-url) initial))
+      :name (if (and (or (= list-type "following") (= list-type "search")) aid)
+              (~federation-actor-name-link
+                :href (url-for "social.defpage_actor_timeline" :id aid)
+                :name (escape display-name))
+              (~federation-actor-name-link-external
+                :href (str "https://" domain "/@" username)
+                :name (escape display-name)))
+      :username (escape username)
+      :domain (escape domain)
+      :summary (when summary (~federation-actor-summary :summary summary))
+      :button (when actor
+        (if (or (= list-type "following") is-followed)
+          (~federation-unfollow-button
+            :action (url-for "social.unfollow") :csrf csrf :actor-url actor-url)
+          (~federation-follow-button
+            :action (url-for "social.follow") :csrf csrf :actor-url actor-url
+            :label (if (= list-type "followers") "Follow Back" "Follow")))))))
+
+;; Assembled search content — replaces Python _search_content_sx
+(defcomp ~federation-search-content (&key query actors total followed-urls actor)
+  (~federation-search-page
+    :search-url (url-for "social.defpage_search")
+    :search-page-url (url-for "social.search_page")
+    :query (escape (or query ""))
+    :info (cond
+      ((and query (> total 0))
+        (~federation-search-info
+          :cls "text-sm text-stone-500 mb-4"
+          :text (str total " result" (pluralize total) " for " (escape query))))
+      (query
+        (~federation-search-info
+          :cls "text-stone-500 mb-4"
+          :text (str "No results found for " (escape query))))
+      (true nil))
+    :results (when (not (empty? actors))
+      (<>
+        (map (lambda (a)
+          (~federation-actor-card-from-data
+            :a a :actor actor :followed-urls followed-urls :list-type "search"))
+          actors)
+        (when (>= (len actors) 20)
+          (~federation-scroll-sentinel
+            :url (url-for "social.search_page" :q query :page 2)))))))
+
+;; Assembled following/followers content — replaces Python _following_content_sx etc.
+(defcomp ~federation-following-content (&key actors total actor)
+  (~federation-actor-list-page
+    :title "Following" :count-str (str "(" total ")")
+    :items (when (not (empty? actors))
+      (<>
+        (map (lambda (a)
+          (~federation-actor-card-from-data
+            :a a :actor actor :followed-urls (list) :list-type "following"))
+          actors)
+        (when (>= (len actors) 20)
+          (~federation-scroll-sentinel
+            :url (url-for "social.following_list_page" :page 2)))))))
+
+(defcomp ~federation-followers-content (&key actors total followed-urls actor)
+  (~federation-actor-list-page
+    :title "Followers" :count-str (str "(" total ")")
+    :items (when (not (empty? actors))
+      (<>
+        (map (lambda (a)
+          (~federation-actor-card-from-data
+            :a a :actor actor :followed-urls followed-urls :list-type "followers"))
+          actors)
+        (when (>= (len actors) 20)
+          (~federation-scroll-sentinel
+            :url (url-for "social.followers_list_page" :page 2)))))))