suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

scribble/html: add 'index flag in url-roots

Browse Source 
This flag can be used to make "file://..."-rendered pages easier
to inspect.

original commit: 2f469a06cd56c5be1ddab2a169428cd2099a2cbb
This commit is contained in:
Matthew Flatt 2014-02-11 05:38:07 -07:00
parent b669a390ff
commit 1bac8f0057
2 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pkgs/scribble-pkgs/scribble-doc/scribblings/scribble/html.scrbl
View File

@ -444,8 +444,9 @@ before @racket[renderer] is called.}
@defparam[url-roots roots (or/c #f @defparam[url-roots roots (or/c #f
(listof (or/c (list path-string? string?) (listof (cons/c path-string?
(list path-string? string? 'abs))))]{ (cons/c string?
(listof 'abs 'index)))))]{
A parameter that determines how resource paths are converted to URLs A parameter that determines how resource paths are converted to URLs
for reference. A @racket[#f] value is equivalent to an empty list. for reference. A @racket[#f] value is equivalent to an empty list.
@ -459,7 +460,10 @@ all paths are expected to be disjoint (e.g., no @racket["/foo"] and
If an item in the parameter's list includes @racket['abs], then an If an item in the parameter's list includes @racket['abs], then an
absolute URL is produced for all references to files with the absolute URL is produced for all references to files with the
corresponding prefix.} corresponding prefix. If an item includes @racket['index], then an
refer to a directory path is converted to a reference to
@filepath{index.html}, otherwise a reference to @filepath{index.html}
is converted to a directory path.}
@defproc[(resource? [v any/c]) boolean?]{ @defproc[(resource? [v any/c]) boolean?]{

7
pkgs/scribble-pkgs/scribble-html-lib/scribble/html/resource.rkt
View File

@ -74,7 +74,12 @@
(and (pair? p) (equal? (car p) (car r)) (and (pair? p) (equal? (car p) (car r))
(loop (cdr r) (cdr p))) (loop (cdr r) (cdr p)))
(case mode (case mode
[(get-path) `(,(cadr root+url+flags) ,@p ,file*)] [(get-path) `(,(cadr root+url+flags)
,@p
,(if (and (equal? file* "")
(memq 'index (cddr root+url+flags)))
default-file
file*))]
[(get-abs-or-true) [(get-abs-or-true)
(if (memq 'abs (cddr root+url+flags)) `("" ,@p) #t)] (if (memq 'abs (cddr root+url+flags)) `("" ,@p) #t)]
[else (error 'relativize "internal error: ~e" mode)])))) [else (error 'relativize "internal error: ~e" mode)]))))