rev |
line source |
yuuji@78
|
1 ;;; -*- Emacs-Lisp -*-
|
yuuji@78
|
2 ;;; YaTeX package manager
|
yuuji@78
|
3 ;;; yatexpkg.el
|
yuuji@80
|
4 ;;; (c)2003-2006 by HIROSE, Yuuji [yuuji@yatex.org]
|
yuuji@80
|
5 ;;; Last modified Sun Dec 24 15:13:29 2006 on firestorm
|
yuuji@78
|
6 ;;; $Id$
|
yuuji@78
|
7
|
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@79
|
12 '(("version" (env "comment") ;by tsuchiya@pine.kuee.kyoto-u.ac.jp
|
yuuji@79
|
13 (section "includeversion" "excludeversion"))
|
yuuji@78
|
14
|
yuuji@78
|
15 ("plext" (section "bou")) ;by yas.axis@ma.mni.ne.jp
|
yuuji@78
|
16
|
yuuji@78
|
17 ("url" (section "url")) ;by fujieda@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@78
|
26 ("bm" (section "bm")) ;by aoyama@le.chiba-u.ac.jp
|
yuuji@78
|
27
|
yuuji@78
|
28 ("alltt" (env "alltt"))
|
yuuji@78
|
29 ("misc" (section "verbfile" "listing"))
|
yuuji@80
|
30 ("eclbkbox" (env "breakbox"))
|
yuuji@80
|
31 ("supertabular" (env "supertabular"))
|
yuuji@80
|
32 ("amsmath" (env . YaTeX-package-ams-envs)
|
yuuji@80
|
33 (section "tag" "tag*"))
|
yuuji@80
|
34 ("graphicx" (section "includegraphics"
|
yuuji@80
|
35 "rotatebox" "scalebox" "resizebox" "reflectbox")
|
yuuji@80
|
36 (option . YaTeX-package-graphics-driver-alist))
|
yuuji@80
|
37 ("color" (section "textcolor" "colorbox" "pagecolor" "color")
|
yuuji@80
|
38 (option . YaTeX-package-graphics-driver-alist))
|
yuuji@80
|
39 ("ulem" (section "uline" "uuline" "uwave")
|
yuuji@80
|
40 (option ("normalem")))
|
yuuji@80
|
41 ("multicol" (env "multicols")))
|
yuuji@79
|
42 "Default package vs. macro list.
|
yuuji@79
|
43 Alists contains '(PACKAGENAME . MACROLIST)
|
yuuji@79
|
44 PACKAGENAME Basename of package(String).
|
yuuji@79
|
45 MACROLIST List of '(TYPE . MACROS)
|
yuuji@79
|
46 TYPE One of 'env, 'section or 'maketitle according to completion-type
|
yuuji@79
|
47 MACROS List of macros
|
yuuji@79
|
48
|
yuuji@80
|
49 If TYPE is 'option, its cdr is alist of completion candidates for that
|
yuuji@80
|
50 package. Its cdr can be a symbol whose value is alist.
|
yuuji@80
|
51
|
yuuji@79
|
52 An good example is the value of YaTeX-package-alist-default.")
|
yuuji@78
|
53
|
yuuji@80
|
54 (defvar YaTeX-package-graphics-driver-alist
|
yuuji@80
|
55 '(("dvips") ("xdvi") ("dvipdf") ("pdftex") ("dvipsone") ("dviwindo")
|
yuuji@80
|
56 ("emtex") ("dviwin") ("oztex") ("textures") ("pctexps") ("pctexwin")
|
yuuji@80
|
57 ("pctexhp") ("pctex32") ("truetex") ("tcidvi") ("vtex"))
|
yuuji@80
|
58 "Drivers alist of graphics/color stylefile's supporting deveces.
|
yuuji@80
|
59 This list is taken from
|
yuuji@80
|
60 %% graphics.dtx Copyright (C) 1994 David Carlisle Sebastian Rahtz
|
yuuji@80
|
61 %% Copyright (C) 1995 1996 1997 1998 David Carlisle
|
yuuji@80
|
62 as of 2004/1/19. Thanks.")
|
yuuji@80
|
63
|
yuuji@78
|
64 (defvar YaTeX-package-alist-private nil
|
yuuji@78
|
65 "*User defined package vs. macro list. See also YaTeX-package-alist-default")
|
yuuji@78
|
66
|
yuuji@78
|
67 (defun YaTeX-package-lookup (macro &optional type)
|
yuuji@78
|
68 "Look up a package which contains a definition of MACRO.
|
yuuji@78
|
69 Optional second argument TYPE limits the macro type.
|
yuuji@78
|
70 TYPE is a symbol, one of 'env, 'section, 'maketitle."
|
yuuji@78
|
71 (let ((list (append YaTeX-package-alist-private YaTeX-package-alist-default))
|
yuuji@80
|
72 element x val pkg pkglist r)
|
yuuji@78
|
73 (while list
|
yuuji@78
|
74 (setq element (car list)
|
yuuji@78
|
75 pkg (car element)
|
yuuji@78
|
76 element (cdr element))
|
yuuji@78
|
77 (if (setq r (catch 'found
|
yuuji@78
|
78 (while element
|
yuuji@80
|
79 (setq x (car element)
|
yuuji@80
|
80 val (cdr x))
|
yuuji@80
|
81 (if (symbolp val) (setq val (symbol-value val)))
|
yuuji@80
|
82 (and (or (null type)
|
yuuji@78
|
83 (eq type (car x)))
|
yuuji@80
|
84 (YaTeX-member macro val)
|
yuuji@78
|
85 (throw 'found (car x))) ;car x is type
|
yuuji@78
|
86 (setq element (cdr element)))))
|
yuuji@78
|
87 (setq pkglist (cons (cons pkg r) pkglist)))
|
yuuji@78
|
88 (setq list (cdr list)))
|
yuuji@78
|
89 pkglist))
|
yuuji@78
|
90
|
yuuji@80
|
91 (defun YaTeX-package-option-lookup (pkg)
|
yuuji@80
|
92 "Look up options for specified pkg and returne them in alist form.
|
yuuji@80
|
93 Just only accocing against the alist of YaTeX-package-alist-*"
|
yuuji@80
|
94 (let ((l (cdr (assq 'option
|
yuuji@80
|
95 (assoc pkg (append YaTeX-package-alist-private
|
yuuji@80
|
96 YaTeX-package-alist-default))))))
|
yuuji@80
|
97 (if (symbolp l) (symbol-value l) l)))
|
yuuji@80
|
98
|
yuuji@78
|
99 (defvar YaTeX-package-resolved-list nil
|
yuuji@78
|
100 "List of macros whose package is confirmed to be loaded.")
|
yuuji@78
|
101
|
yuuji@78
|
102 (defun YaTeX-package-auto-usepackage (macro type)
|
yuuji@78
|
103 "(Semi)Automatically add the \\usepackage line to main-file.
|
yuuji@78
|
104 Search the usepackage for MACRO of the TYPE."
|
yuuji@78
|
105 (let ((cb (current-buffer))
|
yuuji@78
|
106 (wc (current-window-configuration))
|
yuuji@78
|
107 (usepackage (concat YaTeX-ec "usepackage"))
|
yuuji@80
|
108 (pkglist (YaTeX-package-lookup macro type))
|
yuuji@78
|
109 (usepkgrx (concat
|
yuuji@78
|
110 YaTeX-ec-regexp
|
yuuji@78
|
111 "\\(usepackage\\|include\\)\\b"))
|
yuuji@78
|
112 (register '(lambda () (set-buffer cb)
|
yuuji@78
|
113 (set (make-local-variable 'YaTeX-package-resolved-list)
|
yuuji@78
|
114 (cons macro YaTeX-package-resolved-list))))
|
yuuji@78
|
115 (begdoc (concat YaTeX-ec "begin{document}"))
|
yuuji@80
|
116 pb pkg optlist (option "") mb0 uspkgargs)
|
yuuji@78
|
117 (if (or (YaTeX-member macro YaTeX-package-resolved-list)
|
yuuji@78
|
118 (null pkglist))
|
yuuji@78
|
119 nil ;nothing to do
|
yuuji@78
|
120 ;; Search `usepackage' into main-file
|
yuuji@78
|
121 (YaTeX-visit-main t) ;set buffer to parent file
|
yuuji@78
|
122 (setq pb (current-buffer))
|
yuuji@78
|
123 (save-excursion
|
yuuji@78
|
124 (save-restriction
|
yuuji@78
|
125 (if (catch 'found
|
yuuji@78
|
126 (goto-char (point-min))
|
yuuji@78
|
127 (YaTeX-search-active-forward ;if search fails, goto eob
|
yuuji@78
|
128 begdoc YaTeX-comment-prefix nil 1)
|
yuuji@80
|
129 (while ;(YaTeX-re-search-active-backward
|
yuuji@80
|
130 ;usepkgrx YaTeX-comment-prefix nil t)
|
yuuji@80
|
131 ;;allow commented out \usepackages 2004/3/16
|
yuuji@80
|
132 (re-search-backward usepkgrx nil t)
|
yuuji@78
|
133 (setq mb0 (match-beginning 0))
|
yuuji@78
|
134 (skip-chars-forward "^{")
|
yuuji@80
|
135 (setq uspkgargs (YaTeX-buffer-substring
|
yuuji@80
|
136 (point)
|
yuuji@80
|
137 (progn
|
yuuji@80
|
138 ;;(forward-list 1) is more precise,
|
yuuji@80
|
139 ;; but higher risk.
|
yuuji@80
|
140 (skip-chars-forward "^}\n")(point))))
|
yuuji@78
|
141 (let ((pl pkglist))
|
yuuji@78
|
142 (while pl ;(car pl)'s car is package, cdr is type
|
yuuji@80
|
143 (if (string-match
|
yuuji@80
|
144 (concat "[{,]\\s *"
|
yuuji@80
|
145 (regexp-quote (car (car pl)))
|
yuuji@80
|
146 "\\>")
|
yuuji@80
|
147 uspkgargs)
|
yuuji@78
|
148 (throw 'found t))
|
yuuji@78
|
149 (setq pl (cdr pl)))
|
yuuji@78
|
150 (goto-char mb0))))
|
yuuji@78
|
151 ;;corresponding \usepackage found
|
yuuji@78
|
152 (funcall register)
|
yuuji@78
|
153 ;; not found, insert it.
|
yuuji@78
|
154 (if (y-or-n-p
|
yuuji@78
|
155 (format "`%s' requires package. Put \\usepackage now?" macro))
|
yuuji@78
|
156 (progn
|
yuuji@80
|
157 (require 'yatexadd)
|
yuuji@78
|
158 (setq pkg
|
yuuji@78
|
159 (completing-read
|
yuuji@78
|
160 "Load which package?(TAB for list): "
|
yuuji@79
|
161 pkglist nil nil
|
yuuji@79
|
162 ;;initial input
|
yuuji@79
|
163 (if (= (length pkglist) 1)
|
yuuji@79
|
164 (let ((w (car (car pkglist))))
|
yuuji@80
|
165 (if YaTeX-emacs-19 (cons w 0) w))))
|
yuuji@80
|
166 optlist
|
yuuji@80
|
167 (YaTeX-package-option-lookup pkg))
|
yuuji@80
|
168 (if optlist
|
yuuji@80
|
169 (let ((minibuffer-completion-table optlist)
|
yuuji@80
|
170 (delim ",") (w (car (car optlist))))
|
yuuji@80
|
171 (setq option
|
yuuji@80
|
172 (read-from-minibuffer
|
yuuji@80
|
173 (format "Any option for {%s}?: " pkg)
|
yuuji@80
|
174 (if (= (length optlist) 1)
|
yuuji@80
|
175 (if YaTeX-emacs-19 (cons w 0) w))
|
yuuji@80
|
176 YaTeX-minibuffer-completion-map)
|
yuuji@80
|
177 option (if (string< "" option)
|
yuuji@80
|
178 (concat "[" option "]")
|
yuuji@80
|
179 ""))))
|
yuuji@78
|
180 (set-buffer pb)
|
yuuji@78
|
181 (goto-char (point-min))
|
yuuji@78
|
182 (if (YaTeX-re-search-active-forward
|
yuuji@78
|
183 (concat YaTeX-ec-regexp
|
yuuji@78
|
184 "document\\(style\\|class\\){")
|
yuuji@78
|
185 YaTeX-comment-prefix nil t)
|
yuuji@78
|
186 (forward-line 1))
|
yuuji@78
|
187 (if (YaTeX-search-active-forward
|
yuuji@78
|
188 begdoc YaTeX-comment-prefix nil t)
|
yuuji@78
|
189 (goto-char (match-beginning 0)))
|
yuuji@78
|
190 (insert
|
yuuji@78
|
191 usepackage
|
yuuji@80
|
192 (format "%s{%s}\t%% required for `\\%s' (yatex added)\n"
|
yuuji@80
|
193 option pkg macro))
|
yuuji@78
|
194 (funcall register))
|
yuuji@120
|
195 (funcall register)
|
yuuji@78
|
196 (message "Don't forget to put \\usepackage{%s} yourself later"
|
yuuji@78
|
197 (car (car pkglist)))) ;doing car car is negligence...
|
yuuji@78
|
198 ))))))
|