aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2022-11-14 10:06:53 +0100
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2022-11-14 11:33:05 +0100
commit75d30456f71dc16c0770dae98115c9fa5b514f4f (patch)
tree1ac8662455bf8f6e125869f3ccc95e2a06cbbdda
parent4cd72d73597ee6a5098bdbfb4b22d302e02e618c (diff)
remove call to shr-browse-url for non-masto URLs
-rw-r--r--lisp/mastodon.el9
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/mastodon.el b/lisp/mastodon.el
index da2d442..86afee2 100644
--- a/lisp/mastodon.el
+++ b/lisp/mastodon.el
@@ -287,9 +287,12 @@ not, just browse the URL in the normal fashion."
(get-text-property (point) 'shr-url)
(read-string "Lookup URL: "))))
(if (not (mastodon--masto-url-p query))
- (if (equal major-mode 'mastodon-mode)
- (shr-browse-url query) ;; keep our shr keymap
- (browse-url query))
+ ;; this doesn't work as shr-browse-url doesn't take a url arg
+ ;; and with no args it can't use our read-string query, but only
+ ;; looks for a url at point
+ ;; (if (equal major-mode 'mastodon-mode)
+ ;; (shr-browse-url query) ;; keep our shr keymap
+ (browse-url query)
(message "Performing lookup...")
(let* ((url (format "%s/api/v2/search" mastodon-instance-url))
(param (concat "resolve=t")) ; webfinger