Created
December 27, 2016 14:56
-
-
Save Nyoho/5dcb47de630374f8e9d1e7a1de8976e9 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ;; | |
| ;; for TeX, LaTeX, pLaTeX2e, ... | |
| ;; | |
| ;; (setq auto-mode-alist (cons (cons ".tex$" 'yatex-mode) auto-mode-alist)) | |
| ;; (autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t) | |
| ;; (setq load-path (cons (expand-file-name "/usr/share/emacs/site-lisp/yatex") load-path)) | |
| ;; (setq YaTeX-close-paren-always nil) | |
| ;; (setq yatex-modify-mode t) | |
| ;; (setq tex-command "platex" | |
| ;; dvi2-command "/Applications/MxDvi.app/Contents/MacOS/Mxdvi" dviprint-command-format "dvips %s | lpr" | |
| ;; YaTeX-kanji-code 2 ; (1 JIS, 2 SJIS, 3 EUC) | |
| ;; YaTeX-use-AMS-LaTeX t ; AMS-LaTeX | |
| ;; section-name "documentclass" | |
| ;; makeindex-command "mendex" | |
| ;; YaTeX-latex-message-code 'sjis-mac | |
| ;; ) | |
| ;; | |
| ;; AUCTeX | |
| ;; | |
| ;; (load "auctex.el" nil t t) | |
| ;; (load "preview-latex.el" nil t t) | |
| ;; 日本語 TeX 用の設定 | |
| (setq TeX-default-mode 'japanese-latex-mode) | |
| (setq japanese-LaTeX-default-style "jsarticle") | |
| (setq japanese-LaTeX-default-style "jsarticle") | |
| ;; (setq japanese-TeX-command-default "jTeX") | |
| (setq japanese-TeX-command-default "pTeX") | |
| ;; (setq japanese-LaTeX-command-default "pLaTeX") | |
| (setq japanese-LaTeX-command-default "pdfpLaTeX") | |
| ;; preview-latex で dvipng を使う | |
| (setq preview-image-type 'dvipng) | |
| ;; View open hogehoge.pdf | |
| (setq TeX-output-view-style '()) | |
| (add-to-list 'TeX-output-view-style | |
| '("^dvi$" "." "open %s.pdf")) | |
| ;; View は、dvipdfmx で、pdf file を作って、Adobe Reader で閲覧 | |
| ;;'("^dvi$" "." "dvipdfmx %dS %d && open %s.pdf")) | |
| ;; ;(require 'tex-site) | |
| ;; (setq auto-mode-alist | |
| ;; (append '( | |
| ;; ("\\.tex$" . japanese-latex-mode) | |
| ;; ("\\.ltx$" . japanese-latex-mode) | |
| ;; ) | |
| ;; auto-mode-alist)) | |
| ;; (setq japanese-LaTeX-default-style "jarticle") | |
| ;; (setq kinsoku-limit 10) | |
| ;; ;(setq TeX-view-style | |
| ;; ; '( | |
| ;; ; ("." "/Application/Mxdvi.app/Contents/MacOS/Mxdvi %d") | |
| ;; ; )) | |
| (setq TeX-view-style | |
| '(("^ohp$" "/Application/Mxdvi.app/Contents/MacOS/Mxdvi %d") | |
| ("." "/Application/Mxdvi.app/Contents/MacOS/Mxdvi %d"))) | |
| (setq TeX-brace-indent-level 0) | |
| (setq japanese-LaTeX-view-style | |
| '(("^ohp$" "/Application/Mxdvi.app/Contents/MacOS/Mxdvi %d") | |
| ("." "/Application/Mxdvi.app/Contents/MacOS/Mxdvi %d"))) | |
| (setq TeX-view-style | |
| '( | |
| ("." "/Users/sakito/opt/mxdvi/Mxdvi.app/Contents/MacOS/Mxdvi %d") | |
| )) | |
| ;; (setq pLaTeX-command-list | |
| ;; (list | |
| ;; (list "pLaTeX" "/usr/local/bin/platex '\\nonstopmode\\input{%t}'" | |
| ;; 'pLaTeX-run-command nil t) | |
| ;; ) | |
| ;; ) | |
| ;; ;(setq TeX-command-list | |
| ;; ; (append (list | |
| ;; ; (list "pLaTeX" "platex '\\nonstopmode\\input{%t}'" | |
| ;; ; 'TeX-run-command nil t) | |
| ;; ; ) | |
| ;; ; TeX-command-list)) | |
| ;; (add-hook 'TeX-mode-hook | |
| ;; (function | |
| ;; (lambda () | |
| ;; (setq TeX-command-default "pLaTeX") | |
| ;; (setq japanese-TeX-command-default "pTeX") | |
| ;; (setq japanese-LaTeX-command-default "pLaTeX") | |
| ;; ))) | |
| ;; (setq japanese-LaTeX-default-style "jarticle") | |
| ;; (setq kinsoku-limit 10) | |
| ;; ;(setq TeX-view-style | |
| ;; ; '( | |
| ;; ; ("." "/Users/sakito/opt/mxdvi/Mxdvi.app/Contents/MacOS/Mxdvi %d") | |
| ;; ; )) | |
| ;; (setq load-path (cons (expand-file-name "/usr/share/emacs/site-lisp/auctex") load-path)) | |
| ;; ;(setq auto-mode-alist | |
| ;; ; (cons (cons "\\.tex$" 'tex-site) auto-mode-alist)) | |
| ;; (setq TeX-default-mode 'japanese-latex-mode) | |
| ;; (setq TeX-command-default "pLaTeX") | |
| ;; (setq japanese-TeX-command-default "pTeX") | |
| ;; (setq japanese-LaTeX-command-default "pLaTeX") | |
| ;; ;(setq japanese-LaTeX-default-style "jarticle") | |
| (setq TeX-engine-alist '((ptex "pTeX" "eptex" "platex" "eptex") | |
| (uptex "upTeX" "euptex" "uplatex" "euptex"))) | |
| (setq TeX-engine 'ptex) | |
| (setq TeX-view-program-list '(("pxdvi" "/Library/TeX/texbin/pxdvi -nofork -watchfile 1 -editor \"emacsclient --no-wait +%%l %%f\" %d -sourceposition %n:%b") | |
| ("PictPrinter" "/usr/bin/open -a PictPrinter.app %d") | |
| ("Mxdvi" "/usr/bin/open -a Mxdvi.app %d") | |
| ("Preview" "/usr/bin/open -a Preview.app %o") | |
| ("TeXShop" "/usr/bin/open -a TeXShop.app %o") | |
| ("TeXworks" "/usr/bin/open -a TeXworks.app %o") | |
| ("Skim" "/Applications/Skim.app/Contents/SharedSupport/displayline %n %o %b") | |
| ("MuPDF" "/usr/local/bin/mupdf %o") | |
| ("pdfopen" "/usr/bin/open -a \"Adobe Reader.app\" %o"))) | |
| (setq TeX-view-program-selection '((output-dvi "pxdvi") | |
| (output-pdf "Preview"))) | |
| (setq preview-image-type 'dvipng) | |
| (defun platex-kanji-option () | |
| (cond ((eq buffer-file-coding-system 'utf-8-unix) "utf8") | |
| ((eq buffer-file-coding-system 'japanese-shift-jis-unix) "sjis"))) | |
| (add-hook 'LaTeX-mode-hook 'TeX-PDF-mode) | |
| (add-hook 'LaTeX-mode-hook 'LaTeX-math-mode) | |
| (add-hook 'LaTeX-mode-hook | |
| (function (lambda () | |
| (TeX-source-correlate-mode 1) | |
| (setq TeX-source-correlate-start-server t) | |
| (add-to-list 'TeX-command-list | |
| '("pdfpLaTeX" "/Library/TeX/texbin/platex -synctex=1 %t && /Library/TeX/texbin/dvipdfmx %d" | |
| ;; '("pdfpLaTeX" "/Library/TeX/texbin/platex -synctex=1 %t && /Library/TeX/texbin/dvipdfmx -f ~/tex/texinputs/hiragino-embed %d" | |
| ;; '("pdfpLaTeX" "/Library/TeX/texbin/platex -kanji=sjis -synctex=1 %t && /Library/TeX/texbin/dvipdfmx -f ~/tex/texinputs/hiragino-embed %d" | |
| ;; /usr/local/texlive/texmf-local/fonts/map/dvipdfm/hiragino-embed | |
| TeX-run-TeX nil (latex-mode) :help "Run e-pLaTeX and dvipdfmx")) | |
| (add-to-list 'TeX-command-list | |
| '("Nonstop-pdfpLaTeX" "/Library/TeX/texbin/platex -synctex=1 -interaction=nonstopmode %t && /Library/TeX/texbin/dvipdfmx %d || SayKana エラーですけど" | |
| TeX-run-TeX nil (latex-mode) :help "Run e-pLaTeX and dvipdfmx")) | |
| (add-to-list 'TeX-command-list | |
| '("PythonTeX-dvipdfmx" "/Library/TeX/texbin/pythontex %t && /Library/TeX/texbin/platex -synctex=1 -interaction=nonstopmode %t /Library/TeX/texbin/pythontex %t && /Library/TeX/texbin/platex -synctex=1 -interaction=nonstopmode %t && /Library/TeX/texbin/dvipdfmx %d || SayKana エラーですよ" | |
| TeX-run-TeX nil (latex-mode) :help "Run pLaTeX, pythontex, platex, and dvipdfmx")) | |
| (add-to-list 'TeX-command-list | |
| '("only-PythonTeX" "/Library/TeX/texbin/pythontex %t" | |
| TeX-run-TeX nil (latex-mode) :help "Run pLaTeX, pythontex, platex, and dvipdfmx")) | |
| (add-to-list 'TeX-command-list | |
| '("pdfpLaTeX2" "/Library/TeX/texbin/platex -synctex=1 %t && /Library/TeX/texbin/dvips -Ppdf -t a4 -z -f %d | /Library/TeX/texbin/convbkmk -g > %f && /usr/local/bin/ps2pdf %f" | |
| TeX-run-TeX nil (latex-mode) :help "Run e-pLaTeX, dvips, and ps2pdf")) | |
| (add-to-list 'TeX-command-list | |
| '("pdfupLaTeX" "/Library/TeX/texbin/uplatex -synctex=1 %t && /Library/TeX/texbin/dvipdfmx %d" | |
| TeX-run-TeX nil (latex-mode) :help "Run e-upLaTeX and dvipdfmx")) | |
| (add-to-list 'TeX-command-list | |
| '("pdfupLaTeX2" "/Library/TeX/texbin/uplatex -synctex=1 %t && /Library/TeX/texbin/dvips -Ppdf -t a4 -z -f %d | /Library/TeX/texbin/convbkmk -u > %f && /usr/local/bin/ps2pdf %f" | |
| TeX-run-TeX nil (latex-mode) :help "Run e-upLaTeX, dvips, and ps2pdf")) | |
| (add-to-list 'TeX-command-list | |
| '("pBibTeX" "/Library/TeX/texbin/pbibtex %s" | |
| TeX-run-BibTeX nil t :help "Run pBibTeX")) | |
| (add-to-list 'TeX-command-list | |
| '("upBibTeX" "/Library/TeX/texbin/upbibtex %s" | |
| TeX-run-BibTeX nil t :help "Run upBibTeX")) | |
| (add-to-list 'TeX-command-list | |
| '("Mendex" "/Library/TeX/texbin/mendex %s" | |
| TeX-run-command nil t :help "Create index file with mendex")) | |
| (add-to-list 'TeX-command-list | |
| '("Preview" "/usr/bin/open -a Preview.app %s.pdf" | |
| TeX-run-discard-or-function t t :help "Run Preview")) | |
| (add-to-list 'TeX-command-list | |
| '("TeXShop" "/usr/bin/open -a TeXShop.app %s.pdf" | |
| TeX-run-discard-or-function t t :help "Run TeXShop")) | |
| (add-to-list 'TeX-command-list | |
| '("TeXworks" "/usr/bin/open -a TeXworks.app %s.pdf" | |
| TeX-run-discard-or-function t t :help "Run TeXworks")) | |
| (add-to-list 'TeX-command-list | |
| '("View" "/Applications/Skim.app/Contents/SharedSupport/displayline %n %s.pdf %b" | |
| TeX-run-discard-or-function t t :help "Forward search with Skim")) | |
| (add-to-list 'TeX-command-list | |
| '("pdfopen" "/usr/bin/open -a \"Adobe Reader.app\" %s.pdf" | |
| TeX-run-discard-or-function t t :help "Run Adobe Reader"))))) | |
| ;; (setq TeX-parse-self t) | |
| ;; (setq TeX-auto-save t) | |
| ;; | |
| ;; RefTeX (AUCTeX) | |
| ;; | |
| (add-hook 'LaTeX-mode-hook 'turn-on-reftex) | |
| (setq reftex-plug-into-AUCTeX t) | |
| ;; | |
| ;; kinsoku.el | |
| ;; | |
| (setq kinsoku-limit 10) | |
| ;; | |
| ;; AUCTeX auto-compile | |
| ;; | |
| ;; automatically run background TeX process | |
| ;; AUCTeX の設定と便利な機能 | Amrta | |
| ;; http://skalldan.wordpress.com/2011/07/20/auctex-%25E3%2581%25AE%25E8%25A8%25AD%25E5%25AE%259A%25E3%2581%25A8%25E4%25BE%25BF%25E5%2588%25A9%25E3%2581%25AA%25E6%25A9%259F%25E8%2583%25BD/#sec-6 | |
| (defun my-autotex () | |
| (interactive) | |
| (when (string-match "\\.tex$" (buffer-file-name)) | |
| (let ((buf (get-buffer "*Background TeX proccess*"))) | |
| (if (bufferp buf) (kill-buffer buf)) ) ;; flush previous log | |
| (deferred:$ | |
| (deferred:next | |
| (lambda () (message "Starts auto-TeXing..."))) | |
| (deferred:nextc it | |
| (lambda () | |
| (if (and (boundp 'file-local-variables-alist) | |
| (assoc 'pythontex-mode file-local-variables-alist)) | |
| (TeX-command "PythonTeX-dvipdfmx" 'TeX-master-file nil) | |
| (TeX-command "Nonstop-pdfpLaTeX" 'TeX-master-file nil)))) | |
| (deferred:nextc it | |
| (lambda () | |
| (message "Starts auto-TeXing... done!"))) | |
| (deferred:error it | |
| (lambda (err) | |
| (message "Starts auto-TeXing... An error occured!!"))) | |
| ) | |
| ;; (require 'smart-compile) ;; for smart-compile-string | |
| ;; (start-process-shell-command | |
| ;; "Background TeX" "*Background TeX proccess*" | |
| ;; (if (and (boundp 'TeX-PDF-mode) TeX-PDF-mode) | |
| ;; (smart-compile-string "pdflatex -interaction=nonstopmode %f || SayKana エラーです") ; PDFTeX | |
| ;; (smart-compile-string "latexmk %f || growlnotify -a Emacs.app -t \"Oops!\" -m \"エラーが起こりました。\"") ; pTeX | |
| ;; ) | |
| )) | |
| ;; wrapper | |
| (define-minor-mode my-autotex-mode | |
| "My autotex mode." | |
| :global nil | |
| :lighter " Auto" | |
| (if my-autotex-mode | |
| (add-hook 'after-save-hook 'my-autotex t t) ;; set the local flag to t | |
| (remove-hook 'after-save-hook 'my-autotex t) | |
| )) | |
| ;; Adds it to hooks | |
| (add-hook 'TeX-mode-hook | |
| (lambda () | |
| ;; (TeX-PDF-mode 1) | |
| (my-autotex-mode 1) | |
| )) | |
| (add-hook 'LaTeX-mode-hook | |
| (lambda () | |
| ;; (TeX-PDF-mode 1) | |
| (my-autotex-mode 1) | |
| )) | |
| ;; latex-math-preview.el | |
| (autoload 'latex-math-preview-expression "latex-math-preview" nil t) | |
| (autoload 'latex-math-preview-insert-symbol "latex-math-preview" nil t) | |
| (autoload 'latex-math-preview-save-image-file "latex-math-preview" nil t) | |
| (autoload 'latex-math-preview-beamer-frame "latex-math-preview" nil t) | |
| ;; | |
| ;; anything-math-symbols | |
| ;; http://emacswiki.org/emacs/AUCTeX | |
| (require 'anything-config) | |
| (require 'lacarte) | |
| (add-hook 'LaTeX-mode-hook | |
| (lambda () | |
| (setq LaTeX-math-menu-unicode t) | |
| (define-key LaTeX-mode-map [?\M-`] 'anything-math-symbols) | |
| )) | |
| (defvar anything-c-source-lacarte-math | |
| '((name . "Math Symbols") | |
| (init . (lambda() | |
| (setq anything-c-lacarte-major-mode major-mode))) | |
| (candidates | |
| . (lambda () (if (eq anything-c-lacarte-major-mode 'latex-mode) | |
| (delete '(nil) (lacarte-get-a-menu-item-alist LaTeX-math-mode-map))))) | |
| (action . (("Open" . (lambda (candidate) | |
| (call-interactively candidate))))))) | |
| (defun anything-math-symbols () | |
| "Anything for searching math menus" | |
| (interactive) | |
| (anything '(anything-c-source-lacarte-math) | |
| (thing-at-point 'symbol) "Symbol: " | |
| nil nil "*anything math symbols*")) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment