yatex

view yatexm-o.el @ 543:b5e987a3e75c

rm docs/dir
author HIROSE Yuuji <yuuji@gentei.org>
date Thu, 31 May 2018 22:16:59 +0900
parents 5921f28ef77c
children
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 Sun Dec 21 14:15:47 2014 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 (function
30 (lambda ()
31 (setq outline-regexp LaTeX-outline-regexp) ;;@
32 (outline-minor-mode 1) ;;@
33 )))
34 (defvar yatex-mode-load-hook
35 (function
36 (lambda ()
37 (setq-default outline-prefix-char (concat YaTeX-prefix "\C-o"));;@
38 (require 'min-out) ;;@
39 ;;auctex 付属の min-out.el の場合これ↓
40 ;(define-key outline-minor-keymap "\C-?" 'hide-subtree) ;;@
41 ;;Emacs 付属の outline.el の場合これ↓
42 (define-key outline-mode-prefix-map "\C-?" 'hide-subtree)
43 (YaTeX-define-begend-key "ba" "abstract")
44 )))