yatex
diff yatexadd.el @ 21:5102afa98191
Change the YaTeX-math-mode's prefix from `,' to `;'.
Add YaTeX-apropos, YaTeX-what-column, YaTeX-beginning-of-environment,
YaTeX-end-of-environment.
Add variables YaTeX-default-pop-window-height, YaTeX-close-paren-always,
YaTeX-no-begend-shortcut, YaTeX-auto-math-mode.
Remove Greek letters from maketitle-type.
Make YaTeX-inner-environment two times faster and more reliable.
C-u for [prefix] k kills contents too.
Fix the detection of the range of section-type commands when nested.
Add \end{ completion.
Add YaTeX-generate-simple.
Refine documents(using Texinfo).
%#REQUIRE for sub-preambles.
| author | yuuji |
|---|---|
| date | Thu, 07 Jul 1994 16:37:05 +0000 |
| parents | cb9afa9c1213 |
| children | b00c74813e56 |
line diff
1.1 --- a/yatexadd.el Fri May 06 21:14:11 1994 +0000 1.2 +++ b/yatexadd.el Thu Jul 07 16:37:05 1994 +0000 1.3 @@ -2,7 +2,7 @@ 1.4 ;;; YaTeX add-in functions. 1.5 ;;; yatexadd.el rev.8 1.6 ;;; (c )1991-1994 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp] 1.7 -;;; Last modified Sat May 7 06:09:39 1994 on pajero 1.8 +;;; Last modified Sun May 15 18:00:12 1994 on 98fa 1.9 ;;; $Id$ 1.10 1.11 (provide 'yatexadd) 1.12 @@ -15,16 +15,26 @@ 1.13 "*Your favorite default rule format." 1.14 ) 1.15 (defun YaTeX:tabular () 1.16 - "YaTeX add-in function for tabular environment." 1.17 - (let (bars (rule "") (j 0) (loc (YaTeX:read-position "tb"))) 1.18 - (setq bars (string-to-int (read-string "Number of `|': "))) 1.19 + "YaTeX add-in function for tabular environment. 1.20 +Notice that this function refers the let-variable `env' in 1.21 +YaTeX-make-begin-end." 1.22 + (let ((width "") bars (rule "") (j 0) loc) 1.23 + (if (string= env "tabular*") 1.24 + (setq width (concat "{" (read-string "Width: ") "}"))) 1.25 + (setq loc (YaTeX:read-position "tb") 1.26 + bars (string-to-int (read-string "Number of `|': "))) 1.27 (if (> bars 0) 1.28 (while (< j bars) (setq rule (concat rule "|")) (setq j (1+ j))) 1.29 (setq rule YaTeX:tabular-default-rule)) 1.30 (setq rule (read-string "rule format: " rule)) 1.31 1.32 (message "") 1.33 - (format "%s{%s}" loc rule)) 1.34 + (format "%s%s{%s}" width loc rule)) 1.35 +) 1.36 +(fset 'YaTeX:tabular* 'YaTeX:tabular) 1.37 +(defun YaTeX:array () 1.38 + (concat (YaTeX:read-position "tb") 1.39 + "{" (read-string "Column format: ") "}") 1.40 ) 1.41 1.42 (defun YaTeX:read-position (oneof) 1.43 @@ -84,6 +94,11 @@ 1.44 "%\n{} %default label\n{} %formatting parameter" 1.45 ) 1.46 1.47 +(defun YaTeX:minipage () 1.48 + (concat (YaTeX:read-position "cbt") 1.49 + "{" (read-string "Width: ") "}") 1.50 +) 1.51 + 1.52 ;;; 1.53 ;;Sample functions for section-type command. 1.54 ;;; 1.55 @@ -356,9 +371,18 @@ 1.56 (if (and (stringp command) 1.57 (string< "" command) 1.58 (y-or-n-p "Update user completion table?")) 1.59 - (YaTeX-update-table 1.60 - (if (> argc 1) (list command argc) (list command)) 1.61 - 'section-table 'user-section-table 'tmp-section-table)) 1.62 + (cond 1.63 + ((= argc 0) 1.64 + (YaTeX-update-table 1.65 + (list command) 1.66 + 'singlecmd-table 'user-singlecmd-table 'tmp-singlecmd-table)) 1.67 + ((= argc 1) 1.68 + (YaTeX-update-table 1.69 + (list command) 1.70 + 'section-table 'user-section-table 'tmp-section-table)) 1.71 + (t (YaTeX-update-table 1.72 + (list command argc) 1.73 + 'section-table 'user-section-table 'tmp-section-table)))) 1.74 (message "") 1.75 def ;return command name 1.76 ))