]> (define %html-ext% ".php") (define %shade-verbatim% #t) (define (php-code code) (make processing-instruction data: (string-append "php " code "?"))) (define (html-document title-sosofo body-sosofo) (let* (;; Let's look these up once, so that we can avoid calculating ;; them over and over again. (prev (prev-chunk-element)) (next (next-chunk-element)) (prevm (prev-major-component-chunk-element)) (nextm (next-major-component-chunk-element)) (navlist (list prev next prevm nextm)) ;; Let's make it possible to control the output even in the ;; nochunks case. Note: in the nochunks case, (chunk?) will ;; return #t for only the root element. (make-entity? (and (or (not nochunks) rootchunk) (chunk?))) (make-head? (or make-entity? (and nochunks (node-list=? (current-node) (sgml-root-element))))) (doc-sosofo (if make-head? (make sequence (php-code "require \"../id_common.inc\"") (make element gi: "HTML" (make element gi: "HEAD" (make element gi: "TITLE " title-sosofo) ($standard-html-header$ prev next prevm nextm)) (make element gi: "BODY" attributes: (append (list (list "CLASS" (gi))) %body-attr%) (header-navigation (current-node) navlist) body-sosofo (footer-navigation (current-node) navlist) ) ) (php-code "id_footer();") ) body-sosofo ) ) ) (if make-entity? (make entity system-id: (html-entity-file (html-file)) (if %html-pubid% (make document-type name: "HTML" public-id: %html-pubid%) (empty-sosofo)) doc-sosofo) (if (node-list=? (current-node) (sgml-root-element)) (make sequence (if %html-pubid% (make document-type name: "HTML" public-id: %html-pubid%) (empty-sosofo)) doc-sosofo) doc-sosofo))))