shr: add tag font

Signed-off-by: Julien Danjou <julien@danjou.info>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index db25fcd..ffce470 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2010-11-22  Julien Danjou  <julien@danjou.info>
 
+       * shr.el (shr-tag-font): Add.
+
        * shr-color.el: New file.
 
        * color-lab.el: New file.

diff --git a/lisp/shr.el b/lisp/shr.el
index f0f0448..0b3e1a9 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -525,6 +525,14 @@ START, and END."
       (let ((overlay (make-overlay start (point))))
        (overlay-put overlay 'face (cons 'foreground-color color))))))
 
+(defun shr-tag-font (cont)
+  (let ((start (point))
+        (color (cdr (assq :color cont))))
+    (shr-generic cont)
+    (when color
+      (let ((overlay (make-overlay start (point))))
+       (overlay-put overlay 'face (cons 'foreground-color color))))))
+
 (defun shr-parse-style (style)
   (when style
     (let ((plist nil))