From aa6e9c55152ac1301efbdbdce9aa7fc3e8fea7c9 Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Sat, 6 May 2023 16:00:00 +0200
Subject: eval-when-compile for with-mastodon-buffer, and re-indent

---
 lisp/mastodon-views.el | 43 ++++++++++++++++++++++---------------------
 1 file changed, 22 insertions(+), 21 deletions(-)

(limited to 'lisp/mastodon-views.el')

diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el
index 8585bb0..51e4bd6 100644
--- a/lisp/mastodon-views.el
+++ b/lisp/mastodon-views.el
@@ -36,6 +36,8 @@
 
 (require 'cl-lib)
 (require 'mastodon-http)
+(eval-when-compile
+  (require 'mastodon-tl))
 
 (defvar mastodon-mode-map)
 (defvar mastodon-tl--horiz-bar)
@@ -799,27 +801,26 @@ INSTANCE is the instance were are working with."
     (let* ((domain (url-file-nondirectory instance))
            (buf (get-buffer-create
                  (format "*mastodon-instance-%s*" domain))))
-      (with-mastodon-buffer
-       buf #'special-mode :other-window
-       (when brief
-         (setq response
-               (list (assoc 'uri response)
-                     (assoc 'title response)
-                     (assoc 'short_description response)
-                     (assoc 'email response)
-                     (cons 'contact_account
-                           (list
-                            (assoc 'username
-                                   (assoc 'contact_account response))))
-                     (assoc 'rules response)
-                     (assoc 'stats response))))
-       (mastodon-views--print-json-keys response)
-       ;; (mastodon-mode) ; breaks our 'q' binding that avoids leaving
-       ;; split window
-       (mastodon-tl--set-buffer-spec (buffer-name buf)
-                                     "instance"
-                                     nil)
-       (goto-char (point-min))))))
+      (with-mastodon-buffer buf #'special-mode :other-window
+        (when brief
+          (setq response
+                (list (assoc 'uri response)
+                      (assoc 'title response)
+                      (assoc 'short_description response)
+                      (assoc 'email response)
+                      (cons 'contact_account
+                            (list
+                             (assoc 'username
+                                    (assoc 'contact_account response))))
+                      (assoc 'rules response)
+                      (assoc 'stats response))))
+        (mastodon-views--print-json-keys response)
+        ;; (mastodon-mode) ; breaks our 'q' binding that avoids leaving
+        ;; split window
+        (mastodon-tl--set-buffer-spec (buffer-name buf)
+                                      "instance"
+                                      nil)
+        (goto-char (point-min))))))
 
 (defun mastodon-views--format-key (el pad)
   "Format a key of element EL, a cons, with PAD padding."
-- 
cgit v1.2.3