yuuji@287: ;;; yatexm-o.el --- Sample to invoke yatex-mode with outline-minor mode
yuuji@287: 
yuuji@79: ;;; (c)1993 by HIROSE Yuuji [yuuji@yatex.org]
yuuji@353: ;;; Last modified Sun Dec 21 14:15:47 2014 on firestorm
yuuji@10: 
yuuji@287: ;;; Code:
yuuji@10: ;;;
yuuji@10: ;; outline-minor-mode(使用しない場合は不要です)
yuuji@10: ;;; 
yuuji@10: (autoload 'outline-minor-mode "min-out" t)
yuuji@10: (make-variable-buffer-local 'outline-prefix-char)
yuuji@10: (make-variable-buffer-local 'outline-regexp)
yuuji@10: (setq  default-outline-regexp "[*\^l]+")
yuuji@10: (make-variable-buffer-local 'outline-level-function)
yuuji@10: (setq-default outline-level-function 'outline-level-default)
yuuji@58: (setq LaTeX-outline-regexp
yuuji@10:   (concat "[ \t]*" (regexp-quote "\\")
yuuji@10: 	  "\\(appendix\\|documentstyle\\|part\\|chapter\\|section\\|"
yuuji@58: 	  "subsection\\|subsubsection\\|paragraph\\|subparagraph\\)"
yuuji@58:           "\\*?[ \t]*[[{]"))
yuuji@10: 
yuuji@10: ;;;
yuuji@10: ;; yatex-mode
yuuji@10: ;;;
yuuji@10: (setq auto-mode-alist (cons '("\\.tex$" . yatex-mode) auto-mode-alist))
yuuji@10: (autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t)
yuuji@10: ;;↓min-outを使用しない場合、;;@ の行は不要です。
yuuji@10: (defvar yatex-mode-hook
yuuji@353:   (function
yuuji@353:    (lambda ()
yuuji@10:      (setq outline-regexp LaTeX-outline-regexp)			    ;;@
yuuji@16:      (outline-minor-mode 1)					    ;;@
yuuji@353:      )))
yuuji@10: (defvar yatex-mode-load-hook
yuuji@353:   (function
yuuji@353:    (lambda ()
yuuji@10:      (setq-default outline-prefix-char (concat YaTeX-prefix "\C-o"));;@
yuuji@10:      (require 'min-out)						    ;;@
yuuji@58:      ;;auctex 付属の min-out.el の場合これ↓
yuuji@58:      ;(define-key outline-minor-keymap "\C-?" 'hide-subtree)	    ;;@
yuuji@58:      ;;Emacs 付属の outline.el の場合これ↓
yuuji@58:      (define-key outline-mode-prefix-map "\C-?" 'hide-subtree)
yuuji@16:      (YaTeX-define-begend-key "ba" "abstract")
yuuji@353:      )))