Mercurial > hgrepos > hgweb.cgi > yatex
view yatexadd.el @ 7:9a56acb6c287
Fill-paragraph and (un)comment-paragraph work fine.
Fix kill range of YaTeX-kill-some-pairs.
Ignore begin/end in verb or verbatim.
Indent rigidly initial space between begin/end pairs.
Add yatex-mode-load-hook.
Go to corresponding \label or \ref.
author | yuuji |
---|---|
date | Tue, 04 May 1993 12:57:27 +0000 |
parents | 49be9ccb0b65 |
children | c746646cecf5 |
line wrap: on
line source
;;; -*- Emacs-Lisp -*- ;;; YaTeX add in functions. ;;; yatexadd.el rev.2 ;;; (c)1991-1993 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp] ;;; Last modified Fri Feb 5 09:36:06 1993 on gloria (provide 'yatexadd) ;;; ;;Sample functions for LaTeX environment. ;;; (defvar YaTeX:tabular-default-rule "@{\\vrule width 1pt\\ }c|c|c@{\\ \\vrule width 1pt}" "*Your favorite default rule format." ) (defun YaTeX:tabular () "YaTeX add in function for tabular environment." (let (bars (rule "") (j 0) loc) (setq bars (string-to-int (read-string "Number of `|': "))) (if (> bars 0) (while (< j bars) (setq rule (concat rule "|")) (setq j (1+ j))) (setq rule YaTeX:tabular-default-rule)) (setq rule (read-string "rule format: " rule)) (insert (format "{%s}" rule)) (message "")) ) (defun YaTeX:table () (let ((pos "")) (message "Position []:") (while (not (string-match (setq loc (read-key-sequence (format "Position [%s]: " pos))) "\r\^g\n")) (cond ((string-match loc "htbp") (if (not (string-match loc pos)) (setq pos (concat pos loc)))) ((and (string-match loc "\C-h\C-?") (> (length pos) 0)) (setq pos (substring pos 0 (1- (length pos))))) (t (ding) (message "Please input one of `htbp'.") (sit-for 3)))) (if (string= pos "") nil (insert "[" pos "]"))) ) (defun YaTeX:description () "Truly poor service:-)" (setq single-command "item[]") ) (defun YaTeX:itemize () "It's also poor service." (setq single-command "item") ) (fset 'YaTeX:enumerate 'YaTeX:itemize)