default.rules

(use xmltex.latex)

(define accented-chars
  (append-map (lambda (h)
                (map (lambda (t)
                       (cons (string->symbol (string-append h (car t)))
                             (list 'tex (string-append "\\" (cdr t) "{" h "}"))))
                     '(("acute" . "'")
                       ("uml"   . "\"")
                       ("circ"  . "^")
                       ("caron" . "v")
                       ("grave" . "`")
                       ("tilde" . "~")
                       ("ring"  . "r")
                       ("cedil" . "c"))))
              '("a" "e" "i" "u" "o" "n" "c" "y" "A" "E" "I" "U" "O" "N" "C" "Y")))

(define xml-entities
  `((amp  . "&") (nbsp . ,(list 'tex "\\hbox to1em{\\rule{0pt}{0.5ex}}"))
    (lt   . "<") (gt   . ">")
    (plusmn . "±")
    (quot . "\"") (rsquo . "'") (lsquo . "`") (rdquo . "''") (ldquo . "``") 
    (ndash . " -- ") (mdash . " --- ") (bull . "・") (thinsp . " ")
    ,@accented-chars
    ))

(define-tag *PI* (ignore))

(define-tag tex (through))

(define-tag *TOP*
  (define-rule 
    (list (doc-class "book")
          (latex-packages "alltt"))
    values 
    '() 
))