| rev |
line source |
|
yuuji@23
|
1 ;;; -*- Emacs-Lisp -*-
|
|
yuuji@23
|
2 ;;; Hooks for YaTeX
|
|
yuuji@23
|
3
|
|
yuuji@66
|
4 ;;; 野鳥に関連する記述(たとえばアドイン関数)は yatexhks.el という名前の
|
|
yuuji@66
|
5 ;;; ファイルに入れてください。起動時に自動的にロードします。
|
|
yuuji@23
|
6
|
|
yuuji@23
|
7 ;;; All the private definitions for YaTeX can be stuffed into the file
|
|
yuuji@23
|
8 ;;; named `yatexhks.el'. The file `yatexhks.el' will be automatically
|
|
yuuji@23
|
9 ;;; loaded at the end of loading `yatex.el'.
|
|
yuuji@23
|
10
|
|
yuuji@58
|
11 ;Private definitions begin from here.
|
|
yuuji@23
|
12
|
|
yuuji@61
|
13 ;;97/1/27
|
|
yuuji@61
|
14 (define-key YaTeX-user-extensional-map "v" 'YaTeX-section-overview)
|
|
yuuji@61
|
15 ;;initial version
|
|
yuuji@54
|
16 (define-key YaTeX-user-extensional-map "0"
|
|
yuuji@54
|
17 '(lambda () (interactive) (YaTeX-make-section nil nil nil "part")))
|
|
yuuji@54
|
18 (define-key YaTeX-user-extensional-map "1"
|
|
yuuji@54
|
19 '(lambda () (interactive) (YaTeX-make-section nil nil nil "chapter")))
|
|
yuuji@54
|
20 (define-key YaTeX-user-extensional-map "2"
|
|
yuuji@54
|
21 '(lambda () (interactive) (YaTeX-make-section nil nil nil "section")))
|
|
yuuji@54
|
22 (define-key YaTeX-user-extensional-map "3"
|
|
yuuji@54
|
23 '(lambda () (interactive) (YaTeX-make-section nil nil nil "subsection")))
|
|
yuuji@54
|
24 (define-key YaTeX-user-extensional-map "4"
|
|
yuuji@54
|
25 '(lambda () (interactive) (YaTeX-make-section nil nil nil "subsubsection")))
|
|
yuuji@54
|
26 (define-key YaTeX-user-extensional-map "5"
|
|
yuuji@54
|
27 '(lambda () (interactive) (YaTeX-make-section nil nil nil "paragraph")))
|
|
yuuji@54
|
28 (define-key YaTeX-user-extensional-map "6"
|
|
yuuji@54
|
29 '(lambda () (interactive) (YaTeX-make-section nil nil nil "subparagraph")))
|
|
yuuji@54
|
30 (define-key YaTeX-user-extensional-map "r"
|
|
yuuji@54
|
31 '(lambda () (interactive) (YaTeX-make-section nil nil nil "ref")))
|
|
yuuji@54
|
32 (define-key YaTeX-user-extensional-map "i"
|
|
yuuji@54
|
33 '(lambda () (interactive) (YaTeX-make-singlecmd "item")))
|
|
yuuji@54
|
34 (define-key YaTeX-user-extensional-map "\C-b"
|
|
yuuji@54
|
35 '(lambda () (interactive) (YaTeX-make-singlecmd "leftarrow")))
|
|
yuuji@54
|
36 (define-key YaTeX-user-extensional-map "l"
|
|
yuuji@54
|
37 '(lambda () (interactive) (YaTeX-make-section nil nil nil "label")))
|
|
yuuji@60
|
38 (define-key YaTeX-user-extensional-map "f"
|
|
yuuji@60
|
39 '(lambda () (interactive) (YaTeX-make-section nil nil nil "frac")))
|
|
yuuji@54
|
40 (define-key YaTeX-user-extensional-map "S"
|
|
yuuji@54
|
41 '(lambda () (interactive) (YaTeX-make-section nil nil nil "setlength")))
|
|
yuuji@54
|
42 (define-key YaTeX-user-extensional-map "b"
|
|
yuuji@54
|
43 '(lambda () (interactive) (YaTeX-make-fontsize nil "bf")))
|
|
yuuji@80
|
44 (define-key YaTeX-user-extensional-map "I" 'YaTeX-browse-info)
|
|
yuuji@80
|
45
|
|
yuuji@80
|
46 (defun YaTeX-browse-info ()
|
|
yuuji@80
|
47 "Browse YaTeX's info"
|
|
yuuji@80
|
48 (interactive)
|
|
yuuji@80
|
49 (require 'info)
|
|
yuuji@80
|
50 (Info-goto-node (if YaTeX-japan "(yatexj)Top" "(yatexe)Top")))
|
|
yuuji@54
|
51
|
|
yuuji@23
|
52
|
|
yuuji@23
|
53 ;
|
|
yuuji@23
|
54 ;;; End of yatexhks.el
|
|
yuuji@23
|
55 (provide 'yatexhks)
|
