make path->relative-string/library use "<doc>/...." prefixes files in the docs

This commit is contained in:
Robby Findler 2014-10-28 16:30:48 -05:00
parent 54fc2cd939
commit 0fa5f866ae
2 changed files with 6 additions and 3 deletions

View File

@ -1513,8 +1513,9 @@ back to a path relative to @racket[(find-collects-dir)].}
is an absolute one that is inside the @filepath{collects} tree, the
result is a string that begins with @racket["<collects>/"].
Similarly, a path in the user-specific collects results in a prefix of
@racket["<user-collects>/"], and a @PLaneT path results in
@racket["<planet>/"].
@racket["<user-collects>/"], a @PLaneT path results in
@racket["<planet>/"], and a path into documentation results in
@racket["<doc>/"] or @racket["<user-doc>/"].
If @racket[cache] is not @racket[#f], it is used as a cache argument
for @racket[pkg->path] to speed up detection and conversion of

View File

@ -53,7 +53,9 @@
(make-path->relative-string
(list (cons find-collects-dir "<collects>/")
(cons find-user-collects-dir "<user>/")
(cons find-planet-dir "<planet>/"))))
(cons find-planet-dir "<planet>/")
(cons find-doc-dir "<doc>/")
(cons find-user-doc-dir "<user-doc>/"))))
(define (make-default cache default)
(lambda (x)
(define-values (pkg sub) (if (complete-path? x)