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

fix relative URLs in single-page Scribble HTML output

Browse Source 
Merge to v5.0.1
(cherry picked from commit 8cb0b6fd7bf45324d668eef8101cc42437e58c3c)

original commit: 4be160043c0baa717d815678dc1fd74918a5c17c
This commit is contained in:
Matthew Flatt 2010-07-16 03:37:37 -06:00 committed by Eli Barzilay
parent 5602b633ee
commit bf8039fc90
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/scribble/html-render.rkt
View File

@ -358,8 +358,10 @@
(define/private (dest->url dest)
(format "~a~a~a"
(from-root (relative->path (dest-path dest))
(get-dest-directory))
(let ([p (relative->path (dest-path dest))])
(if (equal? p (current-output-file))
""
(from-root p (get-dest-directory))))
(if (dest-page? dest) "" "#")
(if (dest-page? dest)
""