HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/org/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/org/ox-beamer.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; 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 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)])
#@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 (#$ . 7166)])
(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 (#$ . 9416)])
#@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 (#$ . 9716)])
#@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 (#$ . 10164)])
#@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 (#$ . 10666)])
#@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 (#$ . 11613)])
#@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 (#$ . 12654)])
#@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\207\313\332\"\206\207\313\333\"?\205\254\334\f\"\335\336\337\340\313#)\266\203\203\246\341\202\247\342\"\262C#\"\315\343\303\203\274\344\235\203\300\202\303\344B\326#\345\"\266\202\346\211;\203\333\307\310#\266\202\202\343\311A@\"\266\202\335\347\203\364\227\350\232\203\364\312\202\351\352\211;\203\307\310#\266\202\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 (#$ . 13627)])
#@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\3668\205<\3668\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 (#$ . 15220)])
#@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\347\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\345\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\345\211\346\232\203q\343\344\211;\203b\301\302#\266\202\202j\303A@\"\266\202\345\"P\202\345\211\347\235\203\273\335\350\351\232\205\237\352\353	\211;\203\222\301\302#\266\202\202\232\303A@\"\266\202\"\342P\330\354\203\253\355\202\254\356\357\354\360\357##\266\202P\"\202\345U\203\314\361#\202\345W\203\335\362#\202\345\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 (#$ . 17593)])
#@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 (#$ . 19755)])
#@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 (#$ . 20521)])
#@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 (#$ . 21296)])
#@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 (#$ . 21828)])
#@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 (#$ . 22708)])
#@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 (#$ . 23072)])
#@35 The keymap for `org-beamer-mode'.
(defvar org-beamer-mode-map (make-sparse-keymap) (#$ . 25732))
(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 (#$ . 25904))
(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 (#$ . 26096) (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) (#$ . 27054))
(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\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 (#$ . 27710)])
(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 (#$ . 28464)])
(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 (#$ . 29020) 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 (#$ . 30232) 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 (#$ . 31325) 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\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 (#$ . 32475) 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 (#$ . 34066)])
#@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 (#$ . 34451)])
(provide 'ox-beamer)