aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-tl.el
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-10-14 21:32:16 +0200
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-10-14 21:32:16 +0200
commit31643d6f63bd3056952d6735466e551ada2f9e3b (patch)
tree6edb2bd69cffdd31c2148a3770e2b8c5bf9549eb /lisp/mastodon-tl.el
parentca0b443a79bfe54b77bd7ffebbc0e1f361c2d783 (diff)
parenta672c056a8dfb17f9513933189e2786c42542398 (diff)
Merge branch 'minor-view' into develop
Diffstat (limited to 'lisp/mastodon-tl.el')
-rw-r--r--lisp/mastodon-tl.el11
1 files changed, 9 insertions, 2 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 67ceb9e..0c4f8af 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.
@@ -2677,6 +2678,12 @@ Optional arg NOTE-TYPE means only get that type of note."
(link-header (when headers
(mastodon-tl--get-link-header-from-response headers))))
(with-mastodon-buffer buffer #'mastodon-mode nil
+ ;; 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)