From 6b7d03538afb6679d9f614d861743e2b0150c191 Mon Sep 17 00:00:00 2001 From: mousebot Date: Thu, 23 Sep 2021 14:19:36 +0200 Subject: display "followers-only" for "private" post visibility --- lisp/mastodon-toot.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'lisp') diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index 97841b5..95f562c 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -56,7 +56,7 @@ (defcustom mastodon-toot--default-visibility "public" "The default visibility for new toots. -Must be one of \"public\", \"unlisted\", \"private\", or \"direct\"." +Must be one of \"public\", \"unlisted\", \"private\" (for followers-only), or \"direct\"." :group 'mastodon-toot :type 'choice :options '("public" @@ -75,7 +75,7 @@ Must be one of \"public\", \"unlisted\", \"private\", or \"direct\"." (defvar mastodon-toot--visibility "public" "A string indicating the visibility of the toot being composed. -Valid values are \"direct\", \"private\", \"unlisted\", and \"public\".") +Valid values are \"direct\", \"private\" (followers-only), \"unlisted\", and \"public\".") (make-variable-buffer-local 'mastodon-toot--visibility) (defvar mastodon-toot--media-attachments nil @@ -520,7 +520,11 @@ If REPLY-TO-ID is provided, set the MASTODON-TOOT--REPLY-TO-ID var." (add-text-properties (car visibility-region) (cdr visibility-region) (list 'display (format "Visibility: %s" - mastodon-toot--visibility))) + (if (equal + mastodon-toot--visibility + "private") + "followers-only" + mastodon-toot--visibility)))) (add-text-properties (car attachment-region) (cdr attachment-region) (list 'display (format "Attached: %s" -- cgit v1.2.3