aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-05-24 09:26:03 +0200
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-05-24 09:26:03 +0200
commitb29306c44b8b112b24f8c14a150fdcd1ef73bb3d (patch)
treece3587d0137abbe4534322c4c8cdb12bfe68c5b7 /lisp
parent34979f1a660f687795e10e2130bf05863181717b (diff)
rename tl--user-handles-get
Diffstat (limited to 'lisp')
-rw-r--r--lisp/mastodon-profile.el8
-rw-r--r--lisp/mastodon-tl.el19
2 files changed, 13 insertions, 14 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el
index 7865170..d9d8a4c 100644
--- a/lisp/mastodon-profile.el
+++ b/lisp/mastodon-profile.el
@@ -63,7 +63,7 @@
(autoload 'mastodon-tl--find-property-range "mastodon-tl.el")
(autoload 'mastodon-tl--get-link-header-from-response "mastodon-tl")
(autoload 'mastodon-tl--init "mastodon-tl.el")
-(autoload 'mastodon-tl--interactive-user-handles-get "mastodon-tl")
+(autoload 'mastodon-tl--user-handles-get "mastodon-tl")
(autoload 'mastodon-tl--map-alist "mastodon-tl")
(autoload 'mastodon-tl--map-alist-vals-to-alist "mastodon-tl")
(autoload 'mastodon-tl--profile-buffer-p "mastodon tl")
@@ -867,11 +867,11 @@ NOTE-OLD is the text of any existing note."
(defun mastodon-profile--add-or-view-private-note (action-fun &optional message view)
"Add or view a private note for an account.
ACTION-FUN does the adding or viewing, MESSAGE is a prompt for
-`mastodon-tl--interactive-user-handles-get', VIEW is a flag."
+`mastodon-tl--user-handles-get', VIEW is a flag."
(let* ((profile-json (mastodon-profile--profile-json))
(handle (if (mastodon-tl--profile-buffer-p)
(alist-get 'acct profile-json)
- (mastodon-tl--interactive-user-handles-get message)))
+ (mastodon-tl--user-handles-get message)))
(account (if (mastodon-tl--profile-buffer-p)
profile-json
(mastodon-profile--search-account-by-handle handle)))
@@ -893,7 +893,7 @@ the given account."
(handle
(if (mastodon-tl--profile-buffer-p)
(alist-get 'acct profile-json)
- (mastodon-tl--interactive-user-handles-get "show familiar followers of")))
+ (mastodon-tl--user-handles-get "show familiar followers of")))
(account (if (mastodon-tl--profile-buffer-p)
profile-json
(mastodon-profile--search-account-by-handle handle)))
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 95a1456..5c39c93 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -1803,7 +1803,7 @@ If NOTIFY is \"false\", disable notifications when that user posts.
Can be called to toggle NOTIFY on users already being followed.
LANGS is an array parameters alist of languages to filer user's posts by."
(interactive
- (list (mastodon-tl--interactive-user-handles-get "follow")))
+ (list (mastodon-tl--user-handles-get "follow")))
(mastodon-tl--do-if-toot
(mastodon-tl--do-user-action-and-response
user-handle "follow" nil notify langs)))
@@ -1811,14 +1811,14 @@ LANGS is an array parameters alist of languages to filer user's posts by."
(defun mastodon-tl--enable-notify-user-posts (user-handle)
"Query for USER-HANDLE and enable notifications when they post."
(interactive
- (list (mastodon-tl--interactive-user-handles-get "enable")))
+ (list (mastodon-tl--user-handles-get "enable")))
(mastodon-tl--do-if-toot
(mastodon-tl--follow-user user-handle "true")))
(defun mastodon-tl--disable-notify-user-posts (user-handle)
"Query for USER-HANDLE and disable notifications when they post."
(interactive
- (list (mastodon-tl--interactive-user-handles-get "disable")))
+ (list (mastodon-tl--user-handles-get "disable")))
(mastodon-tl--follow-user user-handle "false"))
(defun mastodon-tl--filter-user-user-posts-by-language (user-handle)
@@ -1826,8 +1826,7 @@ LANGS is an array parameters alist of languages to filer user's posts by."
This feature is experimental and for now not easily varified by
the instance API."
(interactive
- (list
- (mastodon-tl--interactive-user-handles-get "filter by language")))
+ (list (mastodon-tl--user-handles-get "filter by language")))
(let ((langs (mastodon-tl--read-filter-langs)))
(mastodon-tl--do-if-toot
(mastodon-tl--follow-user user-handle nil langs))))
@@ -1850,14 +1849,14 @@ LANGS is the accumulated array param alist if we re-run recursively."
(defun mastodon-tl--unfollow-user (user-handle)
"Query for USER-HANDLE from current status and unfollow that user."
(interactive
- (list (mastodon-tl--interactive-user-handles-get "unfollow")))
+ (list (mastodon-tl--user-handles-get "unfollow")))
(mastodon-tl--do-if-toot
(mastodon-tl--do-user-action-and-response user-handle "unfollow" t)))
(defun mastodon-tl--block-user (user-handle)
"Query for USER-HANDLE from current status and block that user."
(interactive
- (list (mastodon-tl--interactive-user-handles-get "block")))
+ (list (mastodon-tl--user-handles-get "block")))
(mastodon-tl--do-if-toot
(mastodon-tl--do-user-action-and-response user-handle "block")))
@@ -1872,7 +1871,7 @@ LANGS is the accumulated array param alist if we re-run recursively."
(defun mastodon-tl--mute-user (user-handle)
"Query for USER-HANDLE from current status and mute that user."
(interactive
- (list (mastodon-tl--interactive-user-handles-get "mute")))
+ (list (mastodon-tl--user-handles-get "mute")))
(mastodon-tl--do-if-toot
(mastodon-tl--do-user-action-and-response user-handle "mute")))
@@ -1887,13 +1886,13 @@ LANGS is the accumulated array param alist if we re-run recursively."
(defun mastodon-tl--dm-user (user-handle)
"Query for USER-HANDLE from current status and compose a message to that user."
(interactive
- (list (mastodon-tl--interactive-user-handles-get "message")))
+ (list (mastodon-tl--user-handles-get "message")))
(mastodon-tl--do-if-toot
(mastodon-toot--compose-buffer (concat "@" user-handle))
(setq mastodon-toot--visibility "direct")
(mastodon-toot--update-status-fields)))
-(defun mastodon-tl--interactive-user-handles-get (action)
+(defun mastodon-tl--user-handles-get (action)
"Get the list of user-handles for ACTION from the current toot."
(mastodon-tl--do-if-toot
(let ((user-handles