| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\301\302!\210\301\303!\210\304\305\"\204 \306\300\307\"\210\310\311\312\313\314\315\316\317\320\321& \210\322\323\324\325\326DD\327\316\311\330\331&\210\322\332\324\325\333DD\334\316\311\330\335&\210\322\336\324\325\337DD\340\316\311\320\341\342\343\330\344& \210\322\345\324\325\346DD\347\316\311\320\341\342\350\330\351& \210\322\352\324\325\353DD\354\316\311\320\341\342\355\330\356& \210\322\357\324\325\360DD\361\316\311\330\362&\210\322\363\324\325\364DD\365\316\311\330\366&\210\322\367\324\325\370DD\371\316\311\320\372\342\373\330\374& \207" [org-latex-classes require cl-lib ox-latex assoc "beamer" add-to-list ("beamer" "\\documentclass[presentation]{beamer}" ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}")) custom-declare-group org-export-beamer nil "Options specific for using the beamer class in LaTeX export." :tag "Org Beamer" :group org-export :version "24.2" custom-declare-variable org-beamer-frame-level funcall function #[0 "\300\207" [1] 1] "The level at which headlines become frames.\n\nHeadlines at a lower level will be translated into a sectioning\nstructure. At a higher level, they will be translated into\nblocks.\n\nIf a headline with a \"BEAMER_env\" property set to \"frame\" is\nfound within a tree, its level locally overrides this number.\n\nThis variable has no effect on headlines with the \"BEAMER_env\"\nproperty set to either \"ignoreheading\", \"appendix\", or\n\"note\", which will respectively, be invisible, become an\nappendix or a note.\n\nThis integer is relative to the minimal level of a headline\nwithin the parse tree, defined as 1." :type integer org-beamer-frame-default-options #[0 "\300\207" [#1=""] 1 #1#] "Default options string to use for frames.\nFor example, it could be set to \"allowframebreaks\"." (string :tag "[options]") org-beamer-column-view-format #[0 "\300\207" [#2="%45ITEM %10BEAMER_env(Env) %10BEAMER_act(Act) %4BEAMER_col(Col) %8BEAMER_opt(Opt)"] 1 #2#] "Column view format that should be used to fill the template." "24.4" :package-version (Org . "8.0") (choice (const :tag "Do not insert Beamer column view format" nil) (string :tag "Beamer column view format")) org-beamer-theme #[0 "\300\207" [#3="default"] 1 #3#] "Default theme used in Beamer presentations." (Org . "8.0") (choice (const :tag "Do not insert a Beamer theme" nil) (string :tag "Beamer theme")) org-beamer-environments-extra #[0 "\300\207" [nil] 1] "Environments triggered by tags in Beamer export.\nEach entry has 4 elements:\n\nname Name of the environment\nkey Selection key for `org-beamer-select-environment'\nopen The opening template for the environment, with the following escapes\n %a the action/overlay specification\n %A the default action/overlay specification\n %R the raw BEAMER_act value\n %o the options argument, with square brackets\n %O the raw BEAMER_opt value\n %h the headline text\n %r the raw headline text (i.e. without any processing)\n %H if there is headline text, that raw text in {} braces\n %U if there is headline text, that raw text in [] brackets\nclose The closing string of the environment." (Org . "8.1") (repeat (list (string :tag "Environment") (string :tag "Selection key") (string :tag "Begin") (string :tag "End"))) org-beamer-outline-frame-title #[0 "\300\207" [#4="Outline"] 1 #4#] "Default title of a frame containing an outline." (string :tag "Outline frame title") org-beamer-outline-frame-options #[0 "\300\207" [#1#] 1 #1#] "Outline frame options appended after \\begin{frame}.\nYou might want to put e.g. \"allowframebreaks=0.9\" here." (string :tag "Outline frame options") org-beamer-subtitle-format #[0 "\300\207" [#5="\\subtitle{%s}"] 1 #5#] "Format string used for transcoded subtitle.\nThe format string should have at most one \"%s\"-expression,\nwhich is replaced with the subtitle." "26.1" (Org . "8.3") (string :tag "Format string")] 12) | |
| 16 | #@72 The column widths that should be installed as allowed property values. | |
| 17 | (defconst org-beamer-column-widths "0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 0.0 :ETC" (#$ . 4445)) | |
| 18 | #@307 Alist of environments treated in a special way by the back-end. | |
| 19 | Keys are environment names, as strings, values are bindings used | |
| 20 | in `org-beamer-select-environment'. Environments listed here, | |
| 21 | along with their binding, are hard coded and cannot be modified | |
| 22 | through `org-beamer-environments-extra' variable. | |
| 23 | (defconst org-beamer-environments-special '(("againframe" "A") ("appendix" "x") ("column" "c") ("columns" "C") ("frame" "f") ("fullframe" "F") ("ignoreheading" "i") ("note" "n") ("noteNH" "N")) (#$ . 4618)) | |
| 24 | #@140 Environments triggered by properties in Beamer export. | |
| 25 | These are the defaults - for user definitions, see | |
| 26 | `org-beamer-environments-extra'. | |
| 27 | (defconst org-beamer-environments-default '(("block" "b" "\\begin{block}%a{%h}" "\\end{block}") ("alertblock" "a" "\\begin{alertblock}%a{%h}" "\\end{alertblock}") ("verse" "v" "\\begin{verse}%a %% %h" "\\end{verse}") ("quotation" "q" "\\begin{quotation}%a %% %h" "\\end{quotation}") ("quote" "Q" "\\begin{quote}%a %% %h" "\\end{quote}") ("structureenv" "s" "\\begin{structureenv}%a %% %h" "\\end{structureenv}") ("theorem" "t" "\\begin{theorem}%a[%h]" "\\end{theorem}") ("definition" "d" "\\begin{definition}%a[%h]" "\\end{definition}") ("example" "e" "\\begin{example}%a[%h]" "\\end{example}") ("exampleblock" "E" "\\begin{exampleblock}%a{%h}" "\\end{exampleblock}") ("proof" "p" "\\begin{proof}%a[%h]" "\\end{proof}") ("beamercolorbox" "o" "\\begin{beamercolorbox}%o{%h}" "\\end{beamercolorbox}")) (#$ . 5138)) | |
| 28 | #@142 List of element or object types producing verbatim text. | |
| 29 | This is used internally to determine when a frame should have the | |
| 30 | "fragile" option. | |
| 31 | (defconst org-beamer-verbatim-elements '(code example-block fixed-width inline-src-block src-block verbatim) (#$ . 6097)) | |
| 32 | #@281 Return ARGUMENT string with proper boundaries. | |
| 33 | ||
| 34 | TYPE is a symbol among the following: | |
| 35 | `action' Return ARGUMENT within angular brackets. | |
| 36 | `defaction' Return ARGUMENT within both square and angular brackets. | |
| 37 | `option' Return ARGUMENT within square brackets. | |
| 38 | ||
| 39 | (fn ARGUMENT TYPE) | |
| 40 | (defalias 'org-beamer--normalize-argument #[514 "\300\301\"\204 \302\207\211\303\267\2021 \304\305\306\307\310#\"\207\304\311\306\307\310\306\312\313 ##\"\207\304\314\306\312\313#\"\207\315\316\"\207" [string-match "\\S-" "" #s(hash-table size 3 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (action 15 defaction 25 option 39)) format "<%s>" org-unbracket-string "<" ">" "[<%s>]" "[" "]" "[%s]" error "Invalid `type' argument to `org-beamer--normalize-argument': %s"] 11 (#$ . 6367)]) | |
| 41 | #@241 Non-nil when ELEMENT has an overlay specified. | |
| 42 | An element has an overlay specification when it starts with an | |
| 43 | `beamer' export-snippet whose value is between angular brackets. | |
| 44 | Return overlay specification, as a string, or nil. | |
| 45 | ||
| 46 | (fn ELEMENT) | |
| 47 | (defalias 'org-beamer--element-has-overlay-p #[257 "\211\211:\204\n \300\202 \211@9\203 \211AA\202 \211\262@\211\211:\204) \211;\2051 \301\2021 \211@9\2051 \211@\262\302=\205` \303\211;\203G \304\305#\202M \306A@\"\266\202\307\310\"\205^ \311\312\"\205^ \211\262\207" [nil plain-text export-snippet :value get-text-property 0 plist-get string-prefix-p "<" string-suffix-p ">"] 8 (#$ . 7166)]) | |
| 48 | (org-export-define-derived-backend 'beamer 'latex :menu-entry '(108 1 ((66 "As LaTeX buffer (Beamer)" org-beamer-export-as-latex) (98 "As LaTeX file (Beamer)" org-beamer-export-to-latex) (80 "As PDF file (Beamer)" org-beamer-export-to-pdf) (79 "As PDF file and open (Beamer)" (lambda (a s v b) (if a (org-beamer-export-to-pdf t s v b) (org-open-file (org-beamer-export-to-pdf nil s v b))))))) :options-alist '((:headline-levels nil "H" org-beamer-frame-level) (:latex-class "LATEX_CLASS" nil "beamer" t) (:beamer-subtitle-format nil nil org-beamer-subtitle-format) (:beamer-column-view-format "COLUMNS" nil org-beamer-column-view-format) (:beamer-theme "BEAMER_THEME" nil org-beamer-theme) (:beamer-color-theme "BEAMER_COLOR_THEME" nil nil t) (:beamer-font-theme "BEAMER_FONT_THEME" nil nil t) (:beamer-inner-theme "BEAMER_INNER_THEME" nil nil t) (:beamer-outer-theme "BEAMER_OUTER_THEME" nil nil t) (:beamer-header "BEAMER_HEADER" nil nil newline) (:beamer-environments-extra nil nil org-beamer-environments-extra) (:beamer-frame-default-options nil nil org-beamer-frame-default-options) (:beamer-outline-frame-options nil nil org-beamer-outline-frame-options) (:beamer-outline-frame-title nil nil org-beamer-outline-frame-title)) :translate-alist '((bold . org-beamer-bold) (export-block . org-beamer-export-block) (export-snippet . org-beamer-export-snippet) (headline . org-beamer-headline) (item . org-beamer-item) (keyword . org-beamer-keyword) (link . org-beamer-link) (plain-list . org-beamer-plain-list) (radio-target . org-beamer-radio-target) (template . org-beamer-template))) | |
| 49 | #@150 Transcode BLOCK object into Beamer code. | |
| 50 | CONTENTS is the text being bold. INFO is a plist used as | |
| 51 | a communication channel. | |
| 52 | ||
| 53 | (fn BOLD CONTENTS INFO) | |
| 54 | (defalias 'org-beamer-bold #[771 "\300\301\302!\206 \303#\207" [format "\\alert%s{%s}" org-beamer--element-has-overlay-p ""] 7 (#$ . 9408)]) | |
| 55 | #@153 Transcode an EXPORT-BLOCK element into Beamer code. | |
| 56 | CONTENTS is nil. INFO is a plist used as a communication | |
| 57 | channel. | |
| 58 | ||
| 59 | (fn EXPORT-BLOCK CONTENTS INFO) | |
| 60 | (defalias 'org-beamer-export-block #[771 "\300\211;\203 \301\302#\202 \303A@\"\266\202\304\235\2055 \305\306\211;\203, \301\302#\2022 \303A@\"\266\202!\207" [:type get-text-property 0 plist-get ("BEAMER" "LATEX") org-remove-indentation :value] 10 (#$ . 9708)]) | |
| 61 | #@156 Transcode an EXPORT-SNIPPET object into Beamer code. | |
| 62 | CONTENTS is nil. INFO is a plist used as a communication | |
| 63 | channel. | |
| 64 | ||
| 65 | (fn EXPORT-SNIPPET CONTENTS INFO) | |
| 66 | (defalias 'org-beamer-export-snippet #[771 "\300!\301\211;\203 \302\303#\202 \304A@\"\266\202\305=\203$ \211\202: \306=\205: \307\"\2049 \310\311\"?\205: \211\207" [org-export-snippet-backend :value get-text-property 0 plist-get latex beamer org-export-get-previous-element string-match "\\`<.*>\\'"] 10 (#$ . 10140)]) | |
| 67 | #@359 Return label for HEADLINE, as a string. | |
| 68 | ||
| 69 | INFO is a plist used as a communication channel. | |
| 70 | ||
| 71 | The value is either the label specified in "BEAMER_opt" | |
| 72 | property, the custom ID, if there is one and | |
| 73 | `:latex-prefer-user-labels' property has a non nil value, or | |
| 74 | a unique internal label. This function assumes HEADLINE will be | |
| 75 | treated as a frame. | |
| 76 | ||
| 77 | (fn HEADLINE INFO) | |
| 78 | (defalias 'org-beamer--get-label #[514 "\301\211;\203 \302\303#\202 \304A@\"\266\202\211;\205A \305\306\"\205A \307\310\"\311\312\313\305#)\266\203\203> \211\310\314O\202? \211\262\262\206n \304\315\"\203g \316\211;\203\\ \302\303#\202b \304A@\"\266\202\206n \317\320\321\"\"\207" [inhibit-changing-match-data :BEAMER_OPT get-text-property 0 plist-get string-match "\\(?:^\\|,\\)label=\\(.*?\\)\\(?:$\\|,\\)" match-string 1 "\\`{.*}\\'" nil t -1 :latex-prefer-user-labels :CUSTOM_ID format "sec:%s" org-export-get-reference] 11 (#$ . 10634)]) | |
| 79 | #@121 Return frame level in subtree containing HEADLINE. | |
| 80 | INFO is a plist used as a communication channel. | |
| 81 | ||
| 82 | (fn HEADLINE INFO) | |
| 83 | (defalias 'org-beamer--frame-level #[514 "\3002D \301!\237\211\205A \211@\302\211;\203 \303\304#\202# \305A@\"\266\202\211\2039 \306\307\"\2039 \310\300\311\"\"\210\210A\266\202\202 \2620\206\214 \302\211;\203V \303\304#\202\\ \305A@\"\266\202\211\205m \306\312\"\205m \311\"\262\206\214 \313\314\315\316\317\320\321!\322\"\323\324%\325%\206\214 \305\326\"\207" [exit org-element-lineage :BEAMER_ENV get-text-property 0 plist-get member-ignore-case ("frame" "fullframe") throw org-export-get-relative-level ("frame" "fullframe") org-element-map headline make-byte-code 257 "\301\211;\203 \302\303#\202 \304A@\"\266\202\211\205& \305\306\"\205& \307\300\"\207" vconcat vector [:BEAMER_ENV get-text-property 0 plist-get member-ignore-case ("frame" "fullframe") org-export-get-relative-level] 7 "\n\n(fn HL)" first-match :headline-levels] 11 (#$ . 11566)]) | |
| 84 | #@163 Format HEADLINE as a sectioning part. | |
| 85 | CONTENTS holds the contents of the headline. INFO is a plist | |
| 86 | used as a communication channel. | |
| 87 | ||
| 88 | (fn HEADLINE CONTENTS INFO) | |
| 89 | (defalias 'org-beamer--format-section #[771 "\300\301\302\303\304\305\306\307\310\311\312\313!\314\"\315\316%\317\"\262$$\320\211;\203, \321\322#\2022 \323A@\"\266\202\211\203Q \324\325\"\203Q \326\327\330\"\331\332\"P\333\211\330%\202R \207" [org-export-with-backend org-export-create-backend :parent latex :transcoders #[771 "\300\301$\302!\203 \303P\202 \211\207" [org-export-with-backend beamer org-string-nw-p "\\protect"] 8 "\n\n(fn OBJECT CONTENTS INFO)"] mapcar make-byte-code 257 "\211\300B\207" vconcat vector [] 3 "\n\n(fn TYPE)" (bold footnote-reference italic strike-through timestamp underline) :BEAMER_ACT get-text-property 0 plist-get string-match "\\`\\\\\\(.*?\\)\\(?:\\*\\|\\[.*\\]\\)?{" replace-match match-string 1 format "<%s>" nil] 16 (#$ . 12584)]) | |
| 90 | #@153 Format HEADLINE as a frame. | |
| 91 | CONTENTS holds the contents of the headline. INFO is a plist | |
| 92 | used as a communication channel. | |
| 93 | ||
| 94 | (fn HEADLINE CONTENTS INFO) | |
| 95 | (defalias 'org-beamer--format-frame #[771 "\302\303\304%\305\306\211;\203 \307\310#\202 \311A@\"\266\202\211\204' \312\2029 \313\314\"\2035 \315\316\"\2029 \315\317\"\262\320\211;\203K \307\310#\202Q \311A@\"\266\202\321\322\323\324\311 \325\"\326\"\205r \324\313\327\"\205p \330\331\"\326\"\205\203 \313\332\"\206\203 \313\333\"?\205\250 \334\f \"\335\336\337\340\313#)\266\203\203\242 \341\202\243 \342\"\262C#\"\315\343\303\203\270 \344\235\203\274 \202\277 \344B\326#\345\"\266\202\346\211;\203\325 \307\310#\202\333 \311A@\"\266\202\335\347\203\356 \227\350\232\203\356 \312\202\n\351\352 \211;\203\377 \307\310#\202\311A@\"\266\202 \"\"\262\353\204\202!\354\355\356\n\206 \312#\357\260\207" [org-beamer-verbatim-elements inhibit-changing-match-data org-element-map identity first-match "\\begin{frame}" :BEAMER_ACT get-text-property 0 plist-get "" string-match "\\`\\[.*\\]\\'" org-beamer--normalize-argument defaction action :BEAMER_OPT cl-remove-if-not org-string-nw-p append org-split-string :beamer-frame-default-options "," "^\\[?\\(.*\\)\\]?$" match-string 1 "\\(^\\|,\\)label=" "allowframebreaks" org-beamer--get-label format ":" nil t "label={%s}" "label=%s" mapconcat "fragile" option :BEAMER_ENV "{%s}" "fullframe" org-export-data :title "\n" replace-regexp-in-string "\\`\n*" "\\& " "\\end{frame}"] 21 (#$ . 13549)]) | |
| 96 | #@153 Format HEADLINE as a block. | |
| 97 | CONTENTS holds the contents of the headline. INFO is a plist | |
| 98 | used as a communication channel. | |
| 99 | ||
| 100 | (fn HEADLINE CONTENTS INFO) | |
| 101 | (defalias 'org-beamer--format-block #[771 "\301\211;\203 \302\303#\202 \304A@\"\266\202\305\211;\203& \302\303#\202, \304A@\"\266\202\211\204: \204: \306\202C \211\204B \307\202C \211\262\310\211;\203T \302\303#\202Z \304A@\"\266\202\311\235\203f \312\202x \313\314\304\315\"\"\"\206x \316\317\"\320\321\211;\203\211 \302\303#\202\217 \304A@\"\266\202\"\322\211;\203\244 \302\303#\202\252 \304A@\"\266\202\211\203\267 \323\324\"\202\270 \325\305\326 !\211;\203\312 \302\303#\202\320 \304A@\"\266\202\327\232\206\205\211\205\346 \211\227\327\232?\205\330 \n\"\206\301\331\f \"\211;\203\302\303#\202 \304A@\"\266\202?\327\232\206N\205N\205$\227\327\232?\205N\332\f \"\206N\301\333 \f\"\211;\203E\302\303#\202K\304A@\"\266\202?\205a\327\232\204]\334\202a\335\336\"\n\205{\335\337 \307\232\203t\202u\325\335\340\"#\341 8\205\342\341\n8\343\211;\203\227\302\303#\202\235\304A@\"\266\202\211\204\260\344\325B\345\325B\346\325BE\202\333\347\350\"\203\316\351\352\"\203\316\345\323\353\"B\344\325B\346BE\202\333\344\323\354\"B\345\325B\346BE\262\355 B\356 \206\350\325B\357 B\360B\361\325\232\203\375\325\202\335\362\"B\363\325\232\203\325\202\335\364\"B\257\244\"\365P\366 8\205*\366 8\365P\2050\367\2056\370\260\207" [org-beamer-environments-default :BEAMER_COL get-text-property 0 plist-get :BEAMER_ENV "block" "column" :raw-value ("column" "columns") nil assoc append :beamer-environments-extra user-error "Wrong block type at a headline named \"%s\"" org-export-data :title :BEAMER_OPT org-beamer--normalize-argument option "" org-export-get-parent-headline "columns" org-export-first-sibling-p org-export-get-previous-element org-export-last-sibling-p org-export-get-next-element "\\begin{columns}\n" format "\\begin{columns}%s\n" "\\begin{column}%s{%s}\n" "%s\\columnwidth" 2 org-fill-template :BEAMER_ACT "a" "A" "R" string-prefix-p "[" string-suffix-p "]" defaction action "o" "O" "h" "r" "H" "{%s}" "U" "[%s]" "\n" 3 "\\end{column}\n" "\\end{columns}"] 27 (#$ . 15114)]) | |
| 102 | #@167 Transcode HEADLINE element into Beamer code. | |
| 103 | CONTENTS is the contents of the headline. INFO is a plist used | |
| 104 | as a communication channel. | |
| 105 | ||
| 106 | (fn HEADLINE CONTENTS INFO) | |
| 107 | (defalias 'org-beamer-headline #[771 "\300\211;\203 \301\302#\202 \303A@\"\266\202?\205\325\304\"\305\"\306\211;\2032 \301\302#\2028 \303A@\"\266\202\307!\206A \310\262\211\311\232\203\371 \312\211;\203Y \301\302#\202_ \303A@\"\266\202\307!\205\364 \313\314\211;\203x \301\302#\202~ \303A@\"\266\202\211\205\223 \315\316\317\"\203\221 \320\202\222 \321\"\262\322 \211;\203\245 \301\302#\202\253 \303A@\"\266\202\211\205\265 \315\323\"\262\316\324\"\203\317 \325\326\327\302\225\330ODD \"\202\351 \331\326\327\332!\333=\203\340 \202\344 \334PDD \"\335\336\337\f\"\"\262R\262\202\323\211\340\232\203;\341\314\211;\203\301\302#\202\303A@\"\266\202\342\343\344\n\211;\203*\301\302#\2020\303A@\"\266\202\345\"\260\202\323\211\346\232\203a\343\344\211;\203R\301\302#\202X\303A@\"\266\202\345\"P\202\323\211\347\235\203\251\335\350\351\232\205\215\352\353 \211;\203\200\301\302#\202\206\303A@\"\266\202\"\342P\330\354\203\231\355\202\232\356\357\354\360\357##\266\202P\"\202\323U\203\272\361#\202\323W\203\313\362#\202\323\363#\266\203\207" [:footnote-section-p get-text-property 0 plist-get org-export-get-relative-level org-beamer--frame-level :BEAMER_ENV org-string-nw-p "block" "againframe" :BEAMER_REF "\\againframe" :BEAMER_ACT org-beamer--normalize-argument string-match "\\`\\[.*\\]\\'" defaction action :BEAMER_OPT option "\\`\\(id:\\|#\\)" org-export-resolve-id-link link :path nil org-export-resolve-fuzzy-link string-to-char 42 "*" format "{%s}" org-beamer--get-label "appendix" "\\appendix" "\n" make-string :pre-blank 10 "ignoreheading" ("note" "noteNH") "\\note{%s}" "note" org-export-data :title replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" org-beamer--format-frame org-beamer--format-section org-beamer--format-block] 18 (#$ . 17409)]) | |
| 108 | #@160 Transcode an ITEM element into Beamer code. | |
| 109 | CONTENTS holds the contents of the item. INFO is a plist holding | |
| 110 | contextual information. | |
| 111 | ||
| 112 | (fn ITEM CONTENTS INFO) | |
| 113 | (defalias 'org-beamer-item #[771 "\300\301\302\303\304\305\306\307\310\311\312\f\f\"\313\"\314\315%BC\303\211\211\211&$\207" [org-export-with-backend record org-export-backend nil beamer item make-byte-code 771 "\211:\204\n \302\202 \211@9\203 \211AA\202 \211\262@\211\211:\204) \211;\2051 \303\2021 \211@9\2051 \211@\262\304=\205; \305!\262\306\300\301#\203M \307\310\"\204Q \211\202Y \311\310P\302\211$\207" vconcat vector [nil plain-text paragraph org-beamer--element-has-overlay-p org-latex-item string-match "\\\\item" replace-match] 10 "\n\n(fn ITEM C I)"] 16 (#$ . 19496)]) | |
| 114 | #@142 Transcode a KEYWORD element into Beamer code. | |
| 115 | CONTENTS is nil. INFO is a plist used as a communication | |
| 116 | channel. | |
| 117 | ||
| 118 | (fn KEYWORD CONTENTS INFO) | |
| 119 | (defalias 'org-beamer-keyword #[771 "\300\211;\203 \301\302#\202 \303A@\"\266\202\304\211;\203& \301\302#\202, \303A@\"\266\202\305\232\2038 \211\202 \306\232\203v \307\310\"\203v \307\311\"\203U \312\313\302\"!\206Y \303\314\"\307\315\"\205d \313\302\"\316!\205n \317\320\"\321Q\266\202\202 \322\323$\207" [:key get-text-property 0 plist-get :value "BEAMER" "TOC" string-match "\\<headlines\\>" "[0-9]+" string-to-number match-string :with-toc "\\[.*?\\]" wholenump format "\\setcounter{tocdepth}{%s}\n" "\\tableofcontents" org-export-with-backend latex] 10 (#$ . 20262)]) | |
| 120 | #@164 Transcode a LINK object into Beamer code. | |
| 121 | CONTENTS is the description part of the link. INFO is a plist | |
| 122 | used as a communication channel. | |
| 123 | ||
| 124 | (fn LINK CONTENTS INFO) | |
| 125 | (defalias 'org-beamer-link #[771 "\300\301#\206+ \302\303$\304\305\"\203( \306\307\310\311!\206 \312\"\313\211$\202) \211\262\207" [org-export-custom-protocol-maybe beamer org-export-with-backend latex string-match "\\`\\\\hyperref\\[\\(.*?\\)\\]" replace-match format "\\\\hyperlink%s{\\1}" org-beamer--element-has-overlay-p "" nil] 9 (#$ . 21015)]) | |
| 126 | #@168 Transcode a PLAIN-LIST element into Beamer code. | |
| 127 | CONTENTS is the contents of the list. INFO is a plist holding | |
| 128 | contextual information. | |
| 129 | ||
| 130 | (fn PLAIN-LIST CONTENTS INFO) | |
| 131 | (defalias 'org-beamer-plain-list #[771 "\300\211;\203 \301\302#\202 \303A@\"\266\202\304\305\306\"\305\307\"\"\303\310\"\211\206: \311\267\2029 \312\202: \313\202: \314\262\315\316\317\320\303\321\"\206L \322\323\"\320\303 \324\"\206X \322\325\" &#\207" [:type get-text-property 0 plist-get org-combine-plists org-export-read-attribute :attr_latex :attr_beamer :environment #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (ordered 49 descriptive 53)) "enumerate" "description" "itemize" org-latex--wrap-label format "\\begin{%s}%s%s\n%s\\end{%s}" org-beamer--normalize-argument :overlay "" defaction :options option] 16 (#$ . 21547)]) | |
| 132 | #@161 Transcode a RADIO-TARGET object into Beamer code. | |
| 133 | TEXT is the text of the target. INFO is a plist holding | |
| 134 | contextual information. | |
| 135 | ||
| 136 | (fn RADIO-TARGET TEXT INFO) | |
| 137 | (defalias 'org-beamer-radio-target #[771 "\300\301\302!\206 \303\304\"$\207" [format "\\hypertarget%s{%s}{%s}" org-beamer--element-has-overlay-p "" org-export-get-reference] 9 (#$ . 22419)]) | |
| 138 | #@163 Return complete document string after Beamer conversion. | |
| 139 | CONTENTS is the transcoded contents string. INFO is a plist | |
| 140 | holding export options. | |
| 141 | ||
| 142 | (fn CONTENTS INFO) | |
| 143 | (defalias 'org-beamer-template #[514 "\301\302\303\"\"\301\302\304\"\"\302\305\"\205 \306\307!\310!\311!\312\313\314\315\316\n!\317\"\320\321%\322\312\323\324\315\316!\325\"\326\327%\330\331#\262\302\332\"\211\250\205L \333\334\"\262\302\335\"\205f \302\336\"\211\205d \301\n\"\262\302 \337\"\205w \301\302\n\340\"\n\"\203\215 \211\203\215 \211\331\230\204\215 \333\341#\202\235 \204\225 \211\205\235 \333\342\206\234 \"\266\202\302 \343\"\205\253 \344 !\333\345\301 \"\"\262\333\346\n\"\347 !\205\314 \333\302\f\350\"\n\"\351P\302\f\352\"\211\205\335 \333\353\302\352\"\"\262\302 \354\"\211;\205\360 \355\356!\"\262\357\360\302\361\"\204 \362\202$\331\230\203 \362\202$;\204\362\202$\363\364\"\203#\333\"\202$!\302\365\"\211\205K\333\366\367\302\370\"\371\"\302\372\"#\373!\205H\333\374\"\375\376R\262\302\377\"\203c\302\201@ \"\351P\202d\331\201A \260\207" [org-latex-title-command org-export-data plist-get :title :subtitle :time-stamp-file format-time-string "%% Created %Y-%m-%d %a %H:%M\n" org-latex--insert-compiler org-latex-make-preamble make-byte-code 514 "\301\300\"\211\205; \302\303\"\204 \304\305\"\202: \304\306\307\310\"\311\312\313\211$\313\314\203. \315\202/ \316\312\314\317\312##\266\202#P\207" vconcat vector [plist-get string-match "\\[.*\\]" format "{%s}\n" "%s{%s}\n" match-string 0 replace-match #1="" nil replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "[ \n ]+\\'"] 16 "\n\n(fn PROP COMMAND)" mapconcat 257 "\301\300\"\207" [apply] 4 "\n\n(fn ARGS)" ((:beamer-theme "\\usetheme") (:beamer-color-theme "\\usecolortheme") (:beamer-font-theme "\\usefonttheme") (:beamer-inner-theme "\\useinnertheme") (:beamer-outer-theme "\\useoutertheme")) #1# :section-numbers format "\\setcounter{secnumdepth}{%d}\n" :with-author :author :with-email :email "\\author{%s\\thanks{%s}}\n" "\\author{%s}\n" :with-date org-export-get-date "\\date{%s}\n" "\\title{%s}\n" org-string-nw-p :beamer-subtitle-format "\n" :beamer-header "%s\n" :latex-hyperref-template format-spec org-latex--format-spec "\\begin{document}\n\n" org-element-normalize-string :with-title nil string-match "\\(?:[^%]\\|^\\)%s" :with-toc "\\begin{frame}%s{%s}\n" org-beamer--normalize-argument :beamer-outline-frame-options option :beamer-outline-frame-title wholenump "\\setcounter{tocdepth}{%d}\n" "\\tableofcontents\n" "\\end{frame}\n\n" :with-creator :creator "\\end{document}"] 24 (#$ . 22783)]) | |
| 144 | #@35 The keymap for `org-beamer-mode'. | |
| 145 | (defvar org-beamer-mode-map (make-sparse-keymap) (#$ . 25443)) | |
| 146 | (define-key org-beamer-mode-map "" 'org-beamer-select-environment) | |
| 147 | #@99 Non-nil if Org-Beamer mode is enabled. | |
| 148 | Use the command `org-beamer-mode' to change this variable. | |
| 149 | (defvar org-beamer-mode nil (#$ . 25615)) | |
| 150 | (make-variable-buffer-local 'org-beamer-mode) | |
| 151 | #@73 Support for editing Beamer oriented Org mode files. | |
| 152 | ||
| 153 | (fn &optional ARG) | |
| 154 | (defalias 'org-beamer-mode #[256 "\301 \302=\203 ?\202 \303!\304V\305\306\203 \307\202 \310\"\210\311\312!\203B \301 \2032 \211\301 \232\203B \313\314\315\203= \316\202> \317#\266\210\320 \210\207" [org-beamer-mode current-message toggle prefix-numeric-value 0 run-hooks org-beamer-mode-hook org-beamer-mode-on-hook org-beamer-mode-off-hook called-interactively-p any " in current buffer" message "Org-Beamer mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 25807) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)]) | |
| 155 | (defvar org-beamer-mode-hook nil) | |
| 156 | (byte-code "\300\301N\204\f \302\300\301\303#\210\300\207" [org-beamer-mode-hook variable-documentation put "Hook run after entering or leaving `org-beamer-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)"] 4) | |
| 157 | #@31 Keymap for `org-beamer-mode'. | |
| 158 | (defvar org-beamer-mode-map (byte-code "\300\301!\203 \211\202 \211<\203 \302!\202 \303\304\"\207" [org-beamer-mode-map keymapp easy-mmode-define-keymap error "Invalid keymap %S"] 4) (#$ . 26765)) | |
| 159 | (byte-code "\301\302\303\304\211%\210\305\306!\203 \306\307\310\311#\210\312\313\314\315\316\317%\207" [org-beamer-mode-map add-minor-mode org-beamer-mode " Bm" nil fboundp font-lock-add-keywords org-mode ((":\\(B_[a-z]+\\|BMCOL\\):" 1 'org-beamer-tag prepend)) prepend custom-declare-face org-beamer-tag ((t (:box (:line-width 1 :color grey40)))) "The special face for beamer tags." :group org-export-beamer] 6) | |
| 160 | #@135 Track the BEAMER_env property with tags. | |
| 161 | PROPERTY is the name of the modified property. VALUE is its new | |
| 162 | value. | |
| 163 | ||
| 164 | (fn PROPERTY VALUE) | |
| 165 | (defalias 'org-beamer-property-changed #[514 "\300\267\202B \212\301\302!\210\303\304\305 \"\306!\205 \307P\310\203$ B\202% !\210\211\205/ \311\312\"\266\202)\207\311\313\306!\203? \312\202@ \314\"\207\315\207" [#s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("BEAMER_env" 6 "BEAMER_col" 51)) org-back-to-heading t cl-remove-if #[257 "\300\301\"\207" [string-match "^B_"] 4 "\n\n(fn X)"] org-get-tags org-string-nw-p "B_" org-set-tags-to org-toggle-tag on "BMCOL" off nil] 7 (#$ . 27421)]) | |
| 166 | (add-hook 'org-property-changed-functions 'org-beamer-property-changed) | |
| 167 | #@52 Supply allowed values for PROPERTY. | |
| 168 | ||
| 169 | (fn PROPERTY) | |
| 170 | (defalias 'org-beamer-allowed-property-values #[257 "\211\304\232\203 \305\306\307P\310#\204 \311\312\313 \n#\"\207\211\314\232\205. \305\306\307P\310#?\205. \315 \316\"\207" [org-beamer-environments-special org-beamer-environments-extra org-beamer-environments-default org-beamer-column-widths "BEAMER_env" org-entry-get nil "_ALL" inherit mapcar car append "BEAMER_col" split-string " "] 7 (#$ . 28175)]) | |
| 171 | (add-hook 'org-property-allowed-value-functions 'org-beamer-allowed-property-values) | |
| 172 | #@1020 Export current buffer as a Beamer buffer. | |
| 173 | ||
| 174 | If narrowing is active in the current buffer, only export its | |
| 175 | narrowed part. | |
| 176 | ||
| 177 | If a region is active, export that region. | |
| 178 | ||
| 179 | A non-nil optional argument ASYNC means the process should happen | |
| 180 | asynchronously. The resulting buffer should be accessible | |
| 181 | through the `org-export-stack' interface. | |
| 182 | ||
| 183 | When optional argument SUBTREEP is non-nil, export the sub-tree | |
| 184 | at point, extracting information from the headline properties | |
| 185 | first. | |
| 186 | ||
| 187 | When optional argument VISIBLE-ONLY is non-nil, don't export | |
| 188 | contents of hidden elements. | |
| 189 | ||
| 190 | When optional argument BODY-ONLY is non-nil, only write code | |
| 191 | between "\begin{document}" and "\end{document}". | |
| 192 | ||
| 193 | EXT-PLIST, when provided, is a property list with external | |
| 194 | parameters overriding Org default settings, but still inferior to | |
| 195 | file-local settings. | |
| 196 | ||
| 197 | Export is done in a buffer named "*Org BEAMER Export*", which | |
| 198 | will be displayed when `org-export-show-temporary-export-buffer' | |
| 199 | is non-nil. | |
| 200 | ||
| 201 | (fn &optional ASYNC SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST) | |
| 202 | (defalias 'org-beamer-export-as-latex #[1280 "\300\301\302\303&\207" [org-export-to-buffer beamer "*Org BEAMER Export*" #[0 "\300 \207" [LaTeX-mode] 1]] 14 (#$ . 28731) nil]) | |
| 203 | #@918 Export current buffer as a Beamer presentation (tex). | |
| 204 | ||
| 205 | If narrowing is active in the current buffer, only export its | |
| 206 | narrowed part. | |
| 207 | ||
| 208 | If a region is active, export that region. | |
| 209 | ||
| 210 | A non-nil optional argument ASYNC means the process should happen | |
| 211 | asynchronously. The resulting file should be accessible through | |
| 212 | the `org-export-stack' interface. | |
| 213 | ||
| 214 | When optional argument SUBTREEP is non-nil, export the sub-tree | |
| 215 | at point, extracting information from the headline properties | |
| 216 | first. | |
| 217 | ||
| 218 | When optional argument VISIBLE-ONLY is non-nil, don't export | |
| 219 | contents of hidden elements. | |
| 220 | ||
| 221 | When optional argument BODY-ONLY is non-nil, only write code | |
| 222 | between "\begin{document}" and "\end{document}". | |
| 223 | ||
| 224 | EXT-PLIST, when provided, is a property list with external | |
| 225 | parameters overriding Org default settings, but still inferior to | |
| 226 | file-local settings. | |
| 227 | ||
| 228 | Return output file's name. | |
| 229 | ||
| 230 | (fn &optional ASYNC SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST) | |
| 231 | (defalias 'org-beamer-export-to-latex #[1280 "\300\301\"\302\303&\207" [org-export-output-file-name ".tex" org-export-to-file beamer] 14 (#$ . 29943) nil]) | |
| 232 | #@915 Export current buffer as a Beamer presentation (PDF). | |
| 233 | ||
| 234 | If narrowing is active in the current buffer, only export its | |
| 235 | narrowed part. | |
| 236 | ||
| 237 | If a region is active, export that region. | |
| 238 | ||
| 239 | A non-nil optional argument ASYNC means the process should happen | |
| 240 | asynchronously. The resulting file should be accessible through | |
| 241 | the `org-export-stack' interface. | |
| 242 | ||
| 243 | When optional argument SUBTREEP is non-nil, export the sub-tree | |
| 244 | at point, extracting information from the headline properties | |
| 245 | first. | |
| 246 | ||
| 247 | When optional argument VISIBLE-ONLY is non-nil, don't export | |
| 248 | contents of hidden elements. | |
| 249 | ||
| 250 | When optional argument BODY-ONLY is non-nil, only write code | |
| 251 | between "\begin{document}" and "\end{document}". | |
| 252 | ||
| 253 | EXT-PLIST, when provided, is a property list with external | |
| 254 | parameters overriding Org default settings, but still inferior to | |
| 255 | file-local settings. | |
| 256 | ||
| 257 | Return PDF file's name. | |
| 258 | ||
| 259 | (fn &optional ASYNC SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST) | |
| 260 | (defalias 'org-beamer-export-to-pdf #[1280 "\300\301\"\302\303\304&\207" [org-export-output-file-name ".tex" org-export-to-file beamer #[257 "\300!\207" [org-latex-compile] 3 "\n\n(fn FILE)"]] 15 (#$ . 31036) nil]) | |
| 261 | #@328 Select the environment to be used by beamer for this entry. | |
| 262 | While this uses (for convenience) a tag selection interface, the | |
| 263 | result of this command will be that the BEAMER_env *property* of | |
| 264 | the entry is set. | |
| 265 | ||
| 266 | In addition to this, the command will also set a tag as a visual | |
| 267 | aid, but the tag does not have any semantic meaning. | |
| 268 | (defalias 'org-beamer-select-environment #[0 "\306 \n#\306\307\310\311\"\312\313$\314 \315\211 +\316 \210\3171# \320 0\202' \210\202* \206+ \321,\322=\203H \323\324\"\203B \325\326\327\330!\"\202\234 \331\326!\202\234 ,\332=\203 \333\314\334\"\335\232\203i \336\314\334\"\210\336\314\337\"\210\336\314\340\"\202\234 \341\314\334\335#\210\325\337\327\342!\"\210\325\340\327\343!\"\202\234 \323\344\345\346\347#\350Q\"\203\230 \341\314\334\351\352\"#\202\234 \336\314\334\"\262,\207" [org-beamer-environments-special org-beamer-environments-extra org-beamer-environments-default org-current-tag-alist org-tag-persistent-alist org-use-fast-tag-selection append ((:startgroup)) mapcar #[257 "\300@P\301A@!B\207" ["B_" string-to-char] 4 "\n\n(fn E)"] ((:endgroup)) (("BMCOL" . 124)) nil t org-set-tags (error) org-get-tags-string "" 124 string-match ":BMCOL:" org-set-property "BEAMER_col" read-string "Column width: " org-delete-property 65 org-entry-get "BEAMER_env" "againframe" org-entry-delete "BEAMER_ref" "BEAMER_act" org-entry-put "Frame reference (*Title, #custom-id, id:...): " "Overlay specification: " ":B_\\(" mapconcat car "\\|" "\\):" match-string 1 org-fast-tag-selection-single-key org-last-tag-selection-key] 9 (#$ . 32186) nil]) | |
| 269 | #@258 Publish an Org file to a Beamer presentation (LaTeX). | |
| 270 | ||
| 271 | FILENAME is the filename of the Org file to be published. PLIST | |
| 272 | is the property list for the given project. PUB-DIR is the | |
| 273 | publishing directory. | |
| 274 | ||
| 275 | Return output file name. | |
| 276 | ||
| 277 | (fn PLIST FILENAME PUB-DIR) | |
| 278 | (defalias 'org-beamer-publish-to-latex #[771 "\300\301\302%\207" [org-publish-org-to beamer ".tex"] 9 (#$ . 33777)]) | |
| 279 | #@267 Publish an Org file to a Beamer presentation (PDF, via LaTeX). | |
| 280 | ||
| 281 | FILENAME is the filename of the Org file to be published. PLIST | |
| 282 | is the property list for the given project. PUB-DIR is the | |
| 283 | publishing directory. | |
| 284 | ||
| 285 | Return output file name. | |
| 286 | ||
| 287 | (fn PLIST FILENAME PUB-DIR) | |
| 288 | (defalias 'org-beamer-publish-to-pdf #[771 "\301\302!\303\304\305\306 \302\n!%!)#\207" [default-directory org-publish-attachment file-name-directory org-latex-compile org-publish-org-to beamer ".tex"] 13 (#$ . 34162)]) | |
| 289 | (provide 'ox-beamer) | |
