lisp/gnus/shr.el: (shr-tag-dl, shr-tag-dt, shr-tag-dd): Add support for <dl>, <dt> and <dd>
This commit is contained in:
parent
a020afb989
commit
d2aa978075
2 changed files with 17 additions and 0 deletions
|
@ -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>
|
||||
|
||||
|
|
|
@ -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))
|
||||
|
|
Loading…
Add table
Reference in a new issue