procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

newsticker: Handle embedded (x)html in atom feeds.

Browse source 
* lisp/net/newst-backend.el (newsticker--parse-atom-1.0): Handle
embedded (x)html in summary node.
This commit is contained in:
Ulf Jasper 2014-11-27 19:32:08 +01:00
parent 07efa3f0ba
commit cceb7a8921
2 changed files with 14 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2014-11-27 Ulf Jasper <ulf.jasper@web.de>
* net/newst-backend.el (newsticker--parse-atom-1.0): Handle
embedded (x)html in summary node.
2014-11-27 Sam Steingold <sds@gnu.org>
* menu-bar.el (menu-bar-open): When everything else fails,

14
lisp/net/newst-backend.el
View file

@ -1216,13 +1216,17 @@ URL `http://www.atompub.org/2005/08/17/draft-ietf-atompub-format-11.html'"
(car (xml-get-children node 'title)))))
;; desc-fn
(lambda (node)
;; unxml the content node. Atom allows for
;; integrating (x)html into the atom structure
;; but we need the raw html string.
;; unxml the content or the summary node. Atom
;; allows for integrating (x)html into the atom
;; structure but we need the raw html string.
;; e.g. http://www.heise.de/open/news/news-atom.xml
(or (newsticker--unxml
;; http://feeds.feedburner.com/ru_nix_blogs
(or (newsticker--unxml
(car (xml-node-children
(car (xml-get-children node 'content)))))
(car (xml-get-children node 'content)))))
(newsticker--unxml
(car (xml-node-children
(car (xml-get-children node 'summary)))))
(car (xml-node-children
(car (xml-get-children node 'summary))))))
;; link-fn