59 lines
1.7 KiB
Clojure
59 lines
1.7 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"
|
|
"acct:plexus@toot.cat"
|
|
|
|
|
|
(for [resource ["acct:plexus@toot.cat"
|
|
"https://toot.cat/u/plexus"
|
|
"https://toot.cat/users/plexus"]
|
|
:let [origin (uri/uri "https://toot.cat")]]
|
|
(let [iri (uri/uri resource)]
|
|
(cond
|
|
(#{"http" "https"} (:scheme iri))
|
|
(if (and (= (:scheme origin) (:scheme iri))
|
|
(= (:host origin) (:host iri)))
|
|
(if-let [[_ _ u] (re-find #"^/(u|users)/([^/]+)$" (:path iri))]
|
|
{:domain (:host iri)
|
|
:username u}))
|
|
(#{"acct"} (:scheme iri))
|
|
(let [[username domain] (str/split (:path iri) #"@")]
|
|
{:domain domain
|
|
:username username})
|
|
)))
|
|
|
|
(into {} (uri/uri "acct://plexus@toot.cat"))
|
|
|
|
;; 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}"}]}
|
