]> ;; this is necessary because right now jadetex does not understand ;; symbolic entities, whereas things work well with numeric entities. (declare-characteristic preserve-sdata? "UNREGISTERED::James Clark//Characteristic::preserve-sdata?" #f) (define %two-side% #f) (define %section-autolabel% #t) (define %visual-acuity% "normal") ;; ;; Graphical admonitions. ;; (define %admon-graphics% #t) (define %admon-graphics-path% "") (define ($admon-graphic$ #!optional (nd (current-node))) (cond ((equal? (gi nd) (normalize "tip")) (string-append %admon-graphics-path% "tip." %graphic-default-extension%)) ((equal? (gi nd) (normalize "note")) (string-append %admon-graphics-path% "note." %graphic-default-extension%)) ((equal? (gi nd) (normalize "important")) (string-append %admon-graphics-path% "important." %graphic-default-extension%)) ((equal? (gi nd) (normalize "caution")) (string-append %admon-graphics-path% "caution." %graphic-default-extension%)) ((equal? (gi nd) (normalize "warning")) (string-append %admon-graphics-path% "warning." %graphic-default-extension%)) (else (error (string-append (gi nd) " is not an admonition."))))) (define %graphic-default-extension% "eps") (define %graphic-default-extension% "pdf") ;; ;; A paper-saving stylesheet that mimics the SGMLtools 1.0 howto style. ;; Not two-sided, because most people won't print two-sided. ;; (define %visual-acuity% "normal") (define %two-side% #f) (define %left-margin% 3pi) (define %right-margin% 4pi) (define %body-start-indent% 2pi) (define %generate-article-toc% #t) ;; ;; Gnuishly correct fonts... ;; (define %body-font-family% "Computer Modern Roman") (define %mono-font-family% "Computer Modern Typewriter") (define %title-font-family% "Computer Modern Sans"); (define %admon-font-family% "Computer Modern Sans"); (define %guilabel-font-family% "Computer Modern Sans");