;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (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) #@72 The column widths that should be installed as allowed property values. (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)) #@307 Alist of environments treated in a special way by the back-end. Keys are environment names, as strings, values are bindings used in `org-beamer-select-environment'. Environments listed here, along with their binding, are hard coded and cannot be modified through `org-beamer-environments-extra' variable. (defconst org-beamer-environments-special '(("againframe" "A") ("appendix" "x") ("column" "c") ("columns" "C") ("frame" "f") ("fullframe" "F") ("ignoreheading" "i") ("note" "n") ("noteNH" "N")) (#$ . 4618)) #@140 Environments triggered by properties in Beamer export. These are the defaults - for user definitions, see `org-beamer-environments-extra'. (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)) #@142 List of element or object types producing verbatim text. This is used internally to determine when a frame should have the "fragile" option. (defconst org-beamer-verbatim-elements '(code example-block fixed-width inline-src-block src-block verbatim) (#$ . 6097)) #@281 Return ARGUMENT string with proper boundaries. TYPE is a symbol among the following: `action' Return ARGUMENT within angular brackets. `defaction' Return ARGUMENT within both square and angular brackets. `option' Return ARGUMENT within square brackets. (fn ARGUMENT TYPE) (defalias 'org-beamer--normalize-argument #[514 "\300\301\"\204 \302\207\303\304\"\203\305\306\307\310\311#\"\207\303\312\"\203/\305\313\307\310\311\307\314\315 ##\"\207\303\316\"\203@\305\317\307\314\315#\"\207\320\321\"\207" [string-match "\\S-" "" eql action format "<%s>" org-unbracket-string "<" ">" defaction "[<%s>]" "[" "]" option "[%s]" error "Invalid `type' argument to `org-beamer--normalize-argument': %s"] 11 (#$ . 6367)]) #@241 Non-nil when ELEMENT has an overlay specified. An element has an overlay specification when it starts with an `beamer' export-snippet whose value is between angular brackets. Return overlay specification, as a string, or nil. (fn ELEMENT) (defalias 'org-beamer--element-has-overlay-p #[257 "\211\211:\204\f\300\262\202\211@9\203\211AA\262@\211\211:\204)\211;\2051\301\262\2023\211@9\2051\211@\262\302=\205b\303\211;\203I\304\305#\266\202\202Q\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 (#$ . 7105)]) (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))) #@150 Transcode BLOCK object into Beamer code. CONTENTS is the text being bold. INFO is a plist used as a communication channel. (fn BOLD CONTENTS INFO) (defalias 'org-beamer-bold #[771 "\300\301\302!\206 \303#\207" [format "\\alert%s{%s}" org-beamer--element-has-overlay-p ""] 7 (#$ . 9355)]) #@153 Transcode an EXPORT-BLOCK element into Beamer code. CONTENTS is nil. INFO is a plist used as a communication channel. (fn EXPORT-BLOCK CONTENTS INFO) (defalias 'org-beamer-export-block #[771 "\300\211;\203\301\302#\266\202\202\303A@\"\266\202\304\235\2059\305\306\211;\2030\301\302#\266\202\2028\303A@\"\266\202!\207" [:type get-text-property 0 plist-get ("BEAMER" "LATEX") org-remove-indentation :value] 10 (#$ . 9655)]) #@156 Transcode an EXPORT-SNIPPET object into Beamer code. CONTENTS is nil. INFO is a plist used as a communication channel. (fn EXPORT-SNIPPET CONTENTS INFO) (defalias 'org-beamer-export-snippet #[771 "\300!\301\211;\203\302\303#\266\202\202\304A@\"\266\202\305=\203&\211\202<\306=\205<\307\"\204;\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 (#$ . 10103)]) #@359 Return label for HEADLINE, as a string. INFO is a plist used as a communication channel. The value is either the label specified in "BEAMER_opt" property, the custom ID, if there is one and `:latex-prefer-user-labels' property has a non-nil value, or a unique internal label. This function assumes HEADLINE will be treated as a frame. (fn HEADLINE INFO) (defalias 'org-beamer--get-label #[514 "\301\211;\203\302\303#\266\202\202\304A@\"\266\202\211;\205C\305\306\"\205C\307\310\"\311\312\313\305#)\266\203\203@\211\310\314O\202A\211\262\262\206r\304\315\"\203k\316\211;\203`\302\303#\266\202\202h\304A@\"\266\202\206r\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 (#$ . 10605)]) #@121 Return frame level in subtree containing HEADLINE. INFO is a plist used as a communication channel. (fn HEADLINE INFO) (defalias 'org-beamer--frame-level #[514 "\3002F\301!\237\211\205C\211@\302\211;\203\303\304#\266\202\202'\305A@\"\266\202\211\203;\306\307\"\203;\310\300\311\"\"\210\210A\266\202\202\2620\206\220\302\211;\203Z\303\304#\266\202\202b\305A@\"\266\202\211\205q\306\312\"\205q\311\"\262\206\220\313\314\315\316\317\320\321!\322\"\323\324%\325%\206\220\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#\266\202\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 (#$ . 11552)]) #@163 Format HEADLINE as a sectioning part. CONTENTS holds the contents of the headline. INFO is a plist used as a communication channel. (fn HEADLINE CONTENTS INFO) (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#\266\202\2026\323A@\"\266\202\211\203S\324\325\"\203S\326\327\330\"\331\332\"P\333\211\330%\202T\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 (#$ . 12593)]) #@153 Format HEADLINE as a frame. CONTENTS holds the contents of the headline. INFO is a plist used as a communication channel. (fn HEADLINE CONTENTS INFO) (defalias 'org-beamer--format-frame #[771 "\302\303\304%\305\306\211;\203\307\310#\266\202\202!\311A@\"\266\202\211\204)\312\202;\313\314\"\2037\315\316\"\202;\315\317\"\262\320\211;\203O\307\310#\266\202\202W\311A@\"\266\202\321\322\323\324\311 \325\"\326\"\205v\324\313\327\"\205t\330\331\"\326\"\"\"\205\205\332\235?\205\205\332C\333\235?\205\265\334\335\"?\205\265\336 \"\337\340\341\342\313#)\266\203\203\257\343\202\260\344\"\262C\315\345\303\323#\326#\346\"\266\204\347\211;\203\327\307\310#\266\202\202\337\311A@\"\266\202\337\350\203\360\227\351\232\203\360\312\202\352\353 \211;\203\307\310#\266\202\202 \311A@\"\266\202 \"\"\262\354\204\202%\355\356\357\n\206$\312#\360\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 "fragile" "allowframebreaks" cl-some #[257 "\301\302\303\304#)\207" [inhibit-changing-match-data "^label=" nil t string-match] 8 "\n\n(fn S)"] org-beamer--get-label format ":" nil t "label={%s}" "label=%s" mapconcat option :BEAMER_ENV "{%s}" "fullframe" org-export-data :title "\n" replace-regexp-in-string "\\`\n*" "\\& " "\\end{frame}"] 18 (#$ . 13566)]) #@153 Format HEADLINE as a block. CONTENTS holds the contents of the headline. INFO is a plist used as a communication channel. (fn HEADLINE CONTENTS INFO) (defalias 'org-beamer--format-block #[771 "\301\211;\203\302\303#\266\202\202\304A@\"\266\202\305\211;\203*\302\303#\266\202\2022\304A@\"\266\202\211\204>\204>\306\202G\211\204F\307\202G\211\262\310\211;\203Z\302\303#\266\202\202b\304A@\"\266\202\311\235\203l\312\202~\313\314\304\315\"\"\"\206~\316\317\"\320\321\211;\203\221\302\303#\266\202\202\231\304A@\"\266\202\"\322\211;\203\256\302\303#\266\202\202\266\304A@\"\266\202\211\203\301\323\324\"\202\302\325\305\326 !\211;\203\326\302\303#\266\202\202\336\304A@\"\266\202\327\232\206\205\211\205\362\211\227\327\232?\205\330 \n\"\206\301\331\f \"\211;\203\302\303#\266\202\202\304A@\"\266\202?\327\232\206^\205^\2052\227\327\232?\205^\332\f \"\206^\301\333 \f\"\211;\203U\302\303#\266\202\202]\304A@\"\266\202?\205q\327\232\204m\334\202q\335\336\"\n\205\213\335\337 \307\232\203\204\202\205\325\335\340\"#\341 8\205-\342\341\n8\343\211;\203\251\302\303#\266\202\202\261\304A@\"\266\202\211\204\302\344\325B\345\325B\346\325BE\202\355\347\350\"\203\340\351\352\"\203\340\345\323\353\"B\344\325B\346BE\202\355\344\323\354\"B\345\325B\346BE\262\355 B\356 \206\372\325B\357 B\360B\361\325\232\203\325\202\335\362\"B\363\325\232\203!\325\202&\335\364\"B\257\244\"\365P\366 8\205<\366 8\365P\205B\367\205H\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 (#$ . 15244)]) #@167 Transcode HEADLINE element into Beamer code. CONTENTS is the contents of the headline. INFO is a plist used as a communication channel. (fn HEADLINE CONTENTS INFO) (defalias 'org-beamer-headline #[771 "\300\211;\203\301\302#\266\202\202\303A@\"\266\202?\205\304\"\305\"\306\211;\2036\301\302#\266\202\202>\303A@\"\266\202\307!\206E\310\262\211\311\232\203\312\211;\203_\301\302#\266\202\202g\303A@\"\266\202\307!\205\376\313\314\211;\203\200\301\302#\266\202\202\210\303A@\"\266\202\211\205\233\315\316\317\"\203\231\320\202\232\321\"\262\322 \211;\203\257\301\302#\266\202\202\267\303A@\"\266\202\211\205\277\315\323\"\262\316\324\"\203\331\325\326\327\302\225\330ODD \"\202\363\331\326\327\332!\333=\203\352\202\356\334PDD \"\335\336\337\f\"\"\262R\262\202\211\340\232\203I\341\314\211;\203\301\302#\266\202\202$\303A@\"\266\202\342\343\344\n\211;\2038\301\302#\266\202\202@\303A@\"\266\202\345\"\260\202\211\346\232\203q\343\344\211;\203b\301\302#\266\202\202j\303A@\"\266\202\345\"P\202\211\347\235\203\354\350\314\211;\203\212\301\302#\266\202\202\222\303A@\"\266\202\211\205\245\315\316\317\"\203\243\320\202\244\321\"\262\335\336\351\232\205\317\352\353 \211;\203\302\301\302#\266\202\202\312\303A@\"\266\202 \"\342P \330\354\203\333\355\202\334\356\357\354\360\357##\266\202P\"Q\202U\203\375\361#\202W\203\362#\202\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" "note" org-export-data :title replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" org-beamer--format-frame org-beamer--format-section org-beamer--format-block] 20 (#$ . 17617)]) #@160 Transcode an ITEM element into Beamer code. CONTENTS holds the contents of the item. INFO is a plist holding contextual information. (fn ITEM CONTENTS INFO) (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\f\302\262\202\211@9\203\211AA\262@\211\211:\204)\211;\2051\303\262\2023\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 (#$ . 19884)]) #@142 Transcode a KEYWORD element into Beamer code. CONTENTS is nil. INFO is a plist used as a communication channel. (fn KEYWORD CONTENTS INFO) (defalias 'org-beamer-keyword #[771 "\300\211;\203\301\302#\266\202\202\303A@\"\266\202\304\211;\203*\301\302#\266\202\2022\303A@\"\266\202\305\232\203<\211\202\203\306\232\203z\307\310\"\203z\307\311\"\203Y\312\313\302\"!\206]\303\314\"\307\315\"\205h\313\302\"\316!\205r\317\320\"\321Q\266\202\202\203\322\323$\207" [:key get-text-property 0 plist-get :value "BEAMER" "TOC" string-match "\\" "[0-9]+" string-to-number match-string :with-toc "\\[.*?\\]" wholenump format "\\setcounter{tocdepth}{%s}\n" "\\tableofcontents" org-export-with-backend latex] 10 (#$ . 20650)]) #@164 Transcode a LINK object into Beamer code. CONTENTS is the description part of the link. INFO is a plist used as a communication channel. (fn LINK CONTENTS INFO) (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 (#$ . 21425)]) #@168 Transcode a PLAIN-LIST element into Beamer code. CONTENTS is the contents of the list. INFO is a plist holding contextual information. (fn PLAIN-LIST CONTENTS INFO) (defalias 'org-beamer-plain-list #[771 "\300\211;\203\301\302#\266\202\202\303A@\"\266\202\304\305\306\"\305\307\"\"\303\310\"\211\206B\311=\2037\312\202B\313=\203A\314\202B\315\262\316\317\320\321\303\322\"\206T\323\324\"\321\303 \325\"\206`\323\326\" &#\207" [:type get-text-property 0 plist-get org-combine-plists org-export-read-attribute :attr_latex :attr_beamer :environment ordered "enumerate" descriptive "description" "itemize" org-latex--wrap-label format "\\begin{%s}%s%s\n%s\\end{%s}" org-beamer--normalize-argument :overlay "" defaction :options option] 16 (#$ . 21958)]) #@161 Transcode a RADIO-TARGET object into Beamer code. TEXT is the text of the target. INFO is a plist holding contextual information. (fn RADIO-TARGET TEXT INFO) (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 (#$ . 22753)]) #@163 Return complete document string after Beamer conversion. CONTENTS is the transcoded contents string. INFO is a plist holding export options. (fn CONTENTS INFO) (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 (#$ . 23117)]) #@35 The keymap for `org-beamer-mode'. (defvar org-beamer-mode-map (make-sparse-keymap) (#$ . 25777)) (define-key org-beamer-mode-map "" 'org-beamer-select-environment) #@99 Non-nil if Org-Beamer mode is enabled. Use the command `org-beamer-mode' to change this variable. (defvar org-beamer-mode nil (#$ . 25949)) (make-variable-buffer-local 'org-beamer-mode) #@73 Support for editing Beamer oriented Org mode files. (fn &optional ARG) (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 (#$ . 26141) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) (defvar org-beamer-mode-hook nil) (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) #@31 Keymap for `org-beamer-mode'. (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) (#$ . 27099)) (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) #@135 Track the BEAMER_env property with tags. PROPERTY is the name of the modified property. VALUE is its new value. (fn PROPERTY VALUE) (defalias 'org-beamer-property-changed #[514 "\300\232\2035\212\301\302!\210\303\304\305\306\302\"\"\307!\205\310P\311\203&B\202'!\210\211\2051\312\313\"\266\202)\207\314\232\205I\312\315\307!\203G\313\202H\316\"\207" ["BEAMER_env" org-back-to-heading t cl-remove-if #[257 "\300\301\"\207" [string-match "^B_"] 4 "\n\n(fn X)"] org-get-tags nil org-string-nw-p "B_" org-set-tags org-toggle-tag on "BEAMER_col" "BMCOL" off] 7 (#$ . 27755)]) (add-hook 'org-property-changed-functions 'org-beamer-property-changed) #@52 Supply allowed values for PROPERTY. (fn PROPERTY) (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 (#$ . 28426)]) (add-hook 'org-property-allowed-value-functions 'org-beamer-allowed-property-values) #@1020 Export current buffer as a Beamer buffer. If narrowing is active in the current buffer, only export its narrowed part. If a region is active, export that region. A non-nil optional argument ASYNC means the process should happen asynchronously. The resulting buffer should be accessible through the `org-export-stack' interface. When optional argument SUBTREEP is non-nil, export the sub-tree at point, extracting information from the headline properties first. When optional argument VISIBLE-ONLY is non-nil, don't export contents of hidden elements. When optional argument BODY-ONLY is non-nil, only write code between "\begin{document}" and "\end{document}". EXT-PLIST, when provided, is a property list with external parameters overriding Org default settings, but still inferior to file-local settings. Export is done in a buffer named "*Org BEAMER Export*", which will be displayed when `org-export-show-temporary-export-buffer' is non-nil. (fn &optional ASYNC SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST) (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 (#$ . 28982) nil]) #@918 Export current buffer as a Beamer presentation (tex). If narrowing is active in the current buffer, only export its narrowed part. If a region is active, export that region. A non-nil optional argument ASYNC means the process should happen asynchronously. The resulting file should be accessible through the `org-export-stack' interface. When optional argument SUBTREEP is non-nil, export the sub-tree at point, extracting information from the headline properties first. When optional argument VISIBLE-ONLY is non-nil, don't export contents of hidden elements. When optional argument BODY-ONLY is non-nil, only write code between "\begin{document}" and "\end{document}". EXT-PLIST, when provided, is a property list with external parameters overriding Org default settings, but still inferior to file-local settings. Return output file's name. (fn &optional ASYNC SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST) (defalias 'org-beamer-export-to-latex #[1280 "\300\301\"\302\303&\207" [org-export-output-file-name ".tex" org-export-to-file beamer] 14 (#$ . 30194) nil]) #@915 Export current buffer as a Beamer presentation (PDF). If narrowing is active in the current buffer, only export its narrowed part. If a region is active, export that region. A non-nil optional argument ASYNC means the process should happen asynchronously. The resulting file should be accessible through the `org-export-stack' interface. When optional argument SUBTREEP is non-nil, export the sub-tree at point, extracting information from the headline properties first. When optional argument VISIBLE-ONLY is non-nil, don't export contents of hidden elements. When optional argument BODY-ONLY is non-nil, only write code between "\begin{document}" and "\end{document}". EXT-PLIST, when provided, is a property list with external parameters overriding Org default settings, but still inferior to file-local settings. Return PDF file's name. (fn &optional ASYNC SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST) (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 (#$ . 31287) nil]) #@328 Select the environment to be used by beamer for this entry. While this uses (for convenience) a tag selection interface, the result of this command will be that the BEAMER_env *property* of the entry is set. In addition to this, the command will also set a tag as a visual aid, but the tag does not have any semantic meaning. (defalias 'org-beamer-select-environment #[0 "\306 \n#\306\307\310\311\"\312\313$\314\315\211-\316 \210\317\314\315\".\320=\2039\321\235\2033\322\323\324\325!\"\202\235\326\323!\202\235.\327=\203p\330\314\331\"\332\232\203Z\333\314\331\"\210\333\314\334\"\210\333\314\335\"\202\235\336\314\331\332#\210\322\334\324\337!\"\210\322\335\324\340!\"\202\235\341\342\310\343\"\315\"P\344\345\346\347\350\351!\352\"\353\354%\"\211\205\224\336\314\331#\210\315\266\202\206\235\333\314\331\"\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-command org-get-tags 124 "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_" regexp-opt car cl-some make-byte-code 257 "\301\300\"\205 \302\303\"\207" vconcat vector [string-match match-string 1] 4 "\n\n(fn TAG)" org-fast-tag-selection-single-key org-last-tag-selection-key] 11 (#$ . 32437) nil]) #@258 Publish an Org file to a Beamer presentation (LaTeX). FILENAME is the filename of the Org file to be published. PLIST is the property list for the given project. PUB-DIR is the publishing directory. Return output file name. (fn PLIST FILENAME PUB-DIR) (defalias 'org-beamer-publish-to-latex #[771 "\300\301\302%\207" [org-publish-org-to beamer ".tex"] 9 (#$ . 34121)]) #@267 Publish an Org file to a Beamer presentation (PDF, via LaTeX). FILENAME is the filename of the Org file to be published. PLIST is the property list for the given project. PUB-DIR is the publishing directory. Return output file name. (fn PLIST FILENAME PUB-DIR) (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 (#$ . 34506)]) (provide 'ox-beamer)