| Paste number 29735: | patch-muse-latex.el |
| Pasted by: | takanori |
| When: | 5 years, 6 months ago |
| Share: | Tweet this! | http://paste.lisp.org/+MXZ |
| Channel: | None |
| Paste contents: |
--- muse.orig/lisp/muse-latex.el 2006-08-08 13:50:03.000000000 +0900
+++ muse/lisp/muse-latex.el 2006-11-12 23:25:21.000000000 +0900
@@ -56,13 +56,10 @@
:group 'muse-latex)
(defcustom muse-latex-header
- "\\documentclass{article}
+ "\\documentclass{jsarticle}
-\\usepackage[english]{babel}
-\\usepackage[latin1]{inputenc}
-\\usepackage[T1]{fontenc}
-\\usepackage{hyperref}
-\\usepackage[pdftex]{graphicx}
+\\usepackage[dvipdfm]{hyperref}
+\\usepackage[dvipdfmx]{graphicx}
\\newcommand{\\comment}[1]{}
@@ -233,6 +230,12 @@
:type '(alist :key-type coding-system :value-type string)
:group 'muse-latex)
+(defcustom muse-latex-encoding-default 'euc-jp
+ "The default Emacs buffer encoding to use in published files.
+This will be used if no special characters are found."
+ :type 'symbol
+ :group 'muse-latex)
+
(defcustom muse-latexcjk-encoding-default "{GB}{song}"
"The default Emacs buffer encoding to use in published files.
This will be used if no special characters are found."
@@ -403,7 +406,8 @@
(when (and muse-latex-permit-contents-tag
muse-publish-generate-contents)
(goto-char (car muse-publish-generate-contents))
- (muse-insert-markup "\\tableofcontents")))
+ (muse-insert-markup "\\tableofcontents"))
+ (setq buffer-file-coding-system muse-latex-encoding-default))
(defun muse-latex-pdf-browse-file (file)
(shell-command (concat "open " file)))
@@ -413,8 +417,8 @@
file output-path final-target "PDF"
(function
(lambda (file output-path)
- (let ((command (format "cd \"%s\"; pdflatex \"%s\""
- (file-name-directory output-path) file))
+ (let ((command (format "cd \"%s\"; platex \"%s\" && dvipdfmx \"%s.dvi\""
+ (file-name-directory output-path) file (substring file 0 -4)))
(times 0)
result)
;; XEmacs can sometimes return a non-number result. We'll err
@@ -434,7 +438,7 @@
(eq result 0))
t
nil))))
- ".aux" ".toc" ".out" ".log"))
+ ".aux" ".toc" ".out" ".log" ".dvi"))
(unless (assoc "latex" muse-publishing-styles)
(muse-define-style "latex"
@@ -454,15 +458,16 @@
:link-suffix 'muse-latex-pdf-extension
:osuffix 'muse-latex-pdf-extension)
- (muse-derive-style "latexcjk" "latex"
- :header 'muse-latexcjk-header
- :footer 'muse-latexcjk-footer)
-
- (muse-derive-style "pdfcjk" "latexcjk"
- :final 'muse-latex-pdf-generate
- :browser 'muse-latex-pdf-browse-file
- :link-suffix 'muse-latex-pdf-extension
- :osuffix 'muse-latex-pdf-extension))
+; (muse-derive-style "latexcjk" "latex"
+; :header 'muse-latexcjk-header
+; :footer 'muse-latexcjk-footer)
+
+; (muse-derive-style "pdfcjk" "latexcjk"
+; :final 'muse-latex-pdf-generate
+; :browser 'muse-latex-pdf-browse-file
+; :link-suffix 'muse-latex-pdf-extension
+; :osuffix 'muse-latex-pdf-extension)
+)
(provide 'muse-latex)
This paste has no annotations.