yatex

view yatexhks.el @ 573:9e07513fc2ef

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