[Top][All Lists]
[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()
------
Re: [O] Failure exporting with emacs --batch, Eric Schulte, 2011/11/15
Re: [O] Failure exporting with emacs --batch, Nick Dokos, 2011/11/15
- Re: [O] Failure exporting with emacs --batch,
Tom Prince <=