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