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