aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-toot.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/mastodon-toot.el')
-rw-r--r--lisp/mastodon-toot.el10
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index 17b3a6c..dfe9ead 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -87,6 +87,10 @@ Must be one of \"public\", \"unlisted\", \"private\" (for followers-only), or \"
Valid values are \"direct\", \"private\" (followers-only), \"unlisted\", and \"public\".")
(make-variable-buffer-local 'mastodon-toot--visibility)
+(defvar mastodon-toot--media-attachments nil
+ "A flag indicating if the toot being composed has media attachments.")
+(make-variable-buffer-local 'mastodon-toot--media-attachments)
+
(defvar mastodon-toot--media-attachment-ids nil
"A list of any media attachment ids of the toot being composed.")
(make-variable-buffer-local 'mastodon-toot--media-attachment-ids)
@@ -469,9 +473,9 @@ e.g. mastodon-toot--send -> Send."
(mastodon-toot--format-kbinds kbinds))))
(defun mastodon-toot--display-docs-and-status-fields ()
- "Insert propertized text with documentation about mastodon-toot mode and the
-status fields which will get updated based on the status of NSFW, content
-warning flags etc."
+ "Insert propertized text with documentation about `mastodon-toot-mode'.
+Also includes and the status fields which will get updated based
+on the status of NSFW, content warning flags, media attachments, etc."
(let ((divider
"|=================================================================|"))
(insert