diff --git a/collects/scribble/run.rkt b/collects/scribble/run.rkt index 828cffaf..31c4b8cc 100644 --- a/collects/scribble/run.rkt +++ b/collects/scribble/run.rkt @@ -27,6 +27,7 @@ (define current-extra-files (make-parameter null)) (define current-redirect (make-parameter #f)) (define current-redirect-main (make-parameter #f)) +(define current-quiet (make-parameter #f)) (define (read-one str) (let ([i (open-input-string str)]) @@ -85,6 +86,9 @@ 'scribble "bad procedure identifier for ++ref-in: ~s" proc-id)) (current-xref-input-modules (cons (cons mod id) (current-xref-input-modules))))] + #:once-each + [("--quiet") "suppress output-file reporting" + (current-quiet #t)] #:args (file . another-file) (let ([files (cons file another-file)]) (build-docs (map (lambda (file) (dynamic-require `(file ,file) 'doc)) @@ -104,7 +108,8 @@ (send renderer set-external-tag-path (current-redirect))) (when (current-redirect-main) (send renderer set-external-root-url (current-redirect-main))) - (send renderer report-output!) + (unless (current-quiet) + (send renderer report-output!)) (let* ([fns (map (lambda (fn) (let-values ([(base name dir?) (split-path fn)]) (let ([fn (path-replace-suffix diff --git a/collects/scribblings/scribble/base.scrbl b/collects/scribblings/scribble/base.scrbl index dbfc66b3..1c803d33 100644 --- a/collects/scribblings/scribble/base.scrbl +++ b/collects/scribblings/scribble/base.scrbl @@ -415,8 +415,7 @@ The tag @racket[t] refers to the content form of The @tech{decode}d @racket[pre-content] is hyperlinked to @racket[t], which is normally defined using @racket[elemtag].} -@defproc[(module-path-prefix->string [mod-path module-path?]) - string?]{ +@defproc[(module-path-prefix->string [mod-path module-path?]) string?]{ Converts a module path to a string by resolving it to a path, and using @racket[path->main-collects-relative].} diff --git a/collects/scribblings/scribble/xref.scrbl b/collects/scribblings/scribble/xref.scrbl index ec9100c7..756a1550 100644 --- a/collects/scribblings/scribble/xref.scrbl +++ b/collects/scribblings/scribble/xref.scrbl @@ -115,8 +115,7 @@ The optional @racket[using-render%] argument is as for @racket[load-xref].} -@defproc[(xref-tag->index-entry [xref xref?] - [tag tag?]) +@defproc[(xref-tag->index-entry [xref xref?] [tag tag?]) (or/c false/c entry?)]{ Extract an @racket[entry] structure that provides addition information