jadedctrl/activity-servist
jadedctrl/ activity-servist
1
0
Disbranĉigi 0
Fontkodo Issues Tirpetoj Activity

Fix HTTP-signatures vis-a-vis Pleroma

This commit is contained in:
Jaidyn Ann 2024-06-08 16:12:02 -05:00
parent 7adda41c71
commit a62cf06f1b
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/activitypub-servist.lisp
View File

@ -116,7 +116,7 @@ the plist in the docstring for its WEBTENTACLE:SERVER function."
type "application/activity+json") type "application/activity+json")
(href ,profile (href ,profile
rel "self" rel "self"
type "application/activity+json") type "application/ld+json; profile=\"https://www.w3.org/ns/activitystreams\"")
(template ,(str:concat "https://" (cdr userhost) "/ostatus_subscribe?acct={uri}") (template ,(str:concat "https://" (cdr userhost) "/ostatus_subscribe?acct={uri}")
rel "http://ostatus.org/schema/1.0/subscribe")))))) rel "http://ostatus.org/schema/1.0/subscribe"))))))
@ -142,6 +142,7 @@ the plist in the docstring for its WEBTENTACLE:SERVER function."
(yason:with-output-to-string* () (yason:with-output-to-string* ()
(yason:encode-alist (yason:encode-alist
`(("@context" . ("https://www.w3.org/ns/activitystreams" `(("@context" . ("https://www.w3.org/ns/activitystreams"
"https://w3id.org/security/v1"
"https://litepub.social/litepub/context.jsonld")) "https://litepub.social/litepub/context.jsonld"))
("endpoints" . ,(alexandria:plist-hash-table (list "sharedInbox" "https://etc.xwx.moe/inbox"))) ("endpoints" . ,(alexandria:plist-hash-table (list "sharedInbox" "https://etc.xwx.moe/inbox")))
("url" . ,user-root) ("url" . ,user-root)
@ -179,7 +180,7 @@ Mi ne estas knabino!!")
;; ———————————————————————————————————————— ;; ————————————————————————————————————————
(defun note-json (from to text) (defun note-json (from to text)
"The JSON of a user's actor." "The JSON of a user's actor."
(let* ((user-root (str:concat "https://etc.xwx.moe/u/" from)) (let* ((user-root from)
(yason:*symbol-encoder* 'yason:encode-symbol-as-lowercase)) (yason:*symbol-encoder* 'yason:encode-symbol-as-lowercase))
(yason:with-output-to-string* () (yason:with-output-to-string* ()
(yason:encode-alist (yason:encode-alist