refactor mastodon-notifications--insert-status

which was a copy of mastodon-tl--insert-status.

we revert to having just the latter as main function with optional argument.

mastodon-notifications--insert-status just calls it with the arg ID.

the reason we need the difference is to ensure notifications have their own
ID, and not that of the toot the notif refers to, attached as property
"toot-id". then we have all functionality working on notifications, such as
boosting mentions and so on.

1 files changed, 2 insertions, 14 deletions

diff --git a/lisp/mastodon-notifications.el b/lisp/mastodon-notifications.el
index bb05103..2de53b1 100644
--- a/lisp/mastodon-notifications.el
+++ b/lisp/mastodon-notifications.el
@@ -226,7 +226,7 @@ Status notifications are given when
         "Posted"))
      id)))
 
-(defun mastodon-notifications--insert-status (toot body author-byline action-byline &optional id)
+(defun mastodon-notifications--insert-status (toot body author-byline action-byline id)
   "Display the content and byline of timeline element TOOT.
 
 BODY will form the section of the toot above the byline.
@@ -241,19 +241,7 @@ takes a single function. By default it is
 `mastodon-tl--byline-boosted'.
 
 ID is the notification's own id, which is attached as a property."
-  (let ((start-pos (point)))
-    (insert
-     (propertize
-      (concat "\n"
-              body
-              " \n"
-              (mastodon-tl--byline toot author-byline action-byline))
-      'toot-id      id
-      'base-toot-id (mastodon-tl--toot-id toot)
-      'toot-json    toot)
-     "\n")
-    (when mastodon-tl--display-media-p
-      (mastodon-media--inline-images start-pos (point)))))
+  (mastodon-tl--insert-status toot body author-byline action-byline id))
 
 (defun mastodon-notifications--by-type (note)
   "Filters NOTE for those listed in `mastodon-notifications--types-alist'."