(in-package :activitypub-tools.domain)

(defun webfinger-data (handle)
  (destructuring-bind (user host)
      (fwoar.string-utils:partition #\@ handle :from-end t)
    (declare (ignore user))
    (yason:parse
     (babel:octets-to-string
      (drakma:http-request (quri:render-uri
                            (quri:make-uri :scheme :https
                                           :host host
                                           :path "/.well-known/webfinger"
                                           :query (list (cons "resource"
                                                              (format nil "acct:~a" handle)))))
                           :preserve-uri t
                           :accept "application/json"
                           :force-binary t)))))