diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mastodon-profile.el | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index c43906f..116af5d 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -270,13 +270,13 @@ SOURCE means that the preference is in the 'source' part of the account json." (message "Account setting %s updated to %s!" pref val))))) (defun mastodon-profile-account-locked-toggle () - "Toggle the locked status of the user's account. + "Toggle the locked status of your account. Locked accounts mean follow requests have to be manually approved." (interactive) (mastodon-profile--toggle-account-key 'locked)) (defun mastodon-profile-account-discoverable-toggle () - "Toggle the discoverable status of the user's account. + "Toggle the discoverable status of your account. Discoverable means the account is listed in the server directory." (interactive) (mastodon-profile--toggle-account-key 'discoverable)) @@ -291,6 +291,19 @@ Discoverable means the account is listed in the server directory." (when (y-or-n-p prompt) (mastodon-profile--update-preference (symbol-name key) "true"))))) +(defun mastodon-profile--edit-account-string (key) + "Edit the string for account setting KEY." + (let* ((val (mastodon-profile--get-json-value key)) + (new-val + (read-string (format "Edit account setting %s: " key) + val))) + (mastodon-profile--update-preference (symbol-name key) new-val))) + +(defun mastodon-profile-update-display-name () + "Update display name for your account." + (interactive) + (mastodon-profile--edit-account-string 'display_name)) + (defun mastodon-profile-set-default-toot-visibility () "Set the default visibility for toots." (interactive) |