giles
b0920a1121
Component names now reflect filesystem location using / as path separator and : as namespace separator for shared components: ~sx-header → ~layouts/header ~layout-app-body → ~shared:layout/app-body ~blog-admin-dashboard → ~admin/dashboard 209 files, 4,941 replacements across all services. Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
106 lines
4.7 KiB
Plaintext
106 lines
4.7 KiB
Plaintext
;; Profile and actor timeline components
|
|
|
|
(defcomp ~profile/actor-profile-header (&key avatar (display-name :as string) (username :as string) (domain :as string) summary follow)
|
|
(div :class "bg-white rounded-lg shadow-sm border border-stone-200 p-6 mb-6"
|
|
(div :class "flex items-center gap-4"
|
|
avatar
|
|
(div :class "flex-1"
|
|
(h1 :class "text-xl font-bold" display-name)
|
|
(div :class "text-stone-500" "@" username "@" domain)
|
|
summary)
|
|
follow)))
|
|
|
|
(defcomp ~profile/actor-timeline-layout (&key header timeline)
|
|
header
|
|
(div :id "timeline" timeline))
|
|
|
|
(defcomp ~profile/follow-form (&key (action :as string) (csrf :as string) (actor-url :as string) (label :as string) (cls :as string))
|
|
(div :class "flex-shrink-0"
|
|
(form :method "post" :action action
|
|
(input :type "hidden" :name "csrf_token" :value csrf)
|
|
(input :type "hidden" :name "actor_url" :value actor-url)
|
|
(button :type "submit" :class cls label))))
|
|
|
|
(defcomp ~profile/summary (&key (summary :as string))
|
|
(div :class "text-sm text-stone-600 mt-2" (~rich-text :html summary)))
|
|
|
|
;; Public profile page
|
|
|
|
(defcomp ~profile/activity-obj-type (&key (obj-type :as string))
|
|
(span :class "text-sm text-stone-500" obj-type))
|
|
|
|
(defcomp ~profile/activity-card (&key (activity-type :as string) (published :as string) obj-type)
|
|
(div :class "bg-white rounded-lg shadow p-4"
|
|
(div :class "flex justify-between items-start"
|
|
(span :class "font-medium" activity-type)
|
|
(span :class "text-sm text-stone-400" published))
|
|
obj-type))
|
|
|
|
(defcomp ~profile/activities-list (&key (items :as list))
|
|
(div :class "space-y-4" items))
|
|
|
|
(defcomp ~profile/activities-empty ()
|
|
(p :class "text-stone-500" "No activities yet."))
|
|
|
|
(defcomp ~profile/page (&key (display-name :as string) (username :as string) (domain :as string) summary (activities-heading :as string) activities)
|
|
(div :class "py-8"
|
|
(div :class "bg-white rounded-lg shadow p-6 mb-6"
|
|
(h1 :class "text-2xl font-bold" display-name)
|
|
(p :class "text-stone-500" "@" username "@" domain)
|
|
summary)
|
|
(h2 :class "text-xl font-bold mb-4" activities-heading)
|
|
activities))
|
|
|
|
(defcomp ~profile/summary-text (&key (text :as string))
|
|
(p :class "mt-2" text))
|
|
|
|
;; Assembled actor timeline content — replaces Python _actor_timeline_content_sx
|
|
(defcomp ~profile/actor-timeline-content (&key (remote-actor :as dict) (items :as list) (is-following :as boolean) actor)
|
|
(let* ((display-name (or (get remote-actor "display_name") (get remote-actor "preferred_username") ""))
|
|
(icon-url (get remote-actor "icon_url"))
|
|
(summary (get remote-actor "summary"))
|
|
(actor-url (or (get remote-actor "actor_url") ""))
|
|
(csrf (csrf-token))
|
|
(initial (if (and (not icon-url) display-name)
|
|
(upper (slice display-name 0 1)) "?")))
|
|
(~profile/actor-timeline-layout
|
|
:header (~profile/actor-profile-header
|
|
:avatar (~shared:misc/avatar
|
|
:src icon-url
|
|
:cls (if icon-url "w-16 h-16 rounded-full"
|
|
"w-16 h-16 rounded-full bg-stone-300 flex items-center justify-center text-stone-600 font-bold text-xl")
|
|
:initial (when (not icon-url) initial))
|
|
:display-name (escape display-name)
|
|
:username (escape (or (get remote-actor "preferred_username") ""))
|
|
:domain (escape (or (get remote-actor "domain") ""))
|
|
:summary (when summary (~profile/summary :summary summary))
|
|
:follow (when actor
|
|
(if is-following
|
|
(~profile/follow-form
|
|
:action (url-for "social.unfollow") :csrf csrf :actor-url actor-url
|
|
:label "Unfollow"
|
|
:cls "border border-stone-300 rounded px-4 py-2 hover:bg-stone-100")
|
|
(~profile/follow-form
|
|
:action (url-for "social.follow") :csrf csrf :actor-url actor-url
|
|
:label "Follow"
|
|
:cls "bg-stone-800 text-white rounded px-4 py-2 hover:bg-stone-700"))))
|
|
:timeline (~social/timeline-items
|
|
:items items :timeline-type "actor" :actor actor
|
|
:next-url (when (not (empty? items))
|
|
(url-for "social.actor_timeline_page"
|
|
:id (get remote-actor "id")
|
|
:before (get (last items) "before_cursor")))))))
|
|
|
|
;; Data-driven activities list (replaces Python loop in render_profile_page)
|
|
(defcomp ~profile/activities-from-data (&key (activities :as list))
|
|
(if (empty? (or activities (list)))
|
|
(~profile/activities-empty)
|
|
(~profile/activities-list
|
|
:items (<> (map (lambda (a)
|
|
(~profile/activity-card
|
|
:activity-type (get a "activity_type")
|
|
:published (get a "published")
|
|
:obj-type (when (get a "object_type")
|
|
(~profile/activity-obj-type :obj-type (get a "object_type")))))
|
|
activities)))))
|