diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-10-31 11:47:03 +0100 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-11-05 15:41:27 +0100 |
| commit | bcf418d78366c356ab11d0feba3fd1996782af8f (patch) | |
| tree | 74b79d8ea996de7243ca6edcae0ab60316539406 /lisp | |
| parent | b2d79eabd34040c9e8cadffb44ebcde771c35b33 (diff) | |
flycheck requires / thingatpt fun
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mastodon.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/mastodon.el b/lisp/mastodon.el index bc624d9..a5ba9e4 100644 --- a/lisp/mastodon.el +++ b/lisp/mastodon.el @@ -37,6 +37,8 @@ (require 'mastodon-http) (require 'mastodon-toot) (require 'url) +(require 'thingatpt) +(require 'shr) (declare-function discover-add-context-menu "discover") (declare-function emojify-mode "emojify") @@ -279,7 +281,7 @@ 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) + (thing-at-point-url-at-point) (get-text-property (point) 'shr-url) (read-string "Lookup URL: ")))) (if (not (mastodon--masto-url-p query)) |