yatex

view yatexhks.el @ 80:9b4354af748c

Too many changes from 1.72. See yatex.new. (Japanese)
author yuuji
date Sun, 24 Dec 2006 06:16:52 +0000
parents dd4887f78a1f
children 2a72779d9c50
line source
1 ;;; -*- Emacs-Lisp -*-
2 ;;; Hooks for YaTeX
4 ;;; 野鳥に関連する記述(たとえばアドイン関数)は yatexhks.el という名前の
5 ;;; ファイルに入れてください。起動時に自動的にロードします。
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'.
11 ;Private definitions begin from here.
13 ;;97/1/27
14 (define-key YaTeX-user-extensional-map "v" 'YaTeX-section-overview)
15 ;;initial version
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")))
38 (define-key YaTeX-user-extensional-map "f"
39 '(lambda () (interactive) (YaTeX-make-section nil nil nil "frac")))
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")))
44 (define-key YaTeX-user-extensional-map "I" 'YaTeX-browse-info)
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")))
53 ;
54 ;;; End of yatexhks.el
55 (provide 'yatexhks)