aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lisp/mastodon-tl.el10
-rw-r--r--lisp/mastodon-toot.el9
2 files changed, 9 insertions, 10 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 9d2009d..a76aa1a 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -145,11 +145,17 @@
(number-to-string id)))))
(mastodon-http--get-json url)))
+(defun mastodon-tl--property (prop)
+ "Get property PROP for toot at point."
+ (or (get-text-property (point) prop)
+ (progn
+ (mastodon-tl--goto-next-toot)
+ (get-text-property (point) prop))))
+
(defun mastodon-tl--newest-id ()
"Return toot-id from the top of the buffer."
(goto-char (point-min))
- (mastodon-tl--goto-next-toot)
- (get-text-property (point) 'toot-id))
+ (mastodon-tl--property 'toot-id))
(defun mastodon-tl--update ()
"Update timeline with new toots."
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index ff20434..d677f5d 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -61,18 +61,11 @@ STATUS is passed by `url-retrieve'."
(interactive)
(kill-buffer-and-window))
-(defun mastodon-toot--property (prop)
- "Get property PROP for toot at point."
- (or (get-text-property (point) prop)
- (progn
- (mastodon-tl--goto-next-toot)
- (get-text-property (point) prop))))
-
;; TODO extract success callback
(defun mastodon-toot--boost ()
"Boost toot at point."
(interactive)
- (let* ((id (mastodon-toot--property 'toot-id))
+ (let* ((id (mastodon-tl--property 'toot-id))
(url (mastodon--api-for (concat "statuses/"
(number-to-string id)
"/reblog"))))