From f6a2a14066cae107deab1805b8e5ff99d28c5125 Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Thu, 1 Sep 2022 14:13:34 +0200 Subject: move set-default-toot-visibility to -toot.el --- lisp/mastodon-profile.el | 9 --------- 1 file changed, 9 deletions(-) (limited to 'lisp/mastodon-profile.el') 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) -- cgit v1.2.3