branch: elpa/mastodon
commit 1e3b40590dfa844635ee763c9be2b9c0b4bbfaa2
Author: marty hiatt <[email protected]>
Commit: marty hiatt <[email protected]>
tl: view single toot cmd fix up
---
lisp/mastodon-tl.el | 15 ++++++++++-----
1 file changed, 10 insertions(+), 5 deletions(-)
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index a69237f663..244ea983cf 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -2475,10 +2475,15 @@ webapp"
;;; THREADS
-(defun mastodon-tl-single-toot (id)
- "View toot at point in separate buffer.
-ID is that of the toot to view."
+(defun mastodon-tl-view-single-toot ()
+ "View toot at point in a separate buffer."
(interactive)
+ (let ((id (mastodon-tl--property 'base-item-id)))
+ (mastodon-tl--single-toot id)))
+
+(defun mastodon-tl--single-toot (id)
+ "View toot in separate buffer.
+ID is that of the toot to view."
(let* ((buffer (format "*mastodon-toot-%s*" id))
(toot (mastodon-http--get-json
(mastodon-http--api (concat "statuses/" id)))))
@@ -2499,7 +2504,7 @@ ID is that of the toot to view."
(defun mastodon-tl--update-toot (json)
"Call `mastodon-tl-single-toot' on id found in JSON."
(let ((id (alist-get 'id json)))
- (mastodon-tl-single-toot id)))
+ (mastodon-tl--single-toot id)))
(defun mastodon-tl-view-whole-thread ()
"From a thread view, view entire thread.
@@ -2560,7 +2565,7 @@ programmatically and not crash into
(if (not (< 0 (+ (length (alist-get 'ancestors context))
(length (alist-get 'descendants context)))))
;; just print the lone toot:
- (mastodon-tl-single-toot id)
+ (mastodon-tl--single-toot id)
;; we have a thread:
(with-mastodon-buffer buffer #'mastodon-mode nil
(let ((marker (make-marker)))
