yuuji@23: ;;; -*- Emacs-Lisp -*-
yuuji@23: ;;; Hooks for YaTeX
yuuji@23: 
yuuji@66: ;;; 野鳥に関連する記述(たとえばアドイン関数)は yatexhks.el という名前の
yuuji@66: ;;; ファイルに入れてください。起動時に自動的にロードします。
yuuji@23: 
yuuji@23: ;;; All the private definitions for YaTeX can be stuffed into the file
yuuji@23: ;;; named `yatexhks.el'.  The file `yatexhks.el' will be automatically
yuuji@23: ;;; loaded at the end of loading `yatex.el'.
yuuji@23: 
yuuji@58: ;Private definitions begin from here.
yuuji@23: 
yuuji@61: ;;97/1/27
yuuji@61: (define-key YaTeX-user-extensional-map "v" 'YaTeX-section-overview)
yuuji@61: ;;initial version
yuuji@353: (let ((map YaTeX-user-extensional-map))
yuuji@353:   (define-key map "0"
yuuji@353:     (function (lambda () (interactive)
yuuji@353: 		(YaTeX-make-section nil nil nil "part"))))
yuuji@353:   (define-key map "1"
yuuji@353:     (function (lambda () (interactive)
yuuji@353: 		(YaTeX-make-section nil nil nil "chapter"))))
yuuji@353:   (define-key map "2"
yuuji@353:     (function (lambda () (interactive)
yuuji@353: 		(YaTeX-make-section nil nil nil "section"))))
yuuji@353:   (define-key map "3"
yuuji@353:     (function (lambda () (interactive)
yuuji@353: 		(YaTeX-make-section nil nil nil "subsection"))))
yuuji@353:   (define-key map "4"
yuuji@353:     (function (lambda () (interactive)
yuuji@353: 		(YaTeX-make-section nil nil nil "subsubsection"))))
yuuji@353:   (define-key map "5"
yuuji@353:     (function (lambda () (interactive)
yuuji@353: 		(YaTeX-make-section nil nil nil "paragraph"))))
yuuji@353:   (define-key map "6"
yuuji@353:     (function (lambda () (interactive)
yuuji@353: 		(YaTeX-make-section nil nil nil "subparagraph"))))
yuuji@353:   (define-key map "r"
yuuji@353:     (function (lambda () (interactive)
yuuji@353: 		(YaTeX-make-section nil nil nil "ref"))))
yuuji@353:   (define-key map "i"
yuuji@353:     (function (lambda () (interactive)
yuuji@353: 		(YaTeX-make-singlecmd "item"))))
yuuji@353:   (define-key map "\C-b"
yuuji@353:     (function (lambda () (interactive)
yuuji@353: 		(YaTeX-make-singlecmd "leftarrow"))))
yuuji@353:   (define-key map "l"
yuuji@353:     (function (lambda () (interactive)
yuuji@353: 		(YaTeX-make-section nil nil nil "label"))))
yuuji@353:   (define-key map "f"
yuuji@353:     (function (lambda () (interactive)
yuuji@353: 		(YaTeX-make-section nil nil nil "frac"))))
yuuji@353:   (define-key map "S"
yuuji@353:     (function (lambda () (interactive)
yuuji@353: 		(YaTeX-make-section nil nil nil "setlength"))))
yuuji@353:   (define-key map "b"
yuuji@353:     (function (lambda () (interactive)
yuuji@353: 		(YaTeX-make-fontsize nil "bf"))))
yuuji@353:   (define-key map "I" 'YaTeX-browse-info))
yuuji@80: 
yuuji@80: (defun YaTeX-browse-info ()
yuuji@353:  "Browse YaTeX's info"
yuuji@353:  (interactive)
yuuji@353:  (require 'info)
yuuji@353:  (Info-goto-node (if YaTeX-japan "(yatexj)Top" "(yatexe)Top")))
yuuji@54: 
yuuji@23: 
yuuji@23: ;
yuuji@23: ;;; End of yatexhks.el
yuuji@23: (provide 'yatexhks)