Mercurial > hgrepos > hgweb.cgi > yatex
view yatexinf.el @ 550:d97881f33e28 dev
Add default template string for name="vieport" to meta completion
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Tue, 21 Aug 2018 10:49:30 +0900 |
parents | 8d3156073892 |
children |
line wrap: on
line source
;;; yatexinf.el -- YaTeX interfaces for Texinfo mode ;;; (c)1994-2013 by HIROSE, Yuuji [yuuji@yatex.org] ;;; Last modified Mon Apr 1 22:43:58 2013 on firestorm ;;; Code: (require 'yatex) (or (boundp 'texinfo-mode-map) (load "texinfo")) ;;Put next expressions into your ~/.emacs ;;(defvar texinfo-mode-hook nil) ;;(or (featurep 'yatexinf) ;; (setq texinfo-mode-hook ;; (append (or texinfo-mode-hook '(lambda ())) ;; '((require 'yatexinf) (yatexinfo-setup))))) (defun yatexinfo-define-key (map key binding) "Define keys of yatexinfo with YaTeX-prefix." (if YaTeX-inhibit-prefix-letter (let ((c (aref key 0))) (cond ((and (>= c ?a) (<= c ?z)) (aset key 0 (1+ (- c ?a)))) ((and (>= c ?A) (<= c ?Z) (numberp YaTeX-inhibit-prefix-letter)) (aset key 0 (1+ (- c ?A)))) (t nil)))) (define-key map (concat YaTeX-prefix key) binding)) (if (featurep 'yatexinf) nil (yatexinfo-define-key texinfo-mode-map "s" 'YaTeX-make-section) (yatexinfo-define-key texinfo-mode-map "S" 'YaTeX-make-section-region) (yatexinfo-define-key texinfo-mode-map "b" 'YaTeX-make-begin-end) (yatexinfo-define-key texinfo-mode-map "B" 'YaTeX-make-begin-end-region) (yatexinfo-define-key texinfo-mode-map "m" 'YaTeX-make-singlecmd) (yatexinfo-define-key texinfo-mode-map "g" 'YaTeX-goto-corresponding-*) (yatexinfo-define-key texinfo-mode-map ">" 'YaTeX-comment-region) (yatexinfo-define-key texinfo-mode-map "<" 'YaTeX-uncomment-region) (yatexinfo-define-key texinfo-mode-map "." 'YaTeX-comment-paragraph) (yatexinfo-define-key texinfo-mode-map "," 'YaTeX-uncomment-region) (yatexinfo-define-key texinfo-mode-map "t" 'YaTeX-typeset-menu) (define-key texinfo-mode-map "\e\C-t" 'lisp-complete-symbol)) (defvar yatexinfo-section-table '(("leftline") ("file") ("kbd") ("key") ("code") ("var") ("samp") ("ref") ("xref") ("pxref") ("value") ("footnote") ) "Completion table of section-type command of Texinfo.") (defvar yatexinfo-singlecmd-table '(("TeX{}") ("copyright{}") ("setfilename") ("settitle") ("author") ("noindent") ("dots{}") ("bullet") ("cindex") ("chapter") ("section") ("subsection") ("subsubsection") ("unnumbered") ("unnumberedsec") ("unnumberedsubsec") ("unnumberedsubsubsec") ("item") ("itemx")) "Completion table of maketitle-type command of Texinfo.") (defvar yatexinfo-env-table '(("example") ("enumerate") ("iftex") ("titlepage") ("menu") ("table") ("lisp") ("itemize") ("display") ("quotation") ("flushright") ("flushleft") ("center")) "Completion table of begin-type command of Texinfo.") (defvar yatexinfo-struct-begin "@%1%2" "Structure beginning form of Texinfo begin-type commands.") (defvar yatexinfo-struct-end "@end %1" "Structure ending form of Texinfo begin-type commands.") (defvar yatexinfo-struct-name-regexp "table\\|itemize\\|enumerate\\|display\\|example\\|lisp\\|group\\|menu" "All of begin-end type structures") (defvar yatexinfo-ec "@" "Escape character of Texinfo.") (defvar yatexinfo-ec-regexp "@" "Regexp of the escape character of Texinfo.") (defvar yatexinfo-comment-prefix "@c " "Comment prefix of Texinfo.") (defvar yatexinfo-user-completion-table (if YaTeX-dos "~/_inforc" ".yatexinforc") "*Default dictionary of completion table.") (defun yatexinfo-setup () "Setup all for yatexinfo." (mapcar 'make-local-variable '(env-table section-table singlecmd-table YaTeX-user-completion-table YaTeX-comment-prefix YaTeX-struct-name-regexp YaTeX-struct-begin YaTeX-struct-end YaTeX-ec YaTeX-ec-regexp)) (setq env-table yatexinfo-env-table section-table yatexinfo-section-table singlecmd-table yatexinfo-singlecmd-table YaTeX-user-completion-table yatexinfo-user-completion-table YaTeX-comment-prefix yatexinfo-comment-prefix YaTeX-struct-begin yatexinfo-struct-begin YaTeX-struct-end yatexinfo-struct-end YaTeX-struct-name-regexp yatexinfo-struct-name-regexp YaTeX-ec yatexinfo-ec YaTeX-ec-regexp yatexinfo-ec-regexp) (load yatexinfo-user-completion-table t) (run-hooks 'yatex-mode-hook)) (provide 'yatexinf)