Mercurial > hgrepos > hgweb.cgi > yatex

annotate yatexhks.el @ 436:e78a87bc2c9e dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
current file treated as absolute path(YaTeX-preview-jump-line)
author HIROSE Yuuji <yuuji@gentei.org>
date Fri, 08 Jan 2016 08:18:54 +0859
parents 2a72779d9c50
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
23
b00c74813e56 Change the YaTeX-math-mode's prefix from `,' to `;'.
yuuji
parents:
diff changeset
1 ;;; -*- Emacs-Lisp -*-
b00c74813e56 Change the YaTeX-math-mode's prefix from `,' to `;'.
yuuji
parents:
diff changeset
2 ;;; Hooks for YaTeX
b00c74813e56 Change the YaTeX-math-mode's prefix from `,' to `;'.
yuuji
parents:
diff changeset
3
66
dd4887f78a1f GNU Emacs20 and XEmacs supported
yuuji
parents: 61
diff changeset
4 ;;; 野鳥に関連する記述(たとえばアドイン関数)は yatexhks.el という名前の
dd4887f78a1f GNU Emacs20 and XEmacs supported
yuuji
parents: 61
diff changeset
5 ;;; ファイルに入れてください。起動時に自動的にロードします。
23
b00c74813e56 Change the YaTeX-math-mode's prefix from `,' to `;'.
yuuji
parents:
diff changeset
6
b00c74813e56 Change the YaTeX-math-mode's prefix from `,' to `;'.
yuuji
parents:
diff changeset
7 ;;; All the private definitions for YaTeX can be stuffed into the file
b00c74813e56 Change the YaTeX-math-mode's prefix from `,' to `;'.
yuuji
parents:
diff changeset
8 ;;; named `yatexhks.el'. The file `yatexhks.el' will be automatically
b00c74813e56 Change the YaTeX-math-mode's prefix from `,' to `;'.
yuuji
parents:
diff changeset
9 ;;; loaded at the end of loading `yatex.el'.
b00c74813e56 Change the YaTeX-math-mode's prefix from `,' to `;'.
yuuji
parents:
diff changeset
10
58
3a7c0c2bf16d Official support for AMS-LaTeX, HTML, xdvi -remote, Netscape
yuuji
parents: 54
diff changeset
11 ;Private definitions begin from here.
23
b00c74813e56 Change the YaTeX-math-mode's prefix from `,' to `;'.
yuuji
parents:
diff changeset
12
61
b9f753846b6b Bug fix release
yuuji
parents: 60
diff changeset
13 ;;97/1/27
b9f753846b6b Bug fix release
yuuji
parents: 60
diff changeset
14 (define-key YaTeX-user-extensional-map "v" 'YaTeX-section-overview)
b9f753846b6b Bug fix release
yuuji
parents: 60
diff changeset
15 ;;initial version
353
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
16 (let ((map YaTeX-user-extensional-map))
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
17 (define-key map "0"
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
18 (function (lambda () (interactive)
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
19 (YaTeX-make-section nil nil nil "part"))))
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
20 (define-key map "1"
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
21 (function (lambda () (interactive)
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
22 (YaTeX-make-section nil nil nil "chapter"))))
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
23 (define-key map "2"
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
24 (function (lambda () (interactive)
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
25 (YaTeX-make-section nil nil nil "section"))))
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
26 (define-key map "3"
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
27 (function (lambda () (interactive)
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
28 (YaTeX-make-section nil nil nil "subsection"))))
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
29 (define-key map "4"
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
30 (function (lambda () (interactive)
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
31 (YaTeX-make-section nil nil nil "subsubsection"))))
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
32 (define-key map "5"
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
33 (function (lambda () (interactive)
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
34 (YaTeX-make-section nil nil nil "paragraph"))))
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
35 (define-key map "6"
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
36 (function (lambda () (interactive)
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
37 (YaTeX-make-section nil nil nil "subparagraph"))))
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
38 (define-key map "r"
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
39 (function (lambda () (interactive)
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
40 (YaTeX-make-section nil nil nil "ref"))))
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
41 (define-key map "i"
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
42 (function (lambda () (interactive)
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
43 (YaTeX-make-singlecmd "item"))))
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
44 (define-key map "\C-b"
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
45 (function (lambda () (interactive)
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
46 (YaTeX-make-singlecmd "leftarrow"))))
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
47 (define-key map "l"
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
48 (function (lambda () (interactive)
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
49 (YaTeX-make-section nil nil nil "label"))))
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
50 (define-key map "f"
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
51 (function (lambda () (interactive)
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
52 (YaTeX-make-section nil nil nil "frac"))))
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
53 (define-key map "S"
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
54 (function (lambda () (interactive)
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
55 (YaTeX-make-section nil nil nil "setlength"))))
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
56 (define-key map "b"
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
57 (function (lambda () (interactive)
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
58 (YaTeX-make-fontsize nil "bf"))))
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
59 (define-key map "I" 'YaTeX-browse-info))
80
9b4354af748c Too many changes from 1.72.
yuuji
parents: 66
diff changeset
60
9b4354af748c Too many changes from 1.72.
yuuji
parents: 66
diff changeset
61 (defun YaTeX-browse-info ()
353
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
62 "Browse YaTeX's info"
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
63 (interactive)
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
64 (require 'info)
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents: 80
diff changeset
65 (Info-goto-node (if YaTeX-japan "(yatexj)Top" "(yatexe)Top")))
54
2d45e43fb35f Full support of English documents
yuuji
parents: 23
diff changeset
66
23
b00c74813e56 Change the YaTeX-math-mode's prefix from `,' to `;'.
yuuji
parents:
diff changeset
67
b00c74813e56 Change the YaTeX-math-mode's prefix from `,' to `;'.
yuuji
parents:
diff changeset
68 ;
b00c74813e56 Change the YaTeX-math-mode's prefix from `,' to `;'.
yuuji
parents:
diff changeset
69 ;;; End of yatexhks.el
b00c74813e56 Change the YaTeX-math-mode's prefix from `,' to `;'.
yuuji
parents:
diff changeset
70 (provide 'yatexhks)

yatex.org