misc-deps
/
raart
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

up

This commit is contained in:
Jay McCarthy 2018-01-01 19:03:46 -05:00
parent b62acd2340
commit c5c57978a1
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
main.rkt
View File

@ -206,6 +206,7 @@
(newline)) (newline))
(define (table rows (define (table rows
;; XXX add more options to frames
#:frames? [frames? #t] #:frames? [frames? #t]
#:style [s #f] #:fg [f #f] #:bg [b #f] #:style [s #f] #:fg [f #f] #:bg [b #f]
#:inset-dw [dw 0] #:inset-dw [dw 0]
@ -240,9 +241,9 @@
(char right) (char right)
(char middle))))))) (char middle)))))))
(define header (make-bar #\┌ #\┬ #\┐)) (define header (make-bar #\┌ #\┬ #\┐))
(define footer (make-bar #\└ #\┴ #\┘))
(define inbetween (make-bar #\├ #\┼ #\┤)) (define inbetween (make-bar #\├ #\┼ #\┤))
(define footer (make-bar #\└ #\┴ #\┘))
(define last-row (sub1 (length rows))) (define last-row (sub1 (length rows)))
(vappend* (vappend*
(for/list ([row (in-list rows)] (for/list ([row (in-list rows)]