shr: add shr-tag-title

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 43df18a..aaffff2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,7 @@
        * shr.el (shr-insert-color-overlay): Replace deprecated syntax.
        (shr-tag-body): Add background support.
        (shr-descend): Add background support.
+       (shr-tag-title): Add.
 
        * shr-color.el (shr-color-visible): Really return original background
        if fixed.

diff --git a/lisp/shr.el b/lisp/shr.el
index e988d2f..73649a2 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -745,6 +745,9 @@ text will be inserted at start."
   (shr-ensure-newline)
   (insert (make-string shr-width shr-hr-line) "\n"))
 
+(defun shr-tag-title (cont)
+  (shr-heading cont 'bold 'underline))
+
 (defun shr-tag-font (cont)
   (let ((start (point))
         (color (cdr (assq :color cont))))