From 525898871f014120e1dc34ef9bb44787d3443ac6 Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Sat, 3 Sep 2022 09:40:14 +0200 Subject: search--url-lookup --- lisp/mastodon-search.el | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) (limited to 'lisp/mastodon-search.el') diff --git a/lisp/mastodon-search.el b/lisp/mastodon-search.el index 49b5367..4d1a2d3 100644 --- a/lisp/mastodon-search.el +++ b/lisp/mastodon-search.el @@ -77,6 +77,26 @@ QUERY is the string to search." (tags (alist-get 'hashtags response))) (mapcar #'mastodon-search--get-hashtag-info tags))) +(defun mastodon-search--url-lookup (&optional query-url) + "Do a WebFinger lookup for QUERY-URL. +If a status or account is found, load it in `mastodon.el', if not, just browse the URL in the normal fashion." + (interactive) + (let* ((query (or query-url (url-get-url-at-point))) + (url (format "%s/api/v2/search" mastodon-instance-url)) + (param (concat "resolve=t")) ; webfinger + (response (mastodon-http--get-search-json url query param))) + (if (equal response '((accounts . #1=[]) (statuses . #1#) (hashtags . #1#))) + ;; no results + ;; browse URL here + () + (let ((statuses (assoc 'statuses response)) + (status-1 (seq-first (cdr statuses))) + (status-1-id (alist-get 'id status-1)) + (accounts (assoc 'accounts response))) + ;; TODO: test for a masto URL first? + (when status-1 + (mastodon-tl--single-toot status-1-id)))))) + ;; trending tags -- cgit v1.2.3