yatex
annotate yatexadd.el @ 6:49be9ccb0b65
Temporary dictionary.
Learn the number of argument(section-type completion).
Override kill-emacs.
Patched posted to fj.sources,fj.editor.emacs,fj.comp.texhax
| author | yuuji |
|---|---|
| date | Mon, 22 Feb 1993 11:04:53 +0000 |
| parents | |
| children | c746646cecf5 |
| rev | line source |
|---|---|
| yuuji@6 | 1 ;;; -*- Emacs-Lisp -*- |
| yuuji@6 | 2 ;;; YaTeX add in functions. |
| yuuji@6 | 3 ;;; yatexadd.el rev.2 |
| yuuji@6 | 4 ;;; (c)1991-1993 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp] |
| yuuji@6 | 5 ;;; Last modified Fri Feb 5 09:36:06 1993 on gloria |
| yuuji@6 | 6 |
| yuuji@6 | 7 (provide 'yatexadd) |
| yuuji@6 | 8 |
| yuuji@6 | 9 ;;; |
| yuuji@6 | 10 ;;Sample functions for LaTeX environment. |
| yuuji@6 | 11 ;;; |
| yuuji@6 | 12 (defvar YaTeX:tabular-default-rule |
| yuuji@6 | 13 "@{\\vrule width 1pt\\ }c|c|c@{\\ \\vrule width 1pt}" |
| yuuji@6 | 14 "*Your favorite default rule format." |
| yuuji@6 | 15 ) |
| yuuji@6 | 16 (defun YaTeX:tabular () |
| yuuji@6 | 17 "YaTeX add in function for tabular environment." |
| yuuji@6 | 18 (let (bars (rule "") (j 0) loc) |
| yuuji@6 | 19 (setq bars (string-to-int (read-string "Number of `|': "))) |
| yuuji@6 | 20 (if (> bars 0) |
| yuuji@6 | 21 (while (< j bars) (setq rule (concat rule "|")) (setq j (1+ j))) |
| yuuji@6 | 22 (setq rule YaTeX:tabular-default-rule)) |
| yuuji@6 | 23 (setq rule (read-string "rule format: " rule)) |
| yuuji@6 | 24 |
| yuuji@6 | 25 (insert (format "{%s}" rule)) |
| yuuji@6 | 26 (message "")) |
| yuuji@6 | 27 ) |
| yuuji@6 | 28 |
| yuuji@6 | 29 (defun YaTeX:table () |
| yuuji@6 | 30 (let ((pos "")) |
| yuuji@6 | 31 (message "Position []:") |
| yuuji@6 | 32 (while (not (string-match |
| yuuji@6 | 33 (setq loc (read-key-sequence (format "Position [%s]: " pos))) |
| yuuji@6 | 34 "\r\^g\n")) |
| yuuji@6 | 35 (cond |
| yuuji@6 | 36 ((string-match loc "htbp") |
| yuuji@6 | 37 (if (not (string-match loc pos)) |
| yuuji@6 | 38 (setq pos (concat pos loc)))) |
| yuuji@6 | 39 ((and (string-match loc "\C-h\C-?") (> (length pos) 0)) |
| yuuji@6 | 40 (setq pos (substring pos 0 (1- (length pos))))) |
| yuuji@6 | 41 (t |
| yuuji@6 | 42 (ding) |
| yuuji@6 | 43 (message "Please input one of `htbp'.") |
| yuuji@6 | 44 (sit-for 3)))) |
| yuuji@6 | 45 (if (string= pos "") nil |
| yuuji@6 | 46 (insert "[" pos "]"))) |
| yuuji@6 | 47 ) |
| yuuji@6 | 48 |
| yuuji@6 | 49 (defun YaTeX:description () |
| yuuji@6 | 50 "Truly poor service:-)" |
| yuuji@6 | 51 (setq single-command "item[]") |
| yuuji@6 | 52 ) |
| yuuji@6 | 53 |
| yuuji@6 | 54 (defun YaTeX:itemize () |
| yuuji@6 | 55 "It's also poor service." |
| yuuji@6 | 56 (setq single-command "item") |
| yuuji@6 | 57 ) |
| yuuji@6 | 58 |
| yuuji@6 | 59 (fset 'YaTeX:enumerate 'YaTeX:itemize) |