/[auctex]/auctex/style/beamer.el
ViewVC logotype

Diff of /auctex/style/beamer.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by angeli, Fri Mar 11 11:58:29 2005 UTC revision 1.9 by rsteib, Tue Apr 12 14:05:27 2005 UTC
# Line 68  Line 68 
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
# Line 192  also be a string.  Then the length of th Line 197  also be a string.  Then the length of th
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))

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26