emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [O] Bug: Wrong type argument: arrayp, nil when exporting to beamer [


From: Jason Lewis
Subject: Re: [O] Bug: Wrong type argument: arrayp, nil when exporting to beamer [8.2 (8.2-elpa @ /Users/jason/.emacs.d/elpa/org-20130919/)]
Date: Sun, 22 Sep 2013 14:41:10 +1000
User-agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10.8; rv:17.0) Gecko/20130801 Thunderbird/17.0.8

Backtrace below

On 22/09/13 2:14 PM, Jason Lewis wrote:
> When I try and export the following code to beamer, using the C-c C-e l
> b, it gives the error:
>
> setq: Wrong type argument: arrayp, nil
>
> example file that causes the error:
>
> #+STARTUP: beamer
> * Introduction                                                     
> :B_frame:
>   :PROPERTIES:
>   :BEAMER_env: frame
>   :END:
> ** Tools I looked at                                               
> :B_frame:
>    :PROPERTIES:
>    :BEAMER_env: frame
>    :END:
>    + test
>
> Let me know if you need any further info?
>
> Emacs  : GNU Emacs 24.3.1 (x86_64-apple-darwin12.3.0, NS
> apple-appkit-1187.37)
>  of 2013-03-17 on tolkien.lan
> Package: Org-mode version 8.2 (8.2-elpa @
> /Users/jason/.emacs.d/elpa/org-20130919/)
>
> current state:
> ==============
> (setq
>  org-tab-first-hook '(org-hide-block-toggle-maybe
>                       org-src-native-tab-command-maybe
>                       org-babel-hide-result-toggle-maybe
>                       org-babel-header-arg-expand)
>  outline-minor-mode-hook '(mediawiki-outline-magic-keys)
>  org-latex-classes '(("beamer"
>                      
> "\\documentclass[presentation]{beamer}\n[DEFAULT-PACKAGES]\n[PACKAGES]\n[EXTRA]"
>                       ("\\section{%s}" . "\\section*{%s}")
>                       ("\\subsection{%s}" . "\\subsection*{%s}")
>                       ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
>                      ("article" "\\documentclass[11pt]{article}"
>                       ("\\section{%s}" . "\\section*{%s}")
>                       ("\\subsection{%s}" . "\\subsection*{%s}")
>                       ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
>                       ("\\paragraph{%s}" . "\\paragraph*{%s}")
>                       ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
>                      ("report" "\\documentclass[11pt]{report}"
>                       ("\\part{%s}" . "\\part*{%s}")
>                       ("\\chapter{%s}" . "\\chapter*{%s}")
>                       ("\\section{%s}" . "\\section*{%s}")
>                       ("\\subsection{%s}" . "\\subsection*{%s}")
>                       ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
>                      ("book" "\\documentclass[11pt]{book}"
>                       ("\\part{%s}" . "\\part*{%s}")
>                       ("\\chapter{%s}" . "\\chapter*{%s}")
>                       ("\\section{%s}" . "\\section*{%s}")
>                       ("\\subsection{%s}" . "\\subsection*{%s}")
>                       ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
>                      )
>  org-speed-command-hook '(org-speed-command-default-hook
>                           org-babel-speed-command-hook)
>  org-occur-hook '(org-first-headline-recenter)
>  org-metaup-hook '(org-babel-load-in-session-maybe)
>  org-confirm-shell-link-function 'yes-or-no-p
>  org-latex-format-headline-function
> 'org-latex-format-headline-default-function
>  org-default-notes-file "~/Dropbox/org/todo.org"
>  org-after-todo-state-change-hook '(org-clock-out-if-current)
>  org-src-mode-hook '(org-src-babel-configure-edit-buffer
>                      org-src-mode-configure-edit-buffer)
>  org-agenda-before-write-hook '(org-agenda-add-entry-text)
>  org-babel-pre-tangle-hook '(save-buffer)
>  org-mode-hook '((lambda nil
>                   (org-add-hook (quote change-major-mode-hook)
>                    (quote org-show-block-all) (quote append) (quote local))
>                   )
>                  (lambda nil
>                   (org-add-hook (quote change-major-mode-hook)
>                    (quote org-babel-show-result-all) (quote append)
>                    (quote local))
>                   )
>                  org-babel-result-hide-spec org-babel-hide-all-hashes
>                  (lambda nil (flyspell-mode -1)))
>  org-refile-targets '((nil :maxlevel . 9) (org-agenda-files :maxlevel . 9))
>  org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point
>                           org-babel-execute-safely-maybe)
>  org-directory "~/Dropbox/org"
>  org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
>                   org-cycle-hide-inline-tasks org-cycle-show-empty-lines
>                   org-optimize-window-after-visibility-change)
>  org-M-RET-may-split-line '((default))
>  org-blank-before-new-entry nil
>  org-confirm-elisp-link-function 'yes-or-no-p
>  org-metadown-hook '(org-babel-pop-to-session-maybe)
>  org-agenda-files '("~/Dropbox/org/todo.org" "~/Dropbox/org"
>                     "~/Dropbox/org/todo.org")
>  org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
>  )
>
>

I made a backtrace with a minimal org as per the instructions on the worg.

Debugger entered--Lisp error: (wrong-type-argument arrayp nil)
  replace-regexp-in-string("%a" "" nil t t)
  (setq template (replace-regexp-in-string (concat "%" (regexp-quote
(car entry))) (or (cdr entry) "") template t t))
  (while (setq entry (car (prog1 alist (setq alist (cdr alist))))) (setq
template (replace-regexp-in-string (concat "%" (regexp-quote (car
entry))) (or (cdr entry) "") template t t)))
  (let ((case-fold-search nil) entry key value) (setq alist (sort
(copy-sequence alist) (function (lambda (a b) (< (length (car a))
(length (car b))))))) (while (setq entry (car (prog1 alist (setq alist
(cdr alist))))) (setq template (replace-regexp-in-string (concat "%"
(regexp-quote (car entry))) (or (cdr entry) "") template t t))) template)
  org-fill-template(nil (("a" . "") ("A" . "") ("o" . "") ("h" . #("Test
Heading 1" 0 14 (:parent (headline (:raw-value "Test Heading 1" :begin
141 :end 238 :pre-blank 0 :hiddenp outline :contents-begin 180
:contents-end 237 :level 2 :priority nil :tags ("B_frame") :todo-keyword
nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil
:commentedp nil :quotedp nil :BEAMER_ENV "frame" :CATEGORY "test" :title
(#("Test Heading 1" 0 14 ...)) :parent (headline (:raw-value
"Introduction" :begin 19 :end 238 :pre-blank 0 :hiddenp outline
:contents-begin 97 :contents-end 237 :level 1 :priority nil :tags ...
:todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil
:archivedp nil :commentedp nil :quotedp nil :BEAMER_ENV "frame"
:CATEGORY "test" :title ... :parent ...) (section ... ...) #4)) (section
(:begin 180 :end 238 :contents-begin 180 :contents-end 237 :post-blank 1
:parent #4) (property-drawer (:begin 180 :end 227 :hiddenp outline
:contents-begin 196 :contents-end 218 :post-blank 0 :post-affiliated 180
:parent #5) (node-property ...)) (plain-list (:type unordered :begin 227
:end 237 :contents-begin 227 :contents-end 237 :structure ...
:post-blank 0 :post-affiliated 227 :parent #5) (item ... ...))))))) ("r"
. "Test Heading 1") ("H" . "{Test Heading 1}") ("U" . "[Test Heading 1]")))
  (concat (org-fill-template (nth 2 env-format) (nconc (let ((action
(org-element-property :BEAMER_ACT headline))) (cond ((not action) (list
(cons "a" "") (cons "A" ""))) ((string-match "\\`\\[.*\\]\\'" action)
(list (cons "A" ...) (cons "a" ""))) (t (list (cons "a" ...) (cons "A"
""))))) (list (cons "o" options) (cons "h" title) (cons "r" raw-title)
(cons "H" (if (equal raw-title "") "" (format "{%s}" raw-title))) (cons
"U" (if (equal raw-title "") "" (format "[%s]" raw-title)))))) "\n")
  (progn (concat (org-fill-template (nth 2 env-format) (nconc (let
((action (org-element-property :BEAMER_ACT headline))) (cond ((not
action) (list ... ...)) ((string-match "\\`\\[.*\\]\\'" action) (list
... ...)) (t (list ... ...)))) (list (cons "o" options) (cons "h" title)
(cons "r" raw-title) (cons "H" (if (equal raw-title "") "" (format
"{%s}" raw-title))) (cons "U" (if (equal raw-title "") "" (format "[%s]"
raw-title)))))) "\n"))
  (if env-format (progn (concat (org-fill-template (nth 2 env-format)
(nconc (let ((action ...)) (cond (... ...) (... ...) (t ...))) (list
(cons "o" options) (cons "h" title) (cons "r" raw-title) (cons "H" (if
... "" ...)) (cons "U" (if ... "" ...))))) "\n")))
  (concat (if start-columns-p (progn (if (not (equal environment
"columns")) "\\begin{columns}\n" (format "\\begin{columns}%s\n"
options)))) (if column-width (progn (format "\\begin{column}%s{%s}\n"
(if (equal environment "column") options "") (format "%s\\textwidth"
column-width)))) (if env-format (progn (concat (org-fill-template (nth 2
env-format) (nconc (let (...) (cond ... ... ...)) (list (cons "o"
options) (cons "h" title) (cons "r" raw-title) (cons "H" ...) (cons "U"
...)))) "\n"))) contents (if environment (progn (concat (nth 3
env-format) "\n"))) (if column-width (progn "\\end{column}\n")) (if
end-columns-p (progn "\\end{columns}")))
  (let* ((column-width (org-element-property :BEAMER_COL headline))
(environment (let ((env (org-element-property :BEAMER_ENV headline)))
(cond ((and (not env) (not column-width)) "block") ((not env) "column")
(t env)))) (env-format (if (member environment (quote ("column"
"columns"))) nil (assoc environment (append
org-beamer-environments-special org-beamer-environments-extra
org-beamer-environments-default)))) (raw-title (org-element-property
:raw-value headline)) (title (org-export-data (org-element-property
:title headline) info)) (options (let ((options (org-element-property
:BEAMER_OPT headline))) (if (not options) ""
(org-beamer--normalize-argument options (quote option))))) (parent-env
(org-element-property :BEAMER_ENV (org-export-get-parent-headline
headline))) (start-columns-p (or (equal environment "columns") (and
column-width (not (and parent-env (equal ... "columns"))) (or
(org-export-first-sibling-p headline info) (not (org-element-property
:BEAMER_COL ...)))))) (end-columns-p (or (equal environment "columns")
(and column-width (not (and parent-env (equal ... "columns"))) (or
(org-export-last-sibling-p headline info) (not (org-element-property
:BEAMER_COL ...))))))) (concat (if start-columns-p (progn (if (not
(equal environment "columns")) "\\begin{columns}\n" (format
"\\begin{columns}%s\n" options)))) (if column-width (progn (format
"\\begin{column}%s{%s}\n" (if (equal environment "column") options "")
(format "%s\\textwidth" column-width)))) (if env-format (progn (concat
(org-fill-template (nth 2 env-format) (nconc (let ... ...) (list ... ...
... ... ...))) "\n"))) contents (if environment (progn (concat (nth 3
env-format) "\n"))) (if column-width (progn "\\end{column}\n")) (if
end-columns-p (progn "\\end{columns}"))))
  org-beamer--format-block((headline (:raw-value "Test Heading 1" :begin
141 :end 238 :pre-blank 0 :hiddenp outline :contents-begin 180
:contents-end 237 :level 2 :priority nil :tags ("B_frame") :todo-keyword
nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil
:commentedp nil :quotedp nil :BEAMER_ENV "frame" :CATEGORY "test" :title
(#("Test Heading 1" 0 14 (:parent #0))) :parent (headline (:raw-value
"Introduction" :begin 19 :end 238 :pre-blank 0 :hiddenp outline
:contents-begin 97 :contents-end 237 :level 1 :priority nil :tags
("B_frame") :todo-keyword nil :todo-type nil :post-blank 0
:footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil
:BEAMER_ENV "frame" :CATEGORY "test" :title (#("Introduction" 0 12
(:parent #2))) :parent (org-data nil (section (:begin 1 :end 19
:contents-begin 1 :contents-end 19 :post-blank 0 :parent #4) (keyword
(:key "STARTUP" :value "beamer" :begin 1 :end 19 :post-blank 0
:post-affiliated 1 :parent #5))) #2)) (section (:begin 97 :end 141
:contents-begin 97 :contents-end 141 :post-blank 0 :parent #2)
(property-drawer (:begin 97 :end 141 :hiddenp outline :contents-begin
112 :contents-end 133 :post-blank 0 :post-affiliated 97 :parent #3)
(node-property (:key "BEAMER_env" :value "frame" :begin 112 :end 133
:post-blank 0 :parent #4)))) #0)) (section (:begin 180 :end 238
:contents-begin 180 :contents-end 237 :post-blank 1 :parent #0)
(property-drawer (:begin 180 :end 227 :hiddenp outline :contents-begin
196 :contents-end 218 :post-blank 0 :post-affiliated 180 :parent #1)
(node-property (:key "BEAMER_env" :value "frame" :begin 196 :end 218
:post-blank 0 :parent #2))) (plain-list (:type unordered :begin 227 :end
237 :contents-begin 227 :contents-end 237 :structure ((227 3 "+ " nil
nil nil 237)) :post-blank 0 :post-affiliated 227 :parent #1) (item
(:bullet "+ " :begin 227 :end 237 :contents-begin 232 :contents-end 237
:checkbox nil :counter nil :hiddenp nil :structure ((227 3 "+ " nil nil
nil 237)) :post-blank 0 :tag nil :parent #2) (paragraph (:begin 232 :end
237 :contents-begin 232 :contents-end 237 :post-blank 0 :post-affiliated
232 :parent #3) #("test\n" 0 5 (:parent #4)))))))
#("\\begin{itemize}\n\\item test\n\\end{itemize}\n" 22 26 (:parent
(paragraph (:begin 232 :end 237 :contents-begin 232 :contents-end 237
:post-blank 0 :post-affiliated 232 :parent (item (:bullet "+ " :begin
227 :end 237 :contents-begin 232 :contents-end 237 :checkbox nil
:counter nil :hiddenp nil :structure ((227 3 "+ " nil nil nil 237))
:post-blank 0 :tag nil :parent (plain-list (:type unordered :begin 227
:end 237 :contents-begin 227 :contents-end 237 :structure ...
:post-blank 0 :post-affiliated 227 :parent ...) #4)) #2)) #("test\n" 0 5
(:parent #2))))) (:export-options nil :input-file
"/Users/jason/Dropbox/latex talk/test.org" :title "test" :beamer-theme
"default" :headline-levels 1 :latex-class "beamer" :latex-hyperref-p t
:date ((latex-fragment (:value "\\today" :begin 1 :end 7 :post-blank 0
:parent #1))) :author ("Jason Lewis") :creator "Emacs 24.3.1 (Org mode
8.2)" :email "address@hidden" :exclude-tags ("noexport") :language
"en" :preserve-breaks nil :section-numbers t :select-tags ("export")
:time-stamp-file t :with-archived-trees headline :with-author t
:with-clocks nil :with-creator comment :with-date t :with-drawers (not
"LOGBOOK") :with-email nil :with-emphasize t ...))
  (cond ((equal environment "againframe") (let ((ref
(org-element-property :BEAMER_REF headline))) (if (org-string-nw-p ref)
(progn (concat "\\againframe" (let (...) (if overlay ...)) (let (...)
(if options ...)) (let* (... ... ...) (format "{%s}" ...))))))) ((equal
environment "appendix") (concat "\\appendix" (org-element-property
:BEAMER_ACT headline) "\n" (make-string (org-element-property :pre-blank
headline) 10) contents)) ((equal environment "ignoreheading") (concat
(make-string (org-element-property :pre-blank headline) 10) contents))
((member environment (quote ("note" "noteNH"))) (format "\\note{%s}"
(concat (and (equal environment "note") (concat (org-export-data
(org-element-property :title headline) info) "\n")) (org-trim
contents)))) ((= level frame-level) (org-beamer--format-frame headline
contents info)) ((< level frame-level) (org-beamer--format-section
headline contents info)) (t (org-beamer--format-block headline contents
info)))
  (let ((level (org-export-get-relative-level headline info))
(frame-level (org-beamer--frame-level headline info)) (environment (let
((env (org-element-property :BEAMER_ENV headline))) (or (org-string-nw-p
env) "block")))) (cond ((equal environment "againframe") (let ((ref
(org-element-property :BEAMER_REF headline))) (if (org-string-nw-p ref)
(progn (concat "\\againframe" (let ... ...) (let ... ...) (let* ...
...)))))) ((equal environment "appendix") (concat "\\appendix"
(org-element-property :BEAMER_ACT headline) "\n" (make-string
(org-element-property :pre-blank headline) 10) contents)) ((equal
environment "ignoreheading") (concat (make-string (org-element-property
:pre-blank headline) 10) contents)) ((member environment (quote ("note"
"noteNH"))) (format "\\note{%s}" (concat (and (equal environment "note")
(concat (org-export-data ... info) "\n")) (org-trim contents)))) ((=
level frame-level) (org-beamer--format-frame headline contents info))
((< level frame-level) (org-beamer--format-section headline contents
info)) (t (org-beamer--format-block headline contents info))))
  (if (org-element-property :footnote-section-p headline) nil (let
((level (org-export-get-relative-level headline info)) (frame-level
(org-beamer--frame-level headline info)) (environment (let ((env
(org-element-property :BEAMER_ENV headline))) (or (org-string-nw-p env)
"block")))) (cond ((equal environment "againframe") (let ((ref
(org-element-property :BEAMER_REF headline))) (if (org-string-nw-p ref)
(progn (concat "\\againframe" ... ... ...))))) ((equal environment
"appendix") (concat "\\appendix" (org-element-property :BEAMER_ACT
headline) "\n" (make-string (org-element-property :pre-blank headline)
10) contents)) ((equal environment "ignoreheading") (concat (make-string
(org-element-property :pre-blank headline) 10) contents)) ((member
environment (quote ("note" "noteNH"))) (format "\\note{%s}" (concat (and
(equal environment "note") (concat ... "\n")) (org-trim contents)))) ((=
level frame-level) (org-beamer--format-frame headline contents info))
((< level frame-level) (org-beamer--format-section headline contents
info)) (t (org-beamer--format-block headline contents info)))))
  org-beamer-headline((headline (:raw-value "Test Heading 1" :begin 141
:end 238 :pre-blank 0 :hiddenp outline :contents-begin 180 :contents-end
237 :level 2 :priority nil :tags ("B_frame") :todo-keyword nil
:todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil
:commentedp nil :quotedp nil :BEAMER_ENV "frame" :CATEGORY "test" :title
(#("Test Heading 1" 0 14 (:parent #0))) :parent (headline (:raw-value
"Introduction" :begin 19 :end 238 :pre-blank 0 :hiddenp outline
:contents-begin 97 :contents-end 237 :level 1 :priority nil :tags
("B_frame") :todo-keyword nil :todo-type nil :post-blank 0
:footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil
:BEAMER_ENV "frame" :CATEGORY "test" :title (#("Introduction" 0 12
(:parent #2))) :parent (org-data nil (section (:begin 1 :end 19
:contents-begin 1 :contents-end 19 :post-blank 0 :parent #4) (keyword
(:key "STARTUP" :value "beamer" :begin 1 :end 19 :post-blank 0
:post-affiliated 1 :parent #5))) #2)) (section (:begin 97 :end 141
:contents-begin 97 :contents-end 141 :post-blank 0 :parent #2)
(property-drawer (:begin 97 :end 141 :hiddenp outline :contents-begin
112 :contents-end 133 :post-blank 0 :post-affiliated 97 :parent #3)
(node-property (:key "BEAMER_env" :value "frame" :begin 112 :end 133
:post-blank 0 :parent #4)))) #0)) (section (:begin 180 :end 238
:contents-begin 180 :contents-end 237 :post-blank 1 :parent #0)
(property-drawer (:begin 180 :end 227 :hiddenp outline :contents-begin
196 :contents-end 218 :post-blank 0 :post-affiliated 180 :parent #1)
(node-property (:key "BEAMER_env" :value "frame" :begin 196 :end 218
:post-blank 0 :parent #2))) (plain-list (:type unordered :begin 227 :end
237 :contents-begin 227 :contents-end 237 :structure ((227 3 "+ " nil
nil nil 237)) :post-blank 0 :post-affiliated 227 :parent #1) (item
(:bullet "+ " :begin 227 :end 237 :contents-begin 232 :contents-end 237
:checkbox nil :counter nil :hiddenp nil :structure ((227 3 "+ " nil nil
nil 237)) :post-blank 0 :tag nil :parent #2) (paragraph (:begin 232 :end
237 :contents-begin 232 :contents-end 237 :post-blank 0 :post-affiliated
232 :parent #3) #("test\n" 0 5 (:parent #4)))))))
#("\\begin{itemize}\n\\item test\n\\end{itemize}\n" 22 26 (:parent
(paragraph (:begin 232 :end 237 :contents-begin 232 :contents-end 237
:post-blank 0 :post-affiliated 232 :parent (item (:bullet "+ " :begin
227 :end 237 :contents-begin 232 :contents-end 237 :checkbox nil
:counter nil :hiddenp nil :structure ((227 3 "+ " nil nil nil 237))
:post-blank 0 :tag nil :parent (plain-list (:type unordered :begin 227
:end 237 :contents-begin 227 :contents-end 237 :structure ...
:post-blank 0 :post-affiliated 227 :parent ...) #4)) #2)) #("test\n" 0 5
(:parent #2))))) (:export-options nil :input-file
"/Users/jason/Dropbox/latex talk/test.org" :title "test" :beamer-theme
"default" :headline-levels 1 :latex-class "beamer" :latex-hyperref-p t
:date ((latex-fragment (:value "\\today" :begin 1 :end 7 :post-blank 0
:parent #1))) :author ("Jason Lewis") :creator "Emacs 24.3.1 (Org mode
8.2)" :email "address@hidden" :exclude-tags ("noexport") :language
"en" :preserve-breaks nil :section-numbers t :select-tags ("export")
:time-stamp-file t :with-archived-trees headline :with-author t
:with-clocks nil :with-creator comment :with-date t :with-drawers (not
"LOGBOOK") :with-email nil :with-emphasize t ...))
  funcall(org-beamer-headline (headline (:raw-value "Test Heading 1"
:begin 141 :end 238 :pre-blank 0 :hiddenp outline :contents-begin 180
:contents-end 237 :level 2 :priority nil :tags ("B_frame") :todo-keyword
nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil
:commentedp nil :quotedp nil :BEAMER_ENV "frame" :CATEGORY "test" :title
(#("Test Heading 1" 0 14 (:parent #0))) :parent (headline (:raw-value
"Introduction" :begin 19 :end 238 :pre-blank 0 :hiddenp outline
:contents-begin 97 :contents-end 237 :level 1 :priority nil :tags
("B_frame") :todo-keyword nil :todo-type nil :post-blank 0
:footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil
:BEAMER_ENV "frame" :CATEGORY "test" :title (#("Introduction" 0 12
(:parent #2))) :parent (org-data nil (section (:begin 1 :end 19
:contents-begin 1 :contents-end 19 :post-blank 0 :parent #4) (keyword
(:key "STARTUP" :value "beamer" :begin 1 :end 19 :post-blank 0
:post-affiliated 1 :parent #5))) #2)) (section (:begin 97 :end 141
:contents-begin 97 :contents-end 141 :post-blank 0 :parent #2)
(property-drawer (:begin 97 :end 141 :hiddenp outline :contents-begin
112 :contents-end 133 :post-blank 0 :post-affiliated 97 :parent #3)
(node-property (:key "BEAMER_env" :value "frame" :begin 112 :end 133
:post-blank 0 :parent #4)))) #0)) (section (:begin 180 :end 238
:contents-begin 180 :contents-end 237 :post-blank 1 :parent #0)
(property-drawer (:begin 180 :end 227 :hiddenp outline :contents-begin
196 :contents-end 218 :post-blank 0 :post-affiliated 180 :parent #1)
(node-property (:key "BEAMER_env" :value "frame" :begin 196 :end 218
:post-blank 0 :parent #2))) (plain-list (:type unordered :begin 227 :end
237 :contents-begin 227 :contents-end 237 :structure ((227 3 "+ " nil
nil nil 237)) :post-blank 0 :post-affiliated 227 :parent #1) (item
(:bullet "+ " :begin 227 :end 237 :contents-begin 232 :contents-end 237
:checkbox nil :counter nil :hiddenp nil :structure ((227 3 "+ " nil nil
nil 237)) :post-blank 0 :tag nil :parent #2) (paragraph (:begin 232 :end
237 :contents-begin 232 :contents-end 237 :post-blank 0 :post-affiliated
232 :parent #3) #("test\n" 0 5 (:parent #4)))))))
#("\\begin{itemize}\n\\item test\n\\end{itemize}\n" 22 26 (:parent
(paragraph (:begin 232 :end 237 :contents-begin 232 :contents-end 237
:post-blank 0 :post-affiliated 232 :parent (item (:bullet "+ " :begin
227 :end 237 :contents-begin 232 :contents-end 237 :checkbox nil
:counter nil :hiddenp nil :structure ((227 3 "+ " nil nil nil 237))
:post-blank 0 :tag nil :parent (plain-list (:type unordered :begin 227
:end 237 :contents-begin 227 :contents-end 237 :structure ...
:post-blank 0 :post-affiliated 227 :parent ...) #4)) #2)) #("test\n" 0 5
(:parent #2))))) (:export-options nil :input-file
"/Users/jason/Dropbox/latex talk/test.org" :title "test" :beamer-theme
"default" :headline-levels 1 :latex-class "beamer" :latex-hyperref-p t
:date ((latex-fragment (:value "\\today" :begin 1 :end 7 :post-blank 0
:parent #1))) :author ("Jason Lewis") :creator "Emacs 24.3.1 (Org mode
8.2)" :email "address@hidden" :exclude-tags ("noexport") :language
"en" :preserve-breaks nil :section-numbers t :select-tags ("export")
:time-stamp-file t :with-archived-trees headline :with-author t
:with-clocks nil :with-creator comment :with-date t :with-drawers (not
"LOGBOOK") :with-email nil :with-emphasize t ...))
  (let* ((greaterp (memq type org-element-greater-elements)) (objectp
(and (not greaterp) (memq type org-element-recursive-objects)))
(contents (mapconcat (function (lambda (element) (org-export-data
element info))) (org-element-contents (if (or greaterp objectp) data
(org-element-normalize-contents data (if ... ...)))) ""))) (funcall
transcoder data (if (not greaterp) contents
(org-element-normalize-string contents)) info))
  (progn (let* ((greaterp (memq type org-element-greater-elements))
(objectp (and (not greaterp) (memq type org-element-recursive-objects)))
(contents (mapconcat (function (lambda (element) (org-export-data
element info))) (org-element-contents (if (or greaterp objectp) data
(org-element-normalize-contents data ...))) ""))) (funcall transcoder
data (if (not greaterp) contents (org-element-normalize-string
contents)) info)))
  (if transcoder (progn (let* ((greaterp (memq type
org-element-greater-elements)) (objectp (and (not greaterp) (memq type
org-element-recursive-objects))) (contents (mapconcat (function (lambda
... ...)) (org-element-contents (if ... data ...)) ""))) (funcall
transcoder data (if (not greaterp) contents
(org-element-normalize-string contents)) info))))
  (let ((transcoder (org-export-transcoder data info))) (if transcoder
(progn (let* ((greaterp (memq type org-element-greater-elements))
(objectp (and (not greaterp) (memq type org-element-recursive-objects)))
(contents (mapconcat (function ...) (org-element-contents ...) "")))
(funcall transcoder data (if (not greaterp) contents
(org-element-normalize-string contents)) info)))))
  (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type (quote
plain-text)) (org-export-filter-apply-functions (plist-get info
:filter-plain-text) (let ((transcoder (org-export-transcoder data
info))) (if transcoder (funcall transcoder data info) data)) info))
((not (org-export--interpret-p data info)) (org-export-data
(org-export-expand data (mapconcat (function (lambda (blob)
(org-export-data blob info))) (org-element-contents data) "")) info))
((not type) (mapconcat (function (lambda (obj) (org-export-data obj
info))) data "")) ((or (not (org-element-contents data)) (and (eq type
(quote headline)) (eq (plist-get info :with-archived-trees) (quote
headline)) (org-element-property :archivedp data))) (let ((transcoder
(org-export-transcoder data info))) (or (and (functionp transcoder)
(funcall transcoder data nil info)) (and (eq type (quote
export-snippet)) "")))) (t (let ((transcoder (org-export-transcoder data
info))) (if transcoder (progn (let* ((greaterp ...) (objectp ...)
(contents ...)) (funcall transcoder data (if ... contents ...) info)))))))
  (let* ((type (org-element-type data)) (results (cond ((memq data
(plist-get info :ignore-list)) nil) ((eq type (quote plain-text))
(org-export-filter-apply-functions (plist-get info :filter-plain-text)
(let (...) (if transcoder ... data)) info)) ((not
(org-export--interpret-p data info)) (org-export-data (org-export-expand
data (mapconcat ... ... "")) info)) ((not type) (mapconcat (function
(lambda ... ...)) data "")) ((or (not (org-element-contents data)) (and
(eq type ...) (eq ... ...) (org-element-property :archivedp data))) (let
((transcoder ...)) (or (and ... ...) (and ... "")))) (t (let
((transcoder ...)) (if transcoder (progn ...))))))) (puthash data (cond
((not results) nil) ((memq type (quote (org-data plain-text nil)))
results) (t (let ((results (org-export-filter-apply-functions ... ...
info))) results))) (plist-get info :exported-data)))
  (if (not (eq memo (quote no-memo))) memo (let* ((type
(org-element-type data)) (results (cond ((memq data (plist-get info
:ignore-list)) nil) ((eq type (quote plain-text))
(org-export-filter-apply-functions (plist-get info :filter-plain-text)
(let ... ...) info)) ((not (org-export--interpret-p data info))
(org-export-data (org-export-expand data ...) info)) ((not type)
(mapconcat (function ...) data "")) ((or (not ...) (and ... ... ...))
(let (...) (or ... ...))) (t (let (...) (if transcoder ...))))))
(puthash data (cond ((not results) nil) ((memq type (quote (org-data
plain-text nil))) results) (t (let ((results ...)) results))) (plist-get
info :exported-data))))
  (let ((memo (gethash data (plist-get info :exported-data) (quote
no-memo)))) (if (not (eq memo (quote no-memo))) memo (let* ((type
(org-element-type data)) (results (cond ((memq data ...) nil) ((eq type
...) (org-export-filter-apply-functions ... ... info)) ((not ...)
(org-export-data ... info)) ((not type) (mapconcat ... data "")) ((or
... ...) (let ... ...)) (t (let ... ...))))) (puthash data (cond ((not
results) nil) ((memq type (quote ...)) results) (t (let (...) results)))
(plist-get info :exported-data)))))
  org-export-data((headline (:raw-value "Test Heading 1" :begin 141 :end
238 :pre-blank 0 :hiddenp outline :contents-begin 180 :contents-end 237
:level 2 :priority nil :tags ("B_frame") :todo-keyword nil :todo-type
nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil
:quotedp nil :BEAMER_ENV "frame" :CATEGORY "test" :title (#("Test
Heading 1" 0 14 (:parent #0))) :parent (headline (:raw-value
"Introduction" :begin 19 :end 238 :pre-blank 0 :hiddenp outline
:contents-begin 97 :contents-end 237 :level 1 :priority nil :tags
("B_frame") :todo-keyword nil :todo-type nil :post-blank 0
:footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil
:BEAMER_ENV "frame" :CATEGORY "test" :title (#("Introduction" 0 12
(:parent #2))) :parent (org-data nil (section (:begin 1 :end 19
:contents-begin 1 :contents-end 19 :post-blank 0 :parent #4) (keyword
(:key "STARTUP" :value "beamer" :begin 1 :end 19 :post-blank 0
:post-affiliated 1 :parent #5))) #2)) (section (:begin 97 :end 141
:contents-begin 97 :contents-end 141 :post-blank 0 :parent #2)
(property-drawer (:begin 97 :end 141 :hiddenp outline :contents-begin
112 :contents-end 133 :post-blank 0 :post-affiliated 97 :parent #3)
(node-property (:key "BEAMER_env" :value "frame" :begin 112 :end 133
:post-blank 0 :parent #4)))) #0)) (section (:begin 180 :end 238
:contents-begin 180 :contents-end 237 :post-blank 1 :parent #0)
(property-drawer (:begin 180 :end 227 :hiddenp outline :contents-begin
196 :contents-end 218 :post-blank 0 :post-affiliated 180 :parent #1)
(node-property (:key "BEAMER_env" :value "frame" :begin 196 :end 218
:post-blank 0 :parent #2))) (plain-list (:type unordered :begin 227 :end
237 :contents-begin 227 :contents-end 237 :structure ((227 3 "+ " nil
nil nil 237)) :post-blank 0 :post-affiliated 227 :parent #1) (item
(:bullet "+ " :begin 227 :end 237 :contents-begin 232 :contents-end 237
:checkbox nil :counter nil :hiddenp nil :structure ((227 3 "+ " nil nil
nil 237)) :post-blank 0 :tag nil :parent #2) (paragraph (:begin 232 :end
237 :contents-begin 232 :contents-end 237 :post-blank 0 :post-affiliated
232 :parent #3) #("test\n" 0 5 (:parent #4))))))) (:export-options nil
:input-file "/Users/jason/Dropbox/latex talk/test.org" :title "test"
:beamer-theme "default" :headline-levels 1 :latex-class "beamer"
:latex-hyperref-p t :date ((latex-fragment (:value "\\today" :begin 1
:end 7 :post-blank 0 :parent #1))) :author ("Jason Lewis") :creator
"Emacs 24.3.1 (Org mode 8.2)" :email "address@hidden" :exclude-tags
("noexport") :language "en" :preserve-breaks nil :section-numbers t
:select-tags ("export") :time-stamp-file t :with-archived-trees headline
:with-author t :with-clocks nil :with-creator comment :with-date t
:with-drawers (not "LOGBOOK") :with-email nil :with-emphasize t ...))
  (lambda (element) (org-export-data element info))((headline
(:raw-value "Test Heading 1" :begin 141 :end 238 :pre-blank 0 :hiddenp
outline :contents-begin 180 :contents-end 237 :level 2 :priority nil
:tags ("B_frame") :todo-keyword nil :todo-type nil :post-blank 0
:footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil
:BEAMER_ENV "frame" :CATEGORY "test" :title (#("Test Heading 1" 0 14
(:parent #0))) :parent (headline (:raw-value "Introduction" :begin 19
:end 238 :pre-blank 0 :hiddenp outline :contents-begin 97 :contents-end
237 :level 1 :priority nil :tags ("B_frame") :todo-keyword nil
:todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil
:commentedp nil :quotedp nil :BEAMER_ENV "frame" :CATEGORY "test" :title
(#("Introduction" 0 12 (:parent #2))) :parent (org-data nil (section
(:begin 1 :end 19 :contents-begin 1 :contents-end 19 :post-blank 0
:parent #4) (keyword (:key "STARTUP" :value "beamer" :begin 1 :end 19
:post-blank 0 :post-affiliated 1 :parent #5))) #2)) (section (:begin 97
:end 141 :contents-begin 97 :contents-end 141 :post-blank 0 :parent #2)
(property-drawer (:begin 97 :end 141 :hiddenp outline :contents-begin
112 :contents-end 133 :post-blank 0 :post-affiliated 97 :parent #3)
(node-property (:key "BEAMER_env" :value "frame" :begin 112 :end 133
:post-blank 0 :parent #4)))) #0)) (section (:begin 180 :end 238
:contents-begin 180 :contents-end 237 :post-blank 1 :parent #0)
(property-drawer (:begin 180 :end 227 :hiddenp outline :contents-begin
196 :contents-end 218 :post-blank 0 :post-affiliated 180 :parent #1)
(node-property (:key "BEAMER_env" :value "frame" :begin 196 :end 218
:post-blank 0 :parent #2))) (plain-list (:type unordered :begin 227 :end
237 :contents-begin 227 :contents-end 237 :structure ((227 3 "+ " nil
nil nil 237)) :post-blank 0 :post-affiliated 227 :parent #1) (item
(:bullet "+ " :begin 227 :end 237 :contents-begin 232 :contents-end 237
:checkbox nil :counter nil :hiddenp nil :structure ((227 3 "+ " nil nil
nil 237)) :post-blank 0 :tag nil :parent #2) (paragraph (:begin 232 :end
237 :contents-begin 232 :contents-end 237 :post-blank 0 :post-affiliated
232 :parent #3) #("test\n" 0 5 (:parent #4))))))))
  mapconcat((lambda (element) (org-export-data element info)) ((section
(:begin 97 :end 141 :contents-begin 97 :contents-end 141 :post-blank 0
:parent (headline (:raw-value "Introduction" :begin 19 :end 238
:pre-blank 0 :hiddenp outline :contents-begin 97 :contents-end 237
:level 1 :priority nil :tags ("B_frame") :todo-keyword nil :todo-type
nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil
:quotedp nil :BEAMER_ENV "frame" :CATEGORY "test" :title
(#("Introduction" 0 12 (:parent #3))) :parent (org-data nil (section
(:begin 1 :end 19 :contents-begin 1 :contents-end 19 :post-blank 0
:parent #5) (keyword ...)) #3)) #1 (headline (:raw-value "Test Heading
1" :begin 141 :end 238 :pre-blank 0 :hiddenp outline :contents-begin 180
:contents-end 237 :level 2 :priority nil :tags ("B_frame") :todo-keyword
nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil
:commentedp nil :quotedp nil :BEAMER_ENV "frame" :CATEGORY "test" :title
(#("Test Heading 1" 0 14 ...)) :parent #3) (section (:begin 180 :end 238
:contents-begin 180 :contents-end 237 :post-blank 1 :parent #4)
(property-drawer (:begin 180 :end 227 :hiddenp outline :contents-begin
196 :contents-end 218 :post-blank 0 :post-affiliated 180 :parent #5)
(node-property ...)) (plain-list (:type unordered :begin 227 :end 237
:contents-begin 227 :contents-end 237 :structure ... :post-blank 0
:post-affiliated 227 :parent #5) (item ... ...)))))) (property-drawer
(:begin 97 :end 141 :hiddenp outline :contents-begin 112 :contents-end
133 :post-blank 0 :post-affiliated 97 :parent #1) (node-property (:key
"BEAMER_env" :value "frame" :begin 112 :end 133 :post-blank 0 :parent
#2)))) (headline (:raw-value "Test Heading 1" :begin 141 :end 238
:pre-blank 0 :hiddenp outline :contents-begin 180 :contents-end 237
:level 2 :priority nil :tags ("B_frame") :todo-keyword nil :todo-type
nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil
:quotedp nil :BEAMER_ENV "frame" :CATEGORY "test" :title (#("Test
Heading 1" 0 14 (:parent #1))) :parent (headline (:raw-value
"Introduction" :begin 19 :end 238 :pre-blank 0 :hiddenp outline
:contents-begin 97 :contents-end 237 :level 1 :priority nil :tags
("B_frame") :todo-keyword nil :todo-type nil :post-blank 0
:footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil
:BEAMER_ENV "frame" :CATEGORY "test" :title (#("Introduction" 0 12
(:parent #3))) :parent (org-data nil (section (:begin 1 :end 19
:contents-begin 1 :contents-end 19 :post-blank 0 :parent #5) (keyword
...)) #3)) (section (:begin 97 :end 141 :contents-begin 97 :contents-end
141 :post-blank 0 :parent #3) (property-drawer (:begin 97 :end 141
:hiddenp outline :contents-begin 112 :contents-end 133 :post-blank 0
:post-affiliated 97 :parent #4) (node-property (:key "BEAMER_env" :value
"frame" :begin 112 :end 133 :post-blank 0 :parent #5)))) #1)) (section
(:begin 180 :end 238 :contents-begin 180 :contents-end 237 :post-blank 1
:parent #1) (property-drawer (:begin 180 :end 227 :hiddenp outline
:contents-begin 196 :contents-end 218 :post-blank 0 :post-affiliated 180
:parent #2) (node-property (:key "BEAMER_env" :value "frame" :begin 196
:end 218 :post-blank 0 :parent #3))) (plain-list (:type unordered :begin
227 :end 237 :contents-begin 227 :contents-end 237 :structure ((227 3 "+
" nil nil nil 237)) :post-blank 0 :post-affiliated 227 :parent #2) (item
(:bullet "+ " :begin 227 :end 237 :contents-begin 232 :contents-end 237
:checkbox nil :counter nil :hiddenp nil :structure ((227 3 "+ " nil nil
nil 237)) :post-blank 0 :tag nil :parent #3) (paragraph (:begin 232 :end
237 :contents-begin 232 :contents-end 237 :post-blank 0 :post-affiliated
232 :parent #4) #("test\n" 0 5 (:parent #5)))))))) "")
  (let* ((greaterp (memq type org-element-greater-elements)) (objectp
(and (not greaterp) (memq type org-element-recursive-objects)))
(contents (mapconcat (function (lambda (element) (org-export-data
element info))) (org-element-contents (if (or greaterp objectp) data
(org-element-normalize-contents data (if ... ...)))) ""))) (funcall
transcoder data (if (not greaterp) contents
(org-element-normalize-string contents)) info))
  (progn (let* ((greaterp (memq type org-element-greater-elements))
(objectp (and (not greaterp) (memq type org-element-recursive-objects)))
(contents (mapconcat (function (lambda (element) (org-export-data
element info))) (org-element-contents (if (or greaterp objectp) data
(org-element-normalize-contents data ...))) ""))) (funcall transcoder
data (if (not greaterp) contents (org-element-normalize-string
contents)) info)))
  (if transcoder (progn (let* ((greaterp (memq type
org-element-greater-elements)) (objectp (and (not greaterp) (memq type
org-element-recursive-objects))) (contents (mapconcat (function (lambda
... ...)) (org-element-contents (if ... data ...)) ""))) (funcall
transcoder data (if (not greaterp) contents
(org-element-normalize-string contents)) info))))
  (let ((transcoder (org-export-transcoder data info))) (if transcoder
(progn (let* ((greaterp (memq type org-element-greater-elements))
(objectp (and (not greaterp) (memq type org-element-recursive-objects)))
(contents (mapconcat (function ...) (org-element-contents ...) "")))
(funcall transcoder data (if (not greaterp) contents
(org-element-normalize-string contents)) info)))))
  (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type (quote
plain-text)) (org-export-filter-apply-functions (plist-get info
:filter-plain-text) (let ((transcoder (org-export-transcoder data
info))) (if transcoder (funcall transcoder data info) data)) info))
((not (org-export--interpret-p data info)) (org-export-data
(org-export-expand data (mapconcat (function (lambda (blob)
(org-export-data blob info))) (org-element-contents data) "")) info))
((not type) (mapconcat (function (lambda (obj) (org-export-data obj
info))) data "")) ((or (not (org-element-contents data)) (and (eq type
(quote headline)) (eq (plist-get info :with-archived-trees) (quote
headline)) (org-element-property :archivedp data))) (let ((transcoder
(org-export-transcoder data info))) (or (and (functionp transcoder)
(funcall transcoder data nil info)) (and (eq type (quote
export-snippet)) "")))) (t (let ((transcoder (org-export-transcoder data
info))) (if transcoder (progn (let* ((greaterp ...) (objectp ...)
(contents ...)) (funcall transcoder data (if ... contents ...) info)))))))
  (let* ((type (org-element-type data)) (results (cond ((memq data
(plist-get info :ignore-list)) nil) ((eq type (quote plain-text))
(org-export-filter-apply-functions (plist-get info :filter-plain-text)
(let (...) (if transcoder ... data)) info)) ((not
(org-export--interpret-p data info)) (org-export-data (org-export-expand
data (mapconcat ... ... "")) info)) ((not type) (mapconcat (function
(lambda ... ...)) data "")) ((or (not (org-element-contents data)) (and
(eq type ...) (eq ... ...) (org-element-property :archivedp data))) (let
((transcoder ...)) (or (and ... ...) (and ... "")))) (t (let
((transcoder ...)) (if transcoder (progn ...))))))) (puthash data (cond
((not results) nil) ((memq type (quote (org-data plain-text nil)))
results) (t (let ((results (org-export-filter-apply-functions ... ...
info))) results))) (plist-get info :exported-data)))
  (if (not (eq memo (quote no-memo))) memo (let* ((type
(org-element-type data)) (results (cond ((memq data (plist-get info
:ignore-list)) nil) ((eq type (quote plain-text))
(org-export-filter-apply-functions (plist-get info :filter-plain-text)
(let ... ...) info)) ((not (org-export--interpret-p data info))
(org-export-data (org-export-expand data ...) info)) ((not type)
(mapconcat (function ...) data "")) ((or (not ...) (and ... ... ...))
(let (...) (or ... ...))) (t (let (...) (if transcoder ...))))))
(puthash data (cond ((not results) nil) ((memq type (quote (org-data
plain-text nil))) results) (t (let ((results ...)) results))) (plist-get
info :exported-data))))
  (let ((memo (gethash data (plist-get info :exported-data) (quote
no-memo)))) (if (not (eq memo (quote no-memo))) memo (let* ((type
(org-element-type data)) (results (cond ((memq data ...) nil) ((eq type
...) (org-export-filter-apply-functions ... ... info)) ((not ...)
(org-export-data ... info)) ((not type) (mapconcat ... data "")) ((or
... ...) (let ... ...)) (t (let ... ...))))) (puthash data (cond ((not
results) nil) ((memq type (quote ...)) results) (t (let (...) results)))
(plist-get info :exported-data)))))
  org-export-data((headline (:raw-value "Introduction" :begin 19 :end
238 :pre-blank 0 :hiddenp outline :contents-begin 97 :contents-end 237
:level 1 :priority nil :tags ("B_frame") :todo-keyword nil :todo-type
nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil
:quotedp nil :BEAMER_ENV "frame" :CATEGORY "test" :title
(#("Introduction" 0 12 (:parent #0))) :parent (org-data nil (section
(:begin 1 :end 19 :contents-begin 1 :contents-end 19 :post-blank 0
:parent #2) (keyword (:key "STARTUP" :value "beamer" :begin 1 :end 19
:post-blank 0 :post-affiliated 1 :parent #3))) #0)) (section (:begin 97
:end 141 :contents-begin 97 :contents-end 141 :post-blank 0 :parent #0)
(property-drawer (:begin 97 :end 141 :hiddenp outline :contents-begin
112 :contents-end 133 :post-blank 0 :post-affiliated 97 :parent #1)
(node-property (:key "BEAMER_env" :value "frame" :begin 112 :end 133
:post-blank 0 :parent #2)))) (headline (:raw-value "Test Heading 1"
:begin 141 :end 238 :pre-blank 0 :hiddenp outline :contents-begin 180
:contents-end 237 :level 2 :priority nil :tags ("B_frame") :todo-keyword
nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil
:commentedp nil :quotedp nil :BEAMER_ENV "frame" :CATEGORY "test" :title
(#("Test Heading 1" 0 14 (:parent #1))) :parent #0) (section (:begin 180
:end 238 :contents-begin 180 :contents-end 237 :post-blank 1 :parent #1)
(property-drawer (:begin 180 :end 227 :hiddenp outline :contents-begin
196 :contents-end 218 :post-blank 0 :post-affiliated 180 :parent #2)
(node-property (:key "BEAMER_env" :value "frame" :begin 196 :end 218
:post-blank 0 :parent #3))) (plain-list (:type unordered :begin 227 :end
237 :contents-begin 227 :contents-end 237 :structure ((227 3 "+ " nil
nil nil 237)) :post-blank 0 :post-affiliated 227 :parent #2) (item
(:bullet "+ " :begin 227 :end 237 :contents-begin 232 :contents-end 237
:checkbox nil :counter nil :hiddenp nil :structure ((227 3 "+ " nil nil
nil 237)) :post-blank 0 :tag nil :parent #3) (paragraph (:begin 232 :end
237 :contents-begin 232 :contents-end 237 :post-blank 0 :post-affiliated
232 :parent #4) #("test\n" 0 5 (:parent #5)))))))) (:export-options nil
:input-file "/Users/jason/Dropbox/latex talk/test.org" :title "test"
:beamer-theme "default" :headline-levels 1 :latex-class "beamer"
:latex-hyperref-p t :date ((latex-fragment (:value "\\today" :begin 1
:end 7 :post-blank 0 :parent #1))) :author ("Jason Lewis") :creator
"Emacs 24.3.1 (Org mode 8.2)" :email "address@hidden" :exclude-tags
("noexport") :language "en" :preserve-breaks nil :section-numbers t
:select-tags ("export") :time-stamp-file t :with-archived-trees headline
:with-author t :with-clocks nil :with-creator comment :with-date t
:with-drawers (not "LOGBOOK") :with-email nil :with-emphasize t ...))
  (lambda (element) (org-export-data element info))((headline
(:raw-value "Introduction" :begin 19 :end 238 :pre-blank 0 :hiddenp
outline :contents-begin 97 :contents-end 237 :level 1 :priority nil
:tags ("B_frame") :todo-keyword nil :todo-type nil :post-blank 0
:footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil
:BEAMER_ENV "frame" :CATEGORY "test" :title (#("Introduction" 0 12
(:parent #0))) :parent (org-data nil (section (:begin 1 :end 19
:contents-begin 1 :contents-end 19 :post-blank 0 :parent #2) (keyword
(:key "STARTUP" :value "beamer" :begin 1 :end 19 :post-blank 0
:post-affiliated 1 :parent #3))) #0)) (section (:begin 97 :end 141
:contents-begin 97 :contents-end 141 :post-blank 0 :parent #0)
(property-drawer (:begin 97 :end 141 :hiddenp outline :contents-begin
112 :contents-end 133 :post-blank 0 :post-affiliated 97 :parent #1)
(node-property (:key "BEAMER_env" :value "frame" :begin 112 :end 133
:post-blank 0 :parent #2)))) (headline (:raw-value "Test Heading 1"
:begin 141 :end 238 :pre-blank 0 :hiddenp outline :contents-begin 180
:contents-end 237 :level 2 :priority nil :tags ("B_frame") :todo-keyword
nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil
:commentedp nil :quotedp nil :BEAMER_ENV "frame" :CATEGORY "test" :title
(#("Test Heading 1" 0 14 (:parent #1))) :parent #0) (section (:begin 180
:end 238 :contents-begin 180 :contents-end 237 :post-blank 1 :parent #1)
(property-drawer (:begin 180 :end 227 :hiddenp outline :contents-begin
196 :contents-end 218 :post-blank 0 :post-affiliated 180 :parent #2)
(node-property (:key "BEAMER_env" :value "frame" :begin 196 :end 218
:post-blank 0 :parent #3))) (plain-list (:type unordered :begin 227 :end
237 :contents-begin 227 :contents-end 237 :structure ((227 3 "+ " nil
nil nil 237)) :post-blank 0 :post-affiliated 227 :parent #2) (item
(:bullet "+ " :begin 227 :end 237 :contents-begin 232 :contents-end 237
:checkbox nil :counter nil :hiddenp nil :structure ((227 3 "+ " nil nil
nil 237)) :post-blank 0 :tag nil :parent #3) (paragraph (:begin 232 :end
237 :contents-begin 232 :contents-end 237 :post-blank 0 :post-affiliated
232 :parent #4) #("test\n" 0 5 (:parent #5)))))))))
  mapconcat((lambda (element) (org-export-data element info)) ((section
(:begin 1 :end 19 :contents-begin 1 :contents-end 19 :post-blank 0
:parent (org-data nil #1 (headline (:raw-value "Introduction" :begin 19
:end 238 :pre-blank 0 :hiddenp outline :contents-begin 97 :contents-end
237 :level 1 :priority nil :tags ("B_frame") :todo-keyword nil
:todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil
:commentedp nil :quotedp nil :BEAMER_ENV "frame" :CATEGORY "test" :title
(#("Introduction" 0 12 ...)) :parent #3) (section (:begin 97 :end 141
:contents-begin 97 :contents-end 141 :post-blank 0 :parent #4)
(property-drawer (:begin 97 :end 141 :hiddenp outline :contents-begin
112 :contents-end 133 :post-blank 0 :post-affiliated 97 :parent #5)
(node-property ...))) (headline (:raw-value "Test Heading 1" :begin 141
:end 238 :pre-blank 0 :hiddenp outline :contents-begin 180 :contents-end
237 :level 2 :priority nil :tags ("B_frame") :todo-keyword nil
:todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil
:commentedp nil :quotedp nil :BEAMER_ENV "frame" :CATEGORY "test" :title
(#("Test Heading 1" 0 14 ...)) :parent #4) (section (:begin 180 :end 238
:contents-begin 180 :contents-end 237 :post-blank 1 :parent #5)
(property-drawer ... ...) (plain-list ... ...)))))) (keyword (:key
"STARTUP" :value "beamer" :begin 1 :end 19 :post-blank 0
:post-affiliated 1 :parent #1))) (headline (:raw-value "Introduction"
:begin 19 :end 238 :pre-blank 0 :hiddenp outline :contents-begin 97
:contents-end 237 :level 1 :priority nil :tags ("B_frame") :todo-keyword
nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil
:commentedp nil :quotedp nil :BEAMER_ENV "frame" :CATEGORY "test" :title
(#("Introduction" 0 12 (:parent #1))) :parent (org-data nil (section
(:begin 1 :end 19 :contents-begin 1 :contents-end 19 :post-blank 0
:parent #3) (keyword (:key "STARTUP" :value "beamer" :begin 1 :end 19
:post-blank 0 :post-affiliated 1 :parent #4))) #1)) (section (:begin 97
:end 141 :contents-begin 97 :contents-end 141 :post-blank 0 :parent #1)
(property-drawer (:begin 97 :end 141 :hiddenp outline :contents-begin
112 :contents-end 133 :post-blank 0 :post-affiliated 97 :parent #2)
(node-property (:key "BEAMER_env" :value "frame" :begin 112 :end 133
:post-blank 0 :parent #3)))) (headline (:raw-value "Test Heading 1"
:begin 141 :end 238 :pre-blank 0 :hiddenp outline :contents-begin 180
:contents-end 237 :level 2 :priority nil :tags ("B_frame") :todo-keyword
nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil
:commentedp nil :quotedp nil :BEAMER_ENV "frame" :CATEGORY "test" :title
(#("Test Heading 1" 0 14 (:parent #2))) :parent #1) (section (:begin 180
:end 238 :contents-begin 180 :contents-end 237 :post-blank 1 :parent #2)
(property-drawer (:begin 180 :end 227 :hiddenp outline :contents-begin
196 :contents-end 218 :post-blank 0 :post-affiliated 180 :parent #3)
(node-property (:key "BEAMER_env" :value "frame" :begin 196 :end 218
:post-blank 0 :parent #4))) (plain-list (:type unordered :begin 227 :end
237 :contents-begin 227 :contents-end 237 :structure ((227 3 "+ " nil
nil nil 237)) :post-blank 0 :post-affiliated 227 :parent #3) (item
(:bullet "+ " :begin 227 :end 237 :contents-begin 232 :contents-end 237
:checkbox nil :counter nil :hiddenp nil :structure (...) :post-blank 0
:tag nil :parent #4) (paragraph (:begin 232 :end 237 :contents-begin 232
:contents-end 237 :post-blank 0 :post-affiliated 232 :parent #5)
#("test\n" 0 5 ...)))))))) "")
  (let* ((greaterp (memq type org-element-greater-elements)) (objectp
(and (not greaterp) (memq type org-element-recursive-objects)))
(contents (mapconcat (function (lambda (element) (org-export-data
element info))) (org-element-contents (if (or greaterp objectp) data
(org-element-normalize-contents data (if ... ...)))) ""))) (funcall
transcoder data (if (not greaterp) contents
(org-element-normalize-string contents)) info))
  (progn (let* ((greaterp (memq type org-element-greater-elements))
(objectp (and (not greaterp) (memq type org-element-recursive-objects)))
(contents (mapconcat (function (lambda (element) (org-export-data
element info))) (org-element-contents (if (or greaterp objectp) data
(org-element-normalize-contents data ...))) ""))) (funcall transcoder
data (if (not greaterp) contents (org-element-normalize-string
contents)) info)))
  (if transcoder (progn (let* ((greaterp (memq type
org-element-greater-elements)) (objectp (and (not greaterp) (memq type
org-element-recursive-objects))) (contents (mapconcat (function (lambda
... ...)) (org-element-contents (if ... data ...)) ""))) (funcall
transcoder data (if (not greaterp) contents
(org-element-normalize-string contents)) info))))
  (let ((transcoder (org-export-transcoder data info))) (if transcoder
(progn (let* ((greaterp (memq type org-element-greater-elements))
(objectp (and (not greaterp) (memq type org-element-recursive-objects)))
(contents (mapconcat (function ...) (org-element-contents ...) "")))
(funcall transcoder data (if (not greaterp) contents
(org-element-normalize-string contents)) info)))))
  (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type (quote
plain-text)) (org-export-filter-apply-functions (plist-get info
:filter-plain-text) (let ((transcoder (org-export-transcoder data
info))) (if transcoder (funcall transcoder data info) data)) info))
((not (org-export--interpret-p data info)) (org-export-data
(org-export-expand data (mapconcat (function (lambda (blob)
(org-export-data blob info))) (org-element-contents data) "")) info))
((not type) (mapconcat (function (lambda (obj) (org-export-data obj
info))) data "")) ((or (not (org-element-contents data)) (and (eq type
(quote headline)) (eq (plist-get info :with-archived-trees) (quote
headline)) (org-element-property :archivedp data))) (let ((transcoder
(org-export-transcoder data info))) (or (and (functionp transcoder)
(funcall transcoder data nil info)) (and (eq type (quote
export-snippet)) "")))) (t (let ((transcoder (org-export-transcoder data
info))) (if transcoder (progn (let* ((greaterp ...) (objectp ...)
(contents ...)) (funcall transcoder data (if ... contents ...) info)))))))
  (let* ((type (org-element-type data)) (results (cond ((memq data
(plist-get info :ignore-list)) nil) ((eq type (quote plain-text))
(org-export-filter-apply-functions (plist-get info :filter-plain-text)
(let (...) (if transcoder ... data)) info)) ((not
(org-export--interpret-p data info)) (org-export-data (org-export-expand
data (mapconcat ... ... "")) info)) ((not type) (mapconcat (function
(lambda ... ...)) data "")) ((or (not (org-element-contents data)) (and
(eq type ...) (eq ... ...) (org-element-property :archivedp data))) (let
((transcoder ...)) (or (and ... ...) (and ... "")))) (t (let
((transcoder ...)) (if transcoder (progn ...))))))) (puthash data (cond
((not results) nil) ((memq type (quote (org-data plain-text nil)))
results) (t (let ((results (org-export-filter-apply-functions ... ...
info))) results))) (plist-get info :exported-data)))
  (if (not (eq memo (quote no-memo))) memo (let* ((type
(org-element-type data)) (results (cond ((memq data (plist-get info
:ignore-list)) nil) ((eq type (quote plain-text))
(org-export-filter-apply-functions (plist-get info :filter-plain-text)
(let ... ...) info)) ((not (org-export--interpret-p data info))
(org-export-data (org-export-expand data ...) info)) ((not type)
(mapconcat (function ...) data "")) ((or (not ...) (and ... ... ...))
(let (...) (or ... ...))) (t (let (...) (if transcoder ...))))))
(puthash data (cond ((not results) nil) ((memq type (quote (org-data
plain-text nil))) results) (t (let ((results ...)) results))) (plist-get
info :exported-data))))
  (let ((memo (gethash data (plist-get info :exported-data) (quote
no-memo)))) (if (not (eq memo (quote no-memo))) memo (let* ((type
(org-element-type data)) (results (cond ((memq data ...) nil) ((eq type
...) (org-export-filter-apply-functions ... ... info)) ((not ...)
(org-export-data ... info)) ((not type) (mapconcat ... data "")) ((or
... ...) (let ... ...)) (t (let ... ...))))) (puthash data (cond ((not
results) nil) ((memq type (quote ...)) results) (t (let (...) results)))
(plist-get info :exported-data)))))
  org-export-data((org-data nil (section (:begin 1 :end 19
:contents-begin 1 :contents-end 19 :post-blank 0 :parent #0) (keyword
(:key "STARTUP" :value "beamer" :begin 1 :end 19 :post-blank 0
:post-affiliated 1 :parent #1))) (headline (:raw-value "Introduction"
:begin 19 :end 238 :pre-blank 0 :hiddenp outline :contents-begin 97
:contents-end 237 :level 1 :priority nil :tags ("B_frame") :todo-keyword
nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil
:commentedp nil :quotedp nil :BEAMER_ENV "frame" :CATEGORY "test" :title
(#("Introduction" 0 12 (:parent #1))) :parent #0) (section (:begin 97
:end 141 :contents-begin 97 :contents-end 141 :post-blank 0 :parent #1)
(property-drawer (:begin 97 :end 141 :hiddenp outline :contents-begin
112 :contents-end 133 :post-blank 0 :post-affiliated 97 :parent #2)
(node-property (:key "BEAMER_env" :value "frame" :begin 112 :end 133
:post-blank 0 :parent #3)))) (headline (:raw-value "Test Heading 1"
:begin 141 :end 238 :pre-blank 0 :hiddenp outline :contents-begin 180
:contents-end 237 :level 2 :priority nil :tags ("B_frame") :todo-keyword
nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil
:commentedp nil :quotedp nil :BEAMER_ENV "frame" :CATEGORY "test" :title
(#("Test Heading 1" 0 14 (:parent #2))) :parent #1) (section (:begin 180
:end 238 :contents-begin 180 :contents-end 237 :post-blank 1 :parent #2)
(property-drawer (:begin 180 :end 227 :hiddenp outline :contents-begin
196 :contents-end 218 :post-blank 0 :post-affiliated 180 :parent #3)
(node-property (:key "BEAMER_env" :value "frame" :begin 196 :end 218
:post-blank 0 :parent #4))) (plain-list (:type unordered :begin 227 :end
237 :contents-begin 227 :contents-end 237 :structure ((227 3 "+ " nil
nil nil 237)) :post-blank 0 :post-affiliated 227 :parent #3) (item
(:bullet "+ " :begin 227 :end 237 :contents-begin 232 :contents-end 237
:checkbox nil :counter nil :hiddenp nil :structure (...) :post-blank 0
:tag nil :parent #4) (paragraph (:begin 232 :end 237 :contents-begin 232
:contents-end 237 :post-blank 0 :post-affiliated 232 :parent #5)
#("test\n" 0 5 ...)))))))) (:export-options nil :input-file
"/Users/jason/Dropbox/latex talk/test.org" :title "test" :beamer-theme
"default" :headline-levels 1 :latex-class "beamer" :latex-hyperref-p t
:date ((latex-fragment (:value "\\today" :begin 1 :end 7 :post-blank 0
:parent #1))) :author ("Jason Lewis") :creator "Emacs 24.3.1 (Org mode
8.2)" :email "address@hidden" :exclude-tags ("noexport") :language
"en" :preserve-breaks nil :section-numbers t :select-tags ("export")
:time-stamp-file t :with-archived-trees headline :with-author t
:with-clocks nil :with-creator comment :with-date t :with-drawers (not
"LOGBOOK") :with-email nil :with-emphasize t ...))
  (or (org-export-data tree info) "")
  (org-element-normalize-string (or (org-export-data tree info) ""))
  (let* ((body (org-element-normalize-string (or (org-export-data tree
info) ""))) (inner-template (cdr (assq (quote inner-template) (plist-get
info :translate-alist)))) (full-body (if (not (functionp
inner-template)) body (funcall inner-template body info))) (template
(cdr (assq (quote template) (plist-get info :translate-alist)))))
(org-no-properties (org-export-filter-apply-functions (plist-get info
:filter-final-output) (if (or (not (functionp template)) body-only)
full-body (funcall template full-body info)) info)))
  (progn (run-hook-with-args (quote org-export-before-processing-hook)
(progn (or (and (vectorp backend) (>= (length backend) 8) (memq (aref
backend 0) cl-struct-org-export-backend-tags)) (error "%s accessing a
non-%s" (quote org-export-backend-name) (quote org-export-backend)))
(aref backend 1))) (org-export-expand-include-keyword)
(org-macro-initialize-templates) (org-macro-replace-all
org-macro-templates) (org-export-execute-babel-code)
(org-update-radio-target-regexp) (goto-char (point-min)) (save-excursion
(run-hook-with-args (quote org-export-before-parsing-hook) (progn (or
(and (vectorp backend) (>= (length backend) 8) (memq (aref backend 0)
cl-struct-org-export-backend-tags)) (error "%s accessing a non-%s"
(quote org-export-backend-name) (quote org-export-backend))) (aref
backend 1)))) (setq info (org-export-install-filters (org-combine-plists
info (org-export-get-environment backend subtreep ext-plist))))
(org-macro-replace-all (list (cons "author" (org-element-interpret-data
(plist-get info :author))) (cons "date" (org-element-interpret-data
(plist-get info :date))) (cons "email" (or (plist-get info :email) ""))
(cons "title" (org-element-interpret-data (plist-get info :title)))))
(let ((backend-name (progn (or (and (vectorp backend) (>= ... 8) (memq
... cl-struct-org-export-backend-tags)) (error "%s accessing a non-%s"
(quote org-export-backend-name) (quote org-export-backend))) (aref
backend 1)))) (progn (let ((--dolist-tail-- (plist-get info
:filter-options)) filter) (while --dolist-tail-- (setq filter (car
--dolist-tail--)) (let ((result ...)) (if result (progn ...))) (setq
--dolist-tail-- (cdr --dolist-tail--)))))) (setq tree
(org-export-filter-apply-functions (plist-get info :filter-parse-tree)
(org-element-parse-buffer nil visible-only) info)) (setq info
(org-combine-plists info (org-export-collect-tree-properties tree
info))) (let* ((body (org-element-normalize-string (or (org-export-data
tree info) ""))) (inner-template (cdr (assq (quote inner-template)
(plist-get info :translate-alist)))) (full-body (if (not (functionp
inner-template)) body (funcall inner-template body info))) (template
(cdr (assq (quote template) (plist-get info :translate-alist)))))
(org-no-properties (org-export-filter-apply-functions (plist-get info
:filter-final-output) (if (or (not (functionp template)) body-only)
full-body (funcall template full-body info)) info))))
  (save-current-buffer (set-buffer --buf-copy) (goto-char (point-min))
(progn (run-hook-with-args (quote org-export-before-processing-hook)
(progn (or (and (vectorp backend) (>= (length backend) 8) (memq (aref
backend 0) cl-struct-org-export-backend-tags)) (error "%s accessing a
non-%s" (quote org-export-backend-name) (quote org-export-backend)))
(aref backend 1))) (org-export-expand-include-keyword)
(org-macro-initialize-templates) (org-macro-replace-all
org-macro-templates) (org-export-execute-babel-code)
(org-update-radio-target-regexp) (goto-char (point-min)) (save-excursion
(run-hook-with-args (quote org-export-before-parsing-hook) (progn (or
(and (vectorp backend) (>= ... 8) (memq ...
cl-struct-org-export-backend-tags)) (error "%s accessing a non-%s"
(quote org-export-backend-name) (quote org-export-backend))) (aref
backend 1)))) (setq info (org-export-install-filters (org-combine-plists
info (org-export-get-environment backend subtreep ext-plist))))
(org-macro-replace-all (list (cons "author" (org-element-interpret-data
(plist-get info :author))) (cons "date" (org-element-interpret-data
(plist-get info :date))) (cons "email" (or (plist-get info :email) ""))
(cons "title" (org-element-interpret-data (plist-get info :title)))))
(let ((backend-name (progn (or (and ... ... ...) (error "%s accessing a
non-%s" ... ...)) (aref backend 1)))) (progn (let ((--dolist-tail--
(plist-get info :filter-options)) filter) (while --dolist-tail-- (setq
filter (car --dolist-tail--)) (let (...) (if result ...)) (setq
--dolist-tail-- (cdr --dolist-tail--)))))) (setq tree
(org-export-filter-apply-functions (plist-get info :filter-parse-tree)
(org-element-parse-buffer nil visible-only) info)) (setq info
(org-combine-plists info (org-export-collect-tree-properties tree
info))) (let* ((body (org-element-normalize-string (or (org-export-data
tree info) ""))) (inner-template (cdr (assq (quote inner-template)
(plist-get info :translate-alist)))) (full-body (if (not (functionp
inner-template)) body (funcall inner-template body info))) (template
(cdr (assq (quote template) (plist-get info :translate-alist)))))
(org-no-properties (org-export-filter-apply-functions (plist-get info
:filter-final-output) (if (or (not ...) body-only) full-body (funcall
template full-body info)) info)))))
  (unwind-protect (save-current-buffer (set-buffer --buf-copy)
(goto-char (point-min)) (progn (run-hook-with-args (quote
org-export-before-processing-hook) (progn (or (and (vectorp backend) (>=
... 8) (memq ... cl-struct-org-export-backend-tags)) (error "%s
accessing a non-%s" (quote org-export-backend-name) (quote
org-export-backend))) (aref backend 1)))
(org-export-expand-include-keyword) (org-macro-initialize-templates)
(org-macro-replace-all org-macro-templates)
(org-export-execute-babel-code) (org-update-radio-target-regexp)
(goto-char (point-min)) (save-excursion (run-hook-with-args (quote
org-export-before-parsing-hook) (progn (or (and ... ... ...) (error "%s
accessing a non-%s" ... ...)) (aref backend 1)))) (setq info
(org-export-install-filters (org-combine-plists info
(org-export-get-environment backend subtreep ext-plist))))
(org-macro-replace-all (list (cons "author" (org-element-interpret-data
(plist-get info :author))) (cons "date" (org-element-interpret-data
(plist-get info :date))) (cons "email" (or (plist-get info :email) ""))
(cons "title" (org-element-interpret-data (plist-get info :title)))))
(let ((backend-name (progn (or ... ...) (aref backend 1)))) (progn (let
((--dolist-tail-- ...) filter) (while --dolist-tail-- (setq filter ...)
(let ... ...) (setq --dolist-tail-- ...))))) (setq tree
(org-export-filter-apply-functions (plist-get info :filter-parse-tree)
(org-element-parse-buffer nil visible-only) info)) (setq info
(org-combine-plists info (org-export-collect-tree-properties tree
info))) (let* ((body (org-element-normalize-string (or ... "")))
(inner-template (cdr (assq ... ...))) (full-body (if (not ...) body
(funcall inner-template body info))) (template (cdr (assq ... ...))))
(org-no-properties (org-export-filter-apply-functions (plist-get info
:filter-final-output) (if (or ... body-only) full-body (funcall template
full-body info)) info))))) (and (buffer-live-p --buf-copy) (progn
(save-current-buffer (set-buffer --buf-copy) (restore-buffer-modified-p
nil)) (kill-buffer --buf-copy))))
  (let ((--buf-copy (org-export-copy-buffer))) (unwind-protect
(save-current-buffer (set-buffer --buf-copy) (goto-char (point-min))
(progn (run-hook-with-args (quote org-export-before-processing-hook)
(progn (or (and ... ... ...) (error "%s accessing a non-%s" ... ...))
(aref backend 1))) (org-export-expand-include-keyword)
(org-macro-initialize-templates) (org-macro-replace-all
org-macro-templates) (org-export-execute-babel-code)
(org-update-radio-target-regexp) (goto-char (point-min)) (save-excursion
(run-hook-with-args (quote org-export-before-parsing-hook) (progn (or
... ...) (aref backend 1)))) (setq info (org-export-install-filters
(org-combine-plists info (org-export-get-environment backend subtreep
ext-plist)))) (org-macro-replace-all (list (cons "author"
(org-element-interpret-data ...)) (cons "date"
(org-element-interpret-data ...)) (cons "email" (or ... "")) (cons
"title" (org-element-interpret-data ...)))) (let ((backend-name (progn
... ...))) (progn (let (... filter) (while --dolist-tail-- ... ...
...)))) (setq tree (org-export-filter-apply-functions (plist-get info
:filter-parse-tree) (org-element-parse-buffer nil visible-only) info))
(setq info (org-combine-plists info (org-export-collect-tree-properties
tree info))) (let* ((body (org-element-normalize-string ...))
(inner-template (cdr ...)) (full-body (if ... body ...)) (template (cdr
...))) (org-no-properties (org-export-filter-apply-functions (plist-get
info :filter-final-output) (if ... full-body ...) info))))) (and
(buffer-live-p --buf-copy) (progn (save-current-buffer (set-buffer
--buf-copy) (restore-buffer-modified-p nil)) (kill-buffer --buf-copy)))))
  (let* ((org-export-current-backend (progn (or (and (vectorp backend)
(>= (length backend) 8) (memq (aref backend 0)
cl-struct-org-export-backend-tags)) (error "%s accessing a non-%s"
(quote org-export-backend-name) (quote org-export-backend))) (aref
backend 1))) (info (org-combine-plists (list :export-options (delq nil
(list (and subtreep ...) (and visible-only ...) (and body-only ...))))
(org-export--get-buffer-attributes))) tree) (let ((--buf-copy
(org-export-copy-buffer))) (unwind-protect (save-current-buffer
(set-buffer --buf-copy) (goto-char (point-min)) (progn
(run-hook-with-args (quote org-export-before-processing-hook) (progn (or
... ...) (aref backend 1))) (org-export-expand-include-keyword)
(org-macro-initialize-templates) (org-macro-replace-all
org-macro-templates) (org-export-execute-babel-code)
(org-update-radio-target-regexp) (goto-char (point-min)) (save-excursion
(run-hook-with-args (quote org-export-before-parsing-hook) (progn ...
...))) (setq info (org-export-install-filters (org-combine-plists info
...))) (org-macro-replace-all (list (cons "author" ...) (cons "date"
...) (cons "email" ...) (cons "title" ...))) (let ((backend-name ...))
(progn (let ... ...))) (setq tree (org-export-filter-apply-functions
(plist-get info :filter-parse-tree) (org-element-parse-buffer nil
visible-only) info)) (setq info (org-combine-plists info
(org-export-collect-tree-properties tree info))) (let* ((body ...)
(inner-template ...) (full-body ...) (template ...)) (org-no-properties
(org-export-filter-apply-functions ... ... info))))) (and (buffer-live-p
--buf-copy) (progn (save-current-buffer (set-buffer --buf-copy)
(restore-buffer-modified-p nil)) (kill-buffer --buf-copy))))))
  (save-restriction (cond ((org-region-active-p) (narrow-to-region
(region-beginning) (region-end))) (subtreep (org-narrow-to-subtree)
(goto-char (point-min)) (forward-line) (narrow-to-region (point)
(point-max)))) (let* ((org-export-current-backend (progn (or (and
(vectorp backend) (>= ... 8) (memq ...
cl-struct-org-export-backend-tags)) (error "%s accessing a non-%s"
(quote org-export-backend-name) (quote org-export-backend))) (aref
backend 1))) (info (org-combine-plists (list :export-options (delq nil
(list ... ... ...))) (org-export--get-buffer-attributes))) tree) (let
((--buf-copy (org-export-copy-buffer))) (unwind-protect
(save-current-buffer (set-buffer --buf-copy) (goto-char (point-min))
(progn (run-hook-with-args (quote org-export-before-processing-hook)
(progn ... ...)) (org-export-expand-include-keyword)
(org-macro-initialize-templates) (org-macro-replace-all
org-macro-templates) (org-export-execute-babel-code)
(org-update-radio-target-regexp) (goto-char (point-min)) (save-excursion
(run-hook-with-args ... ...)) (setq info (org-export-install-filters
...)) (org-macro-replace-all (list ... ... ... ...)) (let (...) (progn
...)) (setq tree (org-export-filter-apply-functions ... ... info)) (setq
info (org-combine-plists info ...)) (let* (... ... ... ...)
(org-no-properties ...)))) (and (buffer-live-p --buf-copy) (progn
(save-current-buffer (set-buffer --buf-copy) (restore-buffer-modified-p
nil)) (kill-buffer --buf-copy)))))))
  (save-excursion (save-restriction (cond ((org-region-active-p)
(narrow-to-region (region-beginning) (region-end))) (subtreep
(org-narrow-to-subtree) (goto-char (point-min)) (forward-line)
(narrow-to-region (point) (point-max)))) (let*
((org-export-current-backend (progn (or (and ... ... ...) (error "%s
accessing a non-%s" ... ...)) (aref backend 1))) (info
(org-combine-plists (list :export-options (delq nil ...))
(org-export--get-buffer-attributes))) tree) (let ((--buf-copy
(org-export-copy-buffer))) (unwind-protect (save-current-buffer
(set-buffer --buf-copy) (goto-char (point-min)) (progn
(run-hook-with-args ... ...) (org-export-expand-include-keyword)
(org-macro-initialize-templates) (org-macro-replace-all
org-macro-templates) (org-export-execute-babel-code)
(org-update-radio-target-regexp) (goto-char ...) (save-excursion ...)
(setq info ...) (org-macro-replace-all ...) (let ... ...) (setq tree
...) (setq info ...) (let* ... ...))) (and (buffer-live-p --buf-copy)
(progn (save-current-buffer ... ...) (kill-buffer --buf-copy))))))))
  org-export-as(beamer nil nil nil nil)
  (let ((output (org-export-as backend subtreep visible-only body-only
ext-plist))) (let ((temp-buffer (generate-new-buffer " *temp*")))
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
(insert output) (let ((coding-system-for-write encoding)) (write-file
file))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (if
(and (org-export--copy-to-kill-ring-p) (org-string-nw-p output)) (progn
(org-kill-new output))) (or (and (functionp post-process) (funcall
post-process file)) file))
  (if async (let ((with-temp-message "Initializing asynchronous export
process") (current-message)) (unwind-protect (progn (if
with-temp-message (progn (setq current-message (current-message))
(message "%s" with-temp-message))) (let ((--copy-fun
(org-export--generate-copy-script ...)) (--temp-file (make-temp-file
"org-export-process")) (--coding buffer-file-coding-system)) (let
((temp-file --temp-file) (temp-buffer ...)) (unwind-protect (prog1 ...
...) (and ... ...))) (let* ((process-connection-type nil) (--proc-buffer
...) (--process ...)) (org-export-add-to-stack (get-buffer
--proc-buffer) nil --process) (let (...) (set-process-sentinel --process
...))))) (and with-temp-message (if current-message (message "%s"
current-message) (message nil))))) (let ((output (org-export-as backend
subtreep visible-only body-only ext-plist))) (let ((temp-buffer
(generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer
temp-buffer) (unwind-protect (progn (insert output) (let (...)
(write-file file))) (and (buffer-name temp-buffer) (kill-buffer
temp-buffer))))) (if (and (org-export--copy-to-kill-ring-p)
(org-string-nw-p output)) (progn (org-kill-new output))) (or (and
(functionp post-process) (funcall post-process file)) file)))
  (let ((encoding (or org-export-coding-system
buffer-file-coding-system))) (if async (let ((with-temp-message
"Initializing asynchronous export process") (current-message))
(unwind-protect (progn (if with-temp-message (progn (setq
current-message ...) (message "%s" with-temp-message))) (let
((--copy-fun ...) (--temp-file ...) (--coding
buffer-file-coding-system)) (let (... ...) (unwind-protect ... ...))
(let* (... ... ...) (org-export-add-to-stack ... nil --process) (let ...
...)))) (and with-temp-message (if current-message (message "%s"
current-message) (message nil))))) (let ((output (org-export-as backend
subtreep visible-only body-only ext-plist))) (let ((temp-buffer
(generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer
temp-buffer) (unwind-protect (progn (insert output) (let ... ...)) (and
(buffer-name temp-buffer) (kill-buffer temp-buffer))))) (if (and
(org-export--copy-to-kill-ring-p) (org-string-nw-p output)) (progn
(org-kill-new output))) (or (and (functionp post-process) (funcall
post-process file)) file))))
  (if (not (file-writable-p file)) (error "Output file not writable")
(let ((encoding (or org-export-coding-system
buffer-file-coding-system))) (if async (let ((with-temp-message
"Initializing asynchronous export process") (current-message))
(unwind-protect (progn (if with-temp-message (progn ... ...)) (let (...
... ...) (let ... ...) (let* ... ... ...))) (and with-temp-message (if
current-message (message "%s" current-message) (message nil))))) (let
((output (org-export-as backend subtreep visible-only body-only
ext-plist))) (let ((temp-buffer (generate-new-buffer " *temp*")))
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ...
...) (and ... ...)))) (if (and (org-export--copy-to-kill-ring-p)
(org-string-nw-p output)) (progn (org-kill-new output))) (or (and
(functionp post-process) (funcall post-process file)) file)))))
  org-export-to-file(beamer "./test.tex" nil nil nil nil nil)
  (let ((file (org-export-output-file-name ".tex" subtreep)))
(org-export-to-file (quote beamer) file async subtreep visible-only
body-only ext-plist))
  org-beamer-export-to-latex(nil nil nil nil)
  funcall(org-beamer-export-to-latex nil nil nil nil)
  (save-excursion (if arg (progn (if (eq (marker-buffer
org-export-dispatch-last-position) (org-base-buffer (current-buffer)))
(goto-char org-export-dispatch-last-position) (move-marker
org-export-dispatch-last-position nil)))) (funcall action (and (memq
(quote async) optns) t) (and (memq (quote subtree) optns) t) (and (memq
(quote visible) optns) t) (and (memq (quote body) optns) t)))
  (cond ((eql action (quote template))
(org-export-insert-default-template nil optns)) ((eql action (quote
stack)) (org-export-stack)) ((eql action (quote publish-current-file))
(org-publish-current-file (memq (quote force) optns) (memq (quote async)
optns))) ((eql action (quote publish-current-project))
(org-publish-current-project (memq (quote force) optns) (memq (quote
async) optns))) ((eql action (quote publish-choose-project))
(org-publish (assoc (org-icompleting-read "Publish project: "
org-publish-project-alist nil t) org-publish-project-alist) (memq (quote
force) optns) (memq (quote async) optns))) ((eql action (quote
publish-all)) (org-publish-all (memq (quote force) optns) (memq (quote
async) optns))) (t (save-excursion (if arg (progn (if (eq (marker-buffer
org-export-dispatch-last-position) (org-base-buffer ...)) (goto-char
org-export-dispatch-last-position) (move-marker
org-export-dispatch-last-position nil)))) (funcall action (and (memq
(quote async) optns) t) (and (memq (quote subtree) optns) t) (and (memq
(quote visible) optns) t) (and (memq (quote body) optns) t)))))
  (let* ((input (cond ((equal arg (quote (16))) (quote (stack))) ((and
arg org-export-dispatch-last-action)) (t (let ((wconfig ...))
(unwind-protect (progn ...) (set-window-configuration wconfig))))))
(action (car input)) (optns (cdr input))) (if (memq (quote subtree)
optns) nil (move-marker org-export-dispatch-last-position nil)) (cond
((eql action (quote template)) (org-export-insert-default-template nil
optns)) ((eql action (quote stack)) (org-export-stack)) ((eql action
(quote publish-current-file)) (org-publish-current-file (memq (quote
force) optns) (memq (quote async) optns))) ((eql action (quote
publish-current-project)) (org-publish-current-project (memq (quote
force) optns) (memq (quote async) optns))) ((eql action (quote
publish-choose-project)) (org-publish (assoc (org-icompleting-read
"Publish project: " org-publish-project-alist nil t)
org-publish-project-alist) (memq (quote force) optns) (memq (quote
async) optns))) ((eql action (quote publish-all)) (org-publish-all (memq
(quote force) optns) (memq (quote async) optns))) (t (save-excursion (if
arg (progn (if (eq ... ...) (goto-char
org-export-dispatch-last-position) (move-marker
org-export-dispatch-last-position nil)))) (funcall action (and (memq
(quote async) optns) t) (and (memq (quote subtree) optns) t) (and (memq
(quote visible) optns) t) (and (memq (quote body) optns) t))))))
  org-export-dispatch(nil)
  call-interactively(org-export-dispatch nil nil)


Attachment: signature.asc
Description: OpenPGP digital signature


reply via email to

[Prev in Thread] Current Thread [Next in Thread]