* emulation/cua-base.el (cua--init-keymaps):

[bpt/emacs.git] / lisp / net / newst-reader.el
diff --git a/lisp/net/newst-reader.el b/lisp/net/newst-reader.el

index bed8b8f..25ed65d 100644 (file)
--- a/lisp/net/newst-reader.el
+++ b/lisp/net/newst-reader.el
@@ -1,12 +1,13 @@
  ;;; newst-reader.el --- Generic RSS reader functions.
  
-;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008
+;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
  ;;   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:  "6. Dezember 2009, 19:16:38 (ulf)"
+;; Package:     newsticker
  
  ;; ======================================================================
  
@@ -33,7 +34,7 @@
  ;; ======================================================================
  ;;; Code:
  
-(require 'newsticker-backend "newst-backend")
+(require 'newst-backend)
  
  ;; ======================================================================
  ;;; Customization
@@ -262,7 +263,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,7 +1153,33 @@ static char * visit_xpm[] = {
                       'xpm t))
    "Image for the browse button.")
  
-(provide 'newsticker-reader)
+(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 'newst-reader)
  
  ;; arch-tag: c604b701-bdf1-4fc1-8d05-5fabd1939533
  ;;; newst-reader.el ends here