emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [O] Failure exporting with emacs --batch


From: Tom Prince
Subject: Re: [O] Failure exporting with emacs --batch
Date: Tue, 15 Nov 2011 19:36:19 -0500
User-agent: Notmuch/0.9 (http://notmuchmail.org) Emacs/23.3.3 (x86_64-pc-linux-gnu)

On Tue, 15 Nov 2011 15:30:25 -0500, Nick Dokos <address@hidden> wrote:
> Tom Prince <address@hidden> wrote:
> 
> > With b43c1c621f52f4a51d8d79cb76c226dfed003998 running
> > 
> 
> Please use C-u M-x org-version to insert version information in your
> mail. It's not possible to see from the SHA1 whether it is a recent
> version or an old version without doing git archaelogy.

org-version doesn't display a sha1 hash, when run from an installed copy
of a git version.

Further simplified: (this time with a git clone)

emacs --no-site-file --no-init-file --load min.el --eval '(setq debug-on-error 
t)' --eval '(find-file "test.org")' --eval '(org-version)' -eval 
'(org-export-as-html 3)' --batch

------ min.el
(setq org-babel-load-languages '((emacs-lisp . t) (latex . t)))
(setq org-confirm-babel-evaluate nil)
(add-to-list 'load-path (expand-file-name "~/src/org-mode/lisp"))
(add-to-list 'auto-mode-alist '("\\.\\(org\\  |org_archive\\|txt\\)$" . 
org-mode))

(require 'org-install)
------

------ test.org
* Notes for 2011-09-16
#+begin_src latex :file diag1.png
 some latex source
#+end_src
------

------ output
OVERVIEW
Loading vc-git...
Org-mode version 7.7 (release_7.7.541.gb43c)
Exporting...
executing Latex code block...
...
  (let* ((info ...) (lang ...) (raw-params ...) hash) (when info (when ... ... 
...) (setf ... ...) (org-babel-exp-do-export info ... hash)))
  (save-excursion (goto-char (match-beginning 0)) (let* (... ... ... hash) 
(when info ... ... ...)))
  org-babel-exp-src-block("some latex source" "latex" ":file" "diag1.png")
  apply(org-babel-exp-src-block "some latex source" ("latex" ":file" 
"diag1.png"))
  (if (memq type org-export-blocks-witheld) "" (apply func body headers))
  (progn (if (memq type org-export-blocks-witheld) "" (apply func body 
headers)))
  (unwind-protect (progn (if ... "" ...)) (set-match-data 
save-match-data-internal (quote evaporate)))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ...) 
(set-match-data save-match-data-internal ...)))
  (save-match-data (if (memq type org-export-blocks-witheld) "" (apply func 
body headers)))
  (let ((replacement ...)) (when replacement (delete-region match-start 
match-end) (goto-char match-start) (insert replacement) (unless preserve-indent 
...)))
  (progn (let (...) (when replacement ... ... ... ...)))
  (if (setq func (cadr ...)) (progn (let ... ...)))
  (when (setq func (cadr ...)) (let (...) (when replacement ... ... ... ...)))
  (let* ((match-start ...) (body-start ...) (indentation ...) (inner-re ...) 
(type ...) (headers ...) (balanced 1) (preserve-indent ...) match-end) (while 
(and ... ...) (if ... ... ...)) (when (not ...) (error "unbalanced begin/end_%s 
blocks with %S" type ...)) (setq match-end (copy-marker ...)) (unless 
preserve-indent (setq body ...)) (unless (memq type types) (setq types ...)) 
(save-match-data (interblock start match-start)) (when (setq func ...) (let ... 
...)) (set-marker match-start nil) (set-marker body-start nil) (set-marker 
match-end nil))
  (while (re-search-forward beg-re nil t) (let* (... ... ... ... ... ... ... 
... match-end) (while ... ...) (when ... ...) (setq match-end ...) (unless 
preserve-indent ...) (unless ... ...) (save-match-data ...) (when ... ...) 
(set-marker match-start nil) (set-marker body-start nil) (set-marker match-end 
nil)) (setq start (point)))
  (let ((beg-re "^\\([  ]*\\)#\\+begin_\\(\\S-+\\)[     ]*\\(.*\\)?[
\n]")) (while (re-search-forward beg-re nil t) (let* ... ... ... ... ... ... 
... ... ... ... ...) (setq start ...)))
  (progn (fset (quote interblock) (function* ...)) (goto-char (point-min)) 
(setq start (point)) (let (...) (while ... ... ...)) (interblock start 
(point-max)) (run-hooks (quote org-export-blocks-postblock-hook)))
  (unwind-protect (progn (fset ... ...) (goto-char ...) (setq start ...) (let 
... ...) (interblock start ...) (run-hooks ...)) (if --cl-letf-bound-- (fset 
... --cl-letf-save--) (fmakunbound ...)))
  (let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind-protect (progn 
... ... ... ... ... ...) (if --cl-letf-bound-- ... ...)))
  (letf ((... ...)) (goto-char (point-min)) (setq start (point)) (let (...) 
(while ... ... ...)) (interblock start (point-max)) (run-hooks (quote 
org-export-blocks-postblock-hook)))
  (letf* ((... ...)) (goto-char (point-min)) (setq start (point)) (let (...) 
(while ... ... ...)) (interblock start (point-max)) (run-hooks (quote 
org-export-blocks-postblock-hook)))
  (flet ((interblock ... ...)) (goto-char (point-min)) (setq start (point)) 
(let (...) (while ... ... ...)) (interblock start (point-max)) (run-hooks 
(quote org-export-blocks-postblock-hook)))
  (let ((case-fold-search t) (types ...) matched indentation type func start 
end body headers preserve-indent progress-marker) (flet (...) (goto-char ...) 
(setq start ...) (let ... ...) (interblock start ...) (run-hooks ...)))
  (save-window-excursion (let (... ... matched indentation type func start end 
body headers preserve-indent progress-marker) (flet ... ... ... ... ... ...)))
  org-export-blocks-preprocess()
  (progn (erase-buffer) (insert string) (setq case-fold-search t) (let (...) 
(remove-text-properties ... ... ...)) (org-export-kill-licensed-text) (let 
(...) (org-mode)) (setq case-fold-search t) (org-clone-local-variables 
source-buffer "^\\(org-\\|orgtbl-\\)") (org-install-letbind) (run-hooks (quote 
org-export-preprocess-hook)) (untabify (point-min) (point-max)) 
(org-export-handle-include-files-recurse) (run-hooks (quote 
org-export-preprocess-after-include-files-hook)) 
(org-export-remove-archived-trees archived-trees) 
(org-export-remove-comment-blocks-and-subtrees) (org-export-handle-export-tags 
(plist-get parameters :select-tags) (plist-get parameters :exclude-tags)) 
(run-hooks (quote org-export-preprocess-after-tree-selection-hook)) 
(org-export-remove-tasks (plist-get parameters :tasks)) (when (plist-get 
parameters :footnotes) (org-footnote-normalize nil parameters)) 
(org-export-mark-list-end) (org-export-preprocess-apply-macros) (run-hooks 
(quote org-export-preprocess-after-macros-hook)) (org-export-blocks-preprocess) 
(org-export-mark-list-properties) 
(org-export-replace-src-segments-and-examples) 
(org-export-protect-colon-examples) (org-export-convert-protected-spaces) (setq 
target-alist (org-export-define-heading-targets target-alist)) (run-hooks 
(quote org-export-preprocess-after-headline-targets-hook)) 
(org-export-remember-html-container-classes) 
(org-export-remove-or-extract-drawers drawers (plist-get parameters :drawers)) 
(when (plist-get parameters :skip-before-1st-heading) (goto-char ...) (when ... 
... ... ...)) (when (plist-get parameters :add-text) (goto-char ...) (insert 
... "\n")) (org-export-remove-headline-metadata parameters) (setq target-alist 
(org-export-handle-invisible-targets target-alist)) (run-hooks (quote 
org-export-preprocess-before-selecting-backend-code-hook)) 
(org-export-select-backend-specific-text) (org-export-protect-quoted-subtrees) 
(org-export-remove-clock-lines) (org-export-protect-verbatim) 
(org-export-mark-blockquote-verse-center) (run-hooks (quote 
org-export-preprocess-after-blockquote-hook)) (unless (plist-get parameters 
:timestamps) (org-export-remove-timestamps)) (setq target-alist 
(org-export-attach-captions-and-attributes target-alist)) 
(org-export-mark-radio-links) (run-hooks (quote 
org-export-preprocess-after-radio-targets-hook)) 
(org-export-concatenate-multiline-links) (run-hooks (quote 
org-export-preprocess-before-normalizing-links-hook)) 
(org-export-normalize-links) ...)
  (unwind-protect (progn (erase-buffer) (insert string) (setq case-fold-search 
t) (let ... ...) (org-export-kill-licensed-text) (let ... ...) (setq 
case-fold-search t) (org-clone-local-variables source-buffer 
"^\\(org-\\|orgtbl-\\)") (org-install-letbind) (run-hooks ...) (untabify ... 
...) (org-export-handle-include-files-recurse) (run-hooks ...) 
(org-export-remove-archived-trees archived-trees) 
(org-export-remove-comment-blocks-and-subtrees) (org-export-handle-export-tags 
... ...) (run-hooks ...) (org-export-remove-tasks ...) (when ... ...) 
(org-export-mark-list-end) (org-export-preprocess-apply-macros) (run-hooks ...) 
(org-export-blocks-preprocess) (org-export-mark-list-properties) 
(org-export-replace-src-segments-and-examples) 
(org-export-protect-colon-examples) (org-export-convert-protected-spaces) (setq 
target-alist ...) (run-hooks ...) (org-export-remember-html-container-classes) 
(org-export-remove-or-extract-drawers drawers ...) (when ... ... ...) (when ... 
... ...) (org-export-remove-headline-metadata parameters) (setq target-alist 
...) (run-hooks ...) (org-export-select-backend-specific-text) 
(org-export-protect-quoted-subtrees) (org-export-remove-clock-lines) 
(org-export-protect-verbatim) (org-export-mark-blockquote-verse-center) 
(run-hooks ...) (unless ... ...) (setq target-alist ...) 
(org-export-mark-radio-links) (run-hooks ...) 
(org-export-concatenate-multiline-links) (run-hooks ...) 
(org-export-normalize-links) ...) (and (buffer-name temp-buffer) (kill-buffer 
temp-buffer)))
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... 
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 
... ... ... ... ... ... ... ...) (and ... ...)))
  (with-current-buffer temp-buffer (unwind-protect (progn ... ... ... ... ... 
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 
... ... ... ... ...) (and ... ...)))
  (let ((temp-buffer ...)) (with-current-buffer temp-buffer (unwind-protect ... 
...)))
  (with-temp-buffer (erase-buffer) (insert string) (setq case-fold-search t) 
(let (...) (remove-text-properties ... ... ...)) 
(org-export-kill-licensed-text) (let (...) (org-mode)) (setq case-fold-search 
t) (org-clone-local-variables source-buffer "^\\(org-\\|orgtbl-\\)") 
(org-install-letbind) (run-hooks (quote org-export-preprocess-hook)) (untabify 
(point-min) (point-max)) (org-export-handle-include-files-recurse) (run-hooks 
(quote org-export-preprocess-after-include-files-hook)) 
(org-export-remove-archived-trees archived-trees) 
(org-export-remove-comment-blocks-and-subtrees) (org-export-handle-export-tags 
(plist-get parameters :select-tags) (plist-get parameters :exclude-tags)) 
(run-hooks (quote org-export-preprocess-after-tree-selection-hook)) 
(org-export-remove-tasks (plist-get parameters :tasks)) (when (plist-get 
parameters :footnotes) (org-footnote-normalize nil parameters)) 
(org-export-mark-list-end) (org-export-preprocess-apply-macros) (run-hooks 
(quote org-export-preprocess-after-macros-hook)) (org-export-blocks-preprocess) 
(org-export-mark-list-properties) 
(org-export-replace-src-segments-and-examples) 
(org-export-protect-colon-examples) (org-export-convert-protected-spaces) (setq 
target-alist (org-export-define-heading-targets target-alist)) (run-hooks 
(quote org-export-preprocess-after-headline-targets-hook)) 
(org-export-remember-html-container-classes) 
(org-export-remove-or-extract-drawers drawers (plist-get parameters :drawers)) 
(when (plist-get parameters :skip-before-1st-heading) (goto-char ...) (when ... 
... ... ...)) (when (plist-get parameters :add-text) (goto-char ...) (insert 
... "\n")) (org-export-remove-headline-metadata parameters) (setq target-alist 
(org-export-handle-invisible-targets target-alist)) (run-hooks (quote 
org-export-preprocess-before-selecting-backend-code-hook)) 
(org-export-select-backend-specific-text) (org-export-protect-quoted-subtrees) 
(org-export-remove-clock-lines) (org-export-protect-verbatim) 
(org-export-mark-blockquote-verse-center) (run-hooks (quote 
org-export-preprocess-after-blockquote-hook)) (unless (plist-get parameters 
:timestamps) (org-export-remove-timestamps)) (setq target-alist 
(org-export-attach-captions-and-attributes target-alist)) 
(org-export-mark-radio-links) (run-hooks (quote 
org-export-preprocess-after-radio-targets-hook)) 
(org-export-concatenate-multiline-links) (run-hooks (quote 
org-export-preprocess-before-normalizing-links-hook)) 
(org-export-normalize-links) ...)
  (let* ((org-export-current-backend ...) (archived-trees ...) 
(inhibit-read-only t) (drawers org-drawers) (source-buffer ...) target-alist 
rtn) (setq org-export-target-aliases nil org-export-preferred-target-alist nil 
org-export-id-target-alist nil org-export-code-refs nil) (with-temp-buffer 
(erase-buffer) (insert string) (setq case-fold-search t) (let ... ...) 
(org-export-kill-licensed-text) (let ... ...) (setq case-fold-search t) 
(org-clone-local-variables source-buffer "^\\(org-\\|orgtbl-\\)") 
(org-install-letbind) (run-hooks ...) (untabify ... ...) 
(org-export-handle-include-files-recurse) (run-hooks ...) 
(org-export-remove-archived-trees archived-trees) 
(org-export-remove-comment-blocks-and-subtrees) (org-export-handle-export-tags 
... ...) (run-hooks ...) (org-export-remove-tasks ...) (when ... ...) 
(org-export-mark-list-end) (org-export-preprocess-apply-macros) (run-hooks ...) 
(org-export-blocks-preprocess) (org-export-mark-list-properties) 
(org-export-replace-src-segments-and-examples) 
(org-export-protect-colon-examples) (org-export-convert-protected-spaces) (setq 
target-alist ...) (run-hooks ...) (org-export-remember-html-container-classes) 
(org-export-remove-or-extract-drawers drawers ...) (when ... ... ...) (when ... 
... ...) (org-export-remove-headline-metadata parameters) (setq target-alist 
...) (run-hooks ...) (org-export-select-backend-specific-text) 
(org-export-protect-quoted-subtrees) (org-export-remove-clock-lines) 
(org-export-protect-verbatim) (org-export-mark-blockquote-verse-center) 
(run-hooks ...) (unless ... ...) (setq target-alist ...) 
(org-export-mark-radio-links) (run-hooks ...) 
(org-export-concatenate-multiline-links) (run-hooks ...) 
(org-export-normalize-links) ...) rtn)
  org-export-preprocess-string("* Notes for 2011-09-16\n#+begin_src latex :file 
diag1.png\n some latex source\n#+end_src\n\n" :emph-multiline t :for-backend 
html :skip-before-1st-heading nil :drawers nil :todo-keywords t :tasks t :tags 
not-in-toc :priority nil :footnotes t :timestamps t :archived-trees headline 
:select-tags ("export") :exclude-tags ("noexport") :add-text nil 
:LaTeX-fragments t)
  (org-split-string (org-export-preprocess-string region :emph-multiline t 
:for-backend (quote html) :skip-before-1st-heading (plist-get opt-plist 
:skip-before-1st-heading) :drawers (plist-get opt-plist :drawers) 
:todo-keywords (plist-get opt-plist :todo-keywords) :tasks (plist-get opt-plist 
:tasks) :tags (plist-get opt-plist :tags) :priority (plist-get opt-plist 
:priority) :footnotes (plist-get opt-plist :footnotes) :timestamps (plist-get 
opt-plist :timestamps) :archived-trees (plist-get opt-plist :archived-trees) 
:select-tags (plist-get opt-plist :select-tags) :exclude-tags (plist-get 
opt-plist :exclude-tags) :add-text (plist-get opt-plist :text) :LaTeX-fragments 
(plist-get opt-plist :LaTeX-fragments)) "[
\n]")
  (let* ((opt-plist ...) (body-only ...) (style ...) (html-extension ...) valid 
thetoc have-headings first-heading-pos (odd org-odd-levels-only) (region-p ...) 
(rbeg ...) (rend ...) (subtree-p ...) (level-offset ...) (opt-plist ...) 
(org-current-export-dir ...) (org-current-export-file buffer-file-name) (level 
0) (line "") (origline "") txt todo (umax nil) (umax-toc nil) (filename ...) 
(current-dir ...) (auto-insert nil) (buffer ...) (org-levels-open ...) (date 
...) (author ...) (html-validation-link ...) (title ...) (link-up ...) 
(link-home ...) (dummy ...) (html-table-tag ...) (quote-re0 ...) (quote-re ...) 
(inquote nil) (infixed nil) (inverse nil) (email ...) (language ...) (keywords 
...) (description ...) (num ...) (lang-words nil) (head-count 0) cnt ...) (let 
(...) (org-unmodified ...)) (message "Exporting...") (setq org-min-level 
(org-get-min-level lines level-offset)) (setq org-last-level org-min-level) 
(org-init-section-numbers) (cond (... ...) (date) (t ...)) (setq lang-words (or 
... ...)) (set-buffer buffer) (let (...) (erase-buffer)) (fundamental-mode) 
(org-install-letbind) (and (fboundp ...) (set-buffer-file-coding-system 
coding-system-for-write)) (let (... ...) (mapc ... org-export-plist-vars) (setq 
umax ...) (setq umax-toc ...) (unless body-only ... ... ...) (if ... ...) (setq 
head-count 0) (org-init-section-numbers) (org-open-par) (while ... ...) (when 
inquote ... ...) (org-html-level-start 1 nil umax ... head-count opt-plist) 
(when ... ...) (save-excursion ... ...) (when footnotes ...) (let ... ...) 
(unless body-only ... ...) (if org-export-html-with-timestamp ...) (unless 
body-only ...) (unless ... ... ...) (goto-char ...) (when thetoc ... ... ...) 
(goto-char ...) (while ... ...) (goto-char ...) (goto-char ...) (let ... ...) 
(goto-char ...) (when ... ...) (remove-text-properties ... ... ...) (run-hooks 
...) (or to-buffer ...) (goto-char ...) (or ... ...) (if ... ... ...)))
  org-export-as-html(3)
  eval((org-export-as-html 3))
  command-line-1(("--load" "min.el" "--eval" "(setq debug-on-error t)" "--eval" 
"(find-file \"test.org\")" "--eval" "(org-version)" "-eval" 
"(org-export-as-html 3)"))
  command-line()
  normal-top-level()


------
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]