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

* make script accept a path to use for an external script file

Browse Source 
* use it to have the search files as externals (which is significantly
  faster on some browsers (IE))

svn: r10089

original commit: 805c168236d0aa62151ac9c22989bd803d19ca58
This commit is contained in:
Eli Barzilay 2008-06-02 14:58:54 +00:00
parent 50b9098f9c
commit 24fc7f2806
3 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/scribble/html-render.ss
View File

@ -721,11 +721,15 @@
`((span ([title ,(hover-element-text e)])
,@(render-plain-element e part ri)))]
[(script-element? e)
`((script ([type ,(script-element-type e)])
,(apply literal `("\n" ,@(script-element-script e) "\n")))
;; mynoscript hack doesn't always work (see hack in scribble-common.js)
(noscript ,@(render-plain-element e part ri))
)]
(let* ([t `[type ,(script-element-type e)]]
[s (script-element-script e)]
[s (if (list? s)
`(script (,t) ,(apply literal `("\n" ,@s "\n")))
`(script (,t [src ,s])))])
(list s
;; mynoscript hack doesn't always work (see the
;; (commented) hack in scribble-common.js)
`(noscript ,@(render-plain-element e part ri))))]
[(target-element? e)
`((a ([name ,(format "~a" (anchor-name (tag-key (target-element-tag e)
ri)))]))

4
collects/scribble/struct.ss
View File

@ -166,7 +166,7 @@
[(aux-element element) ()]
[(hover-element element) ([text string?])]
[(script-element element) ([type string?]
[script (listof string?)])]
[script (or/c path-string? (listof string?))])]
;; specific renders support other elements, especially strings
[with-attributes ([style any/c]
@ -176,7 +176,7 @@
[parent (or/c false/c part?)]
[info any/c])]
[target-url ([addr (or/c string? path?)] [style any/c])]
[target-url ([addr path-string?] [style any/c])]
[url-anchor ([name string?])]
[image-file ([path (or/c path-string?
(cons/c (one-of/c 'collects)

8
collects/scribblings/scribble/struct.scrbl
View File

@ -485,11 +485,13 @@ over the element's content.}
@defstruct[(script-element element) ([type string?]
[script (listof string?)])]{
[script (or/c path-string?
(listof string?))])]{
For HTML rendering, when scripting is enabled in the browser,
@scheme[script] is used for the element instead of its normal
content. The @scheme[type] string is normally
content---it can be either path naming a script file to refer to, or
the contents of the script. The @scheme[type] string is normally
@scheme["text/javascript"].}
@ -560,7 +562,7 @@ Computed for each part by the @techlink{collect pass}.
}
@defstruct[target-url ([addr string?]
@defstruct[target-url ([addr path-string?]
[style any/c])]{
Used as a style for an @scheme[element]. The @scheme[style] at this