ovidiu 02/01/09 21:18:46
Modified: src/scratchpad/schecoon/scheme test.scm
Log:
Added entry for documentation.
Revision Changes Path
1.3 +7 -1 xml-cocoon2/src/scratchpad/schecoon/scheme/test.scm
Index: test.scm
===================================================================
RCS file: /home/cvs/xml-cocoon2/src/scratchpad/schecoon/scheme/test.scm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- test.scm 8 Jan 2002 23:19:32 -0000 1.2
+++ test.scm 10 Jan 2002 05:18:46 -0000 1.3
@@ -33,9 +33,15 @@
(match "generate/(.*)" (sitemap env file . args)
(display (sitemap:generate sitemap env (list (cons 'src file)))))
+ (match "documentation/(.*).html" (sitemap env file . args)
+ (sitemap:process sitemap env '()
+ (sitemap:serialize sitemap env '()
+ (sitemap:transform sitemap env (list (cons 'src
"stylesheets/document2html.xsl"))
+ (sitemap:generate sitemap env (list (cons 'src (string-append "docs/"
file ".xml"))))))))
+
(match "sites/images/(.*)" (sitemap env file . args)
(sitemap:process sitemap env (list (cons 'mime-type "image/gif"))
- (sitemap:read sitemap env (list (cons 'src (string-append file))))))
+ (sitemap:read sitemap env (list (cons 'src file)))))
(match "slides/(.*)\.gif" (sitemap env file . rest)
(write '(call-pipeline gif-image file)))
----------------------------------------------------------------------
In case of troubles, e-mail: [EMAIL PROTECTED]
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
