yatex

annotate yatexhks.el @ 566:2ef9f21dd13b

Add note on YaTeX::usepackage-alist-default
author HIROSE Yuuji <yuuji@gentei.org>
date Thu, 24 Jan 2019 15:19:32 +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)