emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/mastodon bc83b400b1 40/63: fix unfolding faved/bookmarked


From: ELPA Syncer
Subject: [nongnu] elpa/mastodon bc83b400b1 40/63: fix unfolding faved/bookmarked toots
Date: Sun, 4 Aug 2024 04:00:35 -0400 (EDT)

branch: elpa/mastodon
commit bc83b400b14240820a10606279709d8e5dfcdf9f
Author: marty hiatt <martianhiatus@riseup.net>
Commit: marty hiatt <martianhiatus@riseup.net>

    fix unfolding faved/bookmarked toots
---
 lisp/mastodon-toot.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index 3a88f333d7..a935c9ed5f 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -434,7 +434,7 @@ ACTION is a symbol, either `favourite' or `boost.'"
                     (mastodon-toot--action-success (if boost-p
                                                        (mastodon-tl--symbol 
'boost)
                                                      (mastodon-tl--symbol 
'favourite))
-                                                   byline-region remove))
+                                                   byline-region remove 
item-json))
                   (message "%s #%s" (if boost-p msg action) id)))))))))))
 
 (defun mastodon-toot--inc-or-dec (count subtract)
@@ -499,7 +499,8 @@ SUBTRACT means we are un-favouriting or unboosting, so we 
decrement."
               (message (if bookmarked-p
                            "Bookmark removed!"
                          "Toot bookmarked!"))
-              (remove (when bookmarked-p t)))
+              (remove (when bookmarked-p t))
+              (item-json (mastodon-tl--property 'item-json)))
          (if (not byline-region)
              (user-error "Nothing to %s here?!?" action)
            (mastodon-toot--action
@@ -510,7 +511,7 @@ SUBTRACT means we are un-favouriting or unboosting, so we 
decrement."
                                      (cdr byline-region)
                                      (list 'bookmarked-p (not bookmarked-p))))
               (mastodon-toot--action-success bookmark-str
-                                             byline-region remove)
+                                             byline-region remove item-json)
               (message "%s #%s" message id)))))))))
 
 (defun mastodon-toot--list-toot-boosters ()



reply via email to

[Prev in Thread] Current Thread [Next in Thread]