Re: [PATCH][ANN] org-html/org-odt

[Matt Lundin <mdl@imapmail.org>]

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

Hi Jambunathan,

Jambunathan K <kjambunathan@gmail.com> writes:

[...]
>
> I am not sure if (and when) my changes would get formally integrated.
>
> I can commit non-trivial effort cycles for bug fixing & integration for
> maybe next 3 weeks. Further down the road, as a maintainer of
> org-odt.el, I am willing to entertain bug and feature requests. However
> it is quite possible that I might turn quirky and less-responsive.

Thanks again for all the work you've done on this exporter! Both the odt
and html output look very good. I plan to throw some more complex
documents at the backends soon.

I've been doing a bit of testing and have found that html export fails
on the following headline:

--8<---------------cut here---------------start------------->8---
* STARTED Alembert, Preliminary Discourse to the Encyclopedia of Diderot :read:BIB:NEXT:
  :LOGBOOK:
  CLOCK: [2011-04-24 Sun 17:28]--[2011-04-24 Sun 17:54] =>  0:26
  CLOCK: [2011-04-23 Sat 15:33]--[2011-04-23 Sat 16:00] =>  0:27
  CLOCK: [2011-04-21 Thu 21:01]--[2011-04-21 Thu 21:37] =>  0:36
  :END:
 [2011-04-21 Thu 21:01]
--8<---------------cut here---------------end--------------->8---

I've attached the backtrace.

Another comment. The warning about MathJax seemed a bit dire:

"MathJax not supported. Falling back to dvipng"

I assume this means that the odt exporter does not support MathJax. The
way it is currently worded might make the user think that his/her system
is lacking something.

Best,
Matt


[-- Attachment #2: Type: text/plain, Size: 38205 bytes --]

Debugger entered--Lisp error: (args-out-of-range #("Alembert, Preliminary Discourse to the Encyclopedia of Diderot" 0 62 (target "sec-1" fontified t org-category "test")) 64 77)
  match-string(1 #("Alembert, Preliminary Discourse to the Encyclopedia of Diderot" 0 62 (target "sec-1" fontified t org-category "test")))
  (setq txt (replace-match "" t nil txt) tags (match-string 1 txt))
  (progn (setq txt (replace-match "" t nil txt) tags (match-string 1 txt)))
  (if (string-match (org-re "[ 	]+:\\([[:alnum:]_@:]+\\):[ 	]*$") txt) (progn (setq txt (replace-match "" t nil txt) tags (match-string 1 txt))))
  (when (string-match (org-re "[ 	]+:\\([[:alnum:]_@:]+\\):[ 	]*$") txt) (setq txt (replace-match "" t nil txt) tags (match-string 1 txt)))
  (let ((txt (save-match-data (org-html-expand (org-export-cleanup-toc-line (match-string 3 line))))) (todo (and org-export-mark-todo-in-toc (or (and (match-beginning 2) (not (member ... org-done-keywords))) (and (= level umax-toc) (org-search-todo-below line lines level))))) tags) (while (string-match org-any-target-regexp line) (setq line (replace-match (let ((org-html-protect t)) (org-parse-format (quote FONTIFY) (match-string 1 line) "target")) t t line))) (when (string-match (org-re "[ 	]+:\\([[:alnum:]_@:]+\\):[ 	]*$") txt) (setq txt (replace-match "" t nil txt) tags (match-string 1 txt))) (when (string-match quote-re0 txt) (setq txt (replace-match "" t t txt))) (while (string-match "&lt;\\(&lt;\\)+\\|&gt;\\(&gt;\\)+" txt) (setq txt (replace-match "" t t txt))) (org-parse-format (quote TOC-ITEM) (let* ((snumber (org-section-number level)) (href (replace-regexp-in-string "\\." "_" (format "sec-%s" snumber))) (href (or (cdr (assoc href org-export-preferred-target-alist)) href)) (href (org-solidify-link-text href))) (org-parse-format (quote TOC-ENTRY) snumber todo txt tags href)) level org-last-level) (setq org-last-level level))
  (progn (let ((txt (save-match-data (org-html-expand (org-export-cleanup-toc-line (match-string 3 line))))) (todo (and org-export-mark-todo-in-toc (or (and (match-beginning 2) (not ...)) (and (= level umax-toc) (org-search-todo-below line lines level))))) tags) (while (string-match org-any-target-regexp line) (setq line (replace-match (let ((org-html-protect t)) (org-parse-format (quote FONTIFY) (match-string 1 line) "target")) t t line))) (when (string-match (org-re "[ 	]+:\\([[:alnum:]_@:]+\\):[ 	]*$") txt) (setq txt (replace-match "" t nil txt) tags (match-string 1 txt))) (when (string-match quote-re0 txt) (setq txt (replace-match "" t t txt))) (while (string-match "&lt;\\(&lt;\\)+\\|&gt;\\(&gt;\\)+" txt) (setq txt (replace-match "" t t txt))) (org-parse-format (quote TOC-ITEM) (let* ((snumber (org-section-number level)) (href (replace-regexp-in-string "\\." "_" (format "sec-%s" snumber))) (href (or (cdr ...) href)) (href (org-solidify-link-text href))) (org-parse-format (quote TOC-ENTRY) snumber todo txt tags href)) level org-last-level) (setq org-last-level level)))
  (if (and (string-match org-todo-line-regexp line) (not (get-text-property 0 (quote org-protected) line)) (<= (setq level (org-tr-level (- (match-end 1) (match-beginning 1) level-offset))) umax-toc)) (progn (let ((txt (save-match-data (org-html-expand (org-export-cleanup-toc-line ...)))) (todo (and org-export-mark-todo-in-toc (or (and ... ...) (and ... ...)))) tags) (while (string-match org-any-target-regexp line) (setq line (replace-match (let (...) (org-parse-format ... ... "target")) t t line))) (when (string-match (org-re "[ 	]+:\\([[:alnum:]_@:]+\\):[ 	]*$") txt) (setq txt (replace-match "" t nil txt) tags (match-string 1 txt))) (when (string-match quote-re0 txt) (setq txt (replace-match "" t t txt))) (while (string-match "&lt;\\(&lt;\\)+\\|&gt;\\(&gt;\\)+" txt) (setq txt (replace-match "" t t txt))) (org-parse-format (quote TOC-ITEM) (let* ((snumber (org-section-number level)) (href (replace-regexp-in-string "\\." "_" ...)) (href (or ... href)) (href (org-solidify-link-text href))) (org-parse-format (quote TOC-ENTRY) snumber todo txt tags href)) level org-last-level) (setq org-last-level level))))
  (when (and (string-match org-todo-line-regexp line) (not (get-text-property 0 (quote org-protected) line)) (<= (setq level (org-tr-level (- (match-end 1) (match-beginning 1) level-offset))) umax-toc)) (let ((txt (save-match-data (org-html-expand (org-export-cleanup-toc-line (match-string 3 line))))) (todo (and org-export-mark-todo-in-toc (or (and (match-beginning 2) (not ...)) (and (= level umax-toc) (org-search-todo-below line lines level))))) tags) (while (string-match org-any-target-regexp line) (setq line (replace-match (let ((org-html-protect t)) (org-parse-format (quote FONTIFY) (match-string 1 line) "target")) t t line))) (when (string-match (org-re "[ 	]+:\\([[:alnum:]_@:]+\\):[ 	]*$") txt) (setq txt (replace-match "" t nil txt) tags (match-string 1 txt))) (when (string-match quote-re0 txt) (setq txt (replace-match "" t t txt))) (while (string-match "&lt;\\(&lt;\\)+\\|&gt;\\(&gt;\\)+" txt) (setq txt (replace-match "" t t txt))) (org-parse-format (quote TOC-ITEM) (let* ((snumber (org-section-number level)) (href (replace-regexp-in-string "\\." "_" (format "sec-%s" snumber))) (href (or (cdr ...) href)) (href (org-solidify-link-text href))) (org-parse-format (quote TOC-ENTRY) snumber todo txt tags href)) level org-last-level) (setq org-last-level level)))
  (lambda (line) (when (and (string-match org-todo-line-regexp line) (not (get-text-property 0 (quote org-protected) line)) (<= (setq level (org-tr-level (- (match-end 1) (match-beginning 1) level-offset))) umax-toc)) (let ((txt (save-match-data (org-html-expand (org-export-cleanup-toc-line ...)))) (todo (and org-export-mark-todo-in-toc (or (and ... ...) (and ... ...)))) tags) (while (string-match org-any-target-regexp line) (setq line (replace-match (let (...) (org-parse-format ... ... "target")) t t line))) (when (string-match (org-re "[ 	]+:\\([[:alnum:]_@:]+\\):[ 	]*$") txt) (setq txt (replace-match "" t nil txt) tags (match-string 1 txt))) (when (string-match quote-re0 txt) (setq txt (replace-match "" t t txt))) (while (string-match "&lt;\\(&lt;\\)+\\|&gt;\\(&gt;\\)+" txt) (setq txt (replace-match "" t t txt))) (org-parse-format (quote TOC-ITEM) (let* ((snumber (org-section-number level)) (href (replace-regexp-in-string "\\." "_" ...)) (href (or ... href)) (href (org-solidify-link-text href))) (org-parse-format (quote TOC-ENTRY) snumber todo txt tags href)) level org-last-level) (setq org-last-level level))) line)(#("* STARTED Alembert, Preliminary Discourse to the Encyclopedia of Diderot :read:[[BIB:NEXT][BIB:NEXT]]:" 0 1 (org-category "test" fontified t target "sec-1") 2 9 (org-category "test" fontified t target "sec-1") 10 72 (org-category "test" fontified t target "sec-1") 73 78 (org-category "test" fontified t target "sec-1") 78 79 (face org-link target "sec-1" fontified t org-category "test") 79 81 (face org-link) 81 84 (face org-link target "sec-1" fontified t org-category "test" org-protected t org-no-description nil) 84 85 (face org-link org-protected t org-no-description nil) 85 89 (face org-link target "sec-1" fontified t org-category "test" font-lock-fontified t org-protected t org-no-description nil) 89 90 (face org-link) 90 91 (face org-link) 91 94 (org-category "test" fontified t target "sec-1" face org-link) 94 95 (face org-link) 95 97 (font-lock-fontified t org-category "test" fontified t target "sec-1" face org-link) 97 99 (font-lock-fontified t org-category "test" fontified t target "sec-1" face org-link) 99 100 (face org-link) 100 101 (face org-link) 101 102 (rear-nonsticky (mouse-face highlight keymap invisible intangible help-echo org-linked-text) org-category "test" fontified t target "sec-1")))
  mapcar((lambda (line) (when (and (string-match org-todo-line-regexp line) (not (get-text-property 0 (quote org-protected) line)) (<= (setq level (org-tr-level (- (match-end 1) (match-beginning 1) level-offset))) umax-toc)) (let ((txt (save-match-data (org-html-expand (org-export-cleanup-toc-line ...)))) (todo (and org-export-mark-todo-in-toc (or (and ... ...) (and ... ...)))) tags) (while (string-match org-any-target-regexp line) (setq line (replace-match (let (...) (org-parse-format ... ... "target")) t t line))) (when (string-match (org-re "[ 	]+:\\([[:alnum:]_@:]+\\):[ 	]*$") txt) (setq txt (replace-match "" t nil txt) tags (match-string 1 txt))) (when (string-match quote-re0 txt) (setq txt (replace-match "" t t txt))) (while (string-match "&lt;\\(&lt;\\)+\\|&gt;\\(&gt;\\)+" txt) (setq txt (replace-match "" t t txt))) (org-parse-format (quote TOC-ITEM) (let* ((snumber (org-section-number level)) (href (replace-regexp-in-string "\\." "_" ...)) (href (or ... href)) (href (org-solidify-link-text href))) (org-parse-format (quote TOC-ENTRY) snumber todo txt tags href)) level org-last-level) (setq org-last-level level))) line) (#("* STARTED Alembert, Preliminary Discourse to the Encyclopedia of Diderot :read:[[BIB:NEXT][BIB:NEXT]]:" 0 1 (org-category "test" fontified t target "sec-1") 2 9 (org-category "test" fontified t target "sec-1") 10 72 (org-category "test" fontified t target "sec-1") 73 78 (org-category "test" fontified t target "sec-1") 78 79 (face org-link target "sec-1" fontified t org-category "test") 79 81 (face org-link) 81 84 (face org-link target "sec-1" fontified t org-category "test" org-protected t org-no-description nil) 84 85 (face org-link org-protected t org-no-description nil) 85 89 (face org-link target "sec-1" fontified t org-category "test" font-lock-fontified t org-protected t org-no-description nil) 89 90 (face org-link) 90 91 (face org-link) 91 94 (org-category "test" fontified t target "sec-1" face org-link) 94 95 (face org-link) 95 97 (font-lock-fontified t org-category "test" fontified t target "sec-1" face org-link) 97 99 (font-lock-fontified t org-category "test" fontified t target "sec-1" face org-link) 99 100 (face org-link) 100 101 (face org-link) 101 102 (rear-nonsticky (mouse-face highlight keymap invisible intangible help-echo org-linked-text) org-category "test" fontified t target "sec-1")) #(" [2011-04-21 Thu 21:01]" 0 1 (fontified t org-category "test") 1 22 (fontified t org-category "test") 22 23 (fontified t org-category "test" rear-nonsticky (mouse-face highlight keymap invisible intangible help-echo org-linked-text))) "" ""))
  (setq lines (mapcar (quote (lambda (line) (when (and (string-match org-todo-line-regexp line) (not (get-text-property 0 ... line)) (<= (setq level ...) umax-toc)) (let ((txt ...) (todo ...) tags) (while (string-match org-any-target-regexp line) (setq line ...)) (when (string-match ... txt) (setq txt ... tags ...)) (when (string-match quote-re0 txt) (setq txt ...)) (while (string-match "&lt;\\(&lt;\\)+\\|&gt;\\(&gt;\\)+" txt) (setq txt ...)) (org-parse-format (quote TOC-ITEM) (let* ... ...) level org-last-level) (setq org-last-level level))) line)) lines))
  (progn (org-html-bind-local-variables opt-plist) (erase-buffer) (org-parse-begin (quote TOC) (nth 3 (plist-get opt-plist :lang-words))) (setq lines (mapcar (quote (lambda (line) (when (and (string-match org-todo-line-regexp line) (not ...) (<= ... umax-toc)) (let (... ... tags) (while ... ...) (when ... ...) (when ... ...) (while ... ...) (org-parse-format ... ... level org-last-level) (setq org-last-level level))) line)) lines)) (org-parse-end (quote TOC)) (setq org-parse-table-of-contents (buffer-string)))
  (unwind-protect (progn (org-html-bind-local-variables opt-plist) (erase-buffer) (org-parse-begin (quote TOC) (nth 3 (plist-get opt-plist :lang-words))) (setq lines (mapcar (quote (lambda (line) (when (and ... ... ...) (let ... ... ... ... ... ... ...)) line)) lines)) (org-parse-end (quote TOC)) (setq org-parse-table-of-contents (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (org-html-bind-local-variables opt-plist) (erase-buffer) (org-parse-begin (quote TOC) (nth 3 (plist-get opt-plist :lang-words))) (setq lines (mapcar (quote (lambda (line) (when ... ...) line)) lines)) (org-parse-end (quote TOC)) (setq org-parse-table-of-contents (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))
  (with-current-buffer temp-buffer (unwind-protect (progn (org-html-bind-local-variables opt-plist) (erase-buffer) (org-parse-begin (quote TOC) (nth 3 (plist-get opt-plist :lang-words))) (setq lines (mapcar (quote (lambda (line) (when ... ...) line)) lines)) (org-parse-end (quote TOC)) (setq org-parse-table-of-contents (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))
  (let ((temp-buffer (generate-new-buffer " *temp*"))) (with-current-buffer temp-buffer (unwind-protect (progn (org-html-bind-local-variables opt-plist) (erase-buffer) (org-parse-begin (quote TOC) (nth 3 (plist-get opt-plist :lang-words))) (setq lines (mapcar (quote (lambda ... ... line)) lines)) (org-parse-end (quote TOC)) (setq org-parse-table-of-contents (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))
  (with-temp-buffer (org-html-bind-local-variables opt-plist) (erase-buffer) (org-parse-begin (quote TOC) (nth 3 (plist-get opt-plist :lang-words))) (setq lines (mapcar (quote (lambda (line) (when (and (string-match org-todo-line-regexp line) (not ...) (<= ... umax-toc)) (let (... ... tags) (while ... ...) (when ... ...) (when ... ...) (while ... ...) (org-parse-format ... ... level org-last-level) (setq org-last-level level))) line)) lines)) (org-parse-end (quote TOC)) (setq org-parse-table-of-contents (buffer-string)))
  (let* ((quote-re0 (concat "^[ 	]*" org-quote-string "\\>")) (org-min-level (org-get-min-level lines level-offset)) (org-last-level org-min-level) level) (with-temp-buffer (org-html-bind-local-variables opt-plist) (erase-buffer) (org-parse-begin (quote TOC) (nth 3 (plist-get opt-plist :lang-words))) (setq lines (mapcar (quote (lambda (line) (when (and ... ... ...) (let ... ... ... ... ... ... ...)) line)) lines)) (org-parse-end (quote TOC)) (setq org-parse-table-of-contents (buffer-string))))
  org-parse-prepare-toc((#("* STARTED Alembert, Preliminary Discourse to the Encyclopedia of Diderot :read:[[BIB:NEXT][BIB:NEXT]]:" 0 1 (org-category "test" fontified t target "sec-1") 2 9 (org-category "test" fontified t target "sec-1") 10 72 (org-category "test" fontified t target "sec-1") 73 78 (org-category "test" fontified t target "sec-1") 78 79 (face org-link target "sec-1" fontified t org-category "test") 79 81 (face org-link) 81 84 (face org-link target "sec-1" fontified t org-category "test" org-protected t org-no-description nil) 84 85 (face org-link org-protected t org-no-description nil) 85 89 (face org-link target "sec-1" fontified t org-category "test" font-lock-fontified t org-protected t org-no-description nil) 89 90 (face org-link) 90 91 (face org-link) 91 94 (org-category "test" fontified t target "sec-1" face org-link) 94 95 (face org-link) 95 97 (font-lock-fontified t org-category "test" fontified t target "sec-1" face org-link) 97 99 (font-lock-fontified t org-category "test" fontified t target "sec-1" face org-link) 99 100 (face org-link) 100 101 (face org-link) 101 102 (rear-nonsticky (mouse-face highlight keymap invisible intangible help-echo org-linked-text) org-category "test" fontified t target "sec-1")) #(" [2011-04-21 Thu 21:01]" 0 1 (fontified t org-category "test") 1 22 (fontified t org-category "test") 22 23 (fontified t org-category "test" rear-nonsticky (mouse-face highlight keymap invisible intangible help-echo org-linked-text))) "" "") 0 (:latex-image-options nil :exclude-tags ("noexport") :select-tags ("export") :publishing-directory nil :timestamp nil :expand-quoted-html t :html-table-tag "<table border=\"2\" cellspacing=\"0\" cellpadding=\"6\" rules=\"groups\" frame=\"hsides\">" :xml-declaration (("html" . "<?xml version=\"1.0\" encoding=\"%s\"?>") ("php" . "<?php echo \"<?xml version=\\\"1.0\\\" encoding=\\\"%s\\\" ?>\"; ?>")) :html-postamble auto :html-preamble t :html-extension "html" :inline-images maybe :convert-org-links t :agenda-style "" :style-extra "" :style "" :style-include-scripts t :style-include-default t :table-auto-headline t :tables t :time-stamp-file t :creator-info t :email-info nil :author-info t :email "lundin@fastmail.fm" ...) 3)
  (setq lines (org-parse-prepare-toc lines level-offset opt-plist umax-toc))
  (progn (setq lines (org-parse-prepare-toc lines level-offset opt-plist umax-toc)))
  (if (and org-export-with-toc (not body-only)) (progn (setq lines (org-parse-prepare-toc lines level-offset opt-plist umax-toc))))
  (when (and org-export-with-toc (not body-only)) (setq lines (org-parse-prepare-toc lines level-offset opt-plist umax-toc)))
  (let ((case-fold-search nil) (org-odd-levels-only odd)) (mapc (lambda (x) (set (make-local-variable (nth 2 x)) (plist-get opt-plist (car x)))) org-export-plist-vars) (setq umax (if arg (prefix-numeric-value arg) org-export-headline-levels)) (setq umax-toc (if (integerp org-export-with-toc) (min org-export-with-toc umax) umax)) (when (and org-export-with-toc (not body-only)) (setq lines (org-parse-prepare-toc lines level-offset opt-plist umax-toc))) (unless body-only (org-parse-begin (quote DOCUMENT-CONTENT) opt-plist) (org-parse-begin (quote DOCUMENT-BODY) opt-plist)) (setq head-count 0) (org-init-section-numbers) (org-parse-begin-paragraph) (while (setq line (pop lines) origline line) (catch (quote nextline) (when (and (org-parse-current-environment-p (quote quote)) (string-match "^\\*+ " line)) (org-parse-end-environment (quote quote))) (when (org-parse-current-environment-p (quote quote)) (insert (org-parse-format (quote PLAIN) line)) (throw (quote nextline) nil)) (when (and org-export-with-fixed-width (string-match "^[ 	]*:\\(\\([ 	]\\|$\\)\\(.*\\)\\)" line)) (when (not (org-parse-current-environment-p (quote fixedwidth))) (org-parse-begin-environment (quote fixedwidth))) (insert (org-parse-format (quote PLAIN) (match-string 3 line))) (when (or (not lines) (not (string-match "^[ 	]*:\\(\\([ 	]\\|$\\)\\(.*\\)\\)" ...))) (org-parse-end-environment (quote fixedwidth))) (throw (quote nextline) nil)) (when (and (get-text-property 0 (quote org-native-text) line) (not (< (or ... 10000) (length line)))) (let ((ind (get-text-property 0 ... line))) (org-parse-begin-environment (quote native)) (insert (org-parse-format (quote PLAIN) line)) (while (and lines (or ... ... ...) (or ... ...)) (insert (org-parse-format ... ...))) (org-parse-end-environment (quote native))) (throw (quote nextline) nil)) (when (and (get-text-property 0 (quote org-protected) line) (not (< (or ... 10000) (length line)))) (let ((ind (get-text-property 0 ... line))) (insert (org-parse-format (quote PLAIN) line)) (while (and lines (or ... ... ...) (or ... ...)) (insert (org-parse-format ... ...)))) (throw (quote nextline) nil)) (when (string-match "^ORG-\\(.+\\)-\\(START\\|END\\)$" line) (let* ((style (intern ...)) (f (cdr ...))) (when (memq style (quote ...)) (funcall f style) (throw (quote nextline) nil)))) (run-hooks (quote org-export-html-after-blockquotes-hook)) (when (org-parse-current-environment-p (quote verse)) (let ((i (org-get-string-indentation line))) (if (> i 0) (setq line (concat ... " " ...))) (unless (string-match "\\\\\\\\[ 	]*$" line) (setq line (concat line "\\\\"))))) (setq start 0) (while (string-match "<<<?\\([^<>]*\\)>>>?\\((INVISIBLE)\\)?[ 	]*\n?" line start) (cond ((get-text-property (match-beginning 1) (quote org-protected) line) (setq start (match-end 1))) ((match-end 2) (setq line (replace-match ... t t line))) ((and org-export-with-toc (equal ... 42)) (setq line (replace-match ... t t line))) (t (setq line (replace-match ... t t line))))) (let ((org-html-protect t)) (setq line (org-html-handle-time-stamps line))) (or (string-match org-table-hline-regexp line) (string-match "^[ 	]*\\([+]-\\||[ ]\\)[-+ |]*[+|][ 	]*$" line) (setq line (org-html-expand line))) (setq line (org-parse-format-org-link line opt-plist)) (if (and (string-match org-todo-line-regexp line) (match-beginning 2)) (setq line (concat (substring line 0 (match-beginning 2)) (org-parse-format (quote TODO) (match-string 2 line)) (substring line (match-end 2))))) (when org-export-with-footnotes (setq start 0) (while (string-match "\\([^* 	].*?\\)[ 	]*\\[\\([0-9]+\\)\\]" line start) (if (get-text-property (match-beginning 2) (quote org-protected) line) (setq start (match-end 2)) (let (... refcnt a) (if ... ... ... ...) (setq line ...))))) (cond ((string-match "^\\(\\*+\\)[ 	]+\\(.*\\)" line) (setq level (org-tr-level (- ... ... level-offset)) txt (match-string 2 line)) (if (string-match quote-re0 txt) (setq txt (replace-match "" t t txt))) (if (<= level (max umax umax-toc)) (setq head-count (+ head-count 1))) (unless org-html-dyn-first-heading-pos (setq org-html-dyn-first-heading-pos (point))) (org-parse-begin (quote LEVEL) level txt umax head-count) (when (string-match quote-re line) (org-parse-begin-environment (quote quote)))) ((and org-export-with-tables (string-match "^\\([ 	]*\\)\\(|\\|\\+-+\\+\\)" line)) (when (not table-open) (setq table-open t table-buffer nil table-orig-buffer nil)) (setq table-buffer (cons line table-buffer) table-orig-buffer (cons origline table-orig-buffer)) (when (or (not lines) (not ...)) (setq table-open nil table-buffer (nreverse table-buffer) table-orig-buffer (nreverse table-orig-buffer)) (org-parse-end-paragraph) (insert (org-parse-format ... table-buffer table-orig-buffer)))) (t (when (get-text-property 0 (quote list-item) line) (setq line (org-html-export-list-line line ... ... ...))) (when (string-match "^[ 	]*-\\{5,\\}[ 	]*$" line) (with-org-parse-preserve-paragraph-state (insert ...)) (throw (quote nextline) nil)) (when (string-match "^ [-+*]-\\|^[ 	]*$" line) (when org-html-footnote-number (org-parse-end-footnote-definition org-html-footnote-number) (setq org-html-footnote-number nil)) (org-parse-begin-paragraph)) (when org-export-with-footnotes (when (and ... ...) (throw ... nil)) (when (string-match "^[ 	]*\\[\\([0-9]+\\)\\]" line) (org-parse-end-paragraph) (setq org-html-footnote-number ...) (setq line ...) (org-parse-begin-footnote-definition org-html-footnote-number))) (cond ((string-match "\\\\\\\\[ 	]*$" line) (setq line ...)) (org-export-preserve-breaks (setq line ...))) (let ((start 0)) (while (and org-par-open ...) (error "FIXME") (if ... ...) (setq start ...))) (insert (org-parse-format (quote PLAIN) line)))))) (when (org-parse-current-environment-p (quote quote)) (org-parse-end-environment (quote quote))) (org-parse-end (quote LEVEL) 1 umax) (when (and (> umax 0) org-html-dyn-first-heading-pos) (org-parse-end (quote SECTION))) (org-parse-end (quote DOCUMENT-BODY) opt-plist) (unless body-only (org-parse-end (quote DOCUMENT-CONTENT))) (unless (plist-get opt-plist :buffer-will-be-killed) (set-auto-mode t)) (org-parse-end (quote EXPORT)) (goto-char (point-min)) (or (org-export-push-to-kill-ring (upcase (symbol-name org-parse-backend))) (message "Exporting... done")) (cond ((not to-buffer) (let ((f (org-parse-get (quote SAVE-METHOD)))) (or (and f (functionp f) (funcall f filename opt-plist)) (save-buffer))) (current-buffer)) ((eq to-buffer (quote string)) (prog1 (buffer-substring (point-min) (point-max)) (kill-buffer (current-buffer)))) (t (current-buffer))))
  (let* (org-html-protect org-par-open (org-html-insert-tag-with-newlines (quote both)) (org-parse-to-buffer to-buffer) (org-parse-body-only body-only) (org-export-html-special-string-regexps (org-parse-get (quote SPECIAL-STRING-REGEXPS))) (org-parse-entity-control-callbacks-alist (org-parse-get (quote ENTITY-CONTROL))) (org-parse-entity-format-callbacks-alist (org-parse-get (quote ENTITY-FORMAT))) (opt-plist (org-export-process-option-filters (org-combine-plists (org-default-export-plist) ext-plist (org-infile-export-plist)))) (body-only (or body-only (plist-get opt-plist :body-only))) valid org-html-dyn-first-heading-pos (odd org-odd-levels-only) (region-p (org-region-active-p)) (rbeg (and region-p (region-beginning))) (rend (and region-p (region-end))) (subtree-p (if (plist-get opt-plist :ignore-subtree-p) nil (when region-p (save-excursion (goto-char rbeg) (and (org-at-heading-p) (>= ... rend)))))) (level-offset (if subtree-p (save-excursion (goto-char rbeg) (+ (funcall outline-level) (if org-odd-levels-only 1 0))) 0)) (opt-plist (setq org-export-opt-plist (if subtree-p (org-export-add-subtree-options opt-plist rbeg) opt-plist))) (org-current-export-dir (or pub-dir (org-parse-get (quote EXPORT-DIR) opt-plist))) (org-current-export-file buffer-file-name) (level 0) (line "") (origline "") txt todo (umax nil) (umax-toc nil) (filename (if to-buffer nil (expand-file-name (concat (file-name-sans-extension (or ... ...)) "." (org-parse-get (quote FILE-NAME-EXTENSION) opt-plist)) (file-name-as-directory (or pub-dir (org-parse-get ... opt-plist)))))) (current-dir (if buffer-file-name (file-name-directory buffer-file-name) default-directory)) (buffer (if to-buffer (cond ((eq to-buffer (quote string)) (get-buffer-create (org-parse-get ...))) (t (get-buffer-create to-buffer))) (find-file-noselect (or (let (...) (and f ... ...)) filename)))) (org-levels-open (make-vector org-level-max nil)) (date (plist-get opt-plist :date)) (date (cond ((and date (string-match "%" date)) (format-time-string date)) (date date) (t (format-time-string "%Y-%m-%d %T %Z")))) (dummy (setq opt-plist (plist-put opt-plist :effective-date date))) (title (org-html-expand (or (and subtree-p (org-export-get-title-from-subtree)) (plist-get opt-plist :title) (and (not body-only) (not (plist-get opt-plist :skip-before-1st-heading)) (org-export-grab-title-from-buffer)) (and buffer-file-name (file-name-sans-extension (file-name-nondirectory buffer-file-name))) "UNTITLED"))) (dummy (setq opt-plist (plist-put opt-plist :title title))) (html-table-tag (plist-get opt-plist :html-table-tag)) (quote-re0 (concat "^[ 	]*" org-quote-string "\\>")) (quote-re (concat "^\\(\\*+\\)\\([ 	]+" org-quote-string "\\>\\)")) (org-parse-dyn-current-environment nil) (lang-words (or (assoc (plist-get opt-plist :language) org-export-language-setup) (assoc "en" org-export-language-setup))) (dummy (setq opt-plist (plist-put opt-plist :lang-words lang-words))) (head-count 0) cnt (start 0) (coding-system-for-write (org-html-get-coding-system-for-write)) (save-buffer-coding-system (org-html-get-coding-system-for-save)) (region (buffer-substring (if region-p (region-beginning) (point-min)) (if region-p (region-end) (point-max)))) (org-export-have-math nil) ...) (let ((inhibit-read-only t)) (org-unmodified (remove-text-properties (point-min) (point-max) (quote (:org-license-to-kill t))))) (message "Exporting...") (org-init-section-numbers) (setq org-html-output-buffer buffer) (set-buffer org-html-output-buffer) (let ((inhibit-read-only t)) (erase-buffer)) (fundamental-mode) (org-install-letbind) (and (fboundp (quote set-buffer-file-coding-system)) (set-buffer-file-coding-system coding-system-for-write)) (let ((case-fold-search nil) (org-odd-levels-only odd)) (mapc (lambda (x) (set (make-local-variable (nth 2 x)) (plist-get opt-plist (car x)))) org-export-plist-vars) (setq umax (if arg (prefix-numeric-value arg) org-export-headline-levels)) (setq umax-toc (if (integerp org-export-with-toc) (min org-export-with-toc umax) umax)) (when (and org-export-with-toc (not body-only)) (setq lines (org-parse-prepare-toc lines level-offset opt-plist umax-toc))) (unless body-only (org-parse-begin (quote DOCUMENT-CONTENT) opt-plist) (org-parse-begin (quote DOCUMENT-BODY) opt-plist)) (setq head-count 0) (org-init-section-numbers) (org-parse-begin-paragraph) (while (setq line (pop lines) origline line) (catch (quote nextline) (when (and (org-parse-current-environment-p (quote quote)) (string-match "^\\*+ " line)) (org-parse-end-environment (quote quote))) (when (org-parse-current-environment-p (quote quote)) (insert (org-parse-format (quote PLAIN) line)) (throw (quote nextline) nil)) (when (and org-export-with-fixed-width (string-match "^[ 	]*:\\(\\([ 	]\\|$\\)\\(.*\\)\\)" line)) (when (not (org-parse-current-environment-p ...)) (org-parse-begin-environment (quote fixedwidth))) (insert (org-parse-format (quote PLAIN) (match-string 3 line))) (when (or (not lines) (not ...)) (org-parse-end-environment (quote fixedwidth))) (throw (quote nextline) nil)) (when (and (get-text-property 0 (quote org-native-text) line) (not (< ... ...))) (let ((ind ...)) (org-parse-begin-environment (quote native)) (insert (org-parse-format ... line)) (while (and lines ... ...) (insert ...)) (org-parse-end-environment (quote native))) (throw (quote nextline) nil)) (when (and (get-text-property 0 (quote org-protected) line) (not (< ... ...))) (let ((ind ...)) (insert (org-parse-format ... line)) (while (and lines ... ...) (insert ...))) (throw (quote nextline) nil)) (when (string-match "^ORG-\\(.+\\)-\\(START\\|END\\)$" line) (let* ((style ...) (f ...)) (when (memq style ...) (funcall f style) (throw ... nil)))) (run-hooks (quote org-export-html-after-blockquotes-hook)) (when (org-parse-current-environment-p (quote verse)) (let ((i ...)) (if (> i 0) (setq line ...)) (unless (string-match "\\\\\\\\[ 	]*$" line) (setq line ...)))) (setq start 0) (while (string-match "<<<?\\([^<>]*\\)>>>?\\((INVISIBLE)\\)?[ 	]*\n?" line start) (cond ((get-text-property ... ... line) (setq start ...)) ((match-end 2) (setq line ...)) ((and org-export-with-toc ...) (setq line ...)) (t (setq line ...)))) (let ((org-html-protect t)) (setq line (org-html-handle-time-stamps line))) (or (string-match org-table-hline-regexp line) (string-match "^[ 	]*\\([+]-\\||[ ]\\)[-+ |]*[+|][ 	]*$" line) (setq line (org-html-expand line))) (setq line (org-parse-format-org-link line opt-plist)) (if (and (string-match org-todo-line-regexp line) (match-beginning 2)) (setq line (concat (substring line 0 ...) (org-parse-format ... ...) (substring line ...)))) (when org-export-with-footnotes (setq start 0) (while (string-match "\\([^* 	].*?\\)[ 	]*\\[\\([0-9]+\\)\\]" line start) (if (get-text-property ... ... line) (setq start ...) (let ... ... ...)))) (cond ((string-match "^\\(\\*+\\)[ 	]+\\(.*\\)" line) (setq level (org-tr-level ...) txt (match-string 2 line)) (if (string-match quote-re0 txt) (setq txt ...)) (if (<= level ...) (setq head-count ...)) (unless org-html-dyn-first-heading-pos (setq org-html-dyn-first-heading-pos ...)) (org-parse-begin (quote LEVEL) level txt umax head-count) (when (string-match quote-re line) (org-parse-begin-environment ...))) ((and org-export-with-tables (string-match "^\\([ 	]*\\)\\(|\\|\\+-+\\+\\)" line)) (when (not table-open) (setq table-open t table-buffer nil table-orig-buffer nil)) (setq table-buffer (cons line table-buffer) table-orig-buffer (cons origline table-orig-buffer)) (when (or ... ...) (setq table-open nil table-buffer ... table-orig-buffer ...) (org-parse-end-paragraph) (insert ...))) (t (when (get-text-property 0 ... line) (setq line ...)) (when (string-match "^[ 	]*-\\{5,\\}[ 	]*$" line) (with-org-parse-preserve-paragraph-state ...) (throw ... nil)) (when (string-match "^ [-+*]-\\|^[ 	]*$" line) (when org-html-footnote-number ... ...) (org-parse-begin-paragraph)) (when org-export-with-footnotes (when ... ...) (when ... ... ... ... ...)) (cond (... ...) (org-export-preserve-breaks ...)) (let (...) (while ... ... ... ...)) (insert (org-parse-format ... line)))))) (when (org-parse-current-environment-p (quote quote)) (org-parse-end-environment (quote quote))) (org-parse-end (quote LEVEL) 1 umax) (when (and (> umax 0) org-html-dyn-first-heading-pos) (org-parse-end (quote SECTION))) (org-parse-end (quote DOCUMENT-BODY) opt-plist) (unless body-only (org-parse-end (quote DOCUMENT-CONTENT))) (unless (plist-get opt-plist :buffer-will-be-killed) (set-auto-mode t)) (org-parse-end (quote EXPORT)) (goto-char (point-min)) (or (org-export-push-to-kill-ring (upcase (symbol-name org-parse-backend))) (message "Exporting... done")) (cond ((not to-buffer) (let ((f (org-parse-get ...))) (or (and f (functionp f) (funcall f filename opt-plist)) (save-buffer))) (current-buffer)) ((eq to-buffer (quote string)) (prog1 (buffer-substring (point-min) (point-max)) (kill-buffer (current-buffer)))) (t (current-buffer)))))
  org-do-export(nil nil nil "*Org HTML Export*" nil nil)
  (let* ((org-parse-get-callback backend-get)) (org-do-export arg hidden ext-plist to-buffer body-only pub-dir))
  (let* ((backend-desc (assoc-string backend org-export-backends-alist t)) (backend-get (cdr backend-desc)) (backend-get (and (functionp backend-get) backend-get))) (unless backend-get (error "Don't know how to export to backend %s" backend)) (run-hooks (quote org-export-first-hook)) (let* ((org-parse-get-callback backend-get)) (org-do-export arg hidden ext-plist to-buffer body-only pub-dir)))
  org-export-as("html" nil nil nil "*Org HTML Export*")
  (let ((tempbuf (format "*Org %s Export*" (upcase backend)))) (org-export-as backend arg nil nil tempbuf) (when org-export-show-temporary-export-buffer (switch-to-buffer-other-window tempbuf)))
  org-export-as-to-buffer("html" nil)
  org-export-as-html-to-buffer(nil)
  call-interactively(org-export-as-html-to-buffer)
  (if (and bg (nth 2 ass) (not (buffer-base-buffer)) (not (org-region-active-p))) (let ((p (start-process (concat "Exporting " (file-name-nondirectory (buffer-file-name))) "*Org Processes*" (expand-file-name invocation-name invocation-directory) "-batch" "-l" user-init-file "--eval" "(require 'org-exp)" "--eval" "(setq org-wait .2)" (buffer-file-name) "-f" (symbol-name (nth 1 ass))))) (set-process-sentinel p (quote org-export-process-sentinel)) (message "Background process \"%s\": started" p)) (if subtree-p (progn (org-mark-subtree) (activate-mark))) (call-interactively (nth 1 ass)) (when (and bpos (get-buffer-window cbuf)) (let ((cw (selected-window))) (select-window (get-buffer-window cbuf)) (goto-char cpos) (deactivate-mark) (select-window cw))))
  (let* ((bg (org-xor (equal arg (quote (16))) org-export-run-in-background)) (subtree-p (or (org-region-active-p) (eq org-export-initial-scope (quote subtree)))) (help "[t]   insert the export option template\n[v]   limit export to visible part of outline tree\n[1]   switch buffer/subtree export\n[SPC] publish enclosing subtree (with LaTeX_CLASS or EXPORT_FILE_NAME prop)\n\n[a/n/u] export as ASCII/Latin-1/UTF-8         [A/N/U] to temporary buffer\n\n[h] export as HTML      [H] to temporary buffer   [R] export region\n[b] export as HTML and open in browser\n\n[l] export as LaTeX     [L] to temporary buffer\n[p] export as LaTeX and process to PDF            [d] ... and open PDF file\n\n[D] export as DocBook   [V] export as DocBook, process to PDF, and open\n\n[o] export as ODT   [O] export as ODT and open\n\n[j] export as TaskJuggler                         [J] ... and open\n\n[m] export as Freemind mind map\n[x] export as XOXO\n[g] export using Wes Hardaker's generic exporter\n\n[i] export current file as iCalendar file\n[I] export all agenda files as iCalendar files   [c] ...as one combined file\n\n[F] publish current file          [P] publish current project\n[X] publish a project...          [E] publish every projects") (cmds (quote ((116 org-insert-export-options-template nil) (118 org-export-visible nil) (97 org-export-as-ascii t) (65 org-export-as-ascii-to-buffer t) (110 org-export-as-latin1 t) (78 org-export-as-latin1-to-buffer t) (117 org-export-as-utf8 t) (85 org-export-as-utf8-to-buffer t) (104 org-export-as-html t) (98 org-export-as-html-and-open t) (72 org-export-as-html-to-buffer nil) (82 org-export-region-as-html nil) (120 org-export-as-xoxo t) (103 org-export-generic t) (68 org-export-as-docbook t) (86 org-export-as-docbook-pdf-and-open t) (111 org-export-as-odt t) (79 org-export-as-odt-and-open nil) (106 org-export-as-taskjuggler t) (74 org-export-as-taskjuggler-and-open t) (109 org-export-as-freemind t) (108 org-export-as-latex t) (112 org-export-as-pdf t) (100 org-export-as-pdf-and-open t) (76 org-export-as-latex-to-buffer nil) (105 org-export-icalendar-this-file t) (73 org-export-icalendar-all-agenda-files t) (99 org-export-icalendar-combine-agenda-files t) (70 org-publish-current-file t) (80 org-publish-current-project t) (88 org-publish t) (69 org-publish-all t)))) r1 r2 ass (cpos (point)) (cbuf (current-buffer)) bpos) (save-excursion (save-window-excursion (if subtree-p (message "Export subtree: ") (message "Export buffer: ")) (delete-other-windows) (with-output-to-temp-buffer "*Org Export/Publishing Help*" (princ help)) (org-fit-window-to-buffer (get-buffer-window "*Org Export/Publishing Help*")) (while (eq (setq r1 (read-char-exclusive)) 49) (cond (subtree-p (setq subtree-p nil) (message "Export buffer: ")) ((not subtree-p) (setq subtree-p t) (message "Export subtree: ")))) (when (eq r1 32) (let ((case-fold-search t)) (if (re-search-backward "^[ 	]+\\(:latex_class:\\|:export_title:\\)[ 	]+\\S-" nil t) (progn (org-back-to-heading t) (setq subtree-p t) (setq bpos ...) (message "Select command (for subtree): ") (setq r1 ...)) (error "No enclosing node with LaTeX_CLASS or EXPORT_FILE_NAME")))))) (redisplay) (and bpos (goto-char bpos)) (setq r2 (if (< r1 27) (+ r1 96) r1)) (unless (setq ass (assq r2 cmds)) (error "No command associated with key %c" r1)) (if (and bg (nth 2 ass) (not (buffer-base-buffer)) (not (org-region-active-p))) (let ((p (start-process (concat "Exporting " (file-name-nondirectory ...)) "*Org Processes*" (expand-file-name invocation-name invocation-directory) "-batch" "-l" user-init-file "--eval" "(require 'org-exp)" "--eval" "(setq org-wait .2)" (buffer-file-name) "-f" (symbol-name (nth 1 ass))))) (set-process-sentinel p (quote org-export-process-sentinel)) (message "Background process \"%s\": started" p)) (if subtree-p (progn (org-mark-subtree) (activate-mark))) (call-interactively (nth 1 ass)) (when (and bpos (get-buffer-window cbuf)) (let ((cw (selected-window))) (select-window (get-buffer-window cbuf)) (goto-char cpos) (deactivate-mark) (select-window cw)))))
  org-export(nil)
  call-interactively(org-export nil nil)