;;; newst-reader.el --- Generic RSS reader functions.
-;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008
+;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008, 2009
;; Free Software Foundation, Inc.
;; Author: Ulf Jasper <ulf.jasper@web.de>
;; Filename: newst-reader.el
;; URL: http://www.nongnu.org/newsticker
-;; Time-stamp: "15. Juni 2008, 09:42:01 (ulf)"
+;; Time-stamp: "18. November 2008, 20:06:13 (ulf)"
;; ======================================================================
If DISABLED is non-nil the image will be converted to a disabled look
\(unless `newsticker-enable-logo-manipulations' is not t\).
Return the image."
- (let ((image-name (concat newsticker-imagecache-dirname "/"
+ (let ((image-name (concat (newsticker--images-dir)
(symbol-name feed-name-symbol)))
(img nil))
(when (file-exists-p image-name)
'xpm t))
"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)
;; arch-tag: c604b701-bdf1-4fc1-8d05-5fabd1939533