Current File : //usr/local/share/emacs/27.2/lisp/org/ox-beamer.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\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 eq 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)])
#@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 (#$ . 7165)])
(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 (#$ . 9415)])
#@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 (#$ . 9715)])
#@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 (#$ . 10163)])
#@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;\205D \305\306\"\205D \307\310\"\311\312\313\305#)\266\203\203A \314\310\315#\202B \211\262\262\206s \304\316\"\203l \317\211;\203a \302\303#\266\202\202i \304A@\"\266\202\206s \320\321\322\"\"\207" [inhibit-changing-match-data :BEAMER_OPT get-text-property 0 plist-get string-match "\\(?:^\\|,\\)label=\\(.*?\\)\\(?:$\\|,\\)" match-string 1 "\\`{.*}\\'" nil t substring -1 :latex-prefer-user-labels :CUSTOM_ID format "sec:%s" org-export-get-reference] 11 (#$ . 10665)])
#@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 (#$ . 11623)])
#@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 (#$ . 12664)])
#@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 (#$ . 13637)])
#@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 (#$ . 15315)])
#@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\267\202\332\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\330\302\225\"DD \"\202\363 \331\326\327\332!\333=\203\352 \202\356 \334PDD \"\335\336\337\f\"\"\262R\262\202\340\314\211;\203\301\302#\266\202\202 \303A@\"\266\202\341\342\343\n\211;\2032\301\302#\266\202\202:\303A@\"\266\202\344\"\260\202\342\343\211;\203V\301\302#\266\202\202^\303A@\"\266\202\344\"P\202\345\314\211;\203x\301\302#\266\202\202\200\303A@\"\266\202\211\205\223\315\316\317\"\203\221\320\202\222\321\"\262\335\336\346\232\205\275\347\350 \211;\203\260\301\302#\266\202\202\270\303A@\"\266\202 \"\341P \351\352\203\311\353\202\312\354\355\352\356\355##\266\202P\"Q\202U\203\353\357#\202W\203\374\360#\202\361#\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" #s(hash-table size 5 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("againframe" 77 "appendix" 259 "ignoreheading" 323 "note" 357 "noteNH" 357)) :BEAMER_REF "\\againframe" :BEAMER_ACT org-beamer--normalize-argument string-match "\\`\\[.*\\]\\'" defaction action :BEAMER_OPT option "\\`\\(id:\\|#\\)" org-export-resolve-id-link link :path substring org-export-resolve-fuzzy-link string-to-char 42 "*" format "{%s}" org-beamer--get-label "\\appendix" "\n" make-string :pre-blank 10 "\\note" "note" org-export-data :title nil replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n
]+" "" "[ \n
]+\\'" org-beamer--format-frame org-beamer--format-section org-beamer--format-block] 20 (#$ . 17688)])
#@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 (#$ . 20020)])
#@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 "\\<headlines\\>" "[0-9]+" string-to-number match-string :with-toc "\\[.*?\\]" wholenump format "\\setcounter{tocdepth}{%s}\n" "\\tableofcontents" org-export-with-backend latex] 10 (#$ . 20786)])
#@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 (#$ . 21561)])
#@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\206< \311\267\202; \312\202< \313\202< \314\262\315\316\317\320\303\321\"\206N \322\323\"\320\303 \324\"\206Z \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 51 descriptive 55)) "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 (#$ . 22094)])
#@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 (#$ . 22974)])
#@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\205J\333\366\367\302\370\"\371\"\302\372\"#\373!\205H\333\374\"\375Q\262\302\376\"\203`\302\377\"\351P\202a\331\201@ \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 (#$ . 23338)])
#@35 The keymap for `org-beamer-mode'.
(defvar org-beamer-mode-map (make-sparse-keymap) (#$ . 25989))
(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 (#$ . 26161))
(make-variable-buffer-local 'org-beamer-mode)
#@316 Support for editing Beamer oriented Org mode files.
If called interactively, enable Org-Beamer mode if ARG is positive,
and disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
(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 (#$ . 26354) (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) (#$ . 27555))
(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\267\202D \212\301\302!\210\303\304\305\306\302\"\"\307!\205 \310P\311\203& B\202' !\210\211\2051 \312\313\"\266\202)\207\312\314\307!\203A \313\202B \315\"\207\306\207" [#s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("BEAMER_env" 6 "BEAMER_col" 53)) 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 "BMCOL" off] 7 (#$ . 28211)])
(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 (#$ . 28971)])
(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 (#$ . 29527) 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 (#$ . 30739) 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 (#$ . 31832) 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\267\202i \321\235\2033 \322\323\324\325!\"\202\226 \326\323!\202\226 \327\314\330\"\331\232\203S \332\314\330\"\210\332\314\333\"\210\332\314\334\"\202\226 \335\314\330\331#\210\322\333\324\336!\"\210\322\334\324\337!\"\202\226 \340\341\310\342\"\315\"P\343\344\345\346\347\350!\351\"\352\353%\"\211\205\215 \335\314\330#\210\315\266\202\206\226 \332\314\330\"\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 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (124 36 65 57)) "BMCOL" org-set-property "BEAMER_col" read-string "Column width: " org-delete-property 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 (#$ . 32982) 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 (#$ . 34750)])
#@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 (#$ . 35135)])
(provide 'ox-beamer)
Mini Shell