diff options
| author | Ulf Jasper | 2008-08-25 17:41:16 +0000 |
|---|---|---|
| committer | Ulf Jasper | 2008-08-25 17:41:16 +0000 |
| commit | 62c4fff6cd661ebcb053485a20e6a457ec1741bd (patch) | |
| tree | 2527f27be37329d0c2e9c60dee3e5029cdeaf72a /lisp/net | |
| parent | 3657ec4a6c1655254cc78d0306300e40cbe3e457 (diff) | |
| download | emacs-62c4fff6cd661ebcb053485a20e6a457ec1741bd.tar.gz emacs-62c4fff6cd661ebcb053485a20e6a457ec1741bd.zip | |
Added newsticker-browse-url-item.
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/newst-reader.el | 28 |
1 files changed, 27 insertions, 1 deletions
diff --git a/lisp/net/newst-reader.el b/lisp/net/newst-reader.el index bed8b8f2a97..d364e973f2d 100644 --- a/lisp/net/newst-reader.el +++ b/lisp/net/newst-reader.el | |||
| @@ -6,7 +6,7 @@ | |||
| 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 | ||
| @@ -1152,6 +1152,32 @@ static char * visit_xpm[] = { | |||
| 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 |