;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require tex latex] 2) #@21 prosper.el version. (defconst LaTeX-prosper-version "2008-05-25" (#$ . 150)) #@48 List of transition styles provided by prosper. (defconst LaTeX-prosper-transition-styles '("Split" "Blinds" "Box" "Wipe" "Dissolve" "Glitter" "Replace") (#$ . 233)) (defconst LaTeX-prosper-slide-styles '("alienglow" "autumn" "azure" "contemporain" "darkblue" "default" "frames" "lignesbleues" "nuancegris" "troispoints" "alcatel" "gyom" "pascal" "rico")) #@17 (fn OPTIONAL) (defalias 'LaTeX-prosper-insert-title #[257 "\300 \210\301\302\303\"\210\304\305!\210\306\307!\207" [newline mapc #[257 "\300!\210\301 \207" [TeX-insert-macro newline] 3 "\n\n(fn F)"] ("title" "subtitle" "author" "email" "institution" "slideCaption" "Logo" "DefaultTransition") LaTeX-insert-environment "document" TeX-insert-macro "maketitle"] 4 (#$ . 594)]) #@20 (fn ENVIRONMENT) (defalias 'LaTeX-prosper-arg-pdftransition #[257 "\302\300!\203 @\202\f\303\304\305\306\307\310\311\"\312#\313\314 \"\307\312\307\300&\307\"\207" [LaTeX-prosper-transition-history LaTeX-prosper-transition-styles boundp "Replace" TeX-argument-insert completing-read TeX-argument-prompt nil format "Transition (Default %s) " t mapcar list] 11 (#$ . 976)]) (defalias 'LaTeX-prosper-slide-style-prompt #[0 "\301\302\303\211\211\211\304&\207" [LaTeX-prosper-slide-styles completing-read "Slide Style?" nil "default"] 8]) #@20 (fn ENVIRONMENT) (defalias 'LaTeX-prosper-insert-options #[257 "\300c\210\301 \302\261\210\303\304\305\"\210\306\307!\210\310c\207" ["[" LaTeX-prosper-slide-style-prompt " " mapc #[257 "\300@!\205 \211A@\301\261\207" [y-or-n-p " "] 3 "\n\n(fn F)"] (("Draft?" "draft") ("Color Slides?" "slideColor") ("Disable running total on each slide?" "nototal") ("Is the final version going to be PDF?" "pdf") ("Are you going to use Adobe Distiller" "distiller")) delete-char -1 "]"] 4 (#$ . 1527)]) #@20 (fn ENVIRONMENT) (defalias 'LaTeX-prosper-insert-slide #[257 "\302\303!\203\304\305!\210\306\307\310\311#\203`Tb\210\312c\210\313\314!\315\316 Q\"\207" [TeX-grop TeX-grcl y-or-n-p "Surround with overlay? " TeX-insert-macro "overlays" search-backward "{" 0 t "%\n" TeX-read-string "Title: " LaTeX-insert-environment "slide"] 7 (#$ . 2027)]) (TeX-add-style-hook "prosper" #[0 "\300\301\302\303#\210\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337\340\341\342\343&\207" [LaTeX-add-environments ("slide" LaTeX-prosper-insert-slide) ("itemstep" LaTeX-env-item) ("Itemize" LaTeX-env-item) TeX-add-symbols ("documentclass" LaTeX-prosper-insert-options LaTeX-prosper-insert-title) ("title" "Title of the presentation") ("subtitle" "Subtitle of the presentation") ("author" "Author name") ("email" "Author email") ("institution" "Author institution") ("slideCaption" "Caption for slide") ("Logo" "Logo") ("displayVersion" TeX-arg-free) ("DefaultTransition" LaTeX-prosper-arg-pdftransition) ("NoFrenchBabelItemize" TeX-arg-free) ("part" LaTeX-prosper-arg-part) ("overlays" "Number of overlays" t) ("FontTitle" "Color slides" "Black & White Slides") ("FontText" "Color slides" "Black & White Slides") ("fontTitle" "Text") ("fontText" "Text") ("ColorFoot" "Color") ("PDFtransition" LaTeX-prosper-arg-pdftransition) ("myitem" "Level" "Definition") ("fromSlide" "Number" t) ("fromSlide*" "Number" t) ("onlySlide" "Number" t) ("onlySlide*" "Number" t) ("OnlySlide" "Number") ("UntilSlide" "Number") ("untilSlide*" "Number") ("PDForPS" TeX-arg-conditional) ("onlyInPS" t) ("onlyInPDF" t) ("FromSlide" "Number")] 32] TeX-dialect)