aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/mastodon-profile.el4
-rw-r--r--lisp/mastodon-search.el2
-rw-r--r--lisp/mastodon-tl.el7
-rw-r--r--lisp/mastodon-toot.el5
-rw-r--r--lisp/mastodon-views.el6
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)