giles
c1ad6fd8d4
Move rendering logic from Python for-loops building sx_call strings into SX defcomp components that use map/lambda over data dicts. Python now serializes display data into plain dicts and passes them via a single sx_call; the SX layer handles iteration and conditional rendering. Covers orders (rows, items, calendar, tickets), federation (timeline, search, actors, profile activities), and blog (cards, pages, filters, snippets, menu items, tag groups, page search, nav OOB). Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
104 lines
5.0 KiB
Plaintext
104 lines
5.0 KiB
Plaintext
;; Search and actor card components
|
|
|
|
;; Aliases — delegate to shared ~avatar
|
|
(defcomp ~federation-actor-avatar-img (&key src cls)
|
|
(~avatar :src src :cls cls))
|
|
|
|
(defcomp ~federation-actor-avatar-placeholder (&key cls initial)
|
|
(~avatar :cls cls :initial initial))
|
|
|
|
(defcomp ~federation-actor-name-link (&key href name)
|
|
(a :href href :class "font-semibold text-stone-900 hover:underline" name))
|
|
|
|
(defcomp ~federation-actor-name-link-external (&key href name)
|
|
(a :href href :target "_blank" :rel "noopener"
|
|
:class "font-semibold text-stone-900 hover:underline" name))
|
|
|
|
(defcomp ~federation-actor-summary (&key summary)
|
|
(div :class "text-sm text-stone-600 mt-1 truncate" (~rich-text :html summary)))
|
|
|
|
(defcomp ~federation-unfollow-button (&key action csrf actor-url)
|
|
(div :class "flex-shrink-0"
|
|
(form :method "post" :action action :sx-post action :sx-target "closest article" :sx-swap "outerHTML"
|
|
(input :type "hidden" :name "csrf_token" :value csrf)
|
|
(input :type "hidden" :name "actor_url" :value actor-url)
|
|
(button :type "submit" :class "text-sm border border-stone-300 rounded px-3 py-1 hover:bg-stone-100" "Unfollow"))))
|
|
|
|
(defcomp ~federation-follow-button (&key action csrf actor-url label)
|
|
(div :class "flex-shrink-0"
|
|
(form :method "post" :action action :sx-post action :sx-target "closest article" :sx-swap "outerHTML"
|
|
(input :type "hidden" :name "csrf_token" :value csrf)
|
|
(input :type "hidden" :name "actor_url" :value actor-url)
|
|
(button :type "submit" :class "text-sm bg-stone-800 text-white rounded px-3 py-1 hover:bg-stone-700" label))))
|
|
|
|
(defcomp ~federation-actor-card (&key cls id avatar name username domain summary button)
|
|
(article :class cls :id id
|
|
avatar
|
|
(div :class "flex-1 min-w-0"
|
|
name
|
|
(div :class "text-sm text-stone-500" "@" username "@" domain)
|
|
summary)
|
|
button))
|
|
|
|
;; Data-driven actor card (replaces Python _actor_card_sx loop)
|
|
(defcomp ~federation-actor-card-from-data (&key d has-actor csrf follow-url unfollow-url list-type)
|
|
(let* ((icon-url (get d "icon_url"))
|
|
(display-name (get d "display_name"))
|
|
(username (get d "username"))
|
|
(domain (get d "domain"))
|
|
(actor-url (get d "actor_url"))
|
|
(safe-id (get d "safe_id"))
|
|
(initial (or (get d "initial") "?"))
|
|
(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-sx (if (get d "external_link")
|
|
(~federation-actor-name-link-external :href (get d "name_href") :name display-name)
|
|
(~federation-actor-name-link :href (get d "name_href") :name display-name)))
|
|
(summary-sx (when (get d "summary")
|
|
(~federation-actor-summary :summary (get d "summary"))))
|
|
(is-followed (get d "is_followed"))
|
|
(button (when has-actor
|
|
(if (or (= list-type "following") is-followed)
|
|
(~federation-unfollow-button :action unfollow-url :csrf csrf :actor-url actor-url)
|
|
(~federation-follow-button :action follow-url :csrf csrf :actor-url actor-url
|
|
:label (if (= list-type "followers") "Follow Back" "Follow"))))))
|
|
(~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 :name name-sx :username username :domain domain
|
|
:summary summary-sx :button button)))
|
|
|
|
;; Data-driven actor list (replaces Python _search_results_sx / _actor_list_items_sx loops)
|
|
(defcomp ~federation-actor-list-from-data (&key actors next-url has-actor csrf
|
|
follow-url unfollow-url list-type)
|
|
(<>
|
|
(map (lambda (d)
|
|
(~federation-actor-card-from-data :d d :has-actor has-actor :csrf csrf
|
|
:follow-url follow-url :unfollow-url unfollow-url :list-type list-type))
|
|
(or actors (list)))
|
|
(when next-url (~federation-scroll-sentinel :url next-url))))
|
|
|
|
(defcomp ~federation-search-info (&key cls text)
|
|
(p :class cls text))
|
|
|
|
(defcomp ~federation-search-page (&key search-url search-page-url query info results)
|
|
(h1 :class "text-2xl font-bold mb-6" "Search")
|
|
(form :method "get" :action search-url :class "mb-6"
|
|
:sx-get search-page-url :sx-target "#search-results" :sx-push-url search-url
|
|
(div :class "flex gap-2"
|
|
(input :type "text" :name "q" :value query
|
|
:class "flex-1 border border-stone-300 rounded-lg px-4 py-2 focus:outline-none focus:ring-2 focus:ring-stone-500"
|
|
:placeholder "Search users or @user@instance.tld")
|
|
(button :type "submit" :class "bg-stone-800 text-white px-6 py-2 rounded hover:bg-stone-700" "Search")))
|
|
info
|
|
(div :id "search-results" results))
|
|
|
|
;; Following / Followers list page
|
|
(defcomp ~federation-actor-list-page (&key title count-str items)
|
|
(h1 :class "text-2xl font-bold mb-6" title " "
|
|
(span :class "text-stone-400 font-normal" count-str))
|
|
(div :id "actor-list" items))
|