emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Merge pull request #2371 from vermiculus/sa/copy-link-at-point 

Teach mu4e-copy-thing-at-point about SHR links
This commit is contained in:
Dirk-Jan C. Binnema 2022-11-30 23:35:49 +02:00 committed by GitHub
parent 39a2c28777 93f3a2da35
commit 9ce5a22275
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
mu4e/mu4e-helpers.el
View File

@ -465,8 +465,9 @@ http://cr.yp.to/proto/maildir.html."
If there is not e-mail address at point, do nothing."
(interactive)
(let* ((thing (and (thing-at-point 'email)
(string-trim (thing-at-point 'email 'no-props) "<" ">")))
(thing (or thing (thing-at-point 'url 'no-props))))
(string-trim (thing-at-point 'email 'no-props) "<" ">")))
(thing (or thing (get-text-property (point) 'shr-url)))
(thing (or thing (thing-at-point 'url 'no-props))))
(when thing
(kill-new thing)
(mu4e-message "Copied '%s' to kill-ring" thing))))