ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ox-beamer.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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\303\304\"\204 \305\300\306\"\210\307\310\311\312\313\314\315\316\317\320& \210\321\322\323\324\315\310\325\326&\210\321\327\330\331\315\310\325\332&\210\321\333\334\335\315\310\317\336\337\340\325\341& \210\321\342\343\344\315\310\317\336\337\345\325\346& \210\321\347\311\350\315\310\317\336\337\351\325\352& \210\321\353\354\355\315\310\325\356&\210\321\357\330\360\315\310\325\361&\207" [org-latex-classes require 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 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 "" "Default options string to use for frames.\nFor example, it could be set to \"allowframebreaks\"." (string :tag "[options]") org-beamer-column-view-format "%45ITEM %10BEAMER_env(Env) %10BEAMER_act(Act) %4BEAMER_col(Col) %8BEAMER_opt(Opt)" "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 "default" "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 "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 %o the options argument of the template\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 "Outline" "Default title of a frame containing an outline." (string :tag "Outline frame title") org-beamer-outline-frame-options "Outline frame options appended after \\begin{frame}.\nYou might want to put e.g. \"allowframebreaks=0.9\" here." (string :tag "Outline frame options")] 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" (#$ . 3744))
#@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")) (#$ . 3917))
#@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%U" "\\end{theorem}") ("definition" "d" "\\begin{definition}%a%U" "\\end{definition}") ("example" "e" "\\begin{example}%a%U" "\\end{example}") ("exampleblock" "E" "\\begin{exampleblock}%a{%h}" "\\end{exampleblock}") ("proof" "p" "\\begin{proof}%a%U" "\\end{proof}") ("beamercolorbox" "o" "\\begin{beamercolorbox}%o{%h}" "\\end{beamercolorbox}")) (#$ . 4437))
#@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) (#$ . 5388))
#@261 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.
(defalias 'org-beamer--normalize-argument #[(argument type) "\302\303\"\204 \304\207\305 \306\"\203 \302\307\"\203 \207\310\311\"\207\305 \312\"\203N \302\313\"\203. \207\302\307\"\203: \310\314\"\207\302\315\"\203I \310\316\317\320\"\"\207\310\316\"\207\305 \321\"\203c \302\322\"\203^ \207\310\314\"\207\207" [argument type string-match "\\S-" "" eql action "\\`<.*>\\'" format "<%s>" defaction "\\`\\[<.*>\\]\\'" "[%s]" "\\`\\[\\(.*\\)\\]\\'" "[<%s>]" match-string 1 option "\\`\\[.*\\]\\'"] 5 (#$ . 5658)])
#@227 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.
(defalias 'org-beamer--element-has-overlay-p #[(element) "\211:\204 \304\202 @9\203 AA\202 )@\211\211:\204+ ;\2053 \305\2023 @9\2053 @)\306=\205[ \307 ;\203J \310\311\n#\202P \312A@\n\"*\313\314 \"\205Z ))\207" [element first-object property value nil plain-text export-snippet :value get-text-property 0 plist-get string-match "\\`<.*>\\'"] 5 (#$ . 6454)])
(org-export-define-derived-backend 'beamer 'latex :export-block "BEAMER" :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 '((: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-extra "BEAMER_HEADER" nil nil newline) (:headline-levels nil "H" org-beamer-frame-level) (:latex-class "LATEX_CLASS" nil "beamer" t)) :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) (target . org-beamer-target) (template . org-beamer-template)))
#@125 Transcode BLOCK object into Beamer code.
CONTENTS is the text being bold. INFO is a plist used as
a communication channel.
(defalias 'org-beamer-bold #[(bold contents info) "\302\303\304!\206 \305 #\207" [bold contents format "\\alert%s{%s}" org-beamer--element-has-overlay-p ""] 4 (#$ . 8297)])
#@120 Transcode an EXPORT-BLOCK element into Beamer code.
CONTENTS is nil. INFO is a plist used as a communication
channel.
(defalias 'org-beamer-export-block #[(export-block contents info) "\303 ;\203 \304\305\n #\202 \306 A@\n\"*\307\235\2057 \310\311 ;\203/ \304\305\n #\2025 \306 A@\n\"*!\207" [export-block element property :type get-text-property 0 plist-get ("BEAMER" "LATEX") org-remove-indentation :value] 5 (#$ . 8603)])
#@121 Transcode an EXPORT-SNIPPET object into Beamer code.
CONTENTS is nil. INFO is a plist used as a communication
channel.
(defalias 'org-beamer-export-snippet #[(export-snippet contents info) "\306!\307 ;\203 \310\311\n #\202 \312 A@\n\"*\211 \313=\203' \202= \f\314=\205= \315
\"\204< \316\317 \"?\205= *\207" [export-snippet element property value backend info org-export-snippet-backend :value get-text-property 0 plist-get latex beamer org-export-get-previous-element string-match "\\`<.*>\\'"] 6 (#$ . 9044)])
#@268 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, or a fallback value built from headline's number. This
function assumes HEADLINE will be treated as a frame.
(defalias 'org-beamer--get-label #[(headline info) "\305 ;\203 \306\307\n #\202 \310 A@\n\"*\311 !\203- \312\313 \"\203- \314\315 \"\2028 \316\317\320\321\322\f\"\323#\")\207" [headline element property opt info :BEAMER_OPT get-text-property 0 plist-get org-string-nw-p string-match "\\(?:^\\|,\\)label=\\(.*?\\)\\(?:$\\|,\\)" match-string 1 format "sec-%s" mapconcat number-to-string org-export-get-headline-number "-"] 7 (#$ . 9574)])
#@101 Return frame level in subtree containing HEADLINE.
INFO is a plist used as a communication channel.
(defalias 'org-beamer--frame-level #[(headline info) "\3052 \306\307\310!\237\"\210\3110\206K \312 ;\203\" \313\314\n #\202( \315 A@\n\"*\211\2059 \316 \317\"\2059 \320\f\")\206K \321\300\322\f\323%\206K \315\f\324\"\207" [headline element property env info exit mapc #[(parent) "\305 ;\203 \306\307\n #\202 \310 A@\n\"*\211\205+ \311 \312\"\205+ \313\314\315\f\"\")\207" [parent element property env info :BEAMER_ENV get-text-property 0 plist-get member-ignore-case ("frame" "fullframe") throw exit org-export-get-relative-level] 6] org-export-get-genealogy nil :BEAMER_ENV get-text-property 0 plist-get member-ignore-case ("frame" "fullframe") org-export-get-relative-level org-element-map #[(hl) "\305 ;\203 \306\307\n #\202 \310 A@\n\"*\211\205( \311 \312\"\205( \313\f\")\207" [hl element property env info :BEAMER_ENV get-text-property 0 plist-get member-ignore-case ("frame" "fullframe") org-export-get-relative-level] 5] first-match :headline-levels] 7 (#$ . 10292)])
#@134 Format HEADLINE as a sectioning part.
CONTENTS holds the contents of the headline. INFO is a plist
used as a communication channel.
(defalias 'org-beamer--format-section #[(headline contents info) "\306\307\310\311\312\313\314\315\316\")$ \n $\317 \f;\203\" \320\321
\f#\202( \322\fA@
\"* \203O \323\324 \"\203O \325\326\327 \"\330\331\"P\332\211 \327%\202Q *\207" [protected-output headline contents info element property org-export-with-backend org-export-create-backend :parent latex :transcoders #[(object contents info) "\304\305 \n$\306 !\203 \307 P\202 )\207" [object contents info code org-export-with-backend beamer org-string-nw-p "\\protect"] 5] mapcar #[(type) " B\207" [type protected-output] 2] (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 mode-specs latex-headline] 8 (#$ . 11397)])
#@124 Format HEADLINE as a frame.
CONTENTS holds the contents of the headline. INFO is a plist
used as a communication channel.
(defalias 'org-beamer--format-frame #[(headline contents info) "\306 \307\n\310%\311\312 \f;\203 \313\314
\f#\202 \315\fA@
\"*\211 \204+ \316\202@ \317\320\"\203; \321\322\"\202@ \321\323\")\324 \f;\203R \313\314
\f#\202X \315\fA@
\"* ,\325\326-\327\",\205v \326\317\330,\"\205t \331\332,\"\327\",\205\200 \317\333,\"?\205\214 \334\335\336\n\"\"C# .\321\337\307 \203\235 \340.\235\203\242 .\202\246 \340.B\327#\341\"*\342 \f;\203\274 \313\314
\f#\202\302 \315\fA@
\"* /\334\343/\203\330 /\227\344\232\203\330 \316\202\363 \345\346 \f;\203\352 \313\314
\f#\202\360 \315\fA@
\"*\n\"\")\347 \204\377 0\202 \350\351\3520\206\316#\353\260)\207" [headline org-beamer-verbatim-elements info fragilep element property 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 append org-split-string "," "^\\[?\\(.*\\)\\]?$" match-string 1 "\\(^\\|,\\)label=" format "label=%s" org-beamer--get-label mapconcat "fragile" option :BEAMER_ENV "{%s}" "fullframe" org-export-data :title "\n" replace-regexp-in-string "\\`\n*" "\\& " "\\end{frame}" beamer-opt org-beamer-frame-default-options options env contents] 11 (#$ . 12392)])
#@124 Format HEADLINE as a block.
CONTENTS holds the contents of the headline. INFO is a plist
used as a communication channel.
(defalias 'org-beamer--format-block #[(headline contents info) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\312 ;\203* \307\310\n #\2020 \311 A@\n\"*\211 \204> \204> \313\202G \f\204F \314\202G \f) \315 ;\203Z \307\310\n #\202` \311 A@\n\"* 9
\316\235\203m \317\202~ \320
\321:;\"\"\206~ \322\3239\" <\324\325 ;\203\222 \307\310\n #\202\230 \311 A@\n\"*=\" >\326 ;\203\257 \307\310\n #\202\265 \311 A@\n\"*\211 ?\204\300 \327\202\305 \330?\331\") ?\312\332! ;\203\333 \307\310\n #\202\341 \311 A@\n\"* @
\333\232\206! \205!@\205\370 @\227\333\232?\205!\334=\"\206!\306\335=\" ;\203\307\310\n #\202 \311 A@\n\"*? A
\333\232\206` \205`@\2057@\227\333\232?\205`\336=\"\206`\306\337=\" ;\203X\307\310\n #\202^\311 A@\n\"*? BA\205v
\333\232\204q\340\202v\341\342?\" \205\215\341\343
\314\232\203\207?\202\210\327\341\344 \"#\345<8\205\346\345<8\347 ;\203\252\307\310\n #\202\260\311 A@\n\"*\211 -\204\301\350\327B\351\327BD\202\342\352\353-\"\203\327\351\330-\354\"B\350\327BD\202\342\350\330-\355\"B\351\327BD)\356?B\357>B\3609B\3619\327\232\203\373\327\202 \341\3629\"B\3639\327\232\203
\327\202\341\3649\"B\257\244\"\365PC\366<8\205(\366<8\365P \205-\367B\2053\370\260. \207" [headline element property column-width env environment :BEAMER_COL get-text-property 0 plist-get :BEAMER_ENV "block" "column" :raw-value ("column" "columns") nil assoc append 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\\textwidth" 2 org-fill-template :BEAMER_ACT "a" "A" string-match "\\`\\[.*\\]\\'" defaction action "o" "h" "r" "H" "{%s}" "U" "[%s]" "\n" 3 "\\end{column}\n" "\\end{columns}" raw-title org-beamer-environments-extra org-beamer-environments-default env-format info title options parent-env start-columns-p end-columns-p contents] 14 (#$ . 13808)])
#@138 Transcode HEADLINE element into Beamer code.
CONTENTS is the contents of the headline. INFO is a plist used
as a communication channel.
(defalias 'org-beamer-headline #[(headline contents info) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*?\205\350\312 \"\313 \"\314 ;\2035 \307\310\n #\202; \311 A@\n\"* \315\f!\206D \316) : ;
\317\232\203\"\320 ;\203a \307\310\n #\202g \311 A@\n\"* <\315<!\205 \321\322 ;\203\203 \307\310\n #\202\211 \311 A@\n\"*\211 =\205\241 \323=\324\325=\"\203\237 \326\202\240 \327\")\330 ;\203\263 \307\310\n #\202\271 \311 A@\n\"*\211 >\205\305 \323>\331\")\324\332<\"\210\333\334<\"\203\336 \333\334<\"\335\232\203\342 \336\202\361 \333\334<\"\337\232\203\360 \340\202\361 \341 ?\342\343\333\344<\"DD \"?\336=\203
\345\" \"\202\346\" \" @\347\350\351@ \"\"+R)\202\347
\352\232\203d\353\322 ;\203:\307\310\n #\202@\311 A@\n\"*\354\355\356 ;\203T\307\310\n #\202Z\311 A@\n\"*\357\"A\260\202\347
\360\232\203\213\355\356 ;\203|\307\310\n #\202\202\311 A@\n\"*\357\"AP\202\347
\361\235\203\277\347\362
\363\232\205\266\364\365 ;\203\253\307\310\n #\202\261\311 A@\n\"* \"\354P\366A!P\"\202\347;:U\203\320\367A #\202\347;:W\203\341\370A #\202\347\371A #+\207" [headline element property info env environment :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:\\|#\\|\\*\\)?\\(.*\\)" match-string 1 "*" fuzzy "id:" id custom-id link :path 2 org-export-resolve-fuzzy-link org-export-resolve-id-link format "{%s}" org-beamer--get-label "appendix" "\\appendix" "\n" make-string :pre-blank 10 "ignoreheading" ("note" "noteNH") "\\note{%s}" "note" org-export-data :title org-trim org-beamer--format-frame org-beamer--format-section org-beamer--format-block frame-level level ref overlay options type target contents] 9 (#$ . 16102)])
#@135 Transcode an ITEM element into Beamer code.
CONTENTS holds the contents of the item. INFO is a plist holding
contextual information.
(defalias 'org-beamer-item #[(item contents info) "\211:\204 \306\202 @9\203 AA\202 )@\211\211:\204+ ;\2053 \307\2023 @9\2053 @)\310=\205< \311\n!)\312\313 \f$ \211 \203Q \314\315
\"\204U
\202^ \316\315P\306\211
$*\207" [item element first-element contents info output nil plain-text paragraph org-beamer--element-has-overlay-p org-export-with-backend latex string-match "\\\\item" replace-match action] 7 (#$ . 18184)])
#@114 Transcode a KEYWORD element into Beamer code.
CONTENTS is nil. INFO is a plist used as a communication
channel.
(defalias 'org-beamer-keyword #[(keyword contents info) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\312 ;\203) \307\310\n #\202/ \311 A@\n\"*\211 \313\232\203< \202\207 \f\314\232\203\200 \315\316 \"\203\200 \315\317 \"\203Y \320\321\310 \"!\206] \311
\322\"\315\323 \"\205h \321\310 \" \324!\205x \325\326\"\327Q*\202\207 \330\331
$*\207" [keyword element property value key info :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 options depth contents] 6 (#$ . 18765)])
#@139 Transcode a LINK object into Beamer code.
CONTENTS is the description part of the link. INFO is a plist
used as a communication channel.
(defalias 'org-beamer-link #[(link contents info) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\312 ;\203) \307\310\n #\202/ \311 A@\n\"*\211 \313\232\203r \314
\"\211 $\204G %\202n \315\316\317!\206P \320\321\322$ ;\203c \307\310\n #\202i \311 A@\n\"*!%$)\202\f\323\235\203\f\f\324\230\203\205 \325
\"\202\211 \326
\"\211 $\211:\204\233 ;\205\243 \327\202\243 @9\205\243 @) &\330&\331\"\203\342 \315\332\333\334\335$
\"\336#\" '\311
\337\"\203\320 %\204\320 \315\340'\"\202\336 \315\316\317!\206\331 \320'%$)\202\330&\341\"\205\321 !%\204\372 \315\340 \"\202\315\316\317!\206\320 %$)*\206\342\343%
$*\207" [link element property path type info :type get-text-property 0 plist-get :path "radio" org-export-resolve-radio-link format "\\hyperlink%s{%s}{%s}" org-beamer--element-has-overlay-p "" org-export-solidify-link-text :value ("custom-id" "fuzzy" "id") "fuzzy" org-export-resolve-fuzzy-link org-export-resolve-id-link plain-text eql headline "sec-%s" mapconcat number-to-string org-export-get-headline-number "-" :section-numbers "\\ref{%s}" target org-export-with-backend latex destination contents #1=#:temp label] 9 (#$ . 19574)])
#@137 Transcode a PLAIN-LIST element into Beamer code.
CONTENTS is the contents of the list. INFO is a plist holding
contextual information.
(defalias 'org-beamer-plain-list #[(plain-list contents info) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\312\313\314\"\313\315\"\" \311\f\316\"\211 \206B \317=\2037 \320\202B \321=\203A \322\202B \323) \324\325\326 \327\311\f\330\"\206T \331\332\"\327\311\f\333\"\206_ \331\334\" &\"+\207" [plain-list element property type attributes env :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 latex-type contents] 11 (#$ . 20902)])
#@132 Transcode a RADIO-TARGET object into Beamer code.
TEXT is the text of the target. INFO is a plist holding
contextual information.
(defalias 'org-beamer-radio-target #[(radio-target text info) "\304\305\306!\206 \307\310\311 ;\203 \312\313\n #\202! \314 A@\n\"*! $\207" [radio-target element property text format "\\hypertarget%s{%s}{%s}" org-beamer--element-has-overlay-p "" org-export-solidify-link-text :value get-text-property 0 plist-get] 8 (#$ . 21743)])
#@111 Transcode a TARGET object into Beamer code.
CONTENTS is nil. INFO is a plist holding contextual
information.
(defalias 'org-beamer-target #[(target contents info) "\303\304\305\306 ;\203 \307\310\n #\202 \311 A@\n\"*!\"\207" [target element property format "\\hypertarget{%s}{}" org-export-solidify-link-text :value get-text-property 0 plist-get] 7 (#$ . 22217)])
#@143 Return complete document string after Beamer conversion.
CONTENTS is the transcoded contents string. INFO is a plist
holding export options.
(defalias 'org-beamer-template #[(contents info) "\306\307\310\"\"\307\311\"\205 \312\313!\307\314\"\307\315\"\316\n\f\"A@\211 ;\2059 \2040
\2029 \317\320
\321\322\323&\211 @\204F \324\325\n\"\202g \326\327\330\331@AB\322\330\307\332\"!\330\307\333\"!\307\334\"Q%!!\",\335 C\336\337\340\341#)\307\342\"\211 D\250\205\201 \343\344D\")\307\345\"\205\231 \307\346\"\211 E\205\230 \306E\")\307\347\"\205\247 \306\307\350\"\" F\211 G\203\305 F\203\305 F\341\230\204\305 \343\351GF#\202\323 G\203\322 \343\352G\"\202\323 \353*\307\354\"\205\336 \355! H\343\356\306H\"\")\343\357 \"\307\360\"\205\343\361\307\362\"\206\376 \341\307\363\"\206\341\307\364\"\204\341\202\307\365\"$\366\330 \341\230\203\"\322\202>I;\204,\322\202>\367\370I\"\203<\343I \"\202>I!\307\371\"\211 J\205d\343\372\373K\374\"L#\375J!\205_\343\376J\"\377\201O R)M\307\364\"\211 N\204u\341\202\222N\201P =\203\212\343\201Q \307\365\"\"\202\222\307\365\"\201R P)\201S \260)\207" [info title class class-options org-latex-classes header org-export-data plist-get :title :time-stamp-file format-time-string "%% Created %Y-%m-%d %a %H:%M\n" :latex-class :latex-class-options assoc replace-regexp-in-string "^[ ]*\\\\documentclass\\(\\(\\[[^]]*\\]\\)?\\)" t nil 1 user-error "Unknown LaTeX class `%s'" org-latex-guess-babel-language org-latex-guess-inputenc org-element-normalize-string org-splice-latex-header :latex-header :latex-header-extra :beamer-header-extra #[(prop command) "\304 \"\211\205( \305\306\n\"\204 \307\310\n\"\202' \307\311\312\313\n\"\314\315\316\317\211\n$!#P)\207" [info prop theme command plist-get string-match "\\[.*\\]" format "{%s}\n" "%s{%s}\n" match-string 0 org-trim replace-match #1="" nil] 11] mapconcat #[(args) "\302 \"\207" [format-theme args apply] 3] ((: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" "\\author{}\n" :with-date org-export-get-date "\\date{%s}\n" "\\title{%s}\n" :latex-hyperref-p "\\hypersetup{\n pdfkeywords={%s},\n pdfsubject={%s},\n pdfcreator={%s}}\n" :keywords :description :with-creator :creator "\\begin{document}\n\n" string-match "\\(?:[^%]\\|^\\)%s" :with-toc "\\begin{frame}%s{%s}\n" org-beamer--normalize-argument option wholenump "\\setcounter{tocdepth}{%d}\n" "\\tableofcontents\n" document-class-string org-latex-default-packages-alist org-latex-packages-alist format-theme sec-num auth email author date org-latex-title-command depth org-beamer-outline-frame-options org-beamer-outline-frame-title contents creator-info "\\end{frame}\n\n" comment "%% %s\n" "\n" "\\end{document}"] 18 (#$ . 22594)])
#@35 The keymap for `org-beamer-mode'.
(defvar org-beamer-mode-map (make-sparse-keymap) (#$ . 25645))
(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 (#$ . 25817))
(make-variable-buffer-local 'org-beamer-mode)
#@53 Support for editing Beamer oriented Org mode files.
(defalias 'org-beamer-mode #[(&optional arg) "\304 \305=\203 \n?\202 \306 !\307V\310\311\n\203 \312\202 \313\"\210\314\315!\203D \304 \2033 \304 \232\203D \316\317\320\n\203? \321\202@ \322 #\210))\323 \210\n\207" [#1=#:last-message arg org-beamer-mode local 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] 4 (#$ . 26009) (list (or current-prefix-arg 'toggle))])
#@180 Hook run after entering or leaving `org-beamer-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar org-beamer-mode-hook nil (#$ . 26637))
#@31 Keymap for `org-beamer-mode'.
(defvar org-beamer-mode-map (byte-code "\301\302!\203\f \202 <\203 \303!\202 \304\305\")\207" [m org-beamer-mode-map keymapp easy-mmode-define-keymap error "Invalid keymap %S"] 3) (#$ . 26869))
(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)
#@114 Track the BEAMER_env property with tags.
PROPERTY is the name of the modified property. VALUE is its new
value.
(defalias 'org-beamer-property-changed #[(property value) "\304\232\2033 \212\305\306!\210\307\310\311 \"\312 !\205 \313 P\314\n\203& \n B\202' !\210\n\2051 \315\n\316\"+\207\317\232\205G \315\320\312 !\203E \316\202F \321\"\207" [property value env-tag tags "BEAMER_env" org-back-to-heading t org-remove-if #[(x) "\301\302\"\207" [x string-match "^B_"] 3] org-get-tags org-string-nw-p "B_" org-set-tags-to org-toggle-tag on "BEAMER_col" "BMCOL" off] 4 (#$ . 27524)])
(add-hook 'org-property-changed-functions 'org-beamer-property-changed)
#@37 Supply allowed values for PROPERTY.
(defalias 'org-beamer-allowed-property-values #[(property) "\305\232\203 \306\307\310P\311#\204 \312\313\314 \n #\"\207\315\232\205. \306\307\310P\311#?\205. \316\f\317\"\207" [property 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" org-split-string " "] 6 (#$ . 28190)])
(add-hook 'org-property-allowed-value-functions 'org-beamer-allowed-property-values)
#@956 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.
(defalias 'org-beamer-export-as-latex #[(&optional async subtreep visible-only body-only ext-plist) "\305\306\307 \n \f\310&\207" [async subtreep visible-only body-only ext-plist org-export-to-buffer beamer "*Org BEAMER Export*" #[nil "\300 \207" [LaTeX-mode] 1]] 9 (#$ . 28745) nil])
#@854 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.
(defalias 'org-beamer-export-to-latex #[(&optional async subtreep visible-only body-only ext-plist) "\306\307\"\310\311 \n \f
&)\207" [subtreep file async visible-only body-only ext-plist org-export-output-file-name ".tex" org-export-to-file beamer] 8 (#$ . 29994) nil])
#@851 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.
(defalias 'org-beamer-export-to-pdf #[(&optional async subtreep visible-only body-only ext-plist) "\306\307\"\310\311 \n \f
\312&)\207" [subtreep file async visible-only body-only ext-plist org-export-output-file-name ".tex" org-export-to-file beamer #[(file) "\301!\207" [file org-latex-compile] 2]] 9 (#$ . 31129) 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 #[nil "\306 \n#\306\307\310\311 \"\312\313$ \314 \315\211 + ,\316 \210\3171% \320 0\202) \210\202, \206- \321 -.\322=\203M \323\324-\"\203G \325\326\327\330!\"\202\243 \331\326!\202\243 .\332=\203\204 \333\314\334\"\335\232\203n \336\314\334\"\210\336\314\337\"\210\336\314\340\"\202\243 \341\314\334\335#\210\325\337\327\342!\"\210\325\340\327\343!\"\202\243 \323\344\345\346 \347#\350Q-\"\203\237 \341\314\334\351\352-\"#\202\243 \336\314\334\".\207" [org-beamer-environments-special org-beamer-environments-extra org-beamer-environments-default envs org-tag-alist org-tag-persistent-alist append ((:startgroup)) mapcar #[(e) "\301@P\302A@!B\207" [e "B_" string-to-char] 3] ((: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-use-fast-tag-selection org-fast-tag-selection-single-key tags org-last-tag-selection-key] 7 (#$ . 32313) nil])
#@63 Insert a settings template, to make sure users do this right.
(defalias 'org-beamer-insert-options-template #[(&optional kind) "\304=\203/ \305\306!\210\307 \210\310\311\312\313#\210\310\311\314\315#\210\310\311\316\317#\210 \203) \310\311\320 #\210\310\311\321\n#\207\322c\210\323c\210 \203? \324 \325\261\210 \203I \326 \325\261\210\327\n\325\261\207" [kind org-beamer-column-view-format org-beamer-column-widths org-beamer-theme subtree org-back-to-heading t org-reveal org-entry-put nil "EXPORT_LaTeX_CLASS" "beamer" "EXPORT_LaTeX_CLASS_OPTIONS" "[presentation]" "EXPORT_FILE_NAME" "presentation.pdf" "COLUMNS" "BEAMER_col_ALL" "#+LaTeX_CLASS: beamer\n" "#+LaTeX_CLASS_OPTIONS: [presentation]\n" "#+BEAMER_THEME: " "\n" "#+COLUMNS: " "#+PROPERTY: BEAMER_col_ALL "] 4 (#$ . 33902) (byte-code "\300\301!\210\302 \303=\203 \304C\207\305C\207" [message "Current [s]ubtree or [g]lobal?" read-char-exclusive 103 global subtree] 2)])
#@229 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.
(defalias 'org-beamer-publish-to-latex #[(plist filename pub-dir) "\303\304\305 \n%\207" [filename plist pub-dir org-publish-org-to beamer ".tex"] 6 (#$ . 34845)])
#@238 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.
(defalias 'org-beamer-publish-to-pdf #[(plist filename pub-dir) "\303\304\305\306 \307\310 !%!\n#\207" [plist filename pub-dir org-publish-attachment org-latex-compile org-publish-org-to beamer ".tex" file-name-directory] 10 (#$ . 35245)])
(provide 'ox-beamer)
Kontol Shell Bypass