Mercurial > hgrepos > hgweb.cgi > yatex
annotate yatexhks.el @ 278:130c104fe22e
RCS-Checked in as 1.76
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Mon, 14 May 2012 19:59:12 +0900 |
parents | 9b4354af748c |
children | 2a72779d9c50 |
rev | line source |
---|---|
23 | 1 ;;; -*- Emacs-Lisp -*- |
2 ;;; Hooks for YaTeX | |
3 | |
66 | 4 ;;; 野鳥に関連する記述(たとえばアドイン関数)は yatexhks.el という名前の |
5 ;;; ファイルに入れてください。起動時に自動的にロードします。 | |
23 | 6 |
7 ;;; All the private definitions for YaTeX can be stuffed into the file | |
8 ;;; named `yatexhks.el'. The file `yatexhks.el' will be automatically | |
9 ;;; loaded at the end of loading `yatex.el'. | |
10 | |
58
3a7c0c2bf16d
Official support for AMS-LaTeX, HTML, xdvi -remote, Netscape
yuuji
parents:
54
diff
changeset
|
11 ;Private definitions begin from here. |
23 | 12 |
61 | 13 ;;97/1/27 |
14 (define-key YaTeX-user-extensional-map "v" 'YaTeX-section-overview) | |
15 ;;initial version | |
54 | 16 (define-key YaTeX-user-extensional-map "0" |
17 '(lambda () (interactive) (YaTeX-make-section nil nil nil "part"))) | |
18 (define-key YaTeX-user-extensional-map "1" | |
19 '(lambda () (interactive) (YaTeX-make-section nil nil nil "chapter"))) | |
20 (define-key YaTeX-user-extensional-map "2" | |
21 '(lambda () (interactive) (YaTeX-make-section nil nil nil "section"))) | |
22 (define-key YaTeX-user-extensional-map "3" | |
23 '(lambda () (interactive) (YaTeX-make-section nil nil nil "subsection"))) | |
24 (define-key YaTeX-user-extensional-map "4" | |
25 '(lambda () (interactive) (YaTeX-make-section nil nil nil "subsubsection"))) | |
26 (define-key YaTeX-user-extensional-map "5" | |
27 '(lambda () (interactive) (YaTeX-make-section nil nil nil "paragraph"))) | |
28 (define-key YaTeX-user-extensional-map "6" | |
29 '(lambda () (interactive) (YaTeX-make-section nil nil nil "subparagraph"))) | |
30 (define-key YaTeX-user-extensional-map "r" | |
31 '(lambda () (interactive) (YaTeX-make-section nil nil nil "ref"))) | |
32 (define-key YaTeX-user-extensional-map "i" | |
33 '(lambda () (interactive) (YaTeX-make-singlecmd "item"))) | |
34 (define-key YaTeX-user-extensional-map "\C-b" | |
35 '(lambda () (interactive) (YaTeX-make-singlecmd "leftarrow"))) | |
36 (define-key YaTeX-user-extensional-map "l" | |
37 '(lambda () (interactive) (YaTeX-make-section nil nil nil "label"))) | |
60
9e08ed569d80
yahtml: change keystroke of calling browser to [prefix] t p
yuuji
parents:
58
diff
changeset
|
38 (define-key YaTeX-user-extensional-map "f" |
9e08ed569d80
yahtml: change keystroke of calling browser to [prefix] t p
yuuji
parents:
58
diff
changeset
|
39 '(lambda () (interactive) (YaTeX-make-section nil nil nil "frac"))) |
54 | 40 (define-key YaTeX-user-extensional-map "S" |
41 '(lambda () (interactive) (YaTeX-make-section nil nil nil "setlength"))) | |
42 (define-key YaTeX-user-extensional-map "b" | |
43 '(lambda () (interactive) (YaTeX-make-fontsize nil "bf"))) | |
80 | 44 (define-key YaTeX-user-extensional-map "I" 'YaTeX-browse-info) |
45 | |
46 (defun YaTeX-browse-info () | |
47 "Browse YaTeX's info" | |
48 (interactive) | |
49 (require 'info) | |
50 (Info-goto-node (if YaTeX-japan "(yatexj)Top" "(yatexe)Top"))) | |
54 | 51 |
23 | 52 |
53 ; | |
54 ;;; End of yatexhks.el | |
55 (provide 'yatexhks) |