* Bug: Wrong type argument: arrayp, nil when exporting to beamer [8.2 (8.2-elpa @ /Users/jason/.emacs.d/elpa/org-20130919/)]
@ 2013-09-22 4:14 Jason Lewis
2013-09-22 4:41 ` Jason Lewis
0 siblings, 1 reply; 7+ messages in thread
From: Jason Lewis @ 2013-09-22 4:14 UTC (permalink / raw)
To: emacs-orgmode
[-- Attachment #1: Type: text/plain, Size: 4532 bytes --]
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)
)
[-- Attachment #2: OpenPGP digital signature --]
[-- Type: application/pgp-signature, Size: 898 bytes --]
^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: Bug: Wrong type argument: arrayp, nil when exporting to beamer [8.2 (8.2-elpa @ /Users/jason/.emacs.d/elpa/org-20130919/)]
2013-09-22 4:14 Bug: Wrong type argument: arrayp, nil when exporting to beamer [8.2 (8.2-elpa @ /Users/jason/.emacs.d/elpa/org-20130919/)] Jason Lewis
@ 2013-09-22 4:41 ` Jason Lewis
2013-09-22 21:56 ` Nicolas Goaziou
0 siblings, 1 reply; 7+ messages in thread
From: Jason Lewis @ 2013-09-22 4:41 UTC (permalink / raw)
To: emacs-orgmode
[-- Attachment #1: Type: text/plain, Size: 79342 bytes --]
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 "jason@tolkien.lan" :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 "jason@tolkien.lan" :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 "jason@tolkien.lan" :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 "jason@tolkien.lan" :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 "jason@tolkien.lan" :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 "jason@tolkien.lan" :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 #2: OpenPGP digital signature --]
[-- Type: application/pgp-signature, Size: 898 bytes --]
^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: Bug: Wrong type argument: arrayp, nil when exporting to beamer [8.2 (8.2-elpa @ /Users/jason/.emacs.d/elpa/org-20130919/)]
2013-09-22 4:41 ` Jason Lewis
@ 2013-09-22 21:56 ` Nicolas Goaziou
2013-09-22 22:50 ` Jason Lewis
0 siblings, 1 reply; 7+ messages in thread
From: Nicolas Goaziou @ 2013-09-22 21:56 UTC (permalink / raw)
To: Jason Lewis; +Cc: emacs-orgmode
Hello,
Jason Lewis <jason@dickson.st> writes:
> 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
The syntax is wrong: you cannot have two frames within the same tree.
Regards,
--
Nicolas Goaziou
^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: Bug: Wrong type argument: arrayp, nil when exporting to beamer [8.2 (8.2-elpa @ /Users/jason/.emacs.d/elpa/org-20130919/)]
2013-09-22 21:56 ` Nicolas Goaziou
@ 2013-09-22 22:50 ` Jason Lewis
2013-09-23 0:54 ` Bug: Wrong type argument: arrayp, nil when exporting to beamer [8.2 (8.2-elpa <at> /Users/jason/.emacs.d/elpa/org-20130919/)] James Harkins
2013-09-23 10:15 ` Bug: Wrong type argument: arrayp, nil when exporting to beamer [8.2 (8.2-elpa @ /Users/jason/.emacs.d/elpa/org-20130919/)] Nicolas Goaziou
0 siblings, 2 replies; 7+ messages in thread
From: Jason Lewis @ 2013-09-22 22:50 UTC (permalink / raw)
To: emacs-orgmode
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA256
Nicolas Goaziou wrote, On 23/09/2013 7:56 AM:
> Hello,
>
> Jason Lewis <jason@dickson.st> writes:
>
>> 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
>
> The syntax is wrong: you cannot have two frames within the same
> tree.
>
>
> Regards,
>
Hi Nocolas,
Thanks. The error message is not very clear and this is an easy
mistake for a beginner to make.
Thanks,
Jason
- --
Jason Lewis
http://emacstragic.net
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v2.0.19 (MingW32)
iQIcBAEBCAAGBQJSP3QdAAoJEPpXHsdQXnZO7FYP/jB4wOL8UzV6SCh1ZKI7siwa
Yd9WnMVCNM3pmwfOAO+WAgWrnIA8lfE4sIt6S7T2BkUsvvNAsVt/DorooKX/6Bwh
naIWRJd3qOqA3v5TpN8I+Y8jDjGTr8ZuXfV9OGuxrWgs/Z9vk4MMRSepyYT5wdyA
QUoV/yfgppPKrq9lqSf9OwXQ+sZ1Q62aZ5tTSWvVo5gKH9Po0pSJ8mAnQwoOPZiK
xkk8L26Ex2ffYkVtLl1FQMQM+YCUU4Pga9YE0//q6KIF+EbC73L03BIWvVVUVNQd
/KK3IyvqKuASR45mv5L3zsk8I27iBv7Sowxhel+JqDz14PaOqPCWC7CjAQ/AU9Bj
u44DxOP/pY7B2VVi7SbYcXMgOCDcoog37AyPjHLSnRATqI7cC/jXPlgrzpS+pbRt
FkAcajAQdp1dQ9G7ba3JVm7sy1SeBzxzYbDBv4waL1/4GGEJ7UWtl++8SeKBYyUs
+wjVSs7OKkphVErL3a0r1oYN6FjSnRSagR0lmCFz2bk1rktRE/As07kt7M4OJBlp
xzkIN6Jy9atk0CGTUNGt8RcJztpiRSmrvMhiUOlv9u3tM/J6SpH3oyhTjVSgAOXd
df33T81ieMuB6Ek4a7Glq/WDUZWkE/iNO6s4phrtib7oaFhzVzO6S2HkMmUqatSD
Kwv3FCcyGBCzmuGc0oLO
=rpK3
-----END PGP SIGNATURE-----
^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: Bug: Wrong type argument: arrayp, nil when exporting to beamer [8.2 (8.2-elpa <at> /Users/jason/.emacs.d/elpa/org-20130919/)]
2013-09-22 22:50 ` Jason Lewis
@ 2013-09-23 0:54 ` James Harkins
2013-09-23 10:15 ` Bug: Wrong type argument: arrayp, nil when exporting to beamer [8.2 (8.2-elpa @ /Users/jason/.emacs.d/elpa/org-20130919/)] Nicolas Goaziou
1 sibling, 0 replies; 7+ messages in thread
From: James Harkins @ 2013-09-23 0:54 UTC (permalink / raw)
To: emacs-orgmode
Jason Lewis <jason <at> dickson.st> writes:
> Nicolas Goaziou wrote, On 23/09/2013 7:56 AM:
> > The syntax is wrong: you cannot have two frames within the same
> > tree.
>
> Hi Nocolas,
>
> Thanks. The error message is not very clear and this is an easy
> mistake for a beginner to make.
FWIW, I've been using the new beamer exporter for at least half a year, and
I'm convinced the simplest way to handle frames is to set the H: export option
to the heading level that you want to turn into frames. That is, typically I
use top-level headings for sections, and my slideshows haven't been long
enough yet to need subsections, so I set H:2 in one of the #+OPTIONS strings
at the top. Then all "** Second level headings" become frames. No need to
specify the beamer_env in the properties drawer.
It isn't always the case, but it does seem often to be true that simpler input
avoids problems.
Hope that helps.
hjh
^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: Bug: Wrong type argument: arrayp, nil when exporting to beamer [8.2 (8.2-elpa @ /Users/jason/.emacs.d/elpa/org-20130919/)]
2013-09-22 22:50 ` Jason Lewis
2013-09-23 0:54 ` Bug: Wrong type argument: arrayp, nil when exporting to beamer [8.2 (8.2-elpa <at> /Users/jason/.emacs.d/elpa/org-20130919/)] James Harkins
@ 2013-09-23 10:15 ` Nicolas Goaziou
[not found] ` <52457A6F.7050006@dickson.st>
1 sibling, 1 reply; 7+ messages in thread
From: Nicolas Goaziou @ 2013-09-23 10:15 UTC (permalink / raw)
To: Jason Lewis; +Cc: emacs-orgmode
Hello,
Jason Lewis <jason@dickson.st> writes:
> Thanks. The error message is not very clear and this is an easy
> mistake for a beginner to make.
I think that nesting frames is a strange error to make.
Anyway, here is the relevant part of the manual:
- Headlines become frames when their level is equal to
'org-beamer-frame-level' or 'H' value in an 'OPTIONS' line (*note
Export settings::).
Though, if a headline in the current tree has a 'BEAMER_ENV'
property set to either to 'frame' or 'fullframe', its level
overrides the variable. A 'fullframe' is a frame with an empty
(ignored) title.
Do you think it should be reformulated? If so, could you suggest what
would be needed?
Regards,
--
Nicolas Goaziou
^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: Bug: Wrong type argument: arrayp, nil when exporting to beamer [8.2 (8.2-elpa @ /Users/jason/.emacs.d/elpa/org-20130919/)]
[not found] ` <52457A6F.7050006@dickson.st>
@ 2013-09-29 8:35 ` Nicolas Goaziou
0 siblings, 0 replies; 7+ messages in thread
From: Nicolas Goaziou @ 2013-09-29 8:35 UTC (permalink / raw)
To: Jason Lewis; +Cc: Org Mode List
Hello,
Jason Lewis <jason@dickson.st> writes:
> However in my opinion, the user shouldn't be able to break exporting
> simply by having headlines in the wrong level, without at least a
> descriptive error of what the problem is.
I added a more informative error message to the back-end. Thanks for
suggesting it.
Cc'ing the ML.
Regards,
--
Nicolas Goaziou
^ permalink raw reply [flat|nested] 7+ messages in thread
end of thread, other threads:[~2013-09-29 8:35 UTC | newest]
Thread overview: 7+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2013-09-22 4:14 Bug: Wrong type argument: arrayp, nil when exporting to beamer [8.2 (8.2-elpa @ /Users/jason/.emacs.d/elpa/org-20130919/)] Jason Lewis
2013-09-22 4:41 ` Jason Lewis
2013-09-22 21:56 ` Nicolas Goaziou
2013-09-22 22:50 ` Jason Lewis
2013-09-23 0:54 ` Bug: Wrong type argument: arrayp, nil when exporting to beamer [8.2 (8.2-elpa <at> /Users/jason/.emacs.d/elpa/org-20130919/)] James Harkins
2013-09-23 10:15 ` Bug: Wrong type argument: arrayp, nil when exporting to beamer [8.2 (8.2-elpa @ /Users/jason/.emacs.d/elpa/org-20130919/)] Nicolas Goaziou
[not found] ` <52457A6F.7050006@dickson.st>
2013-09-29 8:35 ` Nicolas Goaziou
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).