aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-tl.el
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus@riseup.net>2024-06-24 15:10:27 +0200
committermarty hiatt <martianhiatus@riseup.net>2024-06-24 15:10:27 +0200
commitcaa3931c3950fac0d960639ce17dbc27c8e27689 (patch)
treef8ac52e3110cf0295e32e0b2677251ab832af8b2 /lisp/mastodon-tl.el
parentd1baf1eed450b5dc5ddb8555d29eec3bb969a4fb (diff)
map-alist: adapt arg and docstring
Diffstat (limited to 'lisp/mastodon-tl.el')
-rw-r--r--lisp/mastodon-tl.el10
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index f518345..a40ec09 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -1853,10 +1853,12 @@ timeline."
;;; UTILITIES
-(defun mastodon-tl--map-alist (key alist &optional testfn)
- "Return a list of values extracted from ALIST with KEY.
-Key is a symbol, as with `alist-get'."
- (cl-loop for x in alist
+(defun mastodon-tl--map-alist (key alists &optional testfn)
+ "Return a list of values extracted from ALISTS with KEY.
+Key is a symbol, as with `alist-get', or else compatible with TESTFN.
+ALISTS is a list of alists."
+ ;; this actually for a list of alists, right? so change the arg?
+ (cl-loop for x in alists
collect (alist-get key x nil nil testfn)))
(defun mastodon-tl--map-alist-vals-to-alist (key1 key2 alist)