* 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.
2010-10-04 Julien Danjou <julien@danjou.info>
(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 ((shr-indentation (+ shr-indentation 2)))
+ (if (numberp shr-list-mode)
+ (progn
+ (insert (format "%d " shr-list-mode))
+ (setq shr-list-mode (1+ shr-list-mode)))
+ (insert "* "))
+ (shr-generic cont)))
(defun shr-tag-br (cont)
(unless (bobp)