aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus@riseup.net>2024-05-27 19:50:16 +0200
committermarty hiatt <martianhiatus@riseup.net>2024-05-27 19:50:16 +0200
commit2c8318f460b2263054633e3471e9ac3d9f0d4a24 (patch)
tree8c3d084a10f2dcc533aefe0570b36387058a1280
parent4ebc3624dfc1e8901e26c5aea01061ee9a3dc38a (diff)
customs for display of profile note in foll req notifs: flag and max length
-rw-r--r--lisp/mastodon-notifications.el38
1 files changed, 32 insertions, 6 deletions
diff --git a/lisp/mastodon-notifications.el b/lisp/mastodon-notifications.el
index 31c5518..9b40861 100644
--- a/lisp/mastodon-notifications.el
+++ b/lisp/mastodon-notifications.el
@@ -53,6 +53,25 @@
(autoload 'mastodon-tl--update "mastodon-tl")
(autoload 'mastodon-views--view-follow-requests "mastodon-views")
+(defgroup mastodon-tl nil
+ "Nofications in mastodon.el."
+ :prefix "mastodon-notifications-"
+ :group 'mastodon)
+
+(defcustom mastodon-notifications--profile-note-in-foll-reqs t
+ "When non-nil, show some of a user's profile note in follow
+request notifications."
+ :type '(boolean))
+
+(defcustom mastodon-notifications--profile-note-in-foll-reqs-max-length nil
+ "The maximum character length for display of user profile note in
+follow requests.
+Profile notes are only displayed if
+`mastodon-notifications--profile-note-in-foll-reqs' is non-nil.
+If unset, profile notes of any size will be displayed, which may
+make them unweildy."
+ :type '(integer))
+
(defvar mastodon-tl--buffer-spec)
(defvar mastodon-tl--display-media-p)
@@ -187,10 +206,14 @@ Status notifications are given when
(defun mastodon-notifications--format-note (note type)
"Format for a NOTE of TYPE."
(let* ((id (alist-get 'id note))
- (profile-note (when (equal 'follow-request type)
- (mastodon-tl--field
- 'note
- (mastodon-tl--field 'account note))))
+ (profile-note
+ (when (equal 'follow-request type)
+ (let ((str (mastodon-tl--field
+ 'note
+ (mastodon-tl--field 'account note))))
+ (if mastodon-notifications--profile-note-in-foll-reqs-max-length
+ (string-limit str mastodon-notifications--profile-note-in-foll-reqs-max-length)
+ str))))
(status (mastodon-tl--field 'status note))
(follower (alist-get 'username (alist-get 'account note))))
(mastodon-notifications--insert-status
@@ -223,10 +246,13 @@ Status notifications are given when
'face 'default)
(concat
(propertize
- (format "You have a follow request from... %s:\n"
+ (format "You have a follow request from... %s"
follower)
'face 'default)
- (mastodon-notifications--comment-note-text body)))))
+ (when mastodon-notifications--profile-note-in-foll-reqs
+ (concat
+ ":\n"
+ (mastodon-notifications--comment-note-text body)))))))
((or (eq type 'favourite)
(eq type 'boost))
(mastodon-notifications--comment-note-text