Allow shr table char to be customized

Signed-off-by: Julien Danjou <julien@danjou.info>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fb5f1e2..edf2ec7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+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.

diff --git a/lisp/shr.el b/lisp/shr.el
index daafa61..8f246a0 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -53,6 +53,16 @@ fit these criteria."
   :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
@@ -532,9 +542,9 @@ Return a string with image data."
 
 (defun shr-insert-table-ruler (widths)
   (shr-indent)
-  (insert "+")
+  (insert shr-table-corner)
   (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)