]> (define %graphic-default-extension% "pdf") ;; Changed by root. ;; Inserted in order to be able to get URLs in PDF documents. ;; Adapted from manual-print.dsl of Mandrake. ;; Include the flow object class "formatting-instruction" : ONLY for Jade (declare-flow-object-class formatting-instruction "UNREGISTERED::James Clark//Flow Object Class::formatting-instruction") ;; *** URLs *** ;; Original : dblink.dsl (element ulink (sosofo-append ;; If you allow process-children here, you will get the text printed once more! ;; (process-children) ;; Write the text with its format (anchor in HTML) (make formatting-instruction ;; Write : " \href{" + theUrl + "}{" + theText + "}" data: (string-append " \\href{" (attribute-string (normalize "url")) "}{" (data-of (current-node)) "}") ) ) ) ;; *** Filenames *** ;; Use of the "url" package for LaTeX : 'path' command. ;; Original : dbinline.dsl. ;; Must use "(data-of (current-node))" instead of "(process-children)". (element filename (make formatting-instruction ;; Wrote : " \path{" + theFilename + "}" data: (string-append "\\path{" (data-of (current-node)) "}") ) ) ;; These three elements are from "dbindex.dsl". ;; Must be placed here because of the redifinition of "ulink". ;; Otherwise the Index entries will point to HTML files, ;; instead of page numbers. (element (primaryie ulink) (indexentry-link (current-node))) (element (secondaryie ulink) (indexentry-link (current-node))) (element (tertiaryie ulink) (indexentry-link (current-node))) ;; Inserted in order to be able to use Computer Modern fonts in PDF documents. ;; The font names _must_ be written exactly as follows ("Computer-Modern", ;; not "Computer Modern") for pdfjadetex to recognize them and use the T1 ;; fonts istead of the PK (Type 3) ones (which will look ugly on screen)! ;; ;; Gnuishly correct fonts... ;; (define %body-font-family% "Computer-Modern") (define %mono-font-family% "Computer-Modern-Typewriter") ;; (define %title-font-family% "Computer-Modern-Sans") (define %title-font-family% "Computer-Modern") (define %admon-font-family% "Computer-Modern-Sans") (define %guilabel-font-family% "Computer-Modern-Sans") ;; Mathematics ;; ;; NOTE: THE MATHEMATICS PARTS ARE IDENTICAL FOR PDF AND PS! ;; ;; Code taken and adapted from the TeXMath.dsl file ;; of the DBTeXMath package of Allin Cottrell (define tex-backend ;; REFENTRY tex-backend ;; PURP Are we using the TeX backend? ;; DESC ;; This parameter exists so that '-V tex-backend' can be used on the ;; command line to explicitly select the TeX backend. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (element (equation math) (empty-sosofo)) (element (equation graphic) (empty-sosofo)) (element (equation alt) (make display-group (literal "BEGINTEXLITERAL") (literal (data (current-node))) (literal "ENDTEXLITERAL"))) (element (informalequation math) (empty-sosofo)) (element (informalequation graphic) (empty-sosofo)) (element (informalequation alt) (make display-group (literal "BEGINTEXLITERAL") (literal (data (current-node))) (literal "ENDTEXLITERAL"))) (element (inlineequation math) (empty-sosofo)) (element (inlineequation graphic) (empty-sosofo)) (element (inlineequation alt) (make sequence (literal "BEGINTEXLITERAL") (literal (data (current-node))) (literal "ENDTEXLITERAL"))) ;; End of Mathematics part ;; ------------------------- End of inserted part -----------------------------