diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mastodon-search.el | 81 |
1 files changed, 36 insertions, 45 deletions
diff --git a/lisp/mastodon-search.el b/lisp/mastodon-search.el index 5e0cc20..1d78cc2 100644 --- a/lisp/mastodon-search.el +++ b/lisp/mastodon-search.el @@ -62,9 +62,12 @@ "Prompt for a search QUERY and return accounts synchronously. Returns a nested list containing user handle, display name, and URL." (let* ((url (mastodon-http--api "accounts/search")) - (response (if (equal mastodon-toot--completion-style-for-mentions "following") - (mastodon-http--get-json url `(("q" . ,query) ("following" . "true")) :silent) - (mastodon-http--get-json url `(("q" . ,query)) :silent)))) + (response + (if (equal mastodon-toot--completion-style-for-mentions "following") + (mastodon-http--get-json + url `(("q" . ,query) ("following" . "true")) + :silent) + (mastodon-http--get-json url `(("q" . ,query)) :silent)))) (mapcar #'mastodon-search--get-user-info-@ response))) ;; functions for tags completion: @@ -73,8 +76,7 @@ Returns a nested list containing user handle, display name, and URL." "Return an alist containing tag strings plus their URLs. QUERY is the string to search." (let* ((url (format "%s/api/v2/search" mastodon-instance-url)) - (params `(("q" . ,query) - ("type" . "hashtags"))) + (params `(("q" . ,query) ("type" . "hashtags"))) (response (mastodon-http--get-json url params :silent)) (tags (alist-get 'hashtags response))) (mapcar #'mastodon-search--get-hashtag-info tags))) @@ -95,10 +97,8 @@ QUERY is the string to search." (defun mastodon-search--get-full-statuses-data (response) "For statuses list in RESPONSE, fetch and return full status JSON." - (let ((status-ids-list - (mapcar #'mastodon-search--get-id-from-status response))) - (mapcar #'mastodon-search--fetch-full-status-from-id - status-ids-list))) + (let ((status-ids (mapcar #'mastodon-search--get-id-from-status response))) + (mapcar #'mastodon-search--fetch-full-status-from-id status-ids))) (defun mastodon-search--view-trending (type print-fun) "Display a list of tags trending on your instance. @@ -108,18 +108,16 @@ PRINT-FUN is the function used to print the data from the response." (format "trends/%s" type))) ;; max for statuses = 40, for others = 20 (params (if (equal type "statuses") - `(("limit" . "40")) - `(("limit" . "20")) )) + '(("limit" . "40")) + '(("limit" . "20")))) (response (mastodon-http--get-json url params)) (data (cond ((equal type "tags") - (mapcar #'mastodon-search--get-hashtag-info - response)) + (mapcar #'mastodon-search--get-hashtag-info response)) ((equal type "statuses") (mastodon-search--get-full-statuses-data response)) ((equal type "links") (message "todo")))) - (buffer (get-buffer-create - (format "*mastodon-trending-%s*" type)))) + (buffer (get-buffer-create (format "*mastodon-trending-%s*" type)))) (with-mastodon-buffer buffer #'mastodon-mode nil (mastodon-tl--set-buffer-spec (buffer-name buffer) (format "api/v1/trends/%s" type) @@ -152,17 +150,10 @@ PRINT-FUN is the function used to print the data from the response." (accts (alist-get 'accounts response)) (tags (alist-get 'hashtags response)) (statuses (alist-get 'statuses response)) - ;; this is now done in search--insert-users-propertized - ;; (user-ids (mapcar #'mastodon-search--get-user-info - ;; accts)) ; returns a list of three-item lists - (tags-list (mapcar #'mastodon-search--get-hashtag-info - tags)) - (toots-list-json - (mastodon-search--get-full-statuses-data statuses))) + (tags-list (mapcar #'mastodon-search--get-hashtag-info tags)) + (toots-list-json (mastodon-search--get-full-statuses-data statuses))) (with-mastodon-buffer buffer #'mastodon-mode nil - (mastodon-tl--set-buffer-spec buffer - "api/v2/search" - nil) + (mastodon-tl--set-buffer-spec buffer "api/v2/search" nil) ;; user results: (mastodon-search--format-heading "USERS") (mastodon-search--insert-users-propertized accts :note) @@ -190,32 +181,32 @@ user's profile note. This is also called by "Propertize display string for ACCT, optionally including profile NOTE." (let ((user (mastodon-search--get-user-info acct))) (propertize - (concat (propertize (car user) - 'face 'mastodon-display-name-face - 'byline t - 'toot-id "0") - " : \n : " - (propertize (concat "@" (cadr user)) - 'face 'mastodon-handle-face - 'mouse-face 'highlight - 'mastodon-tab-stop 'user-handle - 'keymap mastodon-tl--link-keymap - 'mastodon-handle (concat "@" (cadr user)) - 'help-echo (concat "Browse user profile of @" (cadr user))) - " : \n" - (if note - (mastodon-tl--render-text (cadddr user) acct) - "") - "\n") - 'toot-json acct))) ; so named for compat w other processing functions + (concat + (propertize (car user) + 'face 'mastodon-display-name-face + 'byline t + 'toot-id "0") + " : \n : " + (propertize (concat "@" (cadr user)) + 'face 'mastodon-handle-face + 'mouse-face 'highlight + 'mastodon-tab-stop 'user-handle + 'keymap mastodon-tl--link-keymap + 'mastodon-handle (concat "@" (cadr user)) + 'help-echo (concat "Browse user profile of @" (cadr user))) + " : \n" + (if note + (mastodon-tl--render-text (cadddr user) acct) + "") + "\n") + 'toot-json acct))) ; for compat w other processing functions (defun mastodon-search--print-tags-list (tags) "Insert a propertized list of TAGS." (mapc (lambda (el) (insert " : " - (propertize (concat "#" - (car el)) + (propertize (concat "#" (car el)) 'face '(:box t) 'mouse-face 'highlight 'mastodon-tag (car el) |