aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-search.el
diff options
context:
space:
mode:
authorHolger Dürer <me@hdurer.net>2021-11-01 12:28:32 +0100
committerHolger Dürer <me@hdurer.net>2021-11-01 14:31:26 +0100
commitd7593a06912b7946d2fb318093ec7e27c64b3be7 (patch)
tree6efc758297a927434861e66c913d1b8b5aa19c60 /lisp/mastodon-search.el
parent04465567450d6fc9cdec1a1ba0ef12557b0ab54b (diff)
Fix compilation warnings.
This is mostly reflowing / reworkding docstrings to keep within 80 characters limit and adding autoloads. There are two warning remaining that I don't understand: - mastodon-async.el:359:16: Warning: reference to free variable ‘url-http-end-of-headers’ - mastodon-http.el:139:8: Warning: value returned from (string-equal json-string "") is unused When adding autoloads this sorts them for better readability.
Diffstat (limited to 'lisp/mastodon-search.el')
-rw-r--r--lisp/mastodon-search.el9
1 files changed, 2 insertions, 7 deletions
diff --git a/lisp/mastodon-search.el b/lisp/mastodon-search.el
index 03301ce..2227d79 100644
--- a/lisp/mastodon-search.el
+++ b/lisp/mastodon-search.el
@@ -46,12 +46,6 @@
;; functions for company completion of mentions in mastodon-toot
-(defun mastodon-search--get-user-info (account)
- "Get user handle, display name and account URL from ACCOUNT."
- (list (cdr (assoc 'display_name account))
- (concat "@" (cdr (assoc 'acct account)))
- (cdr (assoc 'url account))))
-
(defun mastodon-search--search-accounts-query (query)
"Prompt for a search QUERY and return accounts synchronously.
Returns a nested list containing user handle, display name, and URL."
@@ -161,7 +155,8 @@ We use this to fetch the complete status from the server."
(defun mastodon-search--fetch-full-status-from-id (id)
"Fetch the full status with id ID from the server.
-This allows us to access the full account etc. details and to render them properly."
+This allows us to access the full account etc. details and to
+render them properly."
(let* ((url (concat mastodon-instance-url "/api/v1/statuses/" (mastodon-tl--as-string id)))
(json (mastodon-http--get-json url)))
json))