diff options
| -rw-r--r-- | lisp/mastodon-profile.el | 4 | ||||
| -rw-r--r-- | lisp/mastodon-search.el | 2 | ||||
| -rw-r--r-- | lisp/mastodon-tl.el | 7 | ||||
| -rw-r--r-- | lisp/mastodon-toot.el | 5 | ||||
| -rw-r--r-- | lisp/mastodon-views.el | 6 |
5 files changed, 8 insertions, 16 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index b4812d7..241fbbe 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -496,9 +496,7 @@ This endpoint only holds a few preferences. For others, see (response (mastodon-http--get-json url)) (buf (get-buffer-create "*mastodon-preferences*"))) (with-mastodon-buffer buf #'special-mode :other-window - (mastodon-tl--set-buffer-spec (buffer-name buf) - "preferences" - nil) + (mastodon-tl--set-buffer-spec (buffer-name buf) "preferences" nil) (while response (let ((el (pop response))) (insert diff --git a/lisp/mastodon-search.el b/lisp/mastodon-search.el index a6b4492..4b5f2e0 100644 --- a/lisp/mastodon-search.el +++ b/lisp/mastodon-search.el @@ -101,7 +101,7 @@ QUERY is the string to search." status-ids-list))) (defun mastodon-search--view-trending (type print-fun) - "Display a list of items trending on your instance. + "Display a list of tags trending on your instance. TYPE is a string, either tags, statuses, or links. PRINT-FUN is the function used to print the data from the response." (let* ((url (mastodon-http--api diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 3352b13..ce3f8c3 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -1739,9 +1739,7 @@ ID is that of the toot to view." (if (equal (caar toot) 'error) (message "Error: %s" (cdar toot)) (with-mastodon-buffer buffer #'mastodon-mode nil - (mastodon-tl--set-buffer-spec buffer - (format "statuses/%s" id) - nil) + (mastodon-tl--set-buffer-spec buffer (format "statuses/%s" id) nil) (mastodon-tl--toot toot :detailed-p))))) (defun mastodon-tl--view-whole-thread () @@ -1787,8 +1785,7 @@ view all branches of a thread." (mastodon-tl--set-buffer-spec buffer endpoint #'mastodon-tl--thread) - (mastodon-tl--timeline (alist-get 'ancestors context) - :thread) + (mastodon-tl--timeline (alist-get 'ancestors context) :thread) (goto-char (point-max)) (move-marker marker (point)) ;; print re-fetched toot: diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index a2fa35f..825831d 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -903,8 +903,9 @@ instance to edit a toot." "View editing history of the toot at point in a popup buffer." (interactive) (let ((id (mastodon-tl--property 'base-toot-id)) - (history (mastodon-tl--property 'edit-history))) - (with-mastodon-buffer "*mastodon-toot-edits*" #'special-mode :other-window + (history (mastodon-tl--property 'edit-history)) + (buf "*mastodon-toot-edits*")) + (with-mastodon-buffer buf #'special-mode :other-window (let ((count 1)) (mapc (lambda (x) (insert (propertize (if (= count 1) diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el index 51e4bd6..4f102a6 100644 --- a/lisp/mastodon-views.el +++ b/lisp/mastodon-views.el @@ -815,11 +815,7 @@ INSTANCE is the instance were are working with." (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) + (mastodon-tl--set-buffer-spec (buffer-name buf) "instance" nil) (goto-char (point-min)))))) (defun mastodon-views--format-key (el pad) |