From mboxrd@z Thu Jan 1 00:00:00 1970 From: Suvayu Ali Subject: Re: [New exporter] Wrong export to LaTeX Date: Thu, 11 Oct 2012 18:52:32 +0200 Message-ID: <20121011165232.GB15182@kuru.dyndns-at-home.com> References: <80txu1ma6t.fsf@somewhere.org> <87bog9401p.fsf@gmail.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="1UWUbFP1cBYEclgG" Return-path: Received: from eggs.gnu.org ([208.118.235.92]:38573) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TMM03-0000FS-KQ for emacs-orgmode@gnu.org; Thu, 11 Oct 2012 12:52:45 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TMLzy-00023c-87 for emacs-orgmode@gnu.org; Thu, 11 Oct 2012 12:52:43 -0400 Received: from mail-wg0-f49.google.com ([74.125.82.49]:58401) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TMLzx-00023U-OF for emacs-orgmode@gnu.org; Thu, 11 Oct 2012 12:52:38 -0400 Received: by mail-wg0-f49.google.com with SMTP id gg4so1219893wgb.30 for ; Thu, 11 Oct 2012 09:52:36 -0700 (PDT) Content-Disposition: inline In-Reply-To: <87bog9401p.fsf@gmail.com> 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 --1UWUbFP1cBYEclgG Content-Type: text/plain; charset=us-ascii Content-Disposition: inline Hi Nicolas, On Thu, Oct 11, 2012 at 03:21:06PM +0200, Nicolas Goaziou wrote: > > > Hello, > > "Sebastien Vauban" > writes: > > > When I try to export the following ECM: > > > > #+LaTeX_CLASS: beamer > > #+LaTeX_CLASS_OPTIONS: [presentation] > > [...] > > > Notable differences: > > > > - No frames are created!? > > - (detail) PDFCreator is not set to Org-mode blah-blah (wished like that?) > > > > Am I missing something? > > That's because Beamer is now a back-end on its own, not a patch over the > LaTeX one. In the old exporter, Beamer translation was triggered with > #+latex_class: beamer. This is not necessary anymore. > > All you have to do is to (require 'org-e-beamer) and use the appropriate > entry in the dispatcher menu. You can have a Beamer translation on any > class, including article and so on. > > That's why (add-to-list 'org-e-latex-classes "beamer" ...) doesn't make > much sense anyway (as suggested in another post). > I believe you are refering to my minimal setup. However when I try to export to beamer (Seb's ECM) without the (add-to-list 'org-e-latex-classes '("beamer" ...)) bit, I get a backtrace (attached). Is that a bug? -- Suvayu Open source is the future. It sets us free. --1UWUbFP1cBYEclgG Content-Type: text/plain; charset=us-ascii Content-Disposition: attachment; filename="debug.log" Content-Transfer-Encoding: quoted-printable Debugger entered--Lisp error: (void-function org-macro-initialize-templates) (org-macro-initialize-templates) org-export-expand-macro((:author ("Suvayu Ali") :creator "Generated by Or= g mode 7.9.2 in Emacs 24.2.50.1." :date ((latex-fragment (:value "\\today" = :begin 1 :end 7 :post-blank 0 :parent nil))) :description nil :email "jalla= d@kuru.dyndns-at-home.com" :exclude-tags ("noexport") :headline-levels 2 :k= eywords nil :language "en" :preserve-breaks nil :section-numbers t :select-= tags ("export") :time-stamp-file t :title "beamer-test" :with-archived-tree= s headline :with-author t :with-clocks nil :with-creator comment :with-draw= ers nil :with-email nil :with-emphasize t :with-entities t :with-fixed-widt= h t :with-footnotes t :with-inlinetasks t ...)) (if noexpand nil (org-export-expand-include-keyword) (org-update-radio-ta= rget-regexp) (org-export-expand-macro info) (let ((org-current-export-file = buf)) (org-export-blocks-preprocess))) (progn (if noexpand nil (org-export-expand-include-keyword) (org-update-r= adio-target-regexp) (org-export-expand-macro info) (let ((org-current-expor= t-file buf)) (org-export-blocks-preprocess))) (goto-char (point-min)) (run-= hook-with-args (quote org-export-before-parsing-hook) backend) (org-element= -parse-buffer nil visible-only)) (let ((buffer-invisibility-spec nil)) (org-clone-local-variables --origin= al-buffer "^\\(org-\\|orgtbl-\\|major-mode$\\|outline-\\(regexp\\|level\\)$= \\)") (insert --buffer-string) (mapc (lambda (ov) (move-overlay ov (- (over= lay-start ov) --offset) (- (overlay-end ov) --offset) (current-buffer))) --= overlays) (goto-char (point-min)) (progn (if noexpand nil (org-export-expan= d-include-keyword) (org-update-radio-target-regexp) (org-export-expand-macr= o info) (let ((org-current-export-file buf)) (org-export-blocks-preprocess)= )) (goto-char (point-min)) (run-hook-with-args (quote org-export-before-par= sing-hook) backend) (org-element-parse-buffer nil visible-only))) (progn (let ((buffer-invisibility-spec nil)) (org-clone-local-variables -= -original-buffer "^\\(org-\\|orgtbl-\\|major-mode$\\|outline-\\(regexp\\|le= vel\\)$\\)") (insert --buffer-string) (mapc (lambda (ov) (move-overlay ov (= - (overlay-start ov) --offset) (- (overlay-end ov) --offset) (current-buffe= r))) --overlays) (goto-char (point-min)) (progn (if noexpand nil (org-expor= t-expand-include-keyword) (org-update-radio-target-regexp) (org-export-expa= nd-macro info) (let ((org-current-export-file buf)) (org-export-blocks-prep= rocess))) (goto-char (point-min)) (run-hook-with-args (quote org-export-bef= ore-parsing-hook) backend) (org-element-parse-buffer nil visible-only)))) (unwind-protect (progn (let ((buffer-invisibility-spec nil)) (org-clone-l= ocal-variables --original-buffer "^\\(org-\\|orgtbl-\\|major-mode$\\|outlin= e-\\(regexp\\|level\\)$\\)") (insert --buffer-string) (mapc (lambda (ov) (m= ove-overlay ov (- (overlay-start ov) --offset) (- (overlay-end ov) --offset= ) (current-buffer))) --overlays) (goto-char (point-min)) (progn (if noexpan= d nil (org-export-expand-include-keyword) (org-update-radio-target-regexp) = (org-export-expand-macro info) (let ((org-current-export-file buf)) (org-ex= port-blocks-preprocess))) (goto-char (point-min)) (run-hook-with-args (quot= e org-export-before-parsing-hook) backend) (org-element-parse-buffer nil vi= sible-only)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (let= ((buffer-invisibility-spec nil)) (org-clone-local-variables --original-buf= fer "^\\(org-\\|orgtbl-\\|major-mode$\\|outline-\\(regexp\\|level\\)$\\)") = (insert --buffer-string) (mapc (lambda (ov) (move-overlay ov (- ... --offse= t) (- ... --offset) (current-buffer))) --overlays) (goto-char (point-min)) = (progn (if noexpand nil (org-export-expand-include-keyword) (org-update-rad= io-target-regexp) (org-export-expand-macro info) (let (...) (org-export-blo= cks-preprocess))) (goto-char (point-min)) (run-hook-with-args (quote org-ex= port-before-parsing-hook) backend) (org-element-parse-buffer nil visible-on= ly)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) (with-current-buffer temp-buffer (unwind-protect (progn (let ((buffer-inv= isibility-spec nil)) (org-clone-local-variables --original-buffer "^\\(org-= \\|orgtbl-\\|major-mode$\\|outline-\\(regexp\\|level\\)$\\)") (insert --buf= fer-string) (mapc (lambda (ov) (move-overlay ov (- ... --offset) (- ... --o= ffset) (current-buffer))) --overlays) (goto-char (point-min)) (progn (if no= expand nil (org-export-expand-include-keyword) (org-update-radio-target-reg= exp) (org-export-expand-macro info) (let (...) (org-export-blocks-preproces= s))) (goto-char (point-min)) (run-hook-with-args (quote org-export-before-p= arsing-hook) backend) (org-element-parse-buffer nil visible-only)))) (and (= buffer-name temp-buffer) (kill-buffer temp-buffer)))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (with-current-buffer= temp-buffer (unwind-protect (progn (let ((buffer-invisibility-spec nil)) (= org-clone-local-variables --original-buffer "^\\(org-\\|orgtbl-\\|major-mod= e$\\|outline-\\(regexp\\|level\\)$\\)") (insert --buffer-string) (mapc (lam= bda (ov) (move-overlay ov ... ... ...)) --overlays) (goto-char (point-min))= (progn (if noexpand nil (org-export-expand-include-keyword) (org-update-ra= dio-target-regexp) (org-export-expand-macro info) (let ... ...)) (goto-char= (point-min)) (run-hook-with-args (quote org-export-before-parsing-hook) ba= ckend) (org-element-parse-buffer nil visible-only)))) (and (buffer-name tem= p-buffer) (kill-buffer temp-buffer))))) (with-temp-buffer (let ((buffer-invisibility-spec nil)) (org-clone-local-= variables --original-buffer "^\\(org-\\|orgtbl-\\|major-mode$\\|outline-\\(= regexp\\|level\\)$\\)") (insert --buffer-string) (mapc (lambda (ov) (move-o= verlay ov (- (overlay-start ov) --offset) (- (overlay-end ov) --offset) (cu= rrent-buffer))) --overlays) (goto-char (point-min)) (progn (if noexpand nil= (org-export-expand-include-keyword) (org-update-radio-target-regexp) (org-= export-expand-macro info) (let ((org-current-export-file buf)) (org-export-= blocks-preprocess))) (goto-char (point-min)) (run-hook-with-args (quote org= -export-before-parsing-hook) backend) (org-element-parse-buffer nil visible= -only)))) (let ((--original-buffer (current-buffer)) (--offset (1- (point-min))) (-= -buffer-string (buffer-string)) (--overlays (mapcar (quote copy-overlay) (o= verlays-in (point-min) (point-max))))) (with-temp-buffer (let ((buffer-invi= sibility-spec nil)) (org-clone-local-variables --original-buffer "^\\(org-\= \|orgtbl-\\|major-mode$\\|outline-\\(regexp\\|level\\)$\\)") (insert --buff= er-string) (mapc (lambda (ov) (move-overlay ov (- (overlay-start ov) --offs= et) (- (overlay-end ov) --offset) (current-buffer))) --overlays) (goto-char= (point-min)) (progn (if noexpand nil (org-export-expand-include-keyword) (= org-update-radio-target-regexp) (org-export-expand-macro info) (let ((org-c= urrent-export-file buf)) (org-export-blocks-preprocess))) (goto-char (point= -min)) (run-hook-with-args (quote org-export-before-parsing-hook) backend) = (org-element-parse-buffer nil visible-only))))) (org-export-with-current-buffer-copy (if noexpand nil (org-export-expand-= include-keyword) (org-update-radio-target-regexp) (org-export-expand-macro = info) (let ((org-current-export-file buf)) (org-export-blocks-preprocess)))= (goto-char (point-min)) (run-hook-with-args (quote org-export-before-parsi= ng-hook) backend) (org-element-parse-buffer nil visible-only)) (let ((buf (or (buffer-file-name (buffer-base-buffer)) (current-buffer)))= ) (org-export-with-current-buffer-copy (if noexpand nil (org-export-expand-= include-keyword) (org-update-radio-target-regexp) (org-export-expand-macro = info) (let ((org-current-export-file buf)) (org-export-blocks-preprocess)))= (goto-char (point-min)) (run-hook-with-args (quote org-export-before-parsi= ng-hook) backend) (org-element-parse-buffer nil visible-only))) (let* ((info (org-export-install-filters (org-export-get-environment back= end subtreep ext-plist))) (tree (let ((buf (or (buffer-file-name ...) (curr= ent-buffer)))) (org-export-with-current-buffer-copy (if noexpand nil (org-e= xport-expand-include-keyword) (org-update-radio-target-regexp) (org-export-= expand-macro info) (let (...) (org-export-blocks-preprocess))) (goto-char (= point-min)) (run-hook-with-args (quote org-export-before-parsing-hook) back= end) (org-element-parse-buffer nil visible-only))))) (setq tree (org-export= -filter-apply-functions (plist-get info :filter-parse-tree) tree info)) (se= tq info (org-combine-plists info (org-export-collect-tree-properties tree i= nfo))) (let* ((body (org-element-normalize-string (org-export-data tree inf= o))) (template (cdr (assq (quote template) (plist-get info :translate-alist= )))) (output (org-export-filter-apply-functions (plist-get info :filter-fin= al-output) (if (or (not ...) body-only) body (funcall template body info)) = info))) (if org-export-copy-to-kill-ring (progn (org-kill-new output))) out= put)) (save-restriction (cond ((org-region-active-p) (narrow-to-region (region-= beginning) (region-end))) (subtreep (org-narrow-to-subtree) (goto-char (poi= nt-min)) (forward-line) (narrow-to-region (point) (point-max)))) (let* ((in= fo (org-export-install-filters (org-export-get-environment backend subtreep= ext-plist))) (tree (let ((buf (or ... ...))) (org-export-with-current-buff= er-copy (if noexpand nil (org-export-expand-include-keyword) (org-update-ra= dio-target-regexp) (org-export-expand-macro info) (let ... ...)) (goto-char= (point-min)) (run-hook-with-args (quote org-export-before-parsing-hook) ba= ckend) (org-element-parse-buffer nil visible-only))))) (setq tree (org-expo= rt-filter-apply-functions (plist-get info :filter-parse-tree) tree info)) (= setq info (org-combine-plists info (org-export-collect-tree-properties tree= info))) (let* ((body (org-element-normalize-string (org-export-data tree i= nfo))) (template (cdr (assq (quote template) (plist-get info :translate-ali= st)))) (output (org-export-filter-apply-functions (plist-get info :filter-f= inal-output) (if (or ... body-only) body (funcall template body info)) info= ))) (if org-export-copy-to-kill-ring (progn (org-kill-new output))) output)= )) (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-ma= x)))) (let* ((info (org-export-install-filters (org-export-get-environment = backend subtreep ext-plist))) (tree (let ((buf ...)) (org-export-with-curre= nt-buffer-copy (if noexpand nil ... ... ... ...) (goto-char ...) (run-hook-= with-args ... backend) (org-element-parse-buffer nil visible-only))))) (set= q tree (org-export-filter-apply-functions (plist-get info :filter-parse-tre= e) tree info)) (setq info (org-combine-plists info (org-export-collect-tree= -properties tree info))) (let* ((body (org-element-normalize-string (org-ex= port-data tree info))) (template (cdr (assq ... ...))) (output (org-export-= filter-apply-functions (plist-get info :filter-final-output) (if ... body .= =2E.) info))) (if org-export-copy-to-kill-ring (progn (org-kill-new output)= )) output)))) org-export-as(e-beamer nil nil nil nil nil) (let ((out (org-export-as backend subtreep visible-only body-only ext-pli= st noexpand))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-c= urrent-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert out) = (let ((coding-system-for-write org-export-coding-system)) (write-file file)= )) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) org-export-to-file(e-beamer "/home/jallad/tmp/org-test/beamer-test.tex" n= il nil nil nil) (let ((outfile (org-export-output-file-name ".tex" subtreep pub-dir))) (o= rg-export-to-file (quote e-beamer) outfile subtreep visible-only body-only = ext-plist)) org-e-beamer-export-to-latex(nil nil nil nil nil) (org-e-latex-compile (org-e-beamer-export-to-latex subtreep visible-only = body-only ext-plist pub-dir)) org-e-beamer-export-to-pdf(nil nil nil) funcall(org-e-beamer-export-to-pdf nil nil nil) (cond ((eql action (quote publish-current-file)) (org-e-publish-current-f= ile (memq (quote force) optns))) ((eql action (quote publish-current-projec= t)) (org-e-publish-current-project (memq (quote force) optns))) ((eql actio= n (quote publish-choose-project)) (org-e-publish (assoc (org-icompleting-re= ad "Publish project: " org-e-publish-project-alist nil t) org-e-publish-pro= ject-alist) (memq (quote force) optns))) ((eql action (quote publish-all)) = (org-e-publish-all (memq (quote force) optns))) (t (funcall action (memq (q= uote subtree) optns) (memq (quote visible) optns) (memq (quote body) optns)= ))) (let* ((input (org-export-dispatch-ui (list org-export-initial-scope) nil= org-export-dispatch-use-expert-ui)) (action (car input)) (optns (cdr input= ))) (cond ((eql action (quote publish-current-file)) (org-e-publish-current= -file (memq (quote force) optns))) ((eql action (quote publish-current-proj= ect)) (org-e-publish-current-project (memq (quote force) optns))) ((eql act= ion (quote publish-choose-project)) (org-e-publish (assoc (org-icompleting-= read "Publish project: " org-e-publish-project-alist nil t) org-e-publish-p= roject-alist) (memq (quote force) optns))) ((eql action (quote publish-all)= ) (org-e-publish-all (memq (quote force) optns))) (t (funcall action (memq = (quote subtree) optns) (memq (quote visible) optns) (memq (quote body) optn= s))))) org-export-dispatch() call-interactively(org-export-dispatch record nil) command-execute(org-export-dispatch record) execute-extended-command(nil "org-export-dispatch") call-interactively(execute-extended-command nil nil) --1UWUbFP1cBYEclgG--