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

* net/eww.el (eww-highest-readability): More dom.el fixes.

Browse source
This commit is contained in:
Lars Magne Ingebrigtsen 2014-11-26 20:30:59 +01:00
parent 97d6e7e711
commit 28653a727e
2 changed files with 11 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2014-11-26 Lars Magne Ingebrigtsen <larsi@gnus.org>
* net/eww.el (eww-highest-readability): More dom.el fixes.
2014-11-26 Ulf Jasper <ulf.jasper@web.de>
* net/newst-backend.el (newsticker--parse-generic-items): Take

13
lisp/net/eww.el
View file

@ -590,12 +590,13 @@ the like."
(let ((result node)
highest)
(dolist (elem (dom-children node))
(when (> (or (dom-attr
(setq highest (eww-highest-readability elem))
:eww-readability-score)
most-negative-fixnum)
(or (dom-attr (cdr result) :eww-readability-score)
most-negative-fixnum))
(when (and (not (stringp elem))
(> (or (dom-attr
(setq highest (eww-highest-readability elem))
:eww-readability-score)
most-negative-fixnum)
(or (dom-attr result :eww-readability-score)
most-negative-fixnum)))
(setq result highest)))
result))