Download
(defun newsticker-treeview-browse-url-with-w3m ()
"Call `w3m-view-this-url-1' for the link of the item at point."
(interactive)
(save-excursion
(set-buffer (newsticker--treeview-item-buffer))
(let ((url (get-text-property (point) :nt-link)))
(when url
(w3m-view-this-url-1 url t t)
(if newsticker-automatically-mark-visited-items-as-old
(newsticker-treeview-mark-item-old))))))
(defun newsticker-treeview-prev-page ()
"Scroll item buffer."
(interactive)
(save-selected-window
(select-window (newsticker--treeview-item-window) t)
(condition-case nil
(scroll-down nil)
(error
(goto-char (point-max))))))
(defun newsticker-treeview-scroll-item+ ()
"Scroll current item."
(interactive)
(save-selected-window
(select-window (newsticker--treeview-item-window) t)
(scroll-down 1)))
(defun newsticker-switch-to-w3m ()
"Switch to w3m."
(interactive)
(newsticker-treeview-quit)
(w3m))
(defun newsticker-treeview-browse-url-with-external-browser ()
"Call `browse-url' for the link of the item at point."
(interactive)
(save-excursion
(set-buffer (newsticker--treeview-item-buffer))
(let ((url (get-text-property (point) :nt-link)))
(when url
(w3m-view-url-with-external-browser url)
(if newsticker-automatically-mark-visited-items-as-old
(newsticker-treeview-mark-item-old))))))
(defun newsticker-start+ ()
"Startup newsticker and update info in mode line."
(interactive)
(newsticker-start t))
(defun newsticker-treeview-first-feed ()
"Jump to the depth-first feed in the newsticker-groups tree."
(interactive)
(newsticker-treeview-jump
(car (reverse (newsticker--group-get-feeds newsticker-groups t)))))
(defun newsticker-treeview-last-feed ()
"Jump to the depth-last feed in the newsticker-groups tree."
(interactive)
(newsticker-treeview-jump
(car (newsticker--group-get-feeds newsticker-groups t))))
(provide 'newsticker-extension)