68 |
'("titlegraphic" 1) |
'("titlegraphic" 1) |
69 |
'("uncover" TeX-arg-beamer-overlay-spec 1) |
'("uncover" TeX-arg-beamer-overlay-spec 1) |
70 |
'("usetheme" LaTeX-arg-beamer-theme) |
'("usetheme" LaTeX-arg-beamer-theme) |
71 |
|
'("useinnertheme" LaTeX-arg-beamer-inner-theme) |
72 |
|
'("useoutertheme" LaTeX-arg-beamer-outer-theme) |
73 |
|
'("usecolortheme" LaTeX-arg-beamer-color-theme) |
74 |
|
'("usefonttheme" LaTeX-arg-beamer-font-theme) |
75 |
|
'("usetheme" LaTeX-arg-beamer-theme) |
76 |
'("visible" TeX-arg-beamer-overlay-spec 1)) |
'("visible" TeX-arg-beamer-overlay-spec 1)) |
77 |
|
|
78 |
(LaTeX-add-environments |
(LaTeX-add-environments |
197 |
nil nil nil) |
nil nil nil) |
198 |
t)) |
t)) |
199 |
|
|
200 |
|
(defun LaTeX-arg-beamer-inner-theme (&rest ignore) |
201 |
|
"Prompt for beamer inner theme with completion." |
202 |
|
(TeX-argument-insert |
203 |
|
(completing-read |
204 |
|
(TeX-argument-prompt nil nil "Theme") |
205 |
|
(mapcar 'list |
206 |
|
(cond ((eq LaTeX-beamer-inner-themes 'local) |
207 |
|
(set (make-local-variable 'LaTeX-beamer-inner-themes) |
208 |
|
(LaTeX-beamer-search-themes "^beamerinnertheme"))) |
209 |
|
((functionp LaTeX-beamer-inner-themes) |
210 |
|
(funcall LaTeX-beamer-inner-themes)) |
211 |
|
((listp LaTeX-beamer-inner-themes) |
212 |
|
LaTeX-beamer-inner-themes) |
213 |
|
(t (error |
214 |
|
"`LaTeX-beamer-inner-themes' should be a list: `%s'" |
215 |
|
LaTeX-beamer-inner-themes)))) |
216 |
|
nil nil nil) |
217 |
|
t)) |
218 |
|
|
219 |
|
(defun LaTeX-arg-beamer-outer-theme (&rest ignore) |
220 |
|
"Prompt for beamer outer theme with completion." |
221 |
|
(TeX-argument-insert |
222 |
|
(completing-read |
223 |
|
(TeX-argument-prompt nil nil "Theme") |
224 |
|
(mapcar 'list |
225 |
|
(cond ((eq LaTeX-beamer-outer-themes 'local) |
226 |
|
(set (make-local-variable 'LaTeX-beamer-outer-themes) |
227 |
|
(LaTeX-beamer-search-themes "^beameroutertheme"))) |
228 |
|
((functionp LaTeX-beamer-outer-themes) |
229 |
|
(funcall LaTeX-beamer-outer-themes)) |
230 |
|
((listp LaTeX-beamer-outer-themes) |
231 |
|
LaTeX-beamer-outer-themes) |
232 |
|
(t (error |
233 |
|
"`LaTeX-beamer-outer-themes' should be a list: `%s'" |
234 |
|
LaTeX-beamer-outer-themes)))) |
235 |
|
nil nil nil) |
236 |
|
t)) |
237 |
|
|
238 |
|
(defun LaTeX-arg-beamer-color-theme (&rest ignore) |
239 |
|
"Prompt for beamer color theme with completion." |
240 |
|
(TeX-argument-insert |
241 |
|
(completing-read |
242 |
|
(TeX-argument-prompt nil nil "Theme") |
243 |
|
(mapcar 'list |
244 |
|
(cond ((eq LaTeX-beamer-color-themes 'local) |
245 |
|
(set (make-local-variable 'LaTeX-beamer-color-themes) |
246 |
|
(LaTeX-beamer-search-themes "^beamercolortheme"))) |
247 |
|
((functionp LaTeX-beamer-color-themes) |
248 |
|
(funcall LaTeX-beamer-color-themes)) |
249 |
|
((listp LaTeX-beamer-color-themes) |
250 |
|
LaTeX-beamer-color-themes) |
251 |
|
(t (error |
252 |
|
"`LaTeX-beamer-color-themes' should be a list: `%s'" |
253 |
|
LaTeX-beamer-color-themes)))) |
254 |
|
nil nil nil) |
255 |
|
t)) |
256 |
|
|
257 |
|
(defun LaTeX-arg-beamer-font-theme (&rest ignore) |
258 |
|
"Prompt for beamer font theme with completion." |
259 |
|
(TeX-argument-insert |
260 |
|
(completing-read |
261 |
|
(TeX-argument-prompt nil nil "Theme") |
262 |
|
(mapcar 'list |
263 |
|
(cond ((eq LaTeX-beamer-font-themes 'local) |
264 |
|
(set (make-local-variable 'LaTeX-beamer-font-themes) |
265 |
|
(LaTeX-beamer-search-themes "^beamerfonttheme"))) |
266 |
|
((functionp LaTeX-beamer-font-themes) |
267 |
|
(funcall LaTeX-beamer-font-themes)) |
268 |
|
((listp LaTeX-beamer-font-themes) |
269 |
|
LaTeX-beamer-font-themes) |
270 |
|
(t (error |
271 |
|
"`LaTeX-beamer-font-themes' should be a list: `%s'" |
272 |
|
LaTeX-beamer-font-themes)))) |
273 |
|
nil nil nil) |
274 |
|
t)) |