master dc6287d1130 1/2: Add function to copy url of newsticker item
Eli Zaretskii <[email protected]>
| Newsgroups | gmane.emacs.diffs |
|---|---|
| Message-ID | <[email protected]> |
branch: master commit dc6287d1130c45b088860371a88a01e35a29b95b Author: Joshua Murphy <[email protected]> Commit: Eli Zaretskii <[email protected]> Add function to copy url of newsticker item * lisp/net/newst-treeview.el (newsticker-treeview-copy-url): Allow copying selected url. (newsticker-treeview-mode-map): Add binding. (Bug#81013) Copyright-paperwork-exempt: yes --- lisp/net/newst-treeview.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/lisp/net/newst-treeview.el b/lisp/net/newst-treeview.el index 8b5f8a8528f..dd7659d5bc7 100644 --- a/lisp/net/newst-treeview.el +++ b/lisp/net/newst-treeview.el @@ -1191,6 +1191,15 @@ Arguments are ignored." (if newsticker-automatically-mark-visited-items-as-old (newsticker-treeview-mark-item-old)))))) +(defun newsticker-treeview-copy-url () + "Copy the url for the current item." + (interactive) + (let ((url (url-encode-url + (newsticker--link + (newsticker--treeview-get-selected-item))))) + (kill-new url) + (message "Copied %s" url))) + (defun newsticker--treeview-buffer-init () "Initialize all treeview buffers." (setq newsticker--treeview-buffers nil) @@ -2040,6 +2049,7 @@ Return t if groups have changed, nil otherwise." "s" #'newsticker-treeview-save "u" #'newsticker-treeview-update "v" #'newsticker-treeview-browse-url + "w" #'newsticker-treeview-copy-url ;;"C-j" #'newsticker-treeview-scroll-item ;;"RET" #'newsticker-treeview-scroll-item "M-m" #'newsticker-group-move-feed