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>
42 lines
1.9 KiB
Plaintext
42 lines
1.9 KiB
Plaintext
;; Federation link-card fragment handler
|
|
;; returns: sx
|
|
;;
|
|
;; Renders actor profile preview card(s) by username.
|
|
;; Supports single mode (?slug=x or ?username=x) and batch mode (?keys=x,y,z).
|
|
|
|
(defhandler link-card (&key username slug keys)
|
|
(if keys
|
|
(let ((usernames (filter (fn (u) (not (empty? u)))
|
|
(map trim (split keys ",")))))
|
|
(<> (map (fn (u)
|
|
(let ((actor (service "federation" "get-actor-by-username" :username u)))
|
|
(<> (str "<!-- fragment:" u " -->")
|
|
(when (not (nil? actor))
|
|
(~shared:fragments/link-card
|
|
:link (app-url "federation"
|
|
(str "/users/" (get actor "preferred_username")))
|
|
:title (or (get actor "display_name")
|
|
(get actor "preferred_username"))
|
|
:image nil
|
|
:icon "fas fa-user"
|
|
:subtitle (when (get actor "preferred_username")
|
|
(str "@" (get actor "preferred_username")))
|
|
:detail (get actor "summary")
|
|
:data-app "federation"))))) usernames)))
|
|
(let ((lookup (or username slug)))
|
|
(when (not (empty? (or lookup "")))
|
|
(let ((actor (service "federation" "get-actor-by-username"
|
|
:username lookup)))
|
|
(when (not (nil? actor))
|
|
(~shared:fragments/link-card
|
|
:link (app-url "federation"
|
|
(str "/users/" (get actor "preferred_username")))
|
|
:title (or (get actor "display_name")
|
|
(get actor "preferred_username"))
|
|
:image nil
|
|
:icon "fas fa-user"
|
|
:subtitle (when (get actor "preferred_username")
|
|
(str "@" (get actor "preferred_username")))
|
|
:detail (get actor "summary")
|
|
:data-app "federation")))))))
|