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

minor tweaks

Browse Source 
svn: r1671
This commit is contained in:
Eli Barzilay 2005-12-23 09:14:25 +00:00
parent eceaabff9e
commit b087aa26ec
2 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/swindle/html-doc.txt
View File

@ -1788,9 +1788,10 @@ expects a list of HTML objects as its first arguments (and again,
optionally more keywords/values). Finally, a convenient function is optionally more keywords/values). Finally, a convenient function is
`make-defined-htmls' -- when called (with no arguments or `make-defined-htmls' -- when called (with no arguments or
keywords/values), it will go over all HTML objects in `*defined-htmls*', keywords/values), it will go over all HTML objects in `*defined-htmls*',
collected by `defhtml' forms, and create their files. (Actually, it collected by `defhtml' forms, and create their files. Actually, it will
will check `*defined-html*' once it is done, since more HTML objects may empty `*defined-htmls*', and recheck it once it is done, since more HTML
be defined while creating pages.) objects may be defined while creating pages. `*all-html*' contains all
html object and is never emptied.
The following example is a complete script that will create three HTML The following example is a complete script that will create three HTML
files in the directory you run it from. (The evaluation delay trick files in the directory you run it from. (The evaluation delay trick

7
collects/swindle/html.ss
View File

@ -746,6 +746,7 @@
(defwrapper* ins: ) (defwrapper* ins: )
(defwrapper* del: ) (defwrapper* del: )
(defwrapper* nobr: ) (defwrapper* nobr: )
(defwrapper* nowrap: )
(defwrapper* big: ) (defwrapper* big: )
(defwrapper* big~: recform: ::tag 'big: ::1st-args ::n) (defwrapper* big~: recform: ::tag 'big: ::1st-args ::n)
@ -1097,8 +1098,10 @@
;; Website creation ;; Website creation
(define* *defined-htmls* '()) (define* *defined-htmls* '())
(define* *all-htmls* '())
(define* (add-defined-html html) (define* (add-defined-html html)
(set! *defined-htmls* (cons html *defined-htmls*))) (push! html *defined-htmls*)
(push! html *all-htmls*))
(defsyntax* (html-obj! stx) (defsyntax* (html-obj! stx)
(syntax-case stx () (syntax-case stx ()
@ -1218,7 +1221,7 @@
[val (namespace-variable-value sym #f (lambda () #f))]) [val (namespace-variable-value sym #f (lambda () #f))])
(if (and val (list? val) (getarg val :name)) (if (and val (list? val) (getarg val :name))
val val
(let loop ([hs *defined-htmls*]) (let loop ([hs *all-htmls*])
(and (pair? hs) (let ([name (getarg (car hs) :name)]) (and (pair? hs) (let ([name (getarg (car hs) :name)])
(if (or (equal? str name) (if (or (equal? str name)
(equal? str (html-file-name name)) (equal? str (html-file-name name))