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

better start-doc implementation, including alphabetizing list

Browse Source 
svn: r7710

original commit: c4d2882557286b4c79c5f88d7918f7fc233ad1ec
This commit is contained in:
Matthew Flatt 2007-11-13 14:15:28 +00:00
parent 6523bab2c6
commit 8660e0cb98
4 changed files with 18 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/scribble/base-render.ss
View File

@ -34,14 +34,6 @@
(substring s 0 (sub1 (string-length s)))) (substring s 0 (sub1 (string-length s))))
sep))) sep)))
(define/public (strip-aux content)
(cond
[(null? content) null]
[(aux-element? (car content))
(strip-aux (cdr content))]
[else (cons (car content)
(strip-aux (cdr content)))]))
;; ---------------------------------------- ;; ----------------------------------------
;; marshal info ;; marshal info

1
collects/scribble/html-render.ss
View File

@ -63,7 +63,6 @@
install-file install-file
get-dest-directory get-dest-directory
format-number format-number
strip-aux
quiet-table-of-contents) quiet-table-of-contents)
(define/override (get-suffix) #".html") (define/override (get-suffix) #".html")

17
collects/scribble/struct.ss
View File

@ -270,7 +270,8 @@
;; ---------------------------------------- ;; ----------------------------------------
(provide content->string (provide content->string
element->string) element->string
strip-aux)
(define content->string (define content->string
(case-lambda (case-lambda
@ -297,12 +298,26 @@
[else (format "~s" c)])])] [else (format "~s" c)])])]
[(c renderer sec ri) [(c renderer sec ri)
(cond (cond
[(and (link-element? c)
(null? (element-content c)))
(let ([dest (resolve-get sec ri (link-element-tag c))])
(if dest
(content->string (strip-aux (cadr dest)) renderer sec ri)
"???"))]
[(element? c) (content->string (element-content c) renderer sec ri)] [(element? c) (content->string (element-content c) renderer sec ri)]
[(delayed-element? c) [(delayed-element? c)
(content->string (delayed-element-content c ri) (content->string (delayed-element-content c ri)
renderer sec ri)] renderer sec ri)]
[else (element->string c)])])) [else (element->string c)])]))
(define (strip-aux content)
(cond
[(null? content) null]
[(aux-element? (car content))
(strip-aux (cdr content))]
[else (cons (car content)
(strip-aux (cdr content)))]))
;; ---------------------------------------- ;; ----------------------------------------
(provide flow-element-width (provide flow-element-width

4
collects/scribblings/scribble/struct.scrbl
View File

@ -453,7 +453,7 @@ A placeholder for a tag to be generated during the @scheme{collect
@defproc*[([(content->string (content list?)) string?] @defproc*[([(content->string (content list?)) string?]
[(content->string (content list?) (p part?) (info resolve-info?)) string?])]{ [(content->string (content list?) (renderer any/c) (p part?) (info resolve-info?)) string?])]{
Converts a list of elements to a single string (essentially Converts a list of elements to a single string (essentially
rendering the content as ``plain text''). rendering the content as ``plain text'').
@ -465,7 +465,7 @@ element (if it has not been forced already).}
@defproc*[([(element->string (element any/c)) string?] @defproc*[([(element->string (element any/c)) string?]
[(element->string (element any/c) (p part?) (info resolve-info?)) string?])]{ [(element->string (element any/c) (renderer any/c) (p part?) (info resolve-info?)) string?])]{
Like @scheme[content->string], but for a single element. Like @scheme[content->string], but for a single element.
} }