Add tables and spinners

table.scm

@@ -0,0 +1,22 @@
+(define-record table names widths)
+
+(define (column-text text width)
+  (string-append
+   " "
+   (parse-markup text)
+   (make-string (- width (string-length (remove-markup text)) 1) #\ )))
+
+(define (table-header tab)
+  (string-append
+   "┌" (string-join (map (lambda (w) (make-string (+ 2 w) #\─))  (table-widths tab)) "┬") "┐\n"
+   "│" (string-join (map (lambda (name width) (column-text name (+ 2 width))) (table-names tab) (table-widths tab)) "│") "│\n"
+   "├" (string-join (map (lambda (w) (make-string (+ 2 w) #\─)) (table-widths tab)) "┼") "┤\n"))
+
+(define (table-row tab . args)
+  (string-append
+   "│"
+   (string-join (map (lambda (text width) (column-text text (+ 2 width))) args (table-widths tab)) "│")
+   "│\n"))
+
+(define (table-footer tab)
+  (string-append "└" (string-join (map (lambda (w) (make-string (+ 2 w) #\─)) (table-widths tab)) "┴") "┘\n"))