Mercurial > emacs
comparison lisp/net/newst-reader.el @ 97698:19016ceb3a2e
Added newsticker-browse-url-item.
| author | Ulf Jasper <ulf.jasper@web.de> |
|---|---|
| date | Mon, 25 Aug 2008 17:41:16 +0000 |
| parents | d2bcf235d764 |
| children | 7161bac8c5a8 |
comparison
equal
deleted
inserted
replaced
| 97697:04fe7f4789da | 97698:19016ceb3a2e |
|---|---|
| 4 ;; Free Software Foundation, Inc. | 4 ;; Free Software Foundation, Inc. |
| 5 | 5 |
| 6 ;; Author: Ulf Jasper <ulf.jasper@web.de> | 6 ;; Author: Ulf Jasper <ulf.jasper@web.de> |
| 7 ;; Filename: newst-reader.el | 7 ;; Filename: newst-reader.el |
| 8 ;; URL: http://www.nongnu.org/newsticker | 8 ;; URL: http://www.nongnu.org/newsticker |
| 9 ;; Time-stamp: "15. Juni 2008, 09:42:01 (ulf)" | 9 ;; Time-stamp: "25. August 2008, 19:35:45 (ulf)" |
| 10 | 10 |
| 11 ;; ====================================================================== | 11 ;; ====================================================================== |
| 12 | 12 |
| 13 ;; This file is part of GNU Emacs. | 13 ;; This file is part of GNU Emacs. |
| 14 | 14 |
| 1150 \" \"}; | 1150 \" \"}; |
| 1151 " | 1151 " |
| 1152 'xpm t)) | 1152 'xpm t)) |
| 1153 "Image for the browse button.") | 1153 "Image for the browse button.") |
| 1154 | 1154 |
| 1155 (defun newsticker-browse-url-item (feed item) | |
| 1156 "Convert FEED ITEM to html and call `browse-url' on result." | |
| 1157 (interactive) | |
| 1158 (let ((t-file (make-temp-file "newsticker"))) | |
| 1159 (with-temp-file t-file | |
| 1160 (insert "<?xml version=\"1.0\" encoding=\"utf-8\"?> | |
| 1161 <!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" | |
| 1162 \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\"> | |
| 1163 <html xmlns=\"http://www.w3.org/1999/xhtml\"> | |
| 1164 <body>") | |
| 1165 (insert "<h1>" feed ": " (newsticker--title item) "</h1>") | |
| 1166 (insert (format-time-string newsticker-date-format | |
| 1167 (newsticker--time item))) | |
| 1168 (insert "<br/>") | |
| 1169 (insert (or (newsticker--desc item) "[No Description]")) | |
| 1170 (when (newsticker--enclosure item) | |
| 1171 (insert "<br/><hr/><i>") | |
| 1172 (newsticker--insert-enclosure item nil) | |
| 1173 (insert "</i>")) | |
| 1174 (when (newsticker--extra item) | |
| 1175 (insert "<br/><hr/><tt>") | |
| 1176 (newsticker--print-extra-elements item nil) | |
| 1177 (insert "</tt>")) | |
| 1178 (insert "</body></html>")) | |
| 1179 (browse-url t-file))) | |
| 1180 | |
| 1155 (provide 'newsticker-reader) | 1181 (provide 'newsticker-reader) |
| 1156 | 1182 |
| 1157 ;; arch-tag: c604b701-bdf1-4fc1-8d05-5fabd1939533 | 1183 ;; arch-tag: c604b701-bdf1-4fc1-8d05-5fabd1939533 |
| 1158 ;;; newst-reader.el ends here | 1184 ;;; newst-reader.el ends here |