Re: new exporter corrupts ODT

[Michael Brand <michael.ch.brand@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 919 bytes --]

Hi Jambunathan

On Sat, Jun 2, 2012 at 5:18 PM, Jambunathan K <kjambunathan@gmail.com> wrote:
> After sending out the email, I realized that `org-e-odt-prettify-xml' is
> ON by default in the org-e-odt.el.  Now I have turned it off.
>
> Hopefully things are OK at your end with this "fix".

Thank you for looking into this.

I just pulled and now get a backtrace when trying this:

cd /f/xmirror/git/org-mode
git pull
git describe
==> release_7.8.10-642-gca6f523
make cleanall info autoloads
(/Applications/Emacs.app/Contents/MacOS/Emacs -Q \
    -L "/f/xmirror/git/org-mode/lisp/" \
    -L "/f/xmirror/git/org-mode/contrib/lisp/" &)
M-x load-library RET org-e-odt RET
C-x C-f release_7.8.10-633.org RET
M-x org-export-dispatch RET o
==> see attached backtrace

> I am still curious
> what mode does mimetype file open for you. (Do M-: mode-name in mimetype
> buffer)

"M-: mode-name RET" shows "Fundamental".

Michael

[-- Attachment #2: backtrace.txt --]
[-- Type: text/plain, Size: 12775 bytes --]

Debugger entered--Lisp error: (void-function org-e-html-encode-plain-text)
  (org-e-html-encode-plain-text line)
  (setq line (org-e-html-encode-plain-text line))
  org-e-odt-encode-plain-text("a" t)
  (setq text (org-e-odt-encode-plain-text text t))
  org-e-odt-plain-text("a" (:author "br" :creator "Generated by Org mode 7.8.10 in Emacs 23.3.1." :date nil :description nil :email "b@aHostName" :exclude-tags ("noexport") :headline-levels 3 :keywords nil :language "en" :preserve-breaks nil :section-numbers t :select-tags ("export") :time-stamp-file t :title "release_7.8.10-633" :with-archived-trees headline :with-author t :with-clocks nil :with-creator comment :with-drawers t :with-email nil :with-emphasize t :with-entities t :with-fixed-width t :with-footnotes t :with-plannings nil ...))
  funcall(org-e-odt-plain-text "a" (:author "br" :creator "Generated by Org mode 7.8.10 in Emacs 23.3.1." :date nil :description nil :email "b@aHostName" :exclude-tags ("noexport") :headline-levels 3 :keywords nil :language "en" :preserve-breaks nil :section-numbers t :select-tags ("export") :time-stamp-file t :title "release_7.8.10-633" :with-archived-trees headline :with-author t :with-clocks nil :with-creator comment :with-drawers t :with-email nil :with-emphasize t :with-entities t :with-fixed-width t :with-footnotes t :with-plannings nil ...))
  (if transcoder (funcall transcoder data info) data)
  (let ((transcoder ...)) (if transcoder (funcall transcoder data info) data))
  (org-export-filter-apply-functions (plist-get info :filter-plain-text) (let (...) (if transcoder ... data)) info)
  (cond ((member data ...) nil) ((eq type ...) (org-export-filter-apply-functions ... ... info)) ((not ...) (org-export-data ... info)) ((not type) (mapconcat ... data "")) ((or ... ...) (let ... ...)) (t (let ... ...)))
  (let* ((type ...) (results ...)) (cond (... nil) (... results) (t ...)))
  org-export-data("a" (:author "br" :creator "Generated by Org mode 7.8.10 in Emacs 23.3.1." :date nil :description nil :email "b@aHostName" :exclude-tags ("noexport") :headline-levels 3 :keywords nil :language "en" :preserve-breaks nil :section-numbers t :select-tags ("export") :time-stamp-file t :title "release_7.8.10-633" :with-archived-trees headline :with-author t :with-clocks nil :with-creator comment :with-drawers t :with-email nil :with-emphasize t :with-entities t :with-fixed-width t :with-footnotes t :with-plannings nil ...))
  (lambda (obj) (org-export-data obj info))("a")
  mapconcat((lambda (obj) (org-export-data obj info)) ("a") "")
  (cond ((member data ...) nil) ((eq type ...) (org-export-filter-apply-functions ... ... info)) ((not ...) (org-export-data ... info)) ((not type) (mapconcat ... data "")) ((or ... ...) (let ... ...)) (t (let ... ...)))
  (let* ((type ...) (results ...)) (cond (... nil) (... results) (t ...)))
  org-export-data(("a") (:author "br" :creator "Generated by Org mode 7.8.10 in Emacs 23.3.1." :date nil :description nil :email "b@aHostName" :exclude-tags ("noexport") :headline-levels 3 :keywords nil :language "en" :preserve-breaks nil :section-numbers t :select-tags ("export") :time-stamp-file t :title "release_7.8.10-633" :with-archived-trees headline :with-author t :with-clocks nil :with-creator comment :with-drawers t :with-email nil :with-emphasize t :with-entities t :with-fixed-width t :with-footnotes t :with-plannings nil ...))
  (let* ((numberedp ...) (level ...) (text ...) (full-text ...)) (cond (... nil) (... ...) (t ...)))
  org-e-odt-headline((headline (:raw-value "a" :title ("a") :begin 1 :end 5 :pre-blank 0 :hiddenp nil :contents-begin 5 :contents-end 5 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :scheduled nil :deadline nil :timestamp nil :clock nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :category nil)) nil (:author "br" :creator "Generated by Org mode 7.8.10 in Emacs 23.3.1." :date nil :description nil :email "b@aHostName" :exclude-tags ("noexport") :headline-levels 3 :keywords nil :language "en" :preserve-breaks nil :section-numbers t :select-tags ("export") :time-stamp-file t :title "release_7.8.10-633" :with-archived-trees headline :with-author t :with-clocks nil :with-creator comment :with-drawers t :with-email nil :with-emphasize t :with-entities t :with-fixed-width t :with-footnotes t :with-plannings nil ...))
  funcall(org-e-odt-headline (headline (:raw-value "a" :title ("a") :begin 1 :end 5 :pre-blank 0 :hiddenp nil :contents-begin 5 :contents-end 5 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :scheduled nil :deadline nil :timestamp nil :clock nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :category nil)) nil (:author "br" :creator "Generated by Org mode 7.8.10 in Emacs 23.3.1." :date nil :description nil :email "b@aHostName" :exclude-tags ("noexport") :headline-levels 3 :keywords nil :language "en" :preserve-breaks nil :section-numbers t :select-tags ("export") :time-stamp-file t :title "release_7.8.10-633" :with-archived-trees headline :with-author t :with-clocks nil :with-creator comment :with-drawers t :with-email nil :with-emphasize t :with-entities t :with-fixed-width t :with-footnotes t :with-plannings nil ...))
  (and (fboundp transcoder) (funcall transcoder data nil info))
  (let ((transcoder ...)) (and (fboundp transcoder) (funcall transcoder data nil info)))
  (cond ((member data ...) nil) ((eq type ...) (org-export-filter-apply-functions ... ... info)) ((not ...) (org-export-data ... info)) ((not type) (mapconcat ... data "")) ((or ... ...) (let ... ...)) (t (let ... ...)))
  (let* ((type ...) (results ...)) (cond (... nil) (... results) (t ...)))
  org-export-data((headline (:raw-value "a" :title ("a") :begin 1 :end 5 :pre-blank 0 :hiddenp nil :contents-begin 5 :contents-end 5 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :scheduled nil :deadline nil :timestamp nil :clock nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :category nil)) (:author "br" :creator "Generated by Org mode 7.8.10 in Emacs 23.3.1." :date nil :description nil :email "b@aHostName" :exclude-tags ("noexport") :headline-levels 3 :keywords nil :language "en" :preserve-breaks nil :section-numbers t :select-tags ("export") :time-stamp-file t :title "release_7.8.10-633" :with-archived-trees headline :with-author t :with-clocks nil :with-creator comment :with-drawers t :with-email nil :with-emphasize t :with-entities t :with-fixed-width t :with-footnotes t :with-plannings nil ...))
  (lambda (element) (org-export-data element info))((headline (:raw-value "a" :title ("a") :begin 1 :end 5 :pre-blank 0 :hiddenp nil :contents-begin 5 :contents-end 5 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :scheduled nil :deadline nil :timestamp nil :clock nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :category nil)))
  mapconcat((lambda (element) (org-export-data element info)) ((headline (:raw-value "a" :title ... :begin 1 :end 5 :pre-blank 0 :hiddenp nil :contents-begin 5 :contents-end 5 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :scheduled nil :deadline nil :timestamp nil :clock nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :category nil))) "")
  (let* ((greaterp ...) (objectp ...) (contents ...)) (funcall transcoder data (if greaterp ... contents) info))
  (progn (let* (... ... ...) (funcall transcoder data ... info)))
  (if transcoder (progn (let* ... ...)))
  (when transcoder (let* (... ... ...) (funcall transcoder data ... info)))
  (let ((transcoder ...)) (when transcoder (let* ... ...)))
  (cond ((member data ...) nil) ((eq type ...) (org-export-filter-apply-functions ... ... info)) ((not ...) (org-export-data ... info)) ((not type) (mapconcat ... data "")) ((or ... ...) (let ... ...)) (t (let ... ...)))
  (let* ((type ...) (results ...)) (cond (... nil) (... results) (t ...)))
  org-export-data((org-data nil (headline (:raw-value "a" :title ... :begin 1 :end 5 :pre-blank 0 :hiddenp nil :contents-begin 5 :contents-end 5 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :scheduled nil :deadline nil :timestamp nil :clock nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :category nil))) (:author "br" :creator "Generated by Org mode 7.8.10 in Emacs 23.3.1." :date nil :description nil :email "b@aHostName" :exclude-tags ("noexport") :headline-levels 3 :keywords nil :language "en" :preserve-breaks nil :section-numbers t :select-tags ("export") :time-stamp-file t :title "release_7.8.10-633" :with-archived-trees headline :with-author t :with-clocks nil :with-creator comment :with-drawers t :with-email nil :with-emphasize t :with-entities t :with-fixed-width t :with-footnotes t :with-plannings nil ...))
  (org-element-normalize-string (org-export-data tree info))
  (let* ((body ...) (template ...) (output ...)) (when org-export-copy-to-kill-ring (org-kill-new output)) output)
  (let ((info ...) (tree ...)) (setq tree (org-export-filter-apply-functions ... tree info)) (setq info (org-combine-plists info ...)) (let* (... ... ...) (when org-export-copy-to-kill-ring ...) output))
  (save-restriction (cond (... ...) (subtreep ... ... ... ...)) (let (... ...) (setq tree ...) (setq info ...) (let* ... ... output)))
  (save-excursion (save-restriction (cond ... ...) (let ... ... ... ...)))
  org-export-as(e-odt nil nil nil nil nil)
  (let ((out ...) (buffer ...)) (with-current-buffer buffer (erase-buffer) (insert out) (goto-char ...)) buffer)
  org-export-to-buffer(e-odt #<buffer content.xml> nil nil nil)
  (let* ((outbuf ...) (target ...) (outdir ...) (default-directory outdir)) (setq org-current-export-file (file-name-directory ...)) (org-export-to-buffer (quote e-odt) outbuf (memq ... optns) (memq ... optns) (memq ... optns)) (setq org-lparse-opt-plist nil) (org-e-odt-save-as-outfile target nil) (if (not org-e-odt-preferred-output-format) target (or ... target)))
  org-e-odt-export-to-odt(nil nil nil)
  (cond ((eql --cl-var-- ...) nil) ((member* --cl-var-- ...) (require ...) (let ... ... ...)) ((member* --cl-var-- ...) (require ...) (org-e-ascii-export-to-ascii ... ... ... ...)) ((eql --cl-var-- ...) (require ...) (let ... ... ...)) ((eql --cl-var-- ...) (require ...) (org-e-latex-export-to-latex ... ... ... ...)) ((eql --cl-var-- ...) (require ...) (org-e-latex-export-to-pdf ... ... ...)) ((eql --cl-var-- ...) (require ...) (org-open-file ...)) ((eql --cl-var-- ...) (require ...) (let ... ... ...)) ((eql --cl-var-- ...) (require ...) (org-e-html-export-to-html ... ... ...)) ((eql --cl-var-- ...) (require ...) (org-open-file ...)) ((eql --cl-var-- ...) (require ...) (org-e-odt-export-to-odt ... ... ...)) ((eql --cl-var-- ...) (require ...) (org-open-file ...)) ((eql --cl-var-- ...) (require ...) (org-e-publish-current-file ...)) ((eql --cl-var-- ...) (require ...) (org-e-publish-current-project ...)) ((eql --cl-var-- ...) (require ...) (let ... ...)) ((eql --cl-var-- ...) (require ...) (org-e-publish-all ...)) (t (error "No command associated with key %s" ...)))
  (let ((--cl-var-- ...)) (cond (... nil) (... ... ...) (... ... ...) (... ... ...) (... ... ...) (... ... ...) (... ... ...) (... ... ...) (... ... ...) (... ... ...) (... ... ...) (... ... ...) (... ... ...) (... ... ...) (... ... ...) (... ... ...) (t ...)))
  (case (if (< raw-key 27) (+ raw-key 96) raw-key) (113 nil) ((65 78 85) (require ...) (let ... ... ...)) ((97 110 117) (require ...) (org-e-ascii-export-to-ascii ... ... ... ...)) (76 (require ...) (let ... ... ...)) (108 (require ...) (org-e-latex-export-to-latex ... ... ... ...)) (112 (require ...) (org-e-latex-export-to-pdf ... ... ...)) (100 (require ...) (org-open-file ...)) (72 (require ...) (let ... ... ...)) (104 (require ...) (org-e-html-export-to-html ... ... ...)) (98 (require ...) (org-open-file ...)) (111 (require ...) (org-e-odt-export-to-odt ... ... ...)) (79 (require ...) (org-open-file ...)) (70 (require ...) (org-e-publish-current-file ...)) (80 (require ...) (org-e-publish-current-project ...)) (88 (require ...) (let ... ...)) (69 (require ...) (org-e-publish-all ...)) (t (error "No command associated with key %s" ...)))
  (let* ((input ...) (raw-key ...) (optns ...)) (case (if ... ... raw-key) (113 nil) (... ... ...) (... ... ...) (76 ... ...) (108 ... ...) (112 ... ...) (100 ... ...) (72 ... ...) (104 ... ...) (98 ... ...) (111 ... ...) (79 ... ...) (70 ... ...) (80 ... ...) (88 ... ...) (69 ... ...) (t ...)))
  org-export-dispatch()
  call-interactively(org-export-dispatch t nil)
  execute-extended-command(nil)
  call-interactively(execute-extended-command nil nil)