diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-03-23 11:32:48 +0100 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-03-23 11:32:48 +0100 |
| commit | 756b879634ae6994b52bd4c011bc4b46a0995037 (patch) | |
| tree | 05c63b4cb37a4b5b0a28f37251e1b3d3226f3122 /lisp/mastodon-search.el | |
| parent | 08ed1ae30888086256f343be978cf7eb65cec9eb (diff) | |
| parent | 19f18b4076efefa212a0e56757ac844eafda9481 (diff) | |
Merge branch 'develop'
Diffstat (limited to 'lisp/mastodon-search.el')
| -rw-r--r-- | lisp/mastodon-search.el | 20 |
1 files changed, 9 insertions, 11 deletions
diff --git a/lisp/mastodon-search.el b/lisp/mastodon-search.el index 0f2a6d4..b5900c7 100644 --- a/lisp/mastodon-search.el +++ b/lisp/mastodon-search.el @@ -31,22 +31,20 @@ ;;; Code: (require 'json) +(autoload 'mastodon-auth--access-token "mastodon-auth") +(autoload 'mastodon-http--api "mastodon-http") (autoload 'mastodon-http--get-json "mastodon-http") -(autoload 'mastodon-tl--as-string "mastodon-tl") +(autoload 'mastodon-http--get-search-json "mastodon-http") (autoload 'mastodon-mode "mastodon") -(autoload 'mastodon-tl--set-face "mastodon-tl") -(autoload 'mastodon-tl--render-text "mastodon-tl") (autoload 'mastodon-tl--as-string "mastodon-tl") -(autoload 'mastodon-auth--access-token "mastodon-auth") -(autoload 'mastodon-http--get-search-json "mastodon-http") -(autoload 'mastodon-http--api "mastodon-http") +(autoload 'mastodon-tl--as-string "mastodon-tl") +(autoload 'mastodon-tl--render-text "mastodon-tl") (autoload 'mastodon-tl--set-buffer-spec "mastodon-tl") +(autoload 'mastodon-tl--set-face "mastodon-tl") (defvar mastodon-toot--completion-style-for-mentions) (defvar mastodon-instance-url) (defvar mastodon-tl--link-keymap) -(defvar mastodon-http--timeout) -(defvar mastodon-toot--enable-completion-for-mentions) ;; functions for completion of mentions in mastodon-toot @@ -123,7 +121,7 @@ QUERY is the string to search." tags)) ;; (status-list (mapcar #'mastodon-search--get-status-info ;; statuses)) - (status-ids-list (mapcar 'mastodon-search--get-id-from-status + (status-ids-list (mapcar #'mastodon-search--get-id-from-status statuses)) (toots-list-json (mapcar #'mastodon-search--fetch-full-status-from-id status-ids-list))) @@ -155,7 +153,7 @@ QUERY is the string to search." " STATUSES\n" " ------------\n") 'success)) - (mapc 'mastodon-tl--toot toots-list-json) + (mapc #'mastodon-tl--toot toots-list-json) (goto-char (point-min)))))) (defun mastodon-search--insert-users-propertized (json &optional note) @@ -186,7 +184,7 @@ user's profile note. This is also called by 'help-echo (concat "Browse user profile of @" (cadr user))) " : \n" (if note - (mastodon-tl--render-text (cadddr user) nil) + (mastodon-tl--render-text (cadddr user) acct) "") "\n") 'toot-json acct))) ; so named for compat w other processing functions |