diff options
author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-09-01 14:13:34 +0200 |
---|---|---|
committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-09-01 14:13:53 +0200 |
commit | f6a2a14066cae107deab1805b8e5ff99d28c5125 (patch) | |
tree | 77554ed0e398281fb72319d59abcad6bdef2765c | |
parent | ee35f8c94d6ee76d75bdf85f2b495df4ce6c5a94 (diff) |
move set-default-toot-visibility to -toot.el
-rw-r--r-- | lisp/mastodon-profile.el | 9 | ||||
-rw-r--r-- | lisp/mastodon-toot.el | 9 |
2 files changed, 9 insertions, 9 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index 116af5d..25edfba 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -70,7 +70,6 @@ (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.") @@ -304,14 +303,6 @@ Discoverable means the account is listed in the server directory." (interactive) (mastodon-profile--edit-account-string 'display_name)) -(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) diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index 8d8b9f3..d7efd44 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -72,6 +72,7 @@ (autoload 'mastodon-tl--toot-id "mastodon-tl") (autoload 'mastodon-toot "mastodon") (autoload 'mastodon-profile--get-source-pref "mastodon-profile") +(autoload 'mastodon-profile--update-preference "mastodon-profile") ;; for mastodon-toot--translate-toot-text (autoload 'mastodon-tl--content "mastodon-tl") @@ -164,6 +165,14 @@ This may be set by the account setting on the server.") map) "Keymap for `mastodon-toot'.") +(defun mastodon-toot-set-default-visibility () + "Set the default visibility for toots on the server." + (interactive) + (let ((vis (completing-read "Set default visibility to:" + mastodon-toot-visibility-list + nil t))) + (mastodon-profile--update-preference "privacy" vis :source))) + (defun mastodon-toot--get-max-toot-chars () "Fetch max_toot_chars from `mastodon-instance-url' asynchronously." (mastodon-http--get-json-async |