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

avoid unnecessary embedding of build path in generated doc support

Browse Source
This commit is contained in:
Matthew Flatt 2014-03-14 09:47:06 -06:00
parent 9e2787c0cf
commit 8da2692b85
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
pkgs/racket-pkgs/racket-index/scribblings/main/private/local-redirect.rkt
View File

@ -115,11 +115,15 @@
(fprintf o "// This script is included by generated documentation to rewrite\n") (fprintf o "// This script is included by generated documentation to rewrite\n")
(fprintf o "// links expressed as tag queries into local-filesystem links.\n") (fprintf o "// links expressed as tag queries into local-filesystem links.\n")
(newline o) (newline o)
(fprintf o "link_target_prefix = ~s;\n" (url->string (when user?
(path->url ;; If not user, link_target_prefix is declared in the output
(path->directory-path ;; of `rewrite-code` (and we don't want to include a build-time path
(build-path (find-doc-dir) "local-redirect"))))) ;; that would end up in a distribution)
(newline o) (fprintf o "link_target_prefix = ~s;\n" (url->string
(path->url
(path->directory-path
(build-path (find-doc-dir) "local-redirect")))))
(newline o))
(fprintf o "var ~alink_targets = [" (if user? "user_" "")) (fprintf o "var ~alink_targets = [" (if user? "user_" ""))
(for ([e (in-list db)] (for ([e (in-list db)]
[i (in-naturals)]) [i (in-naturals)])