;;; texi2latex.el --- convert a texi file into a LaTeX file.
-;; Copyright (C) 1996 Lars Magne Ingebrigtsen
+;; Copyright (C) 1996, 2004 Lars Magne Ingebrigtsen
(require 'cl)
(latexi-translate-file "gnus-faq")
(latexi-translate-file "message" t)
(latexi-translate-file "emacs-mime" t)
- (latexi-translate-file "sieve" t))
+ (latexi-translate-file "sieve" t)
+ ;;(latexi-translate-file "pgg" t)
+ ;;(latexi-translate-file "sasl" t)
+ (latexi-translate-file "gnus-news" t))
(defun latexi-translate-file (file &optional as-a-chapter)
"Translate file a LaTeX file."
(insert-buffer-substring cur)
(goto-char (point-min))
(latexi-strip-line)
+ (latexi-translate-string "@'e" "\\'{e}")
+ (latexi-translate-string "@`a" "\\`{a}")
+ (latexi-translate-string "@,{c}" "\\c{c}")
+ (latexi-translate-string "@aa{}" "{\\aa}")
+ (latexi-translate-string "@\"{@dotless{i}}" "ï")
(latexi-translate-string "%@{" "\\gnuspercent{}\\gnusbraceleft{}")
(latexi-translate-string "%@}" "\\gnuspercent{}\\gnusbraceright{}")
(latexi-translate-string "%1@{" "\\gnuspercent{}1\\gnusbraceright{}")
"summarycontents" "bye"
"top" "iftex" "cartouche"
"iflatex" "finalout" "vskip"
- "dircategory" "group" "syncodeindex"))
+ "dircategory" "group" "syncodeindex"
+ "documentencoding"))
(latexi-strip-line))
((member command '("menu" "tex" "ifinfo" "ignore"
"ifnottex" "direntry"))
(insert "\\\\"))
((equal command "sp")
(replace-match "" t t))
+ ((equal command ":")
+ (replace-match "" t t))
((member command '("deffn" "defvar" "defun"))
(replace-match "" t t))
((equal command "node")
(latexi-begin-command "verse"))
((equal command "page")
(latexi-strip-line)
- (insert (format "\\newpage\n" arg)))
+ (insert "\\newpage\n"))
((equal command "'s")
(goto-char (match-beginning 0))
(delete-char 1))
(latexi-exchange-command (concat "gnus" command) arg))
((member command '("sc" "file" "dfn" "emph" "kbd" "key" "uref"
"code" "samp" "var" "strong" "i"
- "result" "email" "env" "r"))
+ "result" "email" "env" "r" "command" "asis"
+ "url"))
(goto-char (match-beginning 0))
(delete-char 1)
(insert "\\gnus"))