mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Add 'newsticker--treeview-handle-url' (Bug#79849)

Browse source 
* lisp/net/newst-treeview.el (newsticker--treeview-url-keymap)
(newsticker--treeview-handle-url): Add 'newsticker--treeview-handle-url'
to replace 'newsticker-handle-url' in newsticker-treeview (Bug#79849).
This commit is contained in:
Ulf Jasper 2025-11-23 13:57:36 +01:00
parent b89fec7998
commit dcc909917b
1 changed files with 14 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/net/newst-treeview.el
View file

@ -148,8 +148,6 @@ Example: (\"Topmost group\" \"feed1\" (\"subgroup1\" \"feed 2\")
(defvar newsticker--treeview-feed-tree nil) (defvar newsticker--treeview-feed-tree nil)
(defvar newsticker--treeview-vfeed-tree nil) (defvar newsticker--treeview-vfeed-tree nil)
(declare-function newsticker-handle-url "newst-plainview" ())
;; maps for the clickable portions ;; maps for the clickable portions
(defvar newsticker--treeview-url-keymap (defvar newsticker--treeview-url-keymap
(let ((map (make-sparse-keymap 'newsticker--treeview-url-keymap))) (let ((map (make-sparse-keymap 'newsticker--treeview-url-keymap)))
@ -157,7 +155,7 @@ Example: (\"Topmost group\" \"feed1\" (\"subgroup1\" \"feed 2\")
(define-key map [mouse-2] #'newsticker-treeview-mouse-browse-url) (define-key map [mouse-2] #'newsticker-treeview-mouse-browse-url)
(define-key map "\n" #'newsticker-treeview-browse-url) (define-key map "\n" #'newsticker-treeview-browse-url)
(define-key map "\C-m" #'newsticker-treeview-browse-url) (define-key map "\C-m" #'newsticker-treeview-browse-url)
(define-key map [(control return)] #'newsticker-handle-url) (define-key map [(control return)] #'newsticker--treeview-handle-url)
map) map)
"Key map for click-able headings in the newsticker treeview buffers.") "Key map for click-able headings in the newsticker treeview buffers.")
@ -247,6 +245,19 @@ their id stays constant."
"Return current node in newsticker treeview tree." "Return current node in newsticker treeview tree."
(newsticker--treeview-get-node-by-id newsticker--treeview-current-node-id)) (newsticker--treeview-get-node-by-id newsticker--treeview-current-node-id))
(defun newsticker--treeview-handle-url ()
"Ask for a program to open the link of the item at point."
(interactive)
(let ((url (get-text-property (point) 'nt-link)))
(when url
(let ((prog (read-string "Open url with: " nil
'newsticker-open-url-history)))
(when prog
(message "%s %s" prog url)
(start-process prog prog prog url)
(if newsticker-automatically-mark-visited-items-as-old
(newsticker-treeview-mark-item-old)))))))
;; ====================================================================== ;; ======================================================================
(declare-function w3m-toggle-inline-images "ext:w3m" (&optional force no-cache)) (declare-function w3m-toggle-inline-images "ext:w3m" (&optional force no-cache))