Commit 8028ed5c authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen Committed by Katsumi Yamaoka
Browse files

shr.el (shr-tag-li): Get <li> indentation right.

shr.el (shr-tag-li): Get <li> indentation even righter.
shr.el (shr-tag-blockquote): Ensure paragraph start.
parent 1e463294
......@@ -3,6 +3,9 @@
* shr.el (shr-ensure-paragraph): Fix the non-empty line case.
(shr-insert): Tweak line breaking.
(shr-insert): Handle <pre> better.
(shr-tag-li): Get <li> indentation right.
(shr-tag-li): Get <li> indentation even righter.
(shr-tag-blockquote): Ensure paragraph start.
 
2010-10-04 Julien Danjou <julien@danjou.info>
 
......
......@@ -220,6 +220,7 @@ fit these criteria."
(shr-ensure-newline)))
(defun shr-tag-blockquote (cont)
(shr-ensure-paragraph)
(let ((shr-indentation (+ shr-indentation 4)))
(shr-generic cont)))
......@@ -289,12 +290,15 @@ Return a string with image data."
(defun shr-tag-li (cont)
(shr-ensure-newline)
(if (numberp shr-list-mode)
(progn
(insert (format "%d " shr-list-mode))
(setq shr-list-mode (1+ shr-list-mode)))
(insert "* "))
(shr-generic cont))
(let* ((bullet
(if (numberp shr-list-mode)
(prog1
(format "%d " shr-list-mode)
(setq shr-list-mode (1+ shr-list-mode)))
"* "))
(shr-indentation (+ shr-indentation (length bullet))))
(insert bullet)
(shr-generic cont)))
(defun shr-tag-br (cont)
(unless (bobp)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment