diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-09-03 12:59:53 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-09-03 12:59:53 +0200 |
| commit | 231b9bc19828267de5d848e0f6a646ef1e0afafa (patch) | |
| tree | 26bb9281038a94df6e5d45ccc09d6bb50fd54920 /lisp | |
| parent | fe7ecfcea0b8ed8ccb0ebc9b71608095476cfc19 (diff) | |
| parent | 4d431d69db1690df906f1bffeb4d518c38bdddae (diff) | |
Merge branch 'develop'
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mastodon.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/mastodon.el b/lisp/mastodon.el index a85a7f7..3162e91 100644 --- a/lisp/mastodon.el +++ b/lisp/mastodon.el @@ -269,12 +269,15 @@ If REPLY-JSON is the json of the toot being replied to." ;;;###autoload (defun mastodon-url-lookup (&optional query-url) - "Do a WebFinger lookup for QUERY-URL, or the URL at point. + "Do a WebFinger lookup for a URL. +URL can be arg QUERY-URL, or URL at point, or provided by the user. If a status or account is found, load it in `mastodon.el', if not, just browse the URL in the normal fashion." (interactive) (message "Performing lookup...") - (let* ((query (or query-url (url-get-url-at-point))) + (let* ((query (or query-url + (url-get-url-at-point) + (read-string "Lookup URL: "))) (url (format "%s/api/v2/search" mastodon-instance-url)) (param (concat "resolve=t")) ; webfinger (response (mastodon-http--get-search-json url query param :silent))) |