yatex
annotate yatexhks.el @ 559:3f5ce5a755c4
Road to 1.82
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Tue, 25 Dec 2018 20:12:43 +0900 |
parents | 9b4354af748c |
children |
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@353 | 16 (let ((map YaTeX-user-extensional-map)) |
yuuji@353 | 17 (define-key map "0" |
yuuji@353 | 18 (function (lambda () (interactive) |
yuuji@353 | 19 (YaTeX-make-section nil nil nil "part")))) |
yuuji@353 | 20 (define-key map "1" |
yuuji@353 | 21 (function (lambda () (interactive) |
yuuji@353 | 22 (YaTeX-make-section nil nil nil "chapter")))) |
yuuji@353 | 23 (define-key map "2" |
yuuji@353 | 24 (function (lambda () (interactive) |
yuuji@353 | 25 (YaTeX-make-section nil nil nil "section")))) |
yuuji@353 | 26 (define-key map "3" |
yuuji@353 | 27 (function (lambda () (interactive) |
yuuji@353 | 28 (YaTeX-make-section nil nil nil "subsection")))) |
yuuji@353 | 29 (define-key map "4" |
yuuji@353 | 30 (function (lambda () (interactive) |
yuuji@353 | 31 (YaTeX-make-section nil nil nil "subsubsection")))) |
yuuji@353 | 32 (define-key map "5" |
yuuji@353 | 33 (function (lambda () (interactive) |
yuuji@353 | 34 (YaTeX-make-section nil nil nil "paragraph")))) |
yuuji@353 | 35 (define-key map "6" |
yuuji@353 | 36 (function (lambda () (interactive) |
yuuji@353 | 37 (YaTeX-make-section nil nil nil "subparagraph")))) |
yuuji@353 | 38 (define-key map "r" |
yuuji@353 | 39 (function (lambda () (interactive) |
yuuji@353 | 40 (YaTeX-make-section nil nil nil "ref")))) |
yuuji@353 | 41 (define-key map "i" |
yuuji@353 | 42 (function (lambda () (interactive) |
yuuji@353 | 43 (YaTeX-make-singlecmd "item")))) |
yuuji@353 | 44 (define-key map "\C-b" |
yuuji@353 | 45 (function (lambda () (interactive) |
yuuji@353 | 46 (YaTeX-make-singlecmd "leftarrow")))) |
yuuji@353 | 47 (define-key map "l" |
yuuji@353 | 48 (function (lambda () (interactive) |
yuuji@353 | 49 (YaTeX-make-section nil nil nil "label")))) |
yuuji@353 | 50 (define-key map "f" |
yuuji@353 | 51 (function (lambda () (interactive) |
yuuji@353 | 52 (YaTeX-make-section nil nil nil "frac")))) |
yuuji@353 | 53 (define-key map "S" |
yuuji@353 | 54 (function (lambda () (interactive) |
yuuji@353 | 55 (YaTeX-make-section nil nil nil "setlength")))) |
yuuji@353 | 56 (define-key map "b" |
yuuji@353 | 57 (function (lambda () (interactive) |
yuuji@353 | 58 (YaTeX-make-fontsize nil "bf")))) |
yuuji@353 | 59 (define-key map "I" 'YaTeX-browse-info)) |
yuuji@80 | 60 |
yuuji@80 | 61 (defun YaTeX-browse-info () |
yuuji@353 | 62 "Browse YaTeX's info" |
yuuji@353 | 63 (interactive) |
yuuji@353 | 64 (require 'info) |
yuuji@353 | 65 (Info-goto-node (if YaTeX-japan "(yatexj)Top" "(yatexe)Top"))) |
yuuji@54 | 66 |
yuuji@23 | 67 |
yuuji@23 | 68 ; |
yuuji@23 | 69 ;;; End of yatexhks.el |
yuuji@23 | 70 (provide 'yatexhks) |