From e7a630c900eda41a0f08e6cb08d716cd300c2d9d Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Mon, 24 Jun 2024 15:04:43 +0200 Subject: use map alist in attach descs and server poll to local --- lisp/mastodon-toot.el | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'lisp/mastodon-toot.el') diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index d6de471..928e317 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -1291,9 +1291,10 @@ File is actually attached to the toot upon posting." (defun mastodon-toot--attachment-descriptions () "Return a list of image descriptions for current attachments." - (mapcar (lambda (a) - (alist-get :description a)) - mastodon-toot--media-attachments)) + (mastodon-tl--map-alist :description + ;; (mapcar (lambda (a) + ;; (alist-get :description a)) + mastodon-toot--media-attachments)) (defun mastodon-toot--attachment-from-desc (desc) "Return an attachment based on its description DESC." @@ -1466,9 +1467,7 @@ Sets `mastodon-toot-poll' to nil." (format-time-string "%s" expiry-seconds-from-now)) (expiry-human (car (mastodon-tl--human-duration expiry-seconds-from-now))) - (options (mapcar (lambda (o) - (alist-get 'title o)) - .options)) + (options (mastodon-tl--map-alist 'title .options)) (multiple (if (eq :json-false .multiple) nil t))) -- cgit v1.2.3