32 lines
760 B
Racket
32 lines
760 B
Racket
#lang racket
|
|
|
|
(require plot/doc
|
|
scribble/manual
|
|
scribble/render
|
|
scribble/text-render
|
|
scribble/decode)
|
|
|
|
(define (render-doc doc-part)
|
|
(define path (make-temporary-file "racket-doc-~a.txt" #f (current-directory)))
|
|
(dynamic-wind
|
|
(λ () (void))
|
|
(λ ()
|
|
(render (list (decode (list (declare-exporting) doc-part)))
|
|
(list path)
|
|
#:render-mixin render-mixin)
|
|
(file->lines path))
|
|
(λ () (delete-file path))))
|
|
|
|
(define (display-doc doc-part)
|
|
(for ([line (in-list (render-doc doc-part))])
|
|
(displayln line)))
|
|
|
|
(display-doc (plot/dc:doc))
|
|
(newline)
|
|
(display-doc (treeof:doc))
|
|
(newline)
|
|
(display-doc (plot-background:doc))
|
|
(newline)
|
|
(display-doc (known-point-symbols:doc))
|
|
(newline)
|