diff options
author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-08-31 15:10:52 +0200 |
---|---|---|
committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-08-31 15:10:52 +0200 |
commit | 81bc0978fd36a17d2e0fba4123754ccc2af9035d (patch) | |
tree | 4b56f1485e4f83558b2ca6770dce458315888868 /lisp/mastodon-profile.el | |
parent | 6f7c564d90b7d477ef600a9ffb742faaaf38d3fb (diff) |
set default visibility fun
Diffstat (limited to 'lisp/mastodon-profile.el')
-rw-r--r-- | lisp/mastodon-profile.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index 6fe3e14..0c91556 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -70,6 +70,7 @@ (defvar mastodon-tl--buffer-spec) (defvar mastodon-tl--update-point) (defvar mastodon-mode-map) +(defvar mastodon-toot-visibility-list) (defvar-local mastodon-profile--account nil "The data for the account being described in the current profile buffer.") @@ -263,6 +264,14 @@ SOURCE means that the preference is in the 'source' part of the account json." (lambda () (message "Account setting %s updated!" pref))))) +(defun mastodon-profile-set-default-toot-visibility () + "Set the default visibility for toots." + (interactive) + (let ((vis (completing-read "Set default visibility to:" + mastodon-toot-visibility-list + nil t))) + (mastodon-profile--update-preference "privacy" vis :source))) + (defun mastodon-profile-view-preferences () "View user preferences in another window." (interactive) |