suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix for `scribble --text' and tables

Browse Source
This commit is contained in:
Matthew Flatt 2011-12-21 11:26:46 -07:00
parent ddcab952f7
commit dcedd6e2be
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/scribble/text-render.rkt
View File

@ -99,12 +99,13 @@
(if (eq? i 'cont) (if (eq? i 'cont)
0 0
(apply max d (map string-length i))))) (apply max d (map string-length i)))))
(apply map list strs))]) (apply map list strs))]
[x-length (lambda (col) (if (eq? col 'cont) 0 (length col)))])
(for/fold ([indent? #f]) ([row (in-list strs)]) (for/fold ([indent? #f]) ([row (in-list strs)])
(let ([h (apply max 0 (map length row))]) (let ([h (apply max 0 (map x-length row))])
(let ([row* (for/list ([i (in-range h)]) (let ([row* (for/list ([i (in-range h)])
(for/list ([col (in-list row)]) (for/list ([col (in-list row)])
(if (i . < . (length col)) (if (i . < . (x-length col))
(list-ref col i) (list-ref col i)
"")))]) "")))])
(for/fold ([indent? indent?]) ([sub-row (in-list row*)]) (for/fold ([indent? indent?]) ([sub-row (in-list row*)])
@ -116,7 +117,7 @@
"" ""
col)]) col)])
(display col) (display col)
(display (make-string (- w (string-length col)) #\space))) (display (make-string (max 0 (- w (string-length col))) #\space)))
#t) #t)
(newline) (newline)
#t))) #t)))