From: Michael Brand <michael.ch.brand@gmail.com>
To: Jambunathan K <kjambunathan@gmail.com>
Cc: Org Mode <emacs-orgmode@gnu.org>
Subject: Re: new exporter corrupts ODT
Date: Sat, 2 Jun 2012 18:35:36 +0200 [thread overview]
Message-ID: <CALn3zojw1+43NgJuaA1HixaVm3QPdZLvUNLnjqUrkMrfQjjF2Q@mail.gmail.com> (raw)
In-Reply-To: <81d35heo8q.fsf@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)
next prev parent reply other threads:[~2012-06-02 16:35 UTC|newest]
Thread overview: 8+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-06-02 9:20 new exporter corrupts ODT Michael Brand
2012-06-02 13:41 ` Jambunathan K
2012-06-02 13:44 ` Jambunathan K
2012-06-02 15:18 ` Jambunathan K
2012-06-02 16:35 ` Michael Brand [this message]
2012-06-03 12:53 ` Michael Brand
2012-06-03 13:13 ` Achim Gratz
2012-06-03 14:34 ` Michael Brand
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=CALn3zojw1+43NgJuaA1HixaVm3QPdZLvUNLnjqUrkMrfQjjF2Q@mail.gmail.com \
--to=michael.ch.brand@gmail.com \
--cc=emacs-orgmode@gnu.org \
--cc=kjambunathan@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).