mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

Added newsticker-browse-url-item.

Browse source
This commit is contained in:
Ulf Jasper 2008-08-25 17:41:16 +00:00
parent 3657ec4a6c
commit 62c4fff6cd
1 changed files with 27 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

28
lisp/net/newst-reader.el
View file

@ -6,7 +6,7 @@
;; Author: Ulf Jasper <ulf.jasper@web.de> ;; Author: Ulf Jasper <ulf.jasper@web.de>
;; Filename: newst-reader.el ;; Filename: newst-reader.el
;; URL: http://www.nongnu.org/newsticker ;; URL: http://www.nongnu.org/newsticker
;; Time-stamp: "15. Juni 2008, 09:42:01 (ulf)" ;; Time-stamp: "25. August 2008, 19:35:45 (ulf)"
;; ====================================================================== ;; ======================================================================
@ -1152,6 +1152,32 @@ static char * visit_xpm[] = {
'xpm t)) 'xpm t))
"Image for the browse button.") "Image for the browse button.")
(defun newsticker-browse-url-item (feed item)
"Convert FEED ITEM to html and call `browse-url' on result."
(interactive)
(let ((t-file (make-temp-file "newsticker")))
(with-temp-file t-file
(insert "<?xml version=\"1.0\" encoding=\"utf-8\"?>
<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\"
\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">
<html xmlns=\"http://www.w3.org/1999/xhtml\">
<body>")
(insert "<h1>" feed ": " (newsticker--title item) "</h1>")
(insert (format-time-string newsticker-date-format
(newsticker--time item)))
(insert "<br/>")
(insert (or (newsticker--desc item) "[No Description]"))
(when (newsticker--enclosure item)
(insert "<br/><hr/><i>")
(newsticker--insert-enclosure item nil)
(insert "</i>"))
(when (newsticker--extra item)
(insert "<br/><hr/><tt>")
(newsticker--print-extra-elements item nil)
(insert "</tt>"))
(insert "</body></html>"))
(browse-url t-file)))
(provide 'newsticker-reader) (provide 'newsticker-reader)
;; arch-tag: c604b701-bdf1-4fc1-8d05-5fabd1939533 ;; arch-tag: c604b701-bdf1-4fc1-8d05-5fabd1939533