suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

made verbatim take any number of arguments (and reformat code)

Browse Source 
svn: r8698

original commit: 7e736230321ff6625327b51a31950e653faed2bb
This commit is contained in:
Eli Barzilay 2008-02-18 09:36:40 +00:00
parent 454ac77d5f
commit b2336626fa
1 changed files with 13 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
collects/scribble/manual.ss
View File

@ -187,21 +187,19 @@
(make-element "schemeinput" (list (substring s (cdar spaces) (caar end-spaces))))
(hspace (- (cdar end-spaces) (caar end-spaces)))))))))
(define (verbatim s)
(let ([strs (regexp-split #rx"\n" s)])
(make-table
#f
(map (lambda (s)
(list (make-flow (list (make-paragraph
(let loop ([s s])
(let ([spaces (regexp-match-positions #rx"(?:^| ) +" s)])
(define (verbatim s . more)
(define strs (regexp-split #rx"\n" (apply string-append s more)))
(define (str->elts str)
(let ([spaces (regexp-match-positions #rx"(?:^| ) +" str)])
(if spaces
(append
(loop (substring s 0 (caar spaces)))
(list (hspace (- (cdar spaces) (caar spaces))))
(loop (substring s (cdar spaces))))
(list (make-element 'tt (list s)))))))))))
strs))))
(list* (substring str 0 (caar spaces))
(hspace (- (cdar spaces) (caar spaces)))
(str->elts (substring str (cdar spaces))))
(list (make-element 'tt (list str))))))
(define (make-line str)
(list (make-flow (list (make-paragraph
(list (make-element 'tt (str->elts str))))))))
(make-table #f (map make-line strs)))
(define-syntax indexed-scheme
(syntax-rules ()