_

YaTeX - Yet Another LaTeX mode for Emacs

ドキュメントはLaTeXで作ることがほとんどなので、SL-C750でも手軽に書けないと不便ということで、さくっとパッケージを作成。デスクトップと同じで最新の環境ということで、

パッケージを作るには、

% rsync -avxH --delete rsync://yatex.org/pub/yatex .

と、ソースを持ってきて、yatex/makefileを修正。

PREFIX = /opt/QtPalmtop
EMACS = emacs
EMACSDIR = ${PREFIX}/share/${EMACS}
LISPDIR = ${EMACSDIR}/site-lisp/yatex
HELPDIR = ${EMACSRID}/site-lisp/yatex

.emacs.elには、

(cond
 *1

  (add-hook 'yatex-mode-hook
	    '(lambda ()
	       
	       ;; Wnn7: YaTeX モードの時だけ句読点をカンマピリオドに変更
	       (make-local-variable 'use-kuten-for-period)
	       (make-local-variable 'use-touten-for-comma)
	       (setq use-kuten-for-period nil)
	       (setq use-touten-for-comma nil)
	       
	       ;; for emacs 21.3.50
	       (setq font-lock-set-defaults nil)
	       
	       ;; for outline-minor-mode
	       (outline-minor-mode 1)
	       (make-variable-buffer-local 'outline-level-function)
	       (setq-default outline-level-function 'outline-level-default)
	       
	       (defun latex-outline-level ()
		 (save-excursion
		   (looking-at outline-regexp)
		   (let ((title (buffer-substring (match-beginning 1) (match-end 1))))
		     (cond ((equal (substring title 0 4) "docu") 15)
			   ((equal (substring title 0 4) "chap") 0)
			   ((equal (substring title 0 4) "appe") 0)
			   (t (length title))))))
	       
	       (setq YaTeX-use-font-lock t)))))

こんな感じ。

*1:locate-library "yatex") (autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t) (setq auto-mode-alist (cons (cons "\\.tex$" 'yatex-mode) auto-mode-alist