Mercurial > hgrepos > hgweb.cgi > yatex
annotate yatexpkg.el @ 613:38b311149463 draft dev tip
Key definition fixed
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Mon, 06 May 2024 17:11:31 +0900 |
parents | 38a414d755c1 |
children |
rev | line source |
---|---|
395 | 1 ;;; yatexpkg.el --- YaTeX package manager -*- coding: sjis -*- |
287 | 2 ;;; |
605 | 3 ;;; (c)2003-2022 by HIROSE, Yuuji [yuuji@yatex.org] |
4 ;;; Last modified Fri Dec 2 08:22:41 2022 on firestorm | |
366 | 5 ;;; $Id$ |
78 | 6 |
287 | 7 ;;; Code: |
80 | 8 (defvar YaTeX-package-ams-envs |
9 (mapcar 'car YaTeX-ams-env-table)) | |
10 | |
78 | 11 (defvar YaTeX-package-alist-default |
193 | 12 '(("version" (env "comment") ;by tsuchiya<at>pine.kuee.kyoto-u.ac.jp |
79
0734be649cb8
Do not care file-coding-system when YaTeX-kanji-code is nil.
yuuji
parents:
78
diff
changeset
|
13 (section "includeversion" "excludeversion")) |
78 | 14 |
193 | 15 ("plext" (section "bou")) ;by yas.axis<at>ma.mni.ne.jp |
78 | 16 |
193 | 17 ("url" (section "url")) ;by fujieda<at>jaist.ac.jp |
78 | 18 |
19 ("fancybox" (section "shadowbox" "doublebox" "ovalbox" "Ovalbox")) | |
80 | 20 ("slashbox" (section "slashbox" "backslashbox")) |
78 | 21 ("pifont" (section "ding")) |
22 ("longtable" (env "longtable")) | |
23 ("ascmac" (env "screen" "boxnote" "shadebox" "itembox") | |
24 (maketitle "return" "Return" "yen") | |
79
0734be649cb8
Do not care file-coding-system when YaTeX-kanji-code is nil.
yuuji
parents:
78
diff
changeset
|
25 (section "keytop") ("mask") ("maskbox")) |
193 | 26 ("bm" (section "bm")) ;by aoyama<at>le.chiba-u.ac.jp |
78 | 27 |
28 ("alltt" (env "alltt")) | |
29 ("misc" (section "verbfile" "listing")) | |
441
564510b9caca
Add verbatim package for verbatiminput macro
HIROSE Yuuji <yuuji@gentei.org>
parents:
418
diff
changeset
|
30 ("verbatim" (section "verbatiminput")) |
602
a7ad9158e3ce
Add completions for macros in booktab package
HIROSE Yuuji <yuuji@gentei.org>
parents:
599
diff
changeset
|
31 ("boites" (env "breakbox")) |
a7ad9158e3ce
Add completions for macros in booktab package
HIROSE Yuuji <yuuji@gentei.org>
parents:
599
diff
changeset
|
32 ;;("eclbkbox" (env "breakbox")) |
80 | 33 ("supertabular" (env "supertabular")) |
572
714f3527b4a1
Add add-in for tabularx environment
HIROSE Yuuji <yuuji@gentei.org>
parents:
565
diff
changeset
|
34 ("tabularx" (env "tabularx")) |
80 | 35 ("amsmath" (env . YaTeX-package-ams-envs) |
36 (section "tag" "tag*")) | |
564
71697ec66240
Auto-usepackage assumes amsart, amsbook and amsproc same as amsmath
HIROSE Yuuji <yuuji@gentei.org>
parents:
554
diff
changeset
|
37 ("amsart" (same-as . "amsmath")) |
71697ec66240
Auto-usepackage assumes amsart, amsbook and amsproc same as amsmath
HIROSE Yuuji <yuuji@gentei.org>
parents:
554
diff
changeset
|
38 ("amsbook" (same-as . "amsmath")) |
71697ec66240
Auto-usepackage assumes amsart, amsbook and amsproc same as amsmath
HIROSE Yuuji <yuuji@gentei.org>
parents:
554
diff
changeset
|
39 ("amsproc" (same-as . "amsmath")) |
134 | 40 ("amssymb" (maketitle "leqq" "geqq" "mathbb" "mathfrak" |
305
53709ee88448
Add \because and \therefore to math-image completion.
HIROSE Yuuji <yuuji@gentei.org>
parents:
304
diff
changeset
|
41 "fallingdotseq" "therefore" "because" |
460
1790e0d35156
Capitalized varGREEK with amssymb, added
HIROSE Yuuji <yuuji@gentei.org>
parents:
456
diff
changeset
|
42 "varDelta" "varTheta" "varLambda" "varXi" "varPi" |
1790e0d35156
Capitalized varGREEK with amssymb, added
HIROSE Yuuji <yuuji@gentei.org>
parents:
456
diff
changeset
|
43 "varSigma" "varUpsilon" "varPhi" "varPsi" "varOmega" |
134 | 44 "lll" "ggg")) ;very few. Please tell us! |
565
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
45 ("latexsym" (maketitle "mho" "Join" "Box" "Diamond" "leadsto" |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
46 "sqsubset" "sqsupset" "lhd" "unlhd" "rhd" "unrhd")) |
456 | 47 ("mathrsfs" (section "mathscr")) |
599 | 48 ("fleqn" (env "nccmath")) |
80 | 49 ("graphicx" (section "includegraphics" |
50 "rotatebox" "scalebox" "resizebox" "reflectbox") | |
51 (option . YaTeX-package-graphics-driver-alist)) | |
565
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
52 ("xymtex" (section "Ycyclohexaneh")) ;;XXX we need more and more... |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
53 ("chemist" nil) ;;XXX we need completions... |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
54 ("a4j" nil) |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
55 ("array" nil) |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
56 ("times" nil) |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
57 ("newtx" nil) |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
58 ("makeidx" nil) |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
59 ("geometry" (section "geometry")) |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
60 ("lscape" (env "landscape")) |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
61 ("path" (section "path")) |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
62 ("epsf" (section "epsfbox")) |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
63 ("epsfig" (section "epsfig")) |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
64 ("floatflt" (env "floatingfigure")) |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
65 ("type1cm" (section "fontsize")) |
516 | 66 ("svg" (section "includesvg")) |
80 | 67 ("color" (section "textcolor" "colorbox" "pagecolor" "color") |
303
13a62b7c8354
(yatexpkg)Add default option for package completion.
HIROSE Yuuji <yuuji@gentei.org>
parents:
294
diff
changeset
|
68 (option . YaTeX-package-graphics-driver-alist) |
13a62b7c8354
(yatexpkg)Add default option for package completion.
HIROSE Yuuji <yuuji@gentei.org>
parents:
294
diff
changeset
|
69 (default-option . "usenames,dvipsnames")) |
13a62b7c8354
(yatexpkg)Add default option for package completion.
HIROSE Yuuji <yuuji@gentei.org>
parents:
294
diff
changeset
|
70 ("xcolor" (same-as . "color")) |
80 | 71 ("ulem" (section "uline" "uuline" "uwave") |
72 (option ("normalem"))) | |
312 | 73 ("multicol" (env "multicols")) |
565
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
74 ("cleveref" (section "cref" "crefrange" "cpageref" "labelcref" |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
75 "labelpageref")) |
346 | 76 ("wrapfig" (env "wrapfigure" "wraptable")) |
418 | 77 ("setspace" (env "spacing") (section "setstretch")) |
449
c2c547e147c7
YaTeX-math-other-env-alist-* for additional math-environments
HIROSE Yuuji <yuuji@gentei.org>
parents:
443
diff
changeset
|
78 ("cases" (env "numcases" "subnumcases")) |
551
e7356faf50df
Add completion stuff of \subfigure{}.
HIROSE Yuuji <yuuji@gentei.org>
parents:
516
diff
changeset
|
79 ("subfigure" (section "subfigure")) |
554
a6c72ad6445a
Add \ruby{}{} completion with okumacro package
HIROSE Yuuji <yuuji@gentei.org>
parents:
553
diff
changeset
|
80 ("okumacro" (section "ruby" "kenten")) |
591
e3b7e199a87d
Add-in for {column,row,cell}color
HIROSE Yuuji <yuuji@gentei.org>
parents:
572
diff
changeset
|
81 ("colortbl" (section "columncolor" "rowcolor")) |
602
a7ad9158e3ce
Add completions for macros in booktab package
HIROSE Yuuji <yuuji@gentei.org>
parents:
599
diff
changeset
|
82 ("booktab" (section "toprule" "midrule" "bottomrule" "cmidrule" |
a7ad9158e3ce
Add completions for macros in booktab package
HIROSE Yuuji <yuuji@gentei.org>
parents:
599
diff
changeset
|
83 "addlinespace" "specialrule")) |
603 | 84 ("pxbase" (section "UI")) |
314
fae84a98372c
("crefrange") ("cpageref") ("labelcref") ("labelcpageref") for cleveref
HIROSE Yuuji <yuuji@gentei.org>
parents:
313
diff
changeset
|
85 ) |
79
0734be649cb8
Do not care file-coding-system when YaTeX-kanji-code is nil.
yuuji
parents:
78
diff
changeset
|
86 "Default package vs. macro list. |
0734be649cb8
Do not care file-coding-system when YaTeX-kanji-code is nil.
yuuji
parents:
78
diff
changeset
|
87 Alists contains '(PACKAGENAME . MACROLIST) |
0734be649cb8
Do not care file-coding-system when YaTeX-kanji-code is nil.
yuuji
parents:
78
diff
changeset
|
88 PACKAGENAME Basename of package(String). |
0734be649cb8
Do not care file-coding-system when YaTeX-kanji-code is nil.
yuuji
parents:
78
diff
changeset
|
89 MACROLIST List of '(TYPE . MACROS) |
0734be649cb8
Do not care file-coding-system when YaTeX-kanji-code is nil.
yuuji
parents:
78
diff
changeset
|
90 TYPE One of 'env, 'section or 'maketitle according to completion-type |
0734be649cb8
Do not care file-coding-system when YaTeX-kanji-code is nil.
yuuji
parents:
78
diff
changeset
|
91 MACROS List of macros |
0734be649cb8
Do not care file-coding-system when YaTeX-kanji-code is nil.
yuuji
parents:
78
diff
changeset
|
92 |
80 | 93 If TYPE is 'option, its cdr is alist of completion candidates for that |
94 package. Its cdr can be a symbol whose value is alist. | |
95 | |
79
0734be649cb8
Do not care file-coding-system when YaTeX-kanji-code is nil.
yuuji
parents:
78
diff
changeset
|
96 An good example is the value of YaTeX-package-alist-default.") |
78 | 97 |
80 | 98 (defvar YaTeX-package-graphics-driver-alist |
303
13a62b7c8354
(yatexpkg)Add default option for package completion.
HIROSE Yuuji <yuuji@gentei.org>
parents:
294
diff
changeset
|
99 '(("dvips") ("dvipsnames") ("usenames") |
333
30a8f68abe0a
Supply `dvipdfmx' completion instead of `dvipdf'
HIROSE Yuuji <yuuji@gentei.org>
parents:
314
diff
changeset
|
100 ("xdvi") ("dvipdfmx") ("pdftex") ("dvipsone") ("dviwindo") |
80 | 101 ("emtex") ("dviwin") ("oztex") ("textures") ("pctexps") ("pctexwin") |
102 ("pctexhp") ("pctex32") ("truetex") ("tcidvi") ("vtex")) | |
553 | 103 "Drivers alist of graphics/color stylefile's supporting devices. |
80 | 104 This list is taken from |
105 %% graphics.dtx Copyright (C) 1994 David Carlisle Sebastian Rahtz | |
106 %% Copyright (C) 1995 1996 1997 1998 David Carlisle | |
107 as of 2004/1/19. Thanks.") | |
108 | |
78 | 109 (defvar YaTeX-package-alist-private nil |
110 "*User defined package vs. macro list. See also YaTeX-package-alist-default") | |
111 | |
112 (defun YaTeX-package-lookup (macro &optional type) | |
113 "Look up a package which contains a definition of MACRO. | |
114 Optional second argument TYPE limits the macro type. | |
115 TYPE is a symbol, one of 'env, 'section, 'maketitle." | |
116 (let ((list (append YaTeX-package-alist-private YaTeX-package-alist-default)) | |
304
a57f4c74179a
(yatexpkg)YaTeX-package-lookup sees 'same-as entry.
HIROSE Yuuji <yuuji@gentei.org>
parents:
303
diff
changeset
|
117 origlist element x sameas val pkg pkglist r) |
a57f4c74179a
(yatexpkg)YaTeX-package-lookup sees 'same-as entry.
HIROSE Yuuji <yuuji@gentei.org>
parents:
303
diff
changeset
|
118 (setq origlist list) |
78 | 119 (while list |
120 (setq element (car list) | |
121 pkg (car element) | |
122 element (cdr element)) | |
304
a57f4c74179a
(yatexpkg)YaTeX-package-lookup sees 'same-as entry.
HIROSE Yuuji <yuuji@gentei.org>
parents:
303
diff
changeset
|
123 (if (setq sameas (assq 'same-as element)) ;non-recursive retrieval |
a57f4c74179a
(yatexpkg)YaTeX-package-lookup sees 'same-as entry.
HIROSE Yuuji <yuuji@gentei.org>
parents:
303
diff
changeset
|
124 (setq element (cdr (assoc (cdr sameas) origlist)))) |
78 | 125 (if (setq r (catch 'found |
126 (while element | |
80 | 127 (setq x (car element) |
128 val (cdr x)) | |
129 (if (symbolp val) (setq val (symbol-value val))) | |
130 (and (or (null type) | |
78 | 131 (eq type (car x))) |
80 | 132 (YaTeX-member macro val) |
78 | 133 (throw 'found (car x))) ;car x is type |
134 (setq element (cdr element))))) | |
135 (setq pkglist (cons (cons pkg r) pkglist))) | |
136 (setq list (cdr list))) | |
137 pkglist)) | |
138 | |
303
13a62b7c8354
(yatexpkg)Add default option for package completion.
HIROSE Yuuji <yuuji@gentei.org>
parents:
294
diff
changeset
|
139 (defun YaTeX-package-option-lookup (pkg &optional key) |
80 | 140 "Look up options for specified pkg and returne them in alist form. |
303
13a62b7c8354
(yatexpkg)Add default option for package completion.
HIROSE Yuuji <yuuji@gentei.org>
parents:
294
diff
changeset
|
141 Just only associng against the alist of YaTeX-package-alist-*" |
13a62b7c8354
(yatexpkg)Add default option for package completion.
HIROSE Yuuji <yuuji@gentei.org>
parents:
294
diff
changeset
|
142 (let*((list (append YaTeX-package-alist-private YaTeX-package-alist-default)) |
13a62b7c8354
(yatexpkg)Add default option for package completion.
HIROSE Yuuji <yuuji@gentei.org>
parents:
294
diff
changeset
|
143 (l (cdr (assq (or key 'option) (assoc pkg list)))) |
13a62b7c8354
(yatexpkg)Add default option for package completion.
HIROSE Yuuji <yuuji@gentei.org>
parents:
294
diff
changeset
|
144 (recur (cdr (assq 'same-as (assoc pkg list))))) |
13a62b7c8354
(yatexpkg)Add default option for package completion.
HIROSE Yuuji <yuuji@gentei.org>
parents:
294
diff
changeset
|
145 (cond |
13a62b7c8354
(yatexpkg)Add default option for package completion.
HIROSE Yuuji <yuuji@gentei.org>
parents:
294
diff
changeset
|
146 (recur (YaTeX-package-option-lookup recur key)) |
13a62b7c8354
(yatexpkg)Add default option for package completion.
HIROSE Yuuji <yuuji@gentei.org>
parents:
294
diff
changeset
|
147 ((symbolp l) (symbol-value l)) |
13a62b7c8354
(yatexpkg)Add default option for package completion.
HIROSE Yuuji <yuuji@gentei.org>
parents:
294
diff
changeset
|
148 (t l)))) |
80 | 149 |
78 | 150 (defvar YaTeX-package-resolved-list nil |
151 "List of macros whose package is confirmed to be loaded.") | |
152 | |
356
af0bd0f86b27
Now YaTeX-package-auto-usepackage can insert aline full-automaticaly
HIROSE Yuuji <yuuji@gentei.org>
parents:
353
diff
changeset
|
153 (defun YaTeX-package-auto-usepackage (macro type &optional autopkg autoopt) |
78 | 154 "(Semi)Automatically add the \\usepackage line to main-file. |
356
af0bd0f86b27
Now YaTeX-package-auto-usepackage can insert aline full-automaticaly
HIROSE Yuuji <yuuji@gentei.org>
parents:
353
diff
changeset
|
155 Search the usepackage for MACRO of the TYPE. |
af0bd0f86b27
Now YaTeX-package-auto-usepackage can insert aline full-automaticaly
HIROSE Yuuji <yuuji@gentei.org>
parents:
353
diff
changeset
|
156 Optional second and third argument AUTOPKG, AUTOOPT are selected |
af0bd0f86b27
Now YaTeX-package-auto-usepackage can insert aline full-automaticaly
HIROSE Yuuji <yuuji@gentei.org>
parents:
353
diff
changeset
|
157 without query. Thus those two argument (Full)automatically add |
af0bd0f86b27
Now YaTeX-package-auto-usepackage can insert aline full-automaticaly
HIROSE Yuuji <yuuji@gentei.org>
parents:
353
diff
changeset
|
158 a \\usepackage line." |
78 | 159 (let ((cb (current-buffer)) |
160 (wc (current-window-configuration)) | |
161 (usepackage (concat YaTeX-ec "usepackage")) | |
80 | 162 (pkglist (YaTeX-package-lookup macro type)) |
78 | 163 (usepkgrx (concat |
164 YaTeX-ec-regexp | |
572
714f3527b4a1
Add add-in for tabularx environment
HIROSE Yuuji <yuuji@gentei.org>
parents:
565
diff
changeset
|
165 "\\(usepackage\\|include\\|documentclass\\)\\b")) |
353
2a72779d9c50
Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents:
346
diff
changeset
|
166 (register (function |
2a72779d9c50
Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents:
346
diff
changeset
|
167 (lambda () (set-buffer cb) |
78 | 168 (set (make-local-variable 'YaTeX-package-resolved-list) |
353
2a72779d9c50
Rewrite lambda notations to suppress annoying warnings from emacs24
HIROSE Yuuji <yuuji@gentei.org>
parents:
346
diff
changeset
|
169 (cons macro YaTeX-package-resolved-list))))) |
78 | 170 (begdoc (concat YaTeX-ec "begin{document}")) |
80 | 171 pb pkg optlist (option "") mb0 uspkgargs) |
78 | 172 (if (or (YaTeX-member macro YaTeX-package-resolved-list) |
173 (null pkglist)) | |
174 nil ;nothing to do | |
175 ;; Search `usepackage' into main-file | |
176 (YaTeX-visit-main t) ;set buffer to parent file | |
177 (setq pb (current-buffer)) | |
178 (save-excursion | |
179 (save-restriction | |
180 (if (catch 'found | |
181 (goto-char (point-min)) | |
182 (YaTeX-search-active-forward ;if search fails, goto eob | |
183 begdoc YaTeX-comment-prefix nil 1) | |
572
714f3527b4a1
Add add-in for tabularx environment
HIROSE Yuuji <yuuji@gentei.org>
parents:
565
diff
changeset
|
184 (while (re-search-backward usepkgrx nil t) |
714f3527b4a1
Add add-in for tabularx environment
HIROSE Yuuji <yuuji@gentei.org>
parents:
565
diff
changeset
|
185 ;;allow commented out \usepackages |
78 | 186 (setq mb0 (match-beginning 0)) |
187 (skip-chars-forward "^{") | |
80 | 188 (setq uspkgargs (YaTeX-buffer-substring |
189 (point) | |
190 (progn | |
191 ;;(forward-list 1) is more precise, | |
192 ;; but higher risk. | |
193 (skip-chars-forward "^}\n")(point)))) | |
78 | 194 (let ((pl pkglist)) |
195 (while pl ;(car pl)'s car is package, cdr is type | |
80 | 196 (if (string-match |
197 (concat "[{,]\\s *" | |
198 (regexp-quote (car (car pl))) | |
199 "\\>") | |
200 uspkgargs) | |
78 | 201 (throw 'found t)) |
202 (setq pl (cdr pl))) | |
203 (goto-char mb0)))) | |
204 ;;corresponding \usepackage found | |
205 (funcall register) | |
206 ;; not found, insert it. | |
356
af0bd0f86b27
Now YaTeX-package-auto-usepackage can insert aline full-automaticaly
HIROSE Yuuji <yuuji@gentei.org>
parents:
353
diff
changeset
|
207 (if (or |
af0bd0f86b27
Now YaTeX-package-auto-usepackage can insert aline full-automaticaly
HIROSE Yuuji <yuuji@gentei.org>
parents:
353
diff
changeset
|
208 autopkg |
af0bd0f86b27
Now YaTeX-package-auto-usepackage can insert aline full-automaticaly
HIROSE Yuuji <yuuji@gentei.org>
parents:
353
diff
changeset
|
209 (y-or-n-p |
af0bd0f86b27
Now YaTeX-package-auto-usepackage can insert aline full-automaticaly
HIROSE Yuuji <yuuji@gentei.org>
parents:
353
diff
changeset
|
210 (format "`%s' requires package. Put \\usepackage now?" |
af0bd0f86b27
Now YaTeX-package-auto-usepackage can insert aline full-automaticaly
HIROSE Yuuji <yuuji@gentei.org>
parents:
353
diff
changeset
|
211 macro))) |
78 | 212 (progn |
80 | 213 (require 'yatexadd) |
78 | 214 (setq pkg |
356
af0bd0f86b27
Now YaTeX-package-auto-usepackage can insert aline full-automaticaly
HIROSE Yuuji <yuuji@gentei.org>
parents:
353
diff
changeset
|
215 (or autopkg |
af0bd0f86b27
Now YaTeX-package-auto-usepackage can insert aline full-automaticaly
HIROSE Yuuji <yuuji@gentei.org>
parents:
353
diff
changeset
|
216 (completing-read |
af0bd0f86b27
Now YaTeX-package-auto-usepackage can insert aline full-automaticaly
HIROSE Yuuji <yuuji@gentei.org>
parents:
353
diff
changeset
|
217 "Load which package?(TAB for list): " |
af0bd0f86b27
Now YaTeX-package-auto-usepackage can insert aline full-automaticaly
HIROSE Yuuji <yuuji@gentei.org>
parents:
353
diff
changeset
|
218 pkglist nil nil |
af0bd0f86b27
Now YaTeX-package-auto-usepackage can insert aline full-automaticaly
HIROSE Yuuji <yuuji@gentei.org>
parents:
353
diff
changeset
|
219 ;;initial input |
af0bd0f86b27
Now YaTeX-package-auto-usepackage can insert aline full-automaticaly
HIROSE Yuuji <yuuji@gentei.org>
parents:
353
diff
changeset
|
220 (if (= (length pkglist) 1) |
af0bd0f86b27
Now YaTeX-package-auto-usepackage can insert aline full-automaticaly
HIROSE Yuuji <yuuji@gentei.org>
parents:
353
diff
changeset
|
221 (let ((w (car (car pkglist)))) |
af0bd0f86b27
Now YaTeX-package-auto-usepackage can insert aline full-automaticaly
HIROSE Yuuji <yuuji@gentei.org>
parents:
353
diff
changeset
|
222 (if YaTeX-emacs-19 (cons w 0) w))))) |
80 | 223 optlist |
224 (YaTeX-package-option-lookup pkg)) | |
225 (if optlist | |
226 (let ((minibuffer-completion-table optlist) | |
303
13a62b7c8354
(yatexpkg)Add default option for package completion.
HIROSE Yuuji <yuuji@gentei.org>
parents:
294
diff
changeset
|
227 (delim ",") (w (car (car optlist))) |
13a62b7c8354
(yatexpkg)Add default option for package completion.
HIROSE Yuuji <yuuji@gentei.org>
parents:
294
diff
changeset
|
228 (dflt (YaTeX-package-option-lookup |
13a62b7c8354
(yatexpkg)Add default option for package completion.
HIROSE Yuuji <yuuji@gentei.org>
parents:
294
diff
changeset
|
229 pkg 'default-option))) |
80 | 230 (setq option |
356
af0bd0f86b27
Now YaTeX-package-auto-usepackage can insert aline full-automaticaly
HIROSE Yuuji <yuuji@gentei.org>
parents:
353
diff
changeset
|
231 (or |
af0bd0f86b27
Now YaTeX-package-auto-usepackage can insert aline full-automaticaly
HIROSE Yuuji <yuuji@gentei.org>
parents:
353
diff
changeset
|
232 autoopt |
af0bd0f86b27
Now YaTeX-package-auto-usepackage can insert aline full-automaticaly
HIROSE Yuuji <yuuji@gentei.org>
parents:
353
diff
changeset
|
233 (read-from-minibuffer |
af0bd0f86b27
Now YaTeX-package-auto-usepackage can insert aline full-automaticaly
HIROSE Yuuji <yuuji@gentei.org>
parents:
353
diff
changeset
|
234 (format "Any option for {%s}?: " pkg) |
af0bd0f86b27
Now YaTeX-package-auto-usepackage can insert aline full-automaticaly
HIROSE Yuuji <yuuji@gentei.org>
parents:
353
diff
changeset
|
235 (let ((v (or dflt |
af0bd0f86b27
Now YaTeX-package-auto-usepackage can insert aline full-automaticaly
HIROSE Yuuji <yuuji@gentei.org>
parents:
353
diff
changeset
|
236 (and (= (length optlist) 1) w)))) |
af0bd0f86b27
Now YaTeX-package-auto-usepackage can insert aline full-automaticaly
HIROSE Yuuji <yuuji@gentei.org>
parents:
353
diff
changeset
|
237 (and v (if YaTeX-emacs-19 (cons v 0) v))) |
af0bd0f86b27
Now YaTeX-package-auto-usepackage can insert aline full-automaticaly
HIROSE Yuuji <yuuji@gentei.org>
parents:
353
diff
changeset
|
238 YaTeX-minibuffer-completion-map)) |
80 | 239 option (if (string< "" option) |
240 (concat "[" option "]") | |
241 "")))) | |
78 | 242 (set-buffer pb) |
243 (goto-char (point-min)) | |
244 (if (YaTeX-re-search-active-forward | |
245 (concat YaTeX-ec-regexp | |
246 "document\\(style\\|class\\){") | |
247 YaTeX-comment-prefix nil t) | |
248 (forward-line 1)) | |
249 (if (YaTeX-search-active-forward | |
250 begdoc YaTeX-comment-prefix nil t) | |
251 (goto-char (match-beginning 0))) | |
252 (insert | |
253 usepackage | |
80 | 254 (format "%s{%s}\t%% required for `\\%s' (yatex added)\n" |
255 option pkg macro)) | |
78 | 256 (funcall register)) |
120
8772bd5d1f02
Do not ask again when user answer n to usepackage addition.
yuuji@gentei.org
parents:
80
diff
changeset
|
257 (funcall register) |
78 | 258 (message "Don't forget to put \\usepackage{%s} yourself later" |
259 (car (car pkglist)))) ;doing car car is negligence... | |
565
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
260 )))))) |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
261 |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
262 (defvar YaTeX::usepackage-alist-private nil |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
263 "*Private completion list of the argument for usepackage") |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
264 |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
265 (defvar YaTeX::usepackage-alist-local nil |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
266 "Directory local completion list of the argument for usepackage") |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
267 |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
268 (defun YaTeX::usepackage (&optional argp) |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
269 (cond |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
270 ((equal argp 1) |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
271 (setq YaTeX-env-name "document") |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
272 (let ((minibuffer-local-completion-map YaTeX-minibuffer-completion-map) |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
273 (delim ",")) |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
274 (YaTeX-cplread-with-learning |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
275 (if YaTeX-japan "Use package(カンマで区切ってOK): " |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
276 "Use package(delimitable by comma): ") |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
277 ;; 'YaTeX::usepackage-alist-default ;; OBSOLETED at 1.82 |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
278 'YaTeX-package-alist-default |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
279 'YaTeX::usepackage-alist-private |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
280 'YaTeX::usepackage-alist-local))))) |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
281 |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
282 |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
283 ;;; |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
284 ;; Add-ins for auxiliary package handled here |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
285 ;;; |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
286 (defun YaTeX:floatingfigure () |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
287 (concat (YaTeX:read-position "rlpv") |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
288 (YaTeX:read-length "Width: "))) |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
289 |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
290 (defvar YaTeX:geometry-default "margin=1.5cm,includeheadfoot,includemp" |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
291 "*Default options for \\geometry{}") |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
292 (defun YaTeX::geometry (argp) |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
293 "Add-in for \\geometry's option" |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
294 ;; cf. https://dayinthelife.at.webry.info/201401/article_2.html |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
295 (cond |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
296 ((= argp 1) |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
297 (YaTeX-help "geometry") |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
298 (message "Change default by setting YaTeX:geometry-default") |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
299 (if (string= YaTeX:geometry-default "") "" |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
300 YaTeX:geometry-default)))) |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
301 |
6c09561c22f0
Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default
HIROSE Yuuji <yuuji@gentei.org>
parents:
564
diff
changeset
|
302 (provide 'yatexpkg) |