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

shr.el: Allow customizing the vertical table lines.

shr.el (shr-table-horizontal-line): Renamed from shr-table-line.
 (shr-table-vertical-line): New variable.
 (shr-insert-table): Use it.
parent 4a47c275
2010-11-18 Lars Magne Ingebrigtsen <>
* shr.el (shr-table-horizontal-line): Renamed from shr-table-line.
(shr-table-vertical-line): New variable.
(shr-insert-table): Use it.
2010-11-18 Katsumi Yamaoka <>
* gnus-html.el (gnus-html-wash-images): Don't display images if
......@@ -55,18 +55,23 @@ fit these criteria."
:group 'shr
:type 'regexp)
(defcustom shr-table-line ?-
"Character used to draw table line."
(defcustom shr-table-horizontal-line ?-
"Character used to draw horizontal table lines."
:group 'shr
:type 'character)
(defcustom shr-table-vertical-line ?|
"Character used to draw vertical table lines."
:group 'shr
:type 'character)
(defcustom shr-table-corner ?+
"Character used to draw table corner."
"Character used to draw table corners."
:group 'shr
:type 'character)
(defcustom shr-hr-line ?-
"Character used to draw hr line."
"Character used to draw hr lines."
:group 'shr
:type 'character)
......@@ -778,7 +783,7 @@ START, and END."
(dotimes (i height)
(insert "|\n"))
(insert shr-table-vertical-line "\n"))
(dolist (column row)
(goto-char start)
(let ((lines (nth 2 column))
......@@ -787,7 +792,7 @@ START, and END."
(dolist (line lines)
(setq overlay-line (pop overlay-lines))
(insert line "|")
(insert line shr-table-vertical-line)
(dolist (overlay overlay-line)
(let ((o (make-overlay (- (point) (nth 0 overlay) 1)
(- (point) (nth 1 overlay) 1)))
......@@ -799,7 +804,8 @@ START, and END."
;; possibly.
(dotimes (i (- height (length lines)))
(insert (make-string (string-width (car lines)) ? ) "|")
(insert (make-string (string-width (car lines)) ? )
(forward-line 1)))))
(shr-insert-table-ruler widths)))
......@@ -809,7 +815,8 @@ START, and END."
(insert shr-table-corner)
(dotimes (i (length widths))
(insert (make-string (aref widths i) shr-table-line) shr-table-corner))
(insert (make-string (aref widths i) shr-table-horizontal-line)
(insert "\n"))
(defun shr-table-widths (table suggested-widths)
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