org-glossary.org contains the following text at one point:
... The number of days is
14.
Current org code takes the 14. as an item in a numbered list. When
exporting to HTML, this causes an error in org-html-export-list-line -
hence the subject line. It's not a problem right now but it will be when
orgmode.org gets the updated version. I reformatted the line to avoid
the awkward newline, so the future publishing failure will not
happen. I'll let Nicolas worry about what should be done about the
error.
Nick
Org-mode version 7.5 (release_7.5.77.g74268.dirty)
Here's the backtrace of the error:
Debugger entered--Lisp error: (args-out-of-range #("14." 0 3 (fontified t
list-item 11895 list-struct ((11895 0 "14." nil nil nil 11899)) list-prevs
((11895)) list-context nil)) 9 10)
match-string(3 #("14." 0 3 (fontified t list-item 11895 list-struct ((11895 0
"14." nil nil nil 11899)) list-prevs ((11895)) list-context nil)))
(let* ((checkbox (match-string 3 line)) (desc-tag (or (match-string 4 line)
"???")) (body (or (match-string 5 line) "")) (list-beg (org-list-get-list-begin
pos struct prevs)) (firstp (= list-beg pos)) (type (funcall get-type list-beg
struct prevs)) (counter (let ((count-tmp (org-list-get-counter pos struct)))
(cond ((not count-tmp) nil) ((string-match "[A-Za-z]" count-tmp) (-
(string-to-char ...) 64)) ((string-match "[0-9]+" count-tmp) count-tmp)))))
(when firstp (org-close-par-maybe) (insert (format "<%sl>\n" type))) (insert
(cond ((equal type "d") (format "<dt>%s</dt><dd>" desc-tag)) ((and (equal type
"o") counter) (format "<li value=\"%s\">" counter)) (t "<li>"))) (when checkbox
(setq body (concat (cond ((string-match "X" checkbox) "<code>[X]</code> ")
((string-match " " checkbox) "<code>[ ]</code> ") (t "<code>[-]</code> "))
body))) body)
(cond ((assq pos struct) (string-match (concat "[ ]*\\(\\S-+[ ]+\\)"
"\\(?:\\[@\\(?:start:\\)?\\([0-9]+\\|[A-Za-z]\\)\\]\\)?" "\\(?:\\(\\[[
X-]\\]\\)[ ]+\\)?" "\\(?:\\(.*\\)[ ]+::[ ]+\\)?" "\\(.*\\)")
line) (let* ((checkbox (match-string 3 line)) (desc-tag (or (match-string 4
line) "???")) (body (or (match-string 5 line) "")) (list-beg
(org-list-get-list-begin pos struct prevs)) (firstp (= list-beg pos)) (type
(funcall get-type list-beg struct prevs)) (counter (let ((count-tmp ...)) (cond
(... nil) (... ...) (... count-tmp))))) (when firstp (org-close-par-maybe)
(insert (format "<%sl>\n" type))) (insert (cond ((equal type "d") (format
"<dt>%s</dt><dd>" desc-tag)) ((and (equal type "o") counter) (format "<li
value=\"%s\">" counter)) (t "<li>"))) (when checkbox (setq body (concat (cond
(... "<code>[X]</code> ") (... "<code>[ ]</code> ") (t "<code>[-]</code>
")) body))) body)) ((equal "ORG-LIST-END-MARKER" line) (throw (quote nextline)
nil)) (t line))
(let* ((get-type (function (lambda (pos struct prevs) (let ((type ...)) (cond
(... "o") (... "d") (t "u")))))) (get-closings (function (lambda (pos) (let
(out) (catch (quote exit) (mapc ... struct)) out))))) (mapc (lambda (e) (let*
((lastp (= (org-list-get-last-item e struct prevs) e)) (first-item
(org-list-get-list-begin e struct prevs)) (type (funcall get-type first-item
struct prevs))) (org-close-par-maybe) (org-close-li type) (when lastp (insert
(format "</%sl>\n" type)) (org-open-par)))) (funcall get-closings pos)) (cond
((assq pos struct) (string-match (concat "[ ]*\\(\\S-+[ ]+\\)"
"\\(?:\\[@\\(?:start:\\)?\\([0-9]+\\|[A-Za-z]\\)\\]\\)?" "\\(?:\\(\\[[
X-]\\]\\)[ ]+\\)?" "\\(?:\\(.*\\)[ ]+::[ ]+\\)?" "\\(.*\\)")
line) (let* ((checkbox (match-string 3 line)) (desc-tag (or (match-string 4
line) "???")) (body (or (match-string 5 line) "")) (list-beg
(org-list-get-list-begin pos struct prevs)) (firstp (= list-beg pos)) (type
(funcall get-type list-beg struct prevs)) (
counter (let (...) (cond ... ... ...)))) (when firstp (org-close-par-maybe)
(insert (format "<%sl>\n" type))) (insert (cond ((equal type "d") (format
"<dt>%s</dt><dd>" desc-tag)) ((and ... counter) (format "<li value=\"%s\">"
counter)) (t "<li>"))) (when checkbox (setq body (concat (cond ... ... ...)
body))) body)) ((equal "ORG-LIST-END-MARKER" line) (throw (quote nextline)
nil)) (t line)))
org-html-export-list-line(#("14." 0 3 (fontified t list-item 11895
list-struct ((11895 0 "14." nil nil nil 11899)) list-prevs ((11895))
list-context nil)) 11895 ((11895 0 "14." nil nil nil 11899)) ((11895)))
(setq line (org-html-export-list-line line (get-text-property 0 (quote
list-item) line) (get-text-property 0 (quote list-struct) line)
(get-text-property 0 (quote list-prevs) line)))
(progn (setq line (org-html-export-list-line line (get-text-property 0 (quote
list-item) line) (get-text-property 0 (quote list-struct) line)
(get-text-property 0 (quote list-prevs) line))))
(if (get-text-property 0 (quote list-item) line) (progn (setq line
(org-html-export-list-line line (get-text-property 0 (quote list-item) line)
(get-text-property 0 (quote list-struct) line) (get-text-property 0 (quote
list-prevs) line)))))
(when (get-text-property 0 (quote list-item) line) (setq line
(org-html-export-list-line line (get-text-property 0 (quote list-item) line)
(get-text-property 0 (quote list-struct) line) (get-text-property 0 (quote
list-prevs) line))))
(cond ((string-match "^\\(\\*+\\)[ ]+\\(.*\\)" line) (setq level
(org-tr-level (- (match-end 1) (match-beginning 1) 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))) (setq first-heading-pos (or first-heading-pos
(point))) (org-html-level-start level txt umax (and org-export-with-toc (<=
level umax)) head-count) (when (string-match quote-re line)
(org-close-par-maybe) (insert "<pre>") (setq inquote t))) ((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 (string-match "^\\([
]*\\)\\(|\\|\\+-+\\+\\)" (car lines)))) (setq table-open nil table-buffer
(nreverse table-buffer) table-orig-buffer (nreverse table-or
ig-buffer)) (org-close-par-maybe) (insert (org-format-table-html table-buffer
table-orig-buffer)))) (t (when (get-text-property 0 (quote list-item) line)
(setq line (org-html-export-list-line line (get-text-property 0 (quote
list-item) line) (get-text-property 0 (quote list-struct) line)
(get-text-property 0 (quote list-prevs) line)))) (when (string-match "^[
]*-\\{5,\\}[ ]*$" line) (if org-par-open (insert "\n</p>\n<hr/>\n<p>\n")
(insert "\n<hr/>\n")) (throw (quote nextline) nil)) (if (string-match "^
[-+*]-\\|^[ ]*$" line) (org-open-par)) (when org-export-with-footnotes
(when (and (boundp (quote footnote-section-tag-regexp)) (string-match (concat
"^" footnote-section-tag-regexp) line)) (throw (quote nextline) nil)) (when
(string-match "^[ ]*\\[\\([0-9]+\\)\\]" line) (org-close-par-maybe) (let ((n
(match-string 1 line))) (setq org-par-open t line (replace-match (format ... n
n n) t t line))))) (cond ((string-match "\\\\\\\\[ ]*$" line) (setq line
(replace-match "<br/>"
t t line))) (org-export-preserve-breaks (setq line (concat line "<br/>"))))
(let ((start 0)) (while (and org-par-open (string-match "\\\\par\\>" line
start)) (if (not (get-text-property (match-beginning 0) (quote org-protected)
line)) (setq line (replace-match "</p ><p >" t t line))) (setq start (match-end
0)))) (insert line "\n")))
(catch (quote nextline) (when (and inquote (string-match "^\\*+ " line))
(insert "</pre>\n") (org-open-par) (setq inquote nil)) (when inquote (insert
(org-html-protect line) "\n") (throw (quote nextline) nil)) (when (and
org-export-with-fixed-width (string-match "^[ ]*:\\(\\([
]\\|$\\)\\(.*\\)\\)" line)) (when (not infixed) (setq infixed t)
(org-close-par-maybe) (insert "<pre class=\"example\">\n")) (insert
(org-html-protect (match-string 3 line)) "\n") (when (or (not lines) (not
(string-match "^[ ]*:\\(\\([ ]\\|$\\)\\(.*\\)\\)" (car lines))))
(setq infixed nil) (insert "</pre>\n") (org-open-par)) (throw (quote nextline)
nil)) (when (and (get-text-property 0 (quote org-protected) line) (not (< (or
(next-single-property-change 0 (quote org-protected) line) 10000) (length
line)))) (let (par (ind (get-text-property 0 (quote original-indentation)
line))) (when (re-search-backward "\\(<p>\\)\\([
\n]*\\)\\=" (- (point) 100) t) (setq par (match-string 1)) (replace-match "\\2
\n")) (insert line "\n") (while (and lines (or (= (length ...) 0) (not ind)
(equal ind (get-text-property 0 ... ...))) (or (= (length ...) 0)
(get-text-property 0 (quote org-protected) (car lines)))) (insert (pop lines)
"\n")) (and par (insert "<p>\n"))) (throw (quote nextline) nil)) (when (equal
"ORG-BLOCKQUOTE-START" line) (org-close-par-maybe) (insert "<blockquote>\n")
(org-open-par) (throw (quote nextline) nil)) (when (equal "ORG-BLOCKQUOTE-END"
line) (org-close-par-maybe) (insert "\n</blockquote>\n") (org-open-par) (throw
(quote nextline) nil)) (when (equal "ORG-VERSE-START" line)
(org-close-par-maybe) (insert "\n<p class=\"verse\">\n") (setq org-par-open t)
(setq inverse t) (throw (quote nextline) nil)) (when (equal "ORG-VERSE-END"
line) (insert "</p>\n") (setq org-par-open nil) (org-open-par) (setq inverse
nil) (throw (quote nextline) nil)) (when (equal "ORG-CENTER-START" line)
(org-close-par-maybe) (insert "\n<div style=\"text-align: center\">")
(org-open-par) (throw
(quote nextline) nil)) (when (equal "ORG-CENTER-END" line)
(org-close-par-maybe) (insert "\n</div>") (org-open-par) (throw (quote
nextline) nil)) (run-hooks (quote org-export-html-after-blockquotes-hook))
(when inverse (let ((i (org-get-string-indentation line))) (if (> i 0) (setq
line (concat (mapconcat (quote identity) (make-list ... "\\nbsp") "") " "
(org-trim line)))) (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 (format "@<a
name=\"%s\" id=\"%s\">@</a>" (org-solidify-link-text ...)
(org-solidify-link-text ...)) t t line))) ((and org-export-with-toc (equal
(string-to-char line) 42)) (setq line (replace-match (concat "@<span
class=\"target\">" (match-string 1 line) "@</span> ") t t line))) (t (setq li
ne (replace-match (concat "@<a name=\"" (org-solidify-link-text ...) "\"
class=\"target\">" (match-string 1 line) "@</a> ") t t line))))) (setq line
(org-html-handle-time-stamps line)) (or (string-match org-table-hline-regexp
line) (setq line (org-html-expand line))) (setq line (org-html-handle-links
line opt-plist)) (if (and (string-match org-todo-line-regexp line)
(match-beginning 2)) (setq line (concat (substring line 0 (match-beginning 2))
"<span class=\"" (if (member (match-string 2 line) org-done-keywords) "done"
"todo") " " (match-string 2 line) "\"> "
(org-export-html-get-todo-kwd-class-name (match-string 2 line)) "</span>"
(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 ((n (match-string 2 line)) extra a) (if (setq a (assoc n
footref-seen)) (progn (setcdr a ...) (s
etq extra ...)) (setq extra "") (push (cons n 1) footref-seen)) (setq line
(replace-match (format ... ... n extra n n) t t line)))))) (cond ((string-match
"^\\(\\*+\\)[ ]+\\(.*\\)" line) (setq level (org-tr-level (- (match-end
1) (match-beginning 1) 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))) (setq
first-heading-pos (or first-heading-pos (point))) (org-html-level-start level
txt umax (and org-export-with-toc (<= level umax)) head-count) (when
(string-match quote-re line) (org-close-par-maybe) (insert "<pre>") (setq
inquote t))) ((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 (string-match "^\\([ ]
*\\)\\(|\\|\\+-+\\+\\)" (car lines)))) (setq table-open nil table-buffer
(nreverse table-buffer) table-orig-buffer (nreverse table-orig-buffer))
(org-close-par-maybe) (insert (org-format-table-html table-buffer
table-orig-buffer)))) (t (when (get-text-property 0 (quote list-item) line)
(setq line (org-html-export-list-line line (get-text-property 0 (quote
list-item) line) (get-text-property 0 (quote list-struct) line)
(get-text-property 0 (quote list-prevs) line)))) (when (string-match "^[
]*-\\{5,\\}[ ]*$" line) (if org-par-open (insert "\n</p>\n<hr/>\n<p>\n")
(insert "\n<hr/>\n")) (throw (quote nextline) nil)) (if (string-match "^
[-+*]-\\|^[ ]*$" line) (org-open-par)) (when org-export-with-footnotes
(when (and (boundp (quote footnote-section-tag-regexp)) (string-match (concat
"^" footnote-section-tag-regexp) line)) (throw (quote nextline) nil)) (when
(string-match "^[ ]*\\[\\([0-9]+\\)\\]" line) (org-close-par-maybe) (let ((n
...)) (setq org-par-open t line (replace-m
atch ... t t line))))) (cond ((string-match "\\\\\\\\[ ]*$" line)
(setq line (replace-match "<br/>" t t line))) (org-export-preserve-breaks (setq
line (concat line "<br/>")))) (let ((start 0)) (while (and org-par-open
(string-match "\\\\par\\>" line start)) (if (not (get-text-property ... ...
line)) (setq line (replace-match "</p ><p >" t t line))) (setq start (match-end
0)))) (insert line "\n"))))
(while (setq line (pop lines) origline line) (catch (quote nextline) (when
(and inquote (string-match "^\\*+ " line)) (insert "</pre>\n") (org-open-par)
(setq inquote nil)) (when inquote (insert (org-html-protect line) "\n") (throw
(quote nextline) nil)) (when (and org-export-with-fixed-width (string-match "^[
]*:\\(\\([ ]\\|$\\)\\(.*\\)\\)" line)) (when (not infixed) (setq
infixed t) (org-close-par-maybe) (insert "<pre class=\"example\">\n")) (insert
(org-html-protect (match-string 3 line)) "\n") (when (or (not lines) (not
(string-match "^[ ]*:\\(\\([ ]\\|$\\)\\(.*\\)\\)" (car lines))))
(setq infixed nil) (insert "</pre>\n") (org-open-par)) (throw (quote nextline)
nil)) (when (and (get-text-property 0 (quote org-protected) line) (not (< (or
(next-single-property-change 0 ... line) 10000) (length line)))) (let (par (ind
(get-text-property 0 (quote original-indentation) line))) (when
(re-search-backward "\\(<p>\\)\\([
\n]*\\)\\=" (- (point) 100) t) (setq par (match-str
ing 1)) (replace-match "\\2\n")) (insert line "\n") (while (and lines (or (=
... 0) (not ind) (equal ind ...)) (or (= ... 0) (get-text-property 0 ... ...)))
(insert (pop lines) "\n")) (and par (insert "<p>\n"))) (throw (quote nextline)
nil)) (when (equal "ORG-BLOCKQUOTE-START" line) (org-close-par-maybe) (insert
"<blockquote>\n") (org-open-par) (throw (quote nextline) nil)) (when (equal
"ORG-BLOCKQUOTE-END" line) (org-close-par-maybe) (insert "\n</blockquote>\n")
(org-open-par) (throw (quote nextline) nil)) (when (equal "ORG-VERSE-START"
line) (org-close-par-maybe) (insert "\n<p class=\"verse\">\n") (setq
org-par-open t) (setq inverse t) (throw (quote nextline) nil)) (when (equal
"ORG-VERSE-END" line) (insert "</p>\n") (setq org-par-open nil) (org-open-par)
(setq inverse nil) (throw (quote nextline) nil)) (when (equal
"ORG-CENTER-START" line) (org-close-par-maybe) (insert "\n<div
style=\"text-align: center\">") (org-open-par) (throw (quote nextline) nil))
(when (equal "ORG-C
ENTER-END" line) (org-close-par-maybe) (insert "\n</div>") (org-open-par)
(throw (quote nextline) nil)) (run-hooks (quote
org-export-html-after-blockquotes-hook)) (when inverse (let ((i
(org-get-string-indentation line))) (if (> i 0) (setq line (concat (mapconcat
... ... "") " " (org-trim line)))) (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 (format "@<a
name=\"%s\" id=\"%s\">@</a>" ... ...) t t line))) ((and org-export-with-toc
(equal (string-to-char line) 42)) (setq line (replace-match (concat "@<span
class=\"target\">" ... "@</span> ") t t line))) (t (setq line (replace-match
(concat "@<a name=\"" ... "\" class=\"target\">" ... "@</a> ") t t line)))))
(setq line (org-html-handle-time-stamps line)) (or
(string-match org-table-hline-regexp line) (setq line (org-html-expand
line))) (setq line (org-html-handle-links line opt-plist)) (if (and
(string-match org-todo-line-regexp line) (match-beginning 2)) (setq line
(concat (substring line 0 (match-beginning 2)) "<span class=\"" (if (member
(match-string 2 line) org-done-keywords) "done" "todo") " " (match-string 2
line) "\"> " (org-export-html-get-todo-kwd-class-name (match-string 2 line))
"</span>" (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 ((n ...) extra a) (if (setq a ...) (progn
... ...) (setq extra "") (push ... footref-seen)) (setq line (replace-match ...
t t line)))))) (cond ((string-match "^\\(\\*+\\)[ ]+\\(.*\\)" line) (setq
level (org-tr-level (- (match-end 1) (match-beginning 1) level-offset)) txt
(match-stri
ng 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)))
(setq first-heading-pos (or first-heading-pos (point))) (org-html-level-start
level txt umax (and org-export-with-toc (<= level umax)) head-count) (when
(string-match quote-re line) (org-close-par-maybe) (insert "<pre>") (setq
inquote t))) ((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 (string-match "^\\([ ]*\\)\\(|\\|\\+-+\\+\\)" ...))) (setq
table-open nil table-buffer (nreverse table-buffer) table-orig-buffer (nreverse
table-orig-buffer)) (org-close-par-maybe) (insert (org-format-table-html
table-buffer table-orig-buffer)))) (t (when (get-text-property 0 (quote
list-item) line) (s
etq line (org-html-export-list-line line (get-text-property 0 ... line)
(get-text-property 0 ... line) (get-text-property 0 ... line)))) (when
(string-match "^[ ]*-\\{5,\\}[ ]*$" line) (if org-par-open (insert
"\n</p>\n<hr/>\n<p>\n") (insert "\n<hr/>\n")) (throw (quote nextline) nil)) (if
(string-match "^ [-+*]-\\|^[ ]*$" line) (org-open-par)) (when
org-export-with-footnotes (when (and (boundp ...) (string-match ... line))
(throw (quote nextline) nil)) (when (string-match "^[
]*\\[\\([0-9]+\\)\\]" line) (org-close-par-maybe) (let (...) (setq org-par-open
t line ...)))) (cond ((string-match "\\\\\\\\[ ]*$" line) (setq line
(replace-match "<br/>" t t line))) (org-export-preserve-breaks (setq line
(concat line "<br/>")))) (let ((start 0)) (while (and org-par-open
(string-match "\\\\par\\>" line start)) (if (not ...) (setq line ...)) (setq
start (match-end 0)))) (insert line "\n")))))
(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)) (unless body-only (insert (format
"%s\n<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\"\n
\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\";>\n<html
xmlns=\"http://www.w3.org/1999/xhtml\"\nlang=\"%s\";
xml:lang=\"%s\">\n<head>\n<title>%s</title>\n<meta http-equiv=\"Content-Type\"
content=\"text/html;charset=%s\"/>\n<meta name=\"generator\"
content=\"Org-mode\"/>\n<meta name=\"generated\" content=\"%s\"/>\n<meta
name=\"author\" content=\"%s\"/>\n<meta name=\"description\"
content=\"%s\"/>\n<meta name=\"keywords\"
content=\"%s\"/>\n%s\n%s\n</head>\n<body>\n<div id=\"content\">\n%s\n" (format
(or (and (stringp org-export-html-xm
l-declaration) org-export-html-xml-declaration) (cdr (assoc html-extension
org-export-html-xml-declaration)) (cdr (assoc "html"
org-export-html-xml-declaration)) "") (or charset "iso-8859-1")) language
language title (or charset "iso-8859-1") date author description keywords style
mathjax (if (or link-up link-home) (concat (format
org-export-html-home/up-format (or link-up link-home) (or link-home link-up))
"\n") ""))) (when (plist-get opt-plist :html-preamble) (let ((html-pre
(plist-get opt-plist :html-preamble))) (cond ((stringp html-pre) (insert
(format-spec html-pre ...))) ((functionp html-pre) (funcall html-pre
opt-plist)) (t (insert (format-spec ... ...))))))) (if (and org-export-with-toc
(not body-only)) (progn (push (format "<h%d>%s</h%d>\n"
org-export-html-toplevel-hlevel (nth 3 lang-words)
org-export-html-toplevel-hlevel) thetoc) (push "<div
id=\"text-table-of-contents\">\n" thetoc) (push "<ul>\n<li>" thetoc) (setq
lines (mapcar (quote (lambda (line) (if ... ...) l
ine)) lines)) (while (> org-last-level (1- org-min-level)) (setq
org-last-level (1- org-last-level)) (push "</li>\n</ul>\n" thetoc)) (push
"</div>\n" thetoc) (setq thetoc (if have-headings (nreverse thetoc) nil))))
(setq head-count 0) (org-init-section-numbers) (org-open-par) (while (setq line
(pop lines) origline line) (catch (quote nextline) (when (and inquote
(string-match "^\\*+ " line)) (insert "</pre>\n") (org-open-par) (setq inquote
nil)) (when inquote (insert (org-html-protect line) "\n") (throw (quote
nextline) nil)) (when (and org-export-with-fixed-width (string-match "^[
]*:\\(\\([ ]\\|$\\)\\(.*\\)\\)" line)) (when (not infixed) (setq infixed
t) (org-close-par-maybe) (insert "<pre class=\"example\">\n")) (insert
(org-html-protect (match-string 3 line)) "\n") (when (or (not lines) (not
(string-match "^[ ]*:\\(\\([ ]\\|$\\)\\(.*\\)\\)" ...))) (setq
infixed nil) (insert "</pre>\n") (org-open-par)) (throw (quote nextline) nil))
(when (and (get-text-property 0 (quo
te org-protected) line) (not (< (or ... 10000) (length line)))) (let (par (ind
(get-text-property 0 ... line))) (when (re-search-backward "\\(<p>\\)\\([
\n]*\\)\\=" (- ... 100) t) (setq par (match-string 1)) (replace-match "\\2\n"))
(insert line "\n") (while (and lines (or ... ... ...) (or ... ...)) (insert
(pop lines) "\n")) (and par (insert "<p>\n"))) (throw (quote nextline) nil))
(when (equal "ORG-BLOCKQUOTE-START" line) (org-close-par-maybe) (insert
"<blockquote>\n") (org-open-par) (throw (quote nextline) nil)) (when (equal
"ORG-BLOCKQUOTE-END" line) (org-close-par-maybe) (insert "\n</blockquote>\n")
(org-open-par) (throw (quote nextline) nil)) (when (equal "ORG-VERSE-START"
line) (org-close-par-maybe) (insert "\n<p class=\"verse\">\n") (setq
org-par-open t) (setq inverse t) (throw (quote nextline) nil)) (when (equal
"ORG-VERSE-END" line) (insert "</p>\n") (setq org-par-open nil) (org-open-par)
(setq inverse nil) (throw (quote nextline) nil)) (when (equal "ORG-CENTER-S
TART" line) (org-close-par-maybe) (insert "\n<div style=\"text-align:
center\">") (org-open-par) (throw (quote nextline) nil)) (when (equal
"ORG-CENTER-END" line) (org-close-par-maybe) (insert "\n</div>") (org-open-par)
(throw (quote nextline) nil)) (run-hooks (quote
org-export-html-after-blockquotes-hook)) (when inverse (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))))) (setq line
(org-html-handle-time-stamps line)) (or (string-match org-table-hline-regexp
line) (setq line (o
rg-html-expand line))) (setq line (org-html-handle-links line opt-plist)) (if
(and (string-match org-todo-line-regexp line) (match-beginning 2)) (setq line
(concat (substring line 0 (match-beginning 2)) "<span class=\"" (if (member ...
org-done-keywords) "done" "todo") " " (match-string 2 line) "\"> "
(org-export-html-get-todo-kwd-class-name (match-string 2 line)) "</span>"
(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 (... extra 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))) (setq
first-heading-pos (or
first-heading-pos (point))) (org-html-level-start level txt umax (and
org-export-with-toc (<= level umax)) head-count) (when (string-match quote-re
line) (org-close-par-maybe) (insert "<pre>") (setq inquote t))) ((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-close-par-maybe) (insert (org-format-table-html
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) (if org-par-open (insert
"\n</p>\n<hr/>\n<p>\n") (insert "\n<hr/>\n")) (throw (quote nextline) nil)) (if
(string-match "^ [-+
*]-\\|^[ ]*$" line) (org-open-par)) (when org-export-with-footnotes
(when (and ... ...) (throw ... nil)) (when (string-match "^[
]*\\[\\([0-9]+\\)\\]" line) (org-close-par-maybe) (let ... ...))) (cond
((string-match "\\\\\\\\[ ]*$" line) (setq line ...))
(org-export-preserve-breaks (setq line ...))) (let ((start 0)) (while (and
org-par-open ...) (if ... ...) (setq start ...))) (insert line "\n"))))) (when
inquote (insert "</pre>\n") (org-open-par)) (org-html-level-start 1 nil umax
(and org-export-with-toc (<= level umax)) head-count) (when (and (> umax 0)
first-heading-pos) (insert "</div>\n")) (save-excursion (goto-char (point-min))
(while (re-search-forward "<p class=\"footnote\">[^"<p class=\"email\">" email
"</p>\n")) (when (plist-get opt-plist :creator-info) (insert "<p
class=\"creator\">" ...)) (insert html-validation-link "\n</div>")) (t (insert
"<div id=\"postamble\">\n") (insert (format-spec ... ...)) (insert
"</div>")))))) (if org-export-html-with-timestamp (ins
ert org-export-html-html-helper-timestamp)) (unless body-only (insert
"\n</div>\n</body>\n</html>\n")) (unless (plist-get opt-plist
:buffer-will-be-killed) (normal-mode) (if (eq major-mode (default-value (quote
major-mode))) (html-mode))) (goto-char (point-min)) (when thetoc (if (or
(re-search-forward "<p>\\s-*\\[TABLE-OF-CONTENTS\\]\\s-*</p>" nil t)
(re-search-forward "\\[TABLE-OF-CONTENTS\\]" nil t)) (progn (goto-char
(match-beginning 0)) (replace-match "")) (goto-char first-heading-pos) (when
(looking-at "\\s-*</p>") (goto-char (match-end 0)) (insert "\n"))) (insert
"<div id=\"table-of-contents\">\n") (let ((beg (point))) (mapc (quote insert)
thetoc) (insert "</div>\n") (while (re-search-backward "<li>[
\n ]*</li>\n?" beg t) (replace-match "")))) (goto-char (point-min)) (while
(re-search-forward "<p>[
\n ]*</p>" nil t) (replace-match "")) (goto-char (point-min)) (goto-char
(point-min)) (let (beg end n) (while (setq beg (next-single-property-change
(point) (quote org-whi
tespace))) (setq n (get-text-property beg (quote org-whitespace)) end
(next-single-property-change beg (quote org-whitespace))) (goto-char beg)
(delete-region beg end) (insert (format "<span
style=\"visibility:hidden;\">%s</span>" (make-string n 120))))) (goto-char
(point-min)) (when (looking-at "\\s-+\n") (replace-match ""))
(remove-text-properties (point-min) (point-max) (quote (display t))) (run-hooks
(quote org-export-html-final-hook)) (or to-buffer (save-buffer)) (goto-char
(point-min)) (or (org-export-push-to-kill-ring "HTML") (message "Exporting...
done")) (if (eq to-buffer (quote string)) (prog1 (buffer-substring (point-min)
(point-max)) (kill-buffer (current-buffer))) (current-buffer)))
(let* ((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))) (style (concat (if (plist-get
opt-plist :style-include-default) org-export-html-style-default) (plist-get
opt-plist :style) (plist-get opt-plist :style-extra) "\n" (if (plist-get
opt-plist :style-include-scripts) org-export-html-scripts))) (html-extension
(plist-get opt-plist :html-extension)) valid thetoc have-headings
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-export-directory :html 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 ... ...)) "."
html-extension) (file-name-as-directory (or pub-dir (org-export-directory :html
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 HTML Export*")) (t
(get-buffer-create to-buffer))) (find-file-noselect filename)))
(org-levels-open (make-vector org-level-max nil)) (date (plist-get opt-plist
:date)) (author (plist-get opt-plist :author)) (html-validation-link (or
org-export-html-validation-link "")) (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"))) (link-up (and (plist-get opt-plist :link-up)
(string-match "\\S-" (plist-get opt-plist :link-up)) (plist-get opt-plist
:link-up))) (link-home (and (plist-get opt-plist :link-home) (string-match
"\\S-" (plist-get opt-plist :link-home)) (plist-get opt-plist :link-home)))
(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 "\\>\\)")) (inquote nil) (infixed nil) (inverse nil) (email
(plist-get opt-plist :email)) (language (plist-get opt-plist :language))
(keywords (plist-get opt-plist :keywords)) (description (plist-get opt-plist
:description)) (lang-words nil) (head-count 0
) cnt (start 0) (coding-system (and (boundp (quote buffer-file-coding-system))
buffer-file-coding-system)) ...) (let ((inhibit-read-only t)) (org-unmodified
(remove-text-properties (point-min) (point-max) (quote (:org-license-to-kill
t))))) (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 ((and date (string-match "%" date)) (setq date (format-time-string
date))) (date) (t (setq date (format-time-string "%Y-%m-%d %T %Z")))) (setq
lang-words (or (assoc language org-export-language-setup) (assoc "en"
org-export-language-setup))) (set-buffer 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)) (unless body-only (insert (format
"%s\n<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\"\n
\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\";>\n<html
xmlns=\"http://www.w3.org/1999/xhtml\"\nlang=\"%s\";
xml:lang=\"%s\">\n<head>\n<title>%s</title>\n<meta http-equiv=\"Content-Type\"
content=\"text/html;charset=%s\"/>\n<meta name=\"generator\"
content=\"Org-mode\"/>\n<meta name=\"generated\" content=\"%s\"/>\n<meta
name=\"author\" content=\"%s\"/>\n<meta name=\"description\"
content=\"%s\"/>\n<meta name=\"keywords\"
content=\"%s\"/>\n%s\n%s\n</head>\n<body>\n<div id=\"content\">\n%s\n" (format
(or (and ... org-export-html-xml-declaration) (cdr ...) (cdr ...) "") (or
charset "iso-8859-1")) language language title (or charset "iso-8859-1") date
author description ke
ywords style mathjax (if (or link-up link-home) (concat (format
org-export-html-home/up-format ... ...) "\n") ""))) (when (plist-get opt-plist
:html-preamble) (let ((html-pre (plist-get opt-plist :html-preamble))) (cond
((stringp html-pre) (insert ...)) ((functionp html-pre) (funcall html-pre
opt-plist)) (t (insert ...)))))) (if (and org-export-with-toc (not body-only))
(progn (push (format "<h%d>%s</h%d>\n" org-export-html-toplevel-hlevel (nth 3
lang-words) org-export-html-toplevel-hlevel) thetoc) (push "<div
id=\"text-table-of-contents\">\n" thetoc) (push "<ul>\n<li>" thetoc) (setq
lines (mapcar (quote (lambda ... ... line)) lines)) (while (> org-last-level
(1- org-min-level)) (setq org-last-level (1- org-last-level)) (push
"</li>\n</ul>\n" thetoc)) (push "</div>\n" thetoc) (setq thetoc (if
have-headings (nreverse thetoc) nil)))) (setq head-count 0)
(org-init-section-numbers) (org-open-par) (while (setq line (pop lines)
origline line) (catch (quote nextline) (when (and inq
uote (string-match "^\\*+ " line)) (insert "</pre>\n") (org-open-par) (setq
inquote nil)) (when inquote (insert (org-html-protect line) "\n") (throw (quote
nextline) nil)) (when (and org-export-with-fixed-width (string-match "^[
]*:\\(\\([ ]\\|$\\)\\(.*\\)\\)" line)) (when (not infixed) (setq infixed
t) (org-close-par-maybe) (insert "<pre class=\"example\">\n")) (insert
(org-html-protect (match-string 3 line)) "\n") (when (or (not lines) (not ...))
(setq infixed nil) (insert "</pre>\n") (org-open-par)) (throw (quote nextline)
nil)) (when (and (get-text-property 0 (quote org-protected) line) (not (< ...
...))) (let (par (ind ...)) (when (re-search-backward "\\(<p>\\)\\([
\n]*\\)\\=" ... t) (setq par ...) (replace-match "\\2\n")) (insert line "\n")
(while (and lines ... ...) (insert ... "\n")) (and par (insert "<p>\n")))
(throw (quote nextline) nil)) (when (equal "ORG-BLOCKQUOTE-START" line)
(org-close-par-maybe) (insert "<blockquote>\n") (org-open-par) (throw (quote
nextl
ine) nil)) (when (equal "ORG-BLOCKQUOTE-END" line) (org-close-par-maybe)
(insert "\n</blockquote>\n") (org-open-par) (throw (quote nextline) nil)) (when
(equal "ORG-VERSE-START" line) (org-close-par-maybe) (insert "\n<p
class=\"verse\">\n") (setq org-par-open t) (setq inverse t) (throw (quote
nextline) nil)) (when (equal "ORG-VERSE-END" line) (insert "</p>\n") (setq
org-par-open nil) (org-open-par) (setq inverse nil) (throw (quote nextline)
nil)) (when (equal "ORG-CENTER-START" line) (org-close-par-maybe) (insert
"\n<div style=\"text-align: center\">") (org-open-par) (throw (quote nextline)
nil)) (when (equal "ORG-CENTER-END" line) (org-close-par-maybe) (insert
"\n</div>") (org-open-par) (throw (quote nextline) nil)) (run-hooks (quote
org-export-html-after-blockquotes-hook)) (when inverse (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 ...)))) (setq line (org-html-handle-time-stamps line)) (or
(string-match org-table-hline-regexp line) (setq line (org-html-expand line)))
(setq line (org-html-handle-links line opt-plist)) (if (and (string-match
org-todo-line-regexp line) (match-beginning 2)) (setq line (concat (substring
line 0 ...) "<span class=\"" (if ... "done" "todo") " " (match-string 2 line)
"\"> " (org-export-html-get-todo-kwd-class-name ...) "</span>" (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 ...)) (setq first-heading-pos (or first-heading-pos
...)) (org-html-level-start level txt umax (and org-export-with-toc ...)
head-count) (when (string-match quote-re line) (org-close-par-maybe) (insert
"<pre>") (setq inquote t))) ((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-close-par-maybe) (insert ...))) (t (when (get-text-property 0 ... line)
(setq line ...)) (when (string-match "^[ ]*-\\{5,\\}[ ]*$" line) (if
org-par-open ... ...) (throw ... nil)) (if (string-match "^ [-+*]-\\|^[ ]*$"
line) (org-open-par)) (when org-export-with-footnotes (when ... ...) (when ...
... ...)) (cond (... ...) (org-export-preserve-breaks ...)) (let (...) (while
... ... ...
)) (insert line "\n"))))) (when inquote (insert "</pre>\n") (org-open-par))
(org-html-level-start 1 nil umax (and org-export-with-toc (<= level umax))
head-count) (when (and (> umax 0) first-heading-pos) (insert "</div>\n"))
(save-excursion (goto-char (point-min)) (while (re-search-forward "<p
class=\"footnote\">[^footnotes (insert (format
org-export-html-footnotes-section (nth 4 lang-words) (mapconcat (quote
identity) (nreverse footnotes) "\n")) "\n")) (let ((bib
(org-export-html-get-bibliography))) (when bib (insert "\n" bib "\n"))) (unless
body-only (let ((html-post (plist-get opt-plist :html-postamble)) (email
(mapconcat (lambda ... ...) (split-string email ",+ *") ", ")) (creator-info
(concat "Org version " org-version " with Emacs version " (number-to-string
emacs-major-version)))) (when (plist-get opt-plist :html-postamble) (cond
((stringp html-post) (insert "<div id=\"postamble\">\n") (insert ...) (insert
"</div>")) ((functionp html-post) (funcall html-post opt-plist
)) ((eq html-post ...) (insert "<div id=\"postamble\">\n") (when ... ...)
(when ... ...) (when ... ...) (when ... ...) (insert html-validation-link
"\n</div>")) (t (insert "<div id=\"postamble\">\n") (insert ...) (insert
"</div>")))))) (if org-export-html-with-timestamp (insert
org-export-html-html-helper-timestamp)) (unless body-only (insert
"\n</div>\n</body>\n</html>\n")) (unless (plist-get opt-plist
:buffer-will-be-killed) (normal-mode) (if (eq major-mode (default-value (quote
major-mode))) (html-mode))) (goto-char (point-min)) (when thetoc (if (or
(re-search-forward "<p>\\s-*\\[TABLE-OF-CONTENTS\\]\\s-*</p>" nil t)
(re-search-forward "\\[TABLE-OF-CONTENTS\\]" nil t)) (progn (goto-char
(match-beginning 0)) (replace-match "")) (goto-char first-heading-pos) (when
(looking-at "\\s-*</p>") (goto-char (match-end 0)) (insert "\n"))) (insert
"<div id=\"table-of-contents\">\n") (let ((beg (point))) (mapc (quote insert)
thetoc) (insert "</div>\n") (while (re-search-backward "<li>
[
\n ]*</li>\n?" beg t) (replace-match "")))) (goto-char (point-min)) (while
(re-search-forward "<p>[
\n ]*</p>" nil t) (replace-match "")) (goto-char (point-min)) (goto-char
(point-min)) (let (beg end n) (while (setq beg (next-single-property-change
(point) (quote org-whitespace))) (setq n (get-text-property beg (quote
org-whitespace)) end (next-single-property-change beg (quote org-whitespace)))
(goto-char beg) (delete-region beg end) (insert (format "<span
style=\"visibility:hidden;\">%s</span>" (make-string n 120))))) (goto-char
(point-min)) (when (looking-at "\\s-+\n") (replace-match ""))
(remove-text-properties (point-min) (point-max) (quote (display t))) (run-hooks
(quote org-export-html-final-hook)) (or to-buffer (save-buffer)) (goto-char
(point-min)) (or (org-export-push-to-kill-ring "HTML") (message "Exporting...
done")) (if (eq to-buffer (quote string)) (prog1 (buffer-substring (point-min)
(point-max)) (kill-buffer (current-buffer))) (current-buffer))))
org-export-as-html(nil)
call-interactively(org-export-as-html)
org-export(nil)
call-interactively(org-export nil nil)
