fix minor-view disaster disastrously: put it all init-sync

1 files changed, 12 insertions, 3 deletions

diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index d5d127d..47824c0 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -2656,8 +2656,9 @@ JSON and http headers, without it just the JSON."
                                         link-header update-params hide-replies)
           (mastodon-tl--do-init json update-function))))))
 
-(defun mastodon-tl--init-sync (buffer-name endpoint update-function
-                                           &optional note-type params headers)
+(defun mastodon-tl--init-sync
+    (buffer-name endpoint update-function
+                 &optional note-type params headers view-name binding-str)
   "Initialize BUFFER-NAME with timeline targeted by ENDPOINT.
 UPDATE-FUNCTION is used to receive more toots.
 Runs synchronously.
@@ -2676,7 +2677,15 @@ Optional arg NOTE-TYPE means only get that type of note."
          (headers (if headers (cdr response) nil))
          (link-header (mastodon-tl--get-link-header-from-response headers)))
     (with-mastodon-buffer buffer #'mastodon-mode nil
-      (mastodon-tl--set-buffer-spec buffer endpoint update-function link-header params)
+      ;; insert view-name/ heading-str
+      (when view-name
+        (mastodon-search--insert-heading view-name))
+      (when binding-str
+        (insert (mastodon-tl--set-face (concat "[" binding-str "]\n\n")
+                                       'font-lock-comment-face)))
+
+      (mastodon-tl--set-buffer-spec buffer endpoint update-function
+                                    link-header params)
       (mastodon-tl--do-init json update-function)
       buffer)))