From mboxrd@z Thu Jan 1 00:00:00 1970 From: Jason Lewis Subject: Re: 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 Message-ID: <523E74E6.9060303@dickson.st> References: <523E6E9B.2090203@dickson.st> Mime-Version: 1.0 Content-Type: multipart/signed; micalg=pgp-sha256; protocol="application/pgp-signature"; boundary="NR5pDpClxvWdGE3SHqs5LqFTD3URm5k17" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:57399) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VNbU7-0003JB-DS for emacs-orgmode@gnu.org; Sun, 22 Sep 2013 00:41:34 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VNbTz-0001DU-V3 for emacs-orgmode@gnu.org; Sun, 22 Sep 2013 00:41:27 -0400 Received: from ipmail04.adl6.internode.on.net ([2001:44b8:8060:ff02:300:1:6:4]:26438) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VNbTx-0001CO-If for emacs-orgmode@gnu.org; Sun, 22 Sep 2013 00:41:19 -0400 Received: from tolkien.lan (ppp59-167-140-99.static.internode.on.net [59.167.140.99]) by debian.organictrader.com.au (Postfix) with ESMTPSA id 0393911A04AF for ; Sun, 22 Sep 2013 14:41:08 +1000 (EST) In-Reply-To: <523E6E9B.2090203@dickson.st> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org This is an OpenPGP/MIME signed message (RFC 4880 and 3156) --NR5pDpClxvWdGE3SHqs5LqFTD3URm5k17 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable 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 =20 > :B_frame: > :PROPERTIES: > :BEAMER_env: frame > :END: > ** Tools I looked at =20 > :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: > =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D > (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" > =20 > "\\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 loc= al)) > ) > (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-drawe= rs > org-cycle-hide-inline-tasks org-cycle-show-empty-line= s > 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= =2E 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" =2E "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 =2E.. ...)) (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 =2E.. "" ...)) (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" =2E..)))) "\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 ... ... =2E.. ... ...))) "\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)))) ((=3D 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* ... =2E..)))))) ((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)))) ((=3D 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)))) ((=3D= 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 =2E.. ...)) (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 =2E..) (org-export-filter-apply-functions ... ... info)) ((not ...) (org-export-data ... info)) ((not type) (mapconcat ... data "")) ((or =2E.. ...) (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 =2E..)) #3)) (section (:begin 97 :end 141 :contents-begin 97 :contents-en= d 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 =2E.. ...)) (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 =2E..) (org-export-filter-apply-functions ... ... info)) ((not ...) (org-export-data ... info)) ((not type) (mapconcat ... data "")) ((or =2E.. ...) (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 =2E.. ...)) (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 =2E..) (org-export-filter-apply-functions ... ... info)) ((not ...) (org-export-data ... info)) ((not type) (mapconcat ... data "")) ((or =2E.. ...) (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) (>=3D (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) (>=3D (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) (>=3D ... 8) (memq =2E.. 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) (>=3D (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) (>=3D ... 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) (>=3D= =2E.. 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 =2E.. ...) (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 =2E.. ...))) (progn (let (... filter) (while --dolist-tail-- ... ... =2E..)))) (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 =2E..))) (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) (>=3D (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 =2E.. ...) (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 ... =2E..))) (setq info (org-export-install-filters (org-combine-plists info =2E..))) (org-macro-replace-all (list (cons "author" ...) (cons "date" =2E..) (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) (>=3D ... 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 =2E..)) (org-macro-replace-all (list ... ... ... ...)) (let (...) (progn =2E..)) (setq tree (org-export-filter-apply-functions ... ... info)) (set= q 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 =2E..) (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 ... =2E..) (and ... ...))) (let* ((process-connection-type nil) (--proc-buffe= r =2E..) (--process ...)) (org-export-add-to-stack (get-buffer --proc-buffer) nil --process) (let (...) (set-process-sentinel --process =2E..))))) (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 ... =2E..)))) (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 (... =2E.. ...) (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 ... =2E..) (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) --NR5pDpClxvWdGE3SHqs5LqFTD3URm5k17 Content-Type: application/pgp-signature; name="signature.asc" Content-Description: OpenPGP digital signature Content-Disposition: attachment; filename="signature.asc" -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.13 (Darwin) Comment: Using GnuPG with Thunderbird - http://www.enigmail.net/ iQIcBAEBCAAGBQJSPnTmAAoJEPpXHsdQXnZOR6wP/ihoiUo/fq4bJdQ0b6RYV4UK e39DaeYfd1GoTQZh9Wl2ZZccpu7kTqSg4yhCQL8FuaIu745QaVlTNeH5R5v2kPUh 5P6FVAIEWvzloBJ20YnmvGFsKntwZhbHbUpQ0pE2ym48Xo1AdaewmEdueMaCIFhv 81J2td2L1NBwnF8mMryAro9dbEUFmn1hpTsVmwV3EHFDaRbcV/IueM29hhNZic3v hpyQI39lO5pzNIpB1jm7JLa8HNlW9pY+Gy7vRperM64ujKrC4VfhKfTCfTavtCFc nNH+vmFQ4m3XWUCR/K0gEWlOfc9udvFRyiGksCNZ9Kxl0RHClVnSMLqUNwc4iCjB cYWhsS5GoHWKAI5YnvMNZaDLA5OEXFFoo8xMPY59KpOs72xlL267nNfRFneH9qPI XZEjoASgMxksoWxsoLPiBXGcvF6VHpR9ic8xCIeHpQ9eIhlbzIkOmJp/ZHjpEPeT MMZwjF98g5e8op0jcdU4gbYPhQUHwSxqqxFvLKaHJnP9H+gmVNMankGIHMAFIG4n ZIH52GNXVu8MAoiq9mgk97UvV0z1TOvgPvn1dQ3AkPKy7uTWblRMk7YlXgAkSfIF jSPw5uTmw4VPbXf0Ut10Up1NWnp1+V1QfZhyQiPX6GorlhJbQpfoKoIXmqVbAtCD Qz0IlQ2iDfjZsJtHhbq6 =5y8f -----END PGP SIGNATURE----- --NR5pDpClxvWdGE3SHqs5LqFTD3URm5k17--