Implement col0 separators for lines.

table.scm

@@ -208,7 +208,7 @@
 
  ;; Accepts a table row - list of list of strings - and returns a list
  ;; of lines (list of strings).
- (define (table-row->lines row left-border cell-separator right-border ansi?)
+ (define (table-row->lines row left-border cell0-separator cell-separator right-border ansi?)
    (if (null? row)
        '()
        (let yloop ((row row)
@@ -217,13 +217,22 @@
 	     (reverse res)
 	     (yloop (map cdr row)
 		    (cons
-		     (string-append left-border
+		     (string-append
-				    (string-intersperse
+		      left-border
-				     (let ((srow (map car row)))
+		      (let cloop ((srow (map car row))
-				       (if ansi?
+				  (res "")
-					   (map (lambda (c) (string-append c (ansi #:default))) srow)
+				  (idx 0))
-					   srow))
+			(if (null? srow)
-				     cell-separator)
+			    res
+			    (cloop (cdr srow)
+				   (string-append res
+						  (case idx
+						    ((0) "")
+						    ((1) cell0-separator)
+						    (else cell-separator))
+						  (car srow)
+						  (if ansi? (ansi #:default) ""))
+				   (add1 idx))))
 		      right-border)
 		     res))))))
 
@@ -269,6 +278,8 @@
 		     (cdr stylepair)
 		     (cdar table-borders-lookup)))
 		(cell-borders (list (if table-border (vector-ref stylevec 4) "")
+				    (if (or column-border col0-border)
+					(vector-ref stylevec 6) "")
 				    (if column-border (vector-ref stylevec 6) "")
 				    (if table-border (vector-ref stylevec 7) "")
 				    ansi?))
@@ -360,7 +371,7 @@
 		 '((("a") ("bb") ("ccc") (" "))
 		   ((" ") ("b ") ("z  ") ("x"))))
     (test-equal? table-row->lines
-		 (table-row->lines '(("a ") ("bb") ("ccc") ("    ")) "]" "|" "[" #f)
+		 (table-row->lines '(("a ") ("bb") ("ccc") ("    ")) "]" "|" "|" "[" #f)
 		 '("]a |bb|ccc|    ["))
     (test-equal? table-row-delimiter
 		 (table-row-delimiter '(1 2 3 1) "/" "-" "+" "\\")