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

Fix #:redirect-main/--redirect-main for only main installation

Browse Source 
The intent was for the redirection to apply only to links to
documentation in the main installation, but it also affected
other paths.
This commit is contained in:
Matthew Flatt 2015-02-02 21:28:45 +01:00
parent 2eb3c62bd6
commit d5e244a068
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
scribble-lib/scribble/html-render.rkt
View File

@ -1336,10 +1336,15 @@
`((a ([href
,(cond
[(and ext-id external-root-url
(let ([rel (find-relative-path
(find-doc-dir)
(relative->path (dest-path dest)))])
(and (relative-path? rel)
(let* ([ref-path (relative->path (dest-path dest))]
[rel (if (relative-path? ref-path)
#f
(find-relative-path
(find-doc-dir)
ref-path))])
(and rel
(relative-path? rel)
(not (memq 'up (explode-path rel)))
rel)))
=> (lambda (rel)
(url->string*