| Paste number 29735: | patch-muse-latex.el |
| Pasted by: | takanori |
| 2 years, 1 month ago | |
| 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.