38 lines
1 KiB
Clojure
38 lines
1 KiB
Clojure
|
(ns repl-sessions.webfinger
|
||
|
|
(:require
|
||
|
|
[cheshire.core :as json]
|
||
|
|
[clojure.string :as str]
|
||
|
|
[hato.client :as hato]
|
||
|
|
[lambdaisland.uri :as uri]))
|
||
|
|
|
||
|
|
;; all of these work
|
||
|
|
"acct:plexus@toot.cat"
|
||
|
|
"http://toot.cat/@plexus"
|
||
|
|
"https://toot.cat/@plexus"
|
||
|
|
"http://toot.cat/users/plexus"
|
||
|
|
"https://toot.cat/users/plexus"
|
||
|
|
|
||
|
|
;; rel seems to be ignored
|
||
|
|
|
||
|
|
(defn fetch-webfinger [domain resource]
|
||
|
|
(-> (uri/uri "https:///.well-known/webfinger")
|
||
|
|
(assoc :host domain)
|
||
|
|
(uri/assoc-query :resource resource)
|
||
|
|
str
|
||
|
|
(hato/get {:as :json})
|
||
|
|
:body))
|
||
|
|
|
||
|
|
(fetch-webfinger "toot.cat" "acct:plexus@toot.cat")
|
||
|
|
|
||
|
|
{:subject "acct:plexus@toot.cat",
|
||
|
|
:aliases ["https://toot.cat/@plexus" "https://toot.cat/users/plexus"],
|
||
|
|
:links
|
||
|
|
[{:rel "http://webfinger.net/rel/profile-page",
|
||
|
|
:type "text/html",
|
||
|
|
:href "https://toot.cat/@plexus"}
|
||
|
|
{:rel "self",
|
||
|
|
:type "application/activity+json",
|
||
|
|
:href "https://toot.cat/users/plexus"}
|
||
|
|
{:rel "http://ostatus.org/schema/1.0/subscribe",
|
||
|
|
:template "https://toot.cat/authorize_interaction?uri={uri}"}]}
|
