awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-11 13:07:28 -05:00
Code Issues Packages Projects Releases Wiki Activity

feat(org): bind <localleader> l y to +org/yank-link

Browse Source 
For copying the URL component of an org link at point.
This commit is contained in:
Henrik Lissner
2024-07-11 15:17:25 -04:00
parent ba467fea57
commit 250f3a3899
2 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
modules/lang/org/autoload/org-link.el
View File

@ -411,6 +411,15 @@ exist, and `org-link' otherwise."
(delete-region (match-beginning 0) (match-end 0)) (delete-region (match-beginning 0) (match-end 0))
(insert label)))) (insert label))))
;;;###autoload
(defun +org/yank-link ()
"Copy the url at point to the clipboard.
If on top of an Org link, will only copy the link component."
(interactive)
(let ((url (thing-at-point 'url)))
(kill-new (or url (user-error "No URL at point")))
(message "Copied link: %s" url)))
;;;###autoload ;;;###autoload
(defun +org/play-gif-at-point () (defun +org/play-gif-at-point ()
"TODO" "TODO"

1
modules/lang/org/config.el
View File

@ -988,6 +988,7 @@ between the two."
"s" #'org-store-link "s" #'org-store-link
"S" #'org-insert-last-stored-link "S" #'org-insert-last-stored-link
"t" #'org-toggle-link-display "t" #'org-toggle-link-display
"y" #'+org/yank-link
(:when (modulep! :os macos) (:when (modulep! :os macos)
"g" #'org-mac-link-get-link)) "g" #'org-mac-link-get-link))
(:prefix ("P" . "publish") (:prefix ("P" . "publish")