Basic support for table ansi resets.

2023-06-15 16:45:35 +02:00 · 2023-06-15 16:45:35 +02:00 · 97dd257780
commit 97dd257780
parent 60850f60b0
4 changed files with 18 additions and 10 deletions
--- a/src/table.scm
+++ b/src/table.scm
@ -89,15 +89,21 @@
 		  (res '())
 		  (prev-borders #f))
 	 (if (null? rows)
-	     (apply append
-		    (reverse (if (table-border-between-rows? prev-borders #f)
-				 (cons (table-rows-border col-widths
-							  prev-borders
-							  #f
-							  col-separators
-							  unicode?)
-				       res)
-				 res)))
+	     (let ((res0 (apply append
+				(reverse (if (table-border-between-rows? prev-borders #f)
+					     (cons (table-rows-border col-widths
+								      prev-borders
+								      #f
+								      col-separators
+								      unicode?)
+						   res)
+					     res)))))
+	       (if ansi-reset?
+		   (sgr-block-happend res0
+				      (make-table-vertical-sgr-block
+				       (sgr-block-height res0)
+				       "\x1b[0m"))
+		   res0))
 	     (loop (cdr rows)
 		   (cdr borders)
 		   (if (table-border-between-rows? prev-borders (car borders))