From d5883843fc82e1ba357d8561ce18434f1775307b Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Mon, 14 Nov 2022 12:36:11 +0100
Subject: view-instance-description -- pleroma compat

---
 lisp/mastodon-tl.el | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'lisp')

diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index ebf3570..a312c0c 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -1508,8 +1508,13 @@ INSTANCE is an instance domain name."
           (username (alist-get 'username account))
           (instance (if instance
                         (concat "https://" instance)
-                      (string-remove-suffix (concat "/@" username)
-                                            url)))
+                      ;; pleroma URL is https://instance.com/users/username
+                      (if (string-suffix-p "users/" (url-basepath url))
+                          (string-remove-suffix "/users/"
+                                                (url-basepath url))
+                        ;; mastodon:
+                        (string-remove-suffix (concat "/@" username)
+                                              url))))
           (response (mastodon-http--get-json
                      (if user
                          (mastodon-http--api "instance")
-- 
cgit v1.2.3