Rename mastodon-toot--property and move to tl feature

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"))))