diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-03-19 12:44:59 +0100 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-03-19 13:21:37 +0100 |
| commit | 521c7c2ae40635532ae22b742a7a521761b2ee85 (patch) | |
| tree | e7d014c4bdd5ade1d5faec2272925c9a8a3132b2 | |
| parent | e930daea74004496dfb9aa61f2f424a53b1ec4b4 (diff) | |
rename mastodon-tl-map-alist-to-alist to mastodon-tl--map-alist-vals-to-alist
| -rw-r--r-- | lisp/mastodon-profile.el | 4 | ||||
| -rw-r--r-- | lisp/mastodon-tl.el | 2 | ||||
| -rw-r--r-- | lisp/mastodon-views.el | 4 |
3 files changed, 5 insertions, 5 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index b77bdac..380c82f 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -540,7 +540,7 @@ FIELDS means provide a fields vector fetched by other means." (let ((fields (or fields (mastodon-profile--account-field account 'fields)))) (when fields - (mastodon-tl-map-alist-to-alist 'name 'value fields)))) + (mastodon-tl--map-alist-vals-to-alist 'name 'value fields)))) (defun mastodon-profile--fields-insert (fields) "Format and insert field pairs (a.k.a profile metadata) in FIELDS." @@ -888,7 +888,7 @@ Currently limited to 100 handles. If not found, try (url (mastodon-http--api endpoint)) (response (mastodon-http--get-json url `(("limit" . "100")))) - (handles (mastodon-tl-map-alist-to-alist 'acct 'id response)) + (handles (mastodon-tl--map-alist-vals-to-alist 'acct 'id response)) (choice (completing-read "Remove from followers: " handles)) (id (alist-get choice handles nil nil 'equal))) diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 91619f1..7ec5ec4 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -1505,7 +1505,7 @@ Key is a symbol, as with `alist-get'." (alist-get key x)) alist)) -(defun mastodon-tl-map-alist-to-alist (key1 key2 alist) +(defun mastodon-tl--map-alist-vals-to-alist (key1 key2 alist) "From ALIST, return an alist consisting of (val1 . val2) elements. Values are accessed by `alist-get', using KEY1 and KEY2." (mapcar (lambda (x) diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el index d3865bc..9274f45 100644 --- a/lisp/mastodon-views.el +++ b/lisp/mastodon-views.el @@ -398,7 +398,7 @@ If ACCOUNT-ID and HANDLE are provided use them rather than prompting." (mastodon-views--get-lists-names) nil t))) (list-id (or id (mastodon-views--get-list-id list-name))) (followings (mastodon-views--get-users-followings)) - (handles (mastodon-tl-map-alist-to-alist 'acct 'id followings)) + (handles (mastodon-tl--map-alist-vals-to-alist 'acct 'id followings)) (account (or handle (completing-read "Account to add: " handles nil t))) (account-id (or account-id (alist-get account handles nil nil 'equal))) @@ -434,7 +434,7 @@ If ID is provided, use that list." (mastodon-views--get-lists-names) nil t))) (list-id (or id (mastodon-views--get-list-id list-name))) (accounts (mastodon-views--accounts-in-list list-id)) - (handles (mastodon-tl-map-alist-to-alist 'acct 'id accounts)) + (handles (mastodon-tl--map-alist-vals-to-alist 'acct 'id accounts)) (account (completing-read "Account to remove: " handles nil t)) (account-id (alist-get account handles nil nil 'equal)) |