(load (string-append laml-dir "laml.scm")) (laml-style "simple-xhtml1.0-transitional-validating") ; FOP (lib-load "xml-in-laml/mirrors/xsl-fo-mirror.scm") (lib-load "xml-in-laml/transformations/xhtml-to-xsl-fo.scm") (begin-laml) (define current-xml-language 'xhtml10-transitional) (define laml-generation-meta (meta 'name "Generator" 'content "LAML")) (define meta-props (list 'http-equiv "Content-Type" 'content "text/html; charset=iso-8859-1")) (define html-props (list 'xmlns "http://www.w3.org/1999/xhtml")) (define ttl "XSL-FO Image test") (process-xml (list (list "html" id-1 'raw 'prolog) (list "fo" (lambda (ast) (transform-ast xhtml-to-xsl-fo ast)) 'pp)) (in-startup-directory (source-filename-without-extension)) (html html-props (head (meta meta-props) laml-generation-meta (title ttl)) (body (h1 ttl) (div (img 'src "http://www.cs.aau.dk/~normark/images/normark-2002.jpg" 'height "3.0cm" 'width "2.0cm" 'alt "") ) ) ) ) (end-laml)