Signed-off-by: Julien Danjou <julien@danjou.info>
+2010-10-09 Julien Danjou <julien@danjou.info>
+
+ * shr.el (shr-table-corner): Add.
+ (shr-table-line): Add.
+ (shr-insert-table-ruler): Use the above defcustoms to insert tables.
+
2010-10-08 Julien Danjou <julien@danjou.info>
* mm-decode.el (mm-text-html-renderer): Add mm-shr in choice list.
2010-10-08 Julien Danjou <julien@danjou.info>
* mm-decode.el (mm-text-html-renderer): Add mm-shr in choice list.
:group 'shr
:type 'regexp)
:group 'shr
:type 'regexp)
+(defcustom shr-table-line ?-
+ "Character used to draw table line."
+ :group 'shr
+ :type 'char)
+
+(defcustom shr-table-corner ?+
+ "Charater used to draw table corner."
+ :group 'shr
+ :type 'char)
+
(defvar shr-content-function nil
"If bound, this should be a function that will return the content.
This is used for cid: URLs, and the function is called with the
(defvar shr-content-function nil
"If bound, this should be a function that will return the content.
This is used for cid: URLs, and the function is called with the
(defun shr-insert-table-ruler (widths)
(shr-indent)
(defun shr-insert-table-ruler (widths)
(shr-indent)
+ (insert shr-table-corner)
(dotimes (i (length widths))
(dotimes (i (length widths))
- (insert (make-string (aref widths i) ?-) ?+))
+ (insert (make-string (aref widths i) shr-table-line) shr-table-corner))
(insert "\n"))
(defun shr-table-widths (table suggested-widths)
(insert "\n"))
(defun shr-table-widths (table suggested-widths)