diff options
author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2013-06-18 11:24:16 +0000 |
---|---|---|
committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2013-06-18 11:24:16 +0000 |
commit | d2aa978075f08d3cb9ae9e2e988ec6ae70c7ca85 (patch) | |
tree | 373df6c32a00cf2f72032dfcbc8e64f4327d71bd | |
parent | a020afb9892611eb57f6a0a31da26a4554a51f30 (diff) |
lisp/gnus/shr.el: (shr-tag-dl, shr-tag-dt, shr-tag-dd): Add support for <dl>, <dt> and <dd>
-rw-r--r-- | lisp/gnus/ChangeLog | 2 | ||||
-rw-r--r-- | lisp/gnus/shr.el | 15 |
2 files changed, 17 insertions, 0 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 8718b9d4ca..7f3dae659b 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -3,6 +3,8 @@ * shr.el (shr-tag-table): Insert the images after the table, so that they're not covered by the table colourisation, which often looked awkward. + (shr-tag-dl, shr-tag-dt, shr-tag-dd): Add support for <dl>, <dt> and + <dd>. 2013-06-18 Katsumi Yamaoka <yamaoka@jpl.org> diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index 1c940bebc5..f3a396a94b 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/shr.el @@ -1139,6 +1139,21 @@ ones, in case fg and bg are nil." (shr-generic cont)) (shr-ensure-paragraph)) +(defun shr-tag-dl (cont) + (shr-ensure-paragraph) + (shr-generic cont) + (shr-ensure-paragraph)) + +(defun shr-tag-dt (cont) + (shr-ensure-newline) + (shr-generic cont) + (shr-ensure-newline)) + +(defun shr-tag-dd (cont) + (shr-ensure-newline) + (let ((shr-indentation (+ shr-indentation 4))) + (shr-generic cont))) + (defun shr-tag-ul (cont) (shr-ensure-paragraph) (let ((shr-list-mode 'ul)) |