X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/08b3caa982199bd7939d9d6877203ada5d0083b5..65a099b6797eee713cb535ff4ed9d705863f5055:/lisp/net/newst-reader.el diff --git a/lisp/net/newst-reader.el b/lisp/net/newst-reader.el index bed8b8f2a9..c755578de5 100644 --- a/lisp/net/newst-reader.el +++ b/lisp/net/newst-reader.el @@ -1,12 +1,12 @@ ;;; 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 ;; 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)" ;; ====================================================================== @@ -262,7 +262,7 @@ KEYMAP is applied." 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) @@ -1152,6 +1152,32 @@ static char * visit_xpm[] = { '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 " + + + ") + (insert "

" feed ": " (newsticker--title item) "

") + (insert (format-time-string newsticker-date-format + (newsticker--time item))) + (insert "
") + (insert (or (newsticker--desc item) "[No Description]")) + (when (newsticker--enclosure item) + (insert "

") + (newsticker--insert-enclosure item nil) + (insert "")) + (when (newsticker--extra item) + (insert "

") + (newsticker--print-extra-elements item nil) + (insert "")) + (insert "")) + (browse-url t-file))) + (provide 'newsticker-reader) ;; arch-tag: c604b701-bdf1-4fc1-8d05-5fabd1939533