;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; YaTeX - Yet another LaTeX mode for Emacs
;;;
;;; Meadow/site-lisp 以外に入れた場合は、
;;; そのディレクトリを load-path に加えること。
(setq load-path
(cons "c:/meadow/site-lisp/yatex" load-path))
(setq load-path (cons (expand-file-name "c:/meadow/site-lisp/yatex") load-path))
;;; *.tex ファイルを開いたら YaTeX モードに
;(setq auto-mode-alist
; (cons (cons ".tex$" 'yatex-mode) auto-mode-alist))
;(setq auto-mode-alist
; (cons (cons ".sty$" 'yatex-mode) auto-mode-alist))
;(autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t)
(setq auto-mode-alist
(append '((".tex$" . yatex-mode)
(".html$" . yahtml-mode)
(".txt$" . indented-text-mode)
("nifty.[a-z]*$" . xcscript-mode)
(".sgm$" . ramdb-mode)
(".sgml$" . sgml-mode)
("mail[0-9]*$" . text-mode)
("pad[0-9]$" . text-mode)
(".new$" . text-mode)
(".sht$" . spread-mode))
auto-mode-alist))
;;; 漢字コード
;;; 1=Shift JIS >== Windows なら
;;; 2=JIS
;;; 3=EUC
;;(setq YaTeX-kanji-code 1)
(setq YaTeX-kanji-code 3)
;;; LaTeX2e を使う
(setq YaTeX-use-LaTeX2e t)
;;; 色付け
;(setq YaTeX-use-font-lock t)
;;; platex
;(setq tex-command "c:/ptex/bin")
(setq tex-command "c:/tex/bin")
;(setq tex-command "platex")
(setq tex-command "platex-euc")
(add-hook 'yatex-mode-hook
'(lambda () (require 'font-latex)
(font-latex-setup)))
(setq YaTeX-use-LaTeX2e t)
(setq YaTeX-use-AMS-LaTeX t)
;;(add-hook 'yatex-mode-hook '(lambda () (reftex-mode t)))
(add-hook 'yatex-mode-hook
'(lambda()
(progn
(setq YaTeX-close-paren-always nil)))) )
(add-hook 'yatex-mode-hook'
(lambda ()(setq auto-fill-function nil) ; no auto return
(reftex-mode t) ; reftex mode on
)
;; M-x recompileを Ctrl-c tj にします。
(global-set-key "C-ctj" 'recompile)
;;コンパイルメッセージをsjisに
(setq YaTeX-latex-message-code 'sjis)
;;; dvi
;(setq dvi2-command "xdvi -geo +0+0 -s 9")
(setq dvi2-command "dviout.exe");Pathの設定が必要かも?
;(setq dviprint-command-format "dvi2ps %f %t %s | lpr")
(setq dviprint-command-format "dvipdfmx %s")
* YaTeX: (yatexj). Yet Another tex-mode for Emacs. (Japanese).
* YaTeX-e: (yatexe). Yet Another tex-mode for Emacs. (English).
* yahtml: (yahtmlj). Yet Another HTML-mode for Emacs. (Japanese).
* yahtml-e: (yahtmle). Yet Another HTML-mode for Emacs. (English).
;; ;;; 印刷の設定
;; ;; この設定で M-x print-buffer RET などでの印刷ができるようになります
;; ;;
;; ;; notepad に与えるパラメータの形式の設定
;; (define-process-argument-editing "notepad"
;; (lambda (x) (general-process-argument-editing-function x nil t)))
;;
;; (defun w32-print-region (start end
;; &optional lpr-prog delete-text buf display
;; &rest rest)
;; (interactive)
;; (let ((tmpfile (convert-standard-filename (buffer-name)))
;; (w32-start-process-show-window t)
;; ;; もし、dos 窓が見えていやな人は上記の `t' を `nil' にします
;; ;; ただし、`nil' にすると Meadow が固まる環境もあるかもしれません
;; (coding-system-for-write w32-system-coding-system))
;; (while (string-match "[/]" tmpfile)
;; (setq tmpfile (replace-match "_" t nil tmpfile)))
;; (setq tmpfile (expand-file-name (concat "_" tmpfile "_")
;; temporary-file-directory))
;; (write-region start end tmpfile nil 'nomsg)
;; (call-process "notepad" nil nil nil "/p" tmpfile)
;; (and (file-readable-p tmpfile) (file-writable-p tmpfile)
;; (delete-file tmpfile))))
;;
;; (setq print-region-function 'w32-print-region)
;; ;;; fakecygpty の設定
;; ;; この設定で cygwin の仮想端末を要求するプログラムを Meadow から
;; ;; 扱えるようになります
;; (setq mw32-process-wrapper-alist
;; '(("/(bash|tcsh|svn|ssh|gpg[esvk]?).exe" .
;; (nil . ("fakecygpty.exe" . set-process-connection-type-pty)))))
;;; 補完関係
(partial-completion-mode t)
(auto-compression-mode)
;;;
;;; end of file
;;;
(2/2)
以上です。。>
;;;
;;; YaTeX - Yet another LaTeX mode for Emacs
;;;
;;; Meadow/site-lisp 以外に入れた場合は、
;;; そのディレクトリを load-path に加えること。
(setq load-path
(cons "c:/meadow/site-lisp/yatex" load-path))
(setq load-path (cons (expand-file-name "c:/meadow/site-lisp/yatex") load-path))
;;; *.tex ファイルを開いたら YaTeX モードに
;(setq auto-mode-alist
; (cons (cons ".tex$" 'yatex-mode) auto-mode-alist))
;(setq auto-mode-alist
; (cons (cons ".sty$" 'yatex-mode) auto-mode-alist))
;(autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t)
(setq auto-mode-alist
(append '((".tex$" . yatex-mode)
(".html$" . yahtml-mode)
(".txt$" . indented-text-mode)
("nifty.[a-z]*$" . xcscript-mode)
(".sgm$" . ramdb-mode)
(".sgml$" . sgml-mode)
("mail[0-9]*$" . text-mode)
("pad[0-9]$" . text-mode)
(".new$" . text-mode)
(".sht$" . spread-mode))
auto-mode-alist))
;;; 漢字コード
;;; 1=Shift JIS >== Windows なら
;;; 2=JIS
;;; 3=EUC
;;(setq YaTeX-kanji-code 1)
(setq YaTeX-kanji-code 3)
;;; LaTeX2e を使う
(setq YaTeX-use-LaTeX2e t)
;;; 色付け
;(setq YaTeX-use-font-lock t)
;;; platex
;(setq tex-command "c:/ptex/bin")
(setq tex-command "c:/tex/bin")
;(setq tex-command "platex")
(setq tex-command "platex-euc")
(add-hook 'yatex-mode-hook
'(lambda () (require 'font-latex)
(font-latex-setup)))
(setq YaTeX-use-LaTeX2e t)
(setq YaTeX-use-AMS-LaTeX t)
;;(add-hook 'yatex-mode-hook '(lambda () (reftex-mode t)))
(add-hook 'yatex-mode-hook
'(lambda()
(progn
(setq YaTeX-close-paren-always nil)))) )
(add-hook 'yatex-mode-hook'
(lambda ()(setq auto-fill-function nil) ; no auto return
(reftex-mode t) ; reftex mode on
)
;; M-x recompileを Ctrl-c tj にします。
(global-set-key "C-ctj" 'recompile)
;;コンパイルメッセージをsjisに
(setq YaTeX-latex-message-code 'sjis)
;;; dvi
;(setq dvi2-command "xdvi -geo +0+0 -s 9")
(setq dvi2-command "dviout.exe");Pathの設定が必要かも?
;(setq dviprint-command-format "dvi2ps %f %t %s | lpr")
(setq dviprint-command-format "dvipdfmx %s")
* YaTeX: (yatexj). Yet Another tex-mode for Emacs. (Japanese).
* YaTeX-e: (yatexe). Yet Another tex-mode for Emacs. (English).
* yahtml: (yahtmlj). Yet Another HTML-mode for Emacs. (Japanese).
* yahtml-e: (yahtmle). Yet Another HTML-mode for Emacs. (English).
;; ;;; 印刷の設定
;; ;; この設定で M-x print-buffer RET などでの印刷ができるようになります
;; ;;
;; ;; notepad に与えるパラメータの形式の設定
;; (define-process-argument-editing "notepad"
;; (lambda (x) (general-process-argument-editing-function x nil t)))
;;
;; (defun w32-print-region (start end
;; &optional lpr-prog delete-text buf display
;; &rest rest)
;; (interactive)
;; (let ((tmpfile (convert-standard-filename (buffer-name)))
;; (w32-start-process-show-window t)
;; ;; もし、dos 窓が見えていやな人は上記の `t' を `nil' にします
;; ;; ただし、`nil' にすると Meadow が固まる環境もあるかもしれません
;; (coding-system-for-write w32-system-coding-system))
;; (while (string-match "[/]" tmpfile)
;; (setq tmpfile (replace-match "_" t nil tmpfile)))
;; (setq tmpfile (expand-file-name (concat "_" tmpfile "_")
;; temporary-file-directory))
;; (write-region start end tmpfile nil 'nomsg)
;; (call-process "notepad" nil nil nil "/p" tmpfile)
;; (and (file-readable-p tmpfile) (file-writable-p tmpfile)
;; (delete-file tmpfile))))
;;
;; (setq print-region-function 'w32-print-region)
;; ;;; fakecygpty の設定
;; ;; この設定で cygwin の仮想端末を要求するプログラムを Meadow から
;; ;; 扱えるようになります
;; (setq mw32-process-wrapper-alist
;; '(("/(bash|tcsh|svn|ssh|gpg[esvk]?).exe" .
;; (nil . ("fakecygpty.exe" . set-process-connection-type-pty)))))
;;; 補完関係
(partial-completion-mode t)
(auto-compression-mode)
;;;
;;; end of file
;;;
(2/2)
以上です。。>