yatex
view yatexm-o.el @ 287:5921f28ef77c
Change the first lines.
| author | HIROSE Yuuji <yuuji@gentei.org> |
|---|---|
| date | Sat, 01 Sep 2012 08:14:41 +0900 |
| parents | 0734be649cb8 |
| children | 2a72779d9c50 |
line source
1 ;;; yatexm-o.el --- Sample to invoke yatex-mode with outline-minor mode
3 ;;; (c)1993 by HIROSE Yuuji [yuuji@yatex.org]
4 ;;; Last modified Sat Sep 1 08:12:40 2012 on firestorm
6 ;;; Code:
7 ;;;
8 ;; outline-minor-mode(使用しない場合は不要です)
9 ;;;
10 (autoload 'outline-minor-mode "min-out" t)
11 (make-variable-buffer-local 'outline-prefix-char)
12 (make-variable-buffer-local 'outline-regexp)
13 (setq default-outline-regexp "[*\^l]+")
14 (make-variable-buffer-local 'outline-level-function)
15 (setq-default outline-level-function 'outline-level-default)
16 (setq LaTeX-outline-regexp
17 (concat "[ \t]*" (regexp-quote "\\")
18 "\\(appendix\\|documentstyle\\|part\\|chapter\\|section\\|"
19 "subsection\\|subsubsection\\|paragraph\\|subparagraph\\)"
20 "\\*?[ \t]*[[{]"))
22 ;;;
23 ;; yatex-mode
24 ;;;
25 (setq auto-mode-alist (cons '("\\.tex$" . yatex-mode) auto-mode-alist))
26 (autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t)
27 ;;↓min-outを使用しない場合、;;@ の行は不要です。
28 (defvar yatex-mode-hook
29 '(lambda ()
30 (setq outline-regexp LaTeX-outline-regexp) ;;@
31 (outline-minor-mode 1) ;;@
32 ))
33 (defvar yatex-mode-load-hook
34 '(lambda ()
35 (setq-default outline-prefix-char (concat YaTeX-prefix "\C-o"));;@
36 (require 'min-out) ;;@
37 ;;auctex 付属の min-out.el の場合これ↓
38 ;(define-key outline-minor-keymap "\C-?" 'hide-subtree) ;;@
39 ;;Emacs 付属の outline.el の場合これ↓
40 (define-key outline-mode-prefix-map "\C-?" 'hide-subtree)
41 (YaTeX-define-begend-key "ba" "abstract")
42 ))