branch: elpa/mastodon
commit d6d1eafe0b27a51c6918dc8e4b46c9d1b85df28d
Author: marty hiatt <[email protected]>
Commit: marty hiatt <[email protected]>

    implement "quoted_update" notif type (roughly). FIX #742.
---
 lisp/mastodon-notifications.el | 13 +++++++++++--
 lisp/mastodon-tl.el            |  3 ++-
 2 files changed, 13 insertions(+), 3 deletions(-)

diff --git a/lisp/mastodon-notifications.el b/lisp/mastodon-notifications.el
index 5189ecf7b1a..113f3a5908a 100644
--- a/lisp/mastodon-notifications.el
+++ b/lisp/mastodon-notifications.el
@@ -133,7 +133,15 @@ Notification types are named according to their name on 
the server.")
     ("Requested to follow"  . "you")
     ("Posted"               . "a post")
     ("Edited"               . "their post")
-    ("Quoted"               . "your post"))
+    ("Quoted"               . "your post")
+    ;; FIXME: this is very annoying, but because "Edited" is used above,
+    ;; we cannot reuse it here. I think this is because we use
+    ;; `mastodon-notifications--action-alist' to go from (server) notif
+    ;; type, to a string, and then use that string to get the rest of the
+    ;; byline string from `mastodon-notifications--response-alist' here.
+    ;; Ideally would just key the two strings according to notif type,
+    ;; even if they did need to be gathered separately and combined.
+    ("Modified"             . "a post that you quoted"))
   "Alist of subjects for notification types.")
 
 (defvar mastodon-notifications--action-alist
@@ -147,7 +155,8 @@ Notification types are named according to their name on the 
server.")
     (update                . "Edited")
     (severed_relationships . "Relationships severed")
     (moderation_warning    . "Moderation warning")
-    (quote                 . "Quoted"))
+    (quote                 . "Quoted")
+    (quoted_update         . "Modified"))
   "Action strings keyed by notification type.
 Types are those of the Mastodon API.")
 
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 47efa72650c..0a14fa242f5 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -182,7 +182,8 @@ nil."
     (moderation_warning    . ("⚠" . "!!"))
     (quote                 . (,(propertize "“" 'face
                                            '(t :inherit success :weight bold
-                                               :height 1.8)))))
+                                               :height 1.8))))
+    (quoted_update         . ("✍" . "[edited]")))
   "A set of symbols (and fallback strings) to be used in timeline.
 If a symbol does not look right (tofu), it means your
 font settings do not support it."

Reply via email to