Commit d709b79a authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen Committed by Katsumi Yamaoka
Browse files

shr.el (shr-expand-newlines): Make nested boxes work.

parent 0fe719e6
2011-01-25 Lars Ingebrigtsen <>
* shr.el (shr-expand-newlines): Make nested boxes work.
2011-01-24 Lars Ingebrigtsen <>
* shr.el (shr-expand-newlines): Proof of concept implemantation of boxy
......@@ -648,6 +648,15 @@ ones, in case fg and bg are nil."
(defun shr-expand-newlines (start end color)
;; Skip past all white space at the start and ends.
(goto-char start)
(skip-chars-forward " \t\n")
(setq start (point))
(goto-char end)
(skip-chars-backward " \t\n")
(forward-line 1)
(setq end (point))
(narrow-to-region start end)
(let ((width (shr-natural-width))
......@@ -655,13 +664,36 @@ ones, in case fg and bg are nil."
(while (not (eobp))
(when (and (< (setq current-column (current-column)) width)
(not (overlays-at (point))))
(< (setq current-column (shr-previous-newline-padding-width
(let ((overlay (make-overlay (point) (1+ (point)))))
(overlay-put overlay 'before-string
(propertize (make-string (- width current-column) ? )
'face (list :background color)))))
(lambda (overlay)
(let ((string (getf (overlay-properties overlay) 'before-string)))
(if (not string)
(overlay-put overlay 'before-string "")
(overlays-at (point))
(propertize (make-string (- width current-column) ? )
'face (list :background color))))))
(forward-line 1)))))
(defun shr-previous-newline-padding-width (width)
(let ((overlays (overlays-at (point)))
(previous-width 0))
(if (null overlays)
(dolist (overlay overlays)
(setq previous-width
(+ previous-width
(length (getf (overlay-properties overlay) 'before-string)))))
(+ width previous-width))))
(defun shr-put-color-1 (start end type color)
(let* ((old-props (get-text-property start 'face))
(do-put (not (memq type old-props)))
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