[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[BUG] Setting compile command causes fontification error [9.5 (release_9
|
From: |
Marvin Gülker |
|
Subject: |
[BUG] Setting compile command causes fontification error [9.5 (release_9.5-661-g5e0afb @ /home/quintus/.emacs.d/org-mode/lisp/)] |
|
Date: |
Fri, 27 May 2022 13:02:34 +0200 |
Remember to cover the basics, that is, what you expected to happen and
what in fact did happen. You don't know how to make a good report? See
https://orgmode.org/manual/Feedback.html#Feedback
Your bug report will be posted to the Org mailing list.
------------------------------------------------------------------------
Dear all,
trying to access a file with the content shown further below results in
this message:
Org mode fontification error in #<buffer test.org> at 31
Trying to export said file to HTML yields this backtrace:
Debugger entered--Lisp error: (wrong-type-argument arrayp nil)
substring(nil 0 0)
replace-regexp-in-string("[^-0-9a-zA-Z_./\n]" "\\\\\\&" nil)
shell-quote-argument(nil)
(concat "lualatex " (shell-quote-argument (buffer-file-name)))
(set (make-local-variable 'compile-command) (concat "lualatex "
(shell-quote-argument (buffer-file-name))))
(lambda nil (set (make-local-variable 'compile-command) (concat "lualatex
" (shell-quote-argument (buffer-file-name)))))()
run-hooks(change-major-mode-after-body-hook text-mode-hook tex-mode-hook
latex-mode-hook)
apply(run-hooks (change-major-mode-after-body-hook text-mode-hook
tex-mode-hook latex-mode-hook))
run-mode-hooks(latex-mode-hook)
latex-mode()
funcall(latex-mode)
(progn (funcall lang-mode) (insert code) (org-font-lock-ensure)
(save-excursion (let ((beg (point-min)) (end (point-max))) (goto-char beg)
(while (progn (end-of-line) (< (point) end)) (put-text-property (point) (1+
(point)) 'face nil) (forward-char 1)))) (org-src-mode) (set-buffer-modified-p
nil) (let ((org-html-htmlize-output-type output-type)
(org-html-htmlize-font-prefix font-prefix)) (org-html-htmlize-region-for-paste
(point-min) (point-max))))
(unwind-protect (progn (funcall lang-mode) (insert code)
(org-font-lock-ensure) (save-excursion (let ((beg (point-min)) (end
(point-max))) (goto-char beg) (while (progn (end-of-line) (< (point) end))
(put-text-property (point) (1+ (point)) 'face nil) (forward-char 1))))
(org-src-mode) (set-buffer-modified-p nil) (let ((org-html-htmlize-output-type
output-type) (org-html-htmlize-font-prefix font-prefix))
(org-html-htmlize-region-for-paste (point-min) (point-max)))) (and (buffer-name
temp-buffer) (kill-buffer temp-buffer)))
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
(funcall lang-mode) (insert code) (org-font-lock-ensure) (save-excursion (let
((beg (point-min)) (end (point-max))) (goto-char beg) (while (progn
(end-of-line) (< ... end)) (put-text-property (point) (1+ ...) 'face nil)
(forward-char 1)))) (org-src-mode) (set-buffer-modified-p nil) (let
((org-html-htmlize-output-type output-type) (org-html-htmlize-font-prefix
font-prefix)) (org-html-htmlize-region-for-paste (point-min) (point-max))))
(and (buffer-name temp-buffer) (kill-buffer temp-buffer))))
(let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer
(set-buffer temp-buffer) (unwind-protect (progn (funcall lang-mode) (insert
code) (org-font-lock-ensure) (save-excursion (let ((beg ...) (end ...))
(goto-char beg) (while (progn ... ...) (put-text-property ... ... ... nil)
(forward-char 1)))) (org-src-mode) (set-buffer-modified-p nil) (let
((org-html-htmlize-output-type output-type) (org-html-htmlize-font-prefix
font-prefix)) (org-html-htmlize-region-for-paste (point-min) (point-max))))
(and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))
(let ((output-type org-html-htmlize-output-type) (font-prefix
org-html-htmlize-font-prefix) (inhibit-read-only t)) (let ((temp-buffer
(generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer)
(unwind-protect (progn (funcall lang-mode) (insert code) (org-font-lock-ensure)
(save-excursion (let (... ...) (goto-char beg) (while ... ... ...)))
(org-src-mode) (set-buffer-modified-p nil) (let ((org-html-htmlize-output-type
output-type) (org-html-htmlize-font-prefix font-prefix))
(org-html-htmlize-region-for-paste (point-min) (point-max)))) (and (buffer-name
temp-buffer) (kill-buffer temp-buffer))))))
(setq code (let ((output-type org-html-htmlize-output-type) (font-prefix
org-html-htmlize-font-prefix) (inhibit-read-only t)) (let ((temp-buffer
(generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer)
(unwind-protect (progn (funcall lang-mode) (insert code) (org-font-lock-ensure)
(save-excursion (let ... ... ...)) (org-src-mode) (set-buffer-modified-p nil)
(let (... ...) (org-html-htmlize-region-for-paste ... ...))) (and (buffer-name
temp-buffer) (kill-buffer temp-buffer)))))))
(cond ((not (functionp lang-mode)) (org-html-encode-plain-text code)) (t
(setq code (let ((output-type org-html-htmlize-output-type) (font-prefix
org-html-htmlize-font-prefix) (inhibit-read-only t)) (let ((temp-buffer
(generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer)
(unwind-protect (progn ... ... ... ... ... ... ...) (and ... ...)))))) (let*
((beg (and (string-match "\\`<pre[^>]*>\n?" code) (match-end 0))) (end (and beg
(string-match "</pre>\\'" code)))) (if (and beg end) (substring code beg end)
code))))
(let* ((lang-mode (and lang (intern (format "%s-mode" lang))))) (cond
((not (functionp lang-mode)) (org-html-encode-plain-text code)) (t (setq code
(let ((output-type org-html-htmlize-output-type) (font-prefix
org-html-htmlize-font-prefix) (inhibit-read-only t)) (let ((temp-buffer ...))
(save-current-buffer (set-buffer temp-buffer) (unwind-protect ... ...)))))
(let* ((beg (and (string-match "\\`<pre[^>]*>\n?" code) (match-end 0))) (end
(and beg (string-match "</pre>\\'" code)))) (if (and beg end) (substring code
beg end) code)))))
(cond ((not lang) (org-html-encode-plain-text code)) ((not
org-html-htmlize-output-type) (org-html-encode-plain-text code)) ((not (progn
(require 'htmlize nil t) (fboundp 'htmlize-region-for-paste))) (message "Cannot
fontify source block (htmlize.el >= 1.34 re...") (org-html-encode-plain-text
code)) (t (setq lang (or (assoc-default lang org-src-lang-modes) lang)) (let*
((lang-mode (and lang (intern (format "%s-mode" lang))))) (cond ((not
(functionp lang-mode)) (org-html-encode-plain-text code)) (t (setq code (let
(... ... ...) (let ... ...))) (let* ((beg ...) (end ...)) (if (and beg end)
(substring code beg end) code)))))))
(progn (cond ((not lang) (org-html-encode-plain-text code)) ((not
org-html-htmlize-output-type) (org-html-encode-plain-text code)) ((not (progn
(require 'htmlize nil t) (fboundp 'htmlize-region-for-paste))) (message "Cannot
fontify source block (htmlize.el >= 1.34 re...") (org-html-encode-plain-text
code)) (t (setq lang (or (assoc-default lang org-src-lang-modes) lang)) (let*
((lang-mode (and lang (intern ...)))) (cond ((not (functionp lang-mode))
(org-html-encode-plain-text code)) (t (setq code (let ... ...)) (let* (... ...)
(if ... ... code))))))))
(if code (progn (cond ((not lang) (org-html-encode-plain-text code))
((not org-html-htmlize-output-type) (org-html-encode-plain-text code)) ((not
(progn (require 'htmlize nil t) (fboundp 'htmlize-region-for-paste))) (message
"Cannot fontify source block (htmlize.el >= 1.34 re...")
(org-html-encode-plain-text code)) (t (setq lang (or (assoc-default lang
org-src-lang-modes) lang)) (let* ((lang-mode (and lang ...))) (cond ((not ...)
(org-html-encode-plain-text code)) (t (setq code ...) (let* ... ...))))))))
org-html-fontify-code("\\documentclass[a4paper,english,11pt]{scrartcl}\n\\us..."
"latex")
(let* ((code-lines (split-string code "\n")) (code-length (length
code-lines)) (num-fmt (and num-start (format "%%%ds: " (length
(number-to-string (+ code-length num-start)))))) (code (org-html-fontify-code
code lang))) (org-export-format-code code #'(lambda (loc line-num ref) (setq
loc (concat (if num-start (progn ...)) (if wrap-lines (format
"<code%s>%s</code>" ... loc) loc) (if (and ref retain-labels) (progn ...))))
(if (not ref) loc (format "<span id=\"coderef-%s\"
class=\"coderef-off\">%s</span..." ref loc))) num-start refs))
org-html-do-format-code("\\documentclass[a4paper,english,11pt]{scrartcl}\n\\us..."
"latex" nil t nil nil)
(let* ((lang (org-element-property :language element)) (code-info
(org-export-unravel-code element)) (code (car code-info)) (refs (cdr
code-info)) (retain-labels (org-element-property :retain-labels element))
(num-start (org-export-get-loc element info)) (wrap-lines (plist-get info
:html-wrap-src-lines))) (org-html-do-format-code code lang refs retain-labels
num-start wrap-lines))
org-html-format-code((src-block (:language "latex" :switches nil
:parameters nil :begin 43 :end 522 :number-lines nil :preserve-indent nil
:retain-labels t :use-labels t :label-fmt nil :value
"\\documentclass[a4paper,eng..." :post-blank 0 :post-affiliated 43 ...))
(:export-options nil :back-end #s(org-export-backend :name html :parent nil
:transcoders (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ...) :options (... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
...) :filters (... ... ...) :blocks nil :menu (104 "Export to HTML" ...))
:translate-alist ((bold . org-html-bold) (center-block . org-html-center-block)
(clock . org-html-clock) (code . org-html-code) (drawer . org-html-drawer)
(dynamic-block . org-html-dynamic-block) (entity . org-html-entity)
(example-block . org-html-example-block) (export-block . org-html-export-block)
(export-snippet . org-html-export-snippet) (fixed-width . org-html-fixed-width)
(footnote-reference . org-html-footnote-reference) (headline .
org-html-headline) (horizontal-rule . org-html-horizontal-rule)
(inline-src-block . org-html-inline-src-block) (inlinetask .
org-html-inlinetask) (inner-template . org-html-inner-template) (italic .
org-html-italic) (item . org-html-item) (keyword . org-html-keyword)
(latex-environment . org-html-latex-environment) (latex-fragment .
org-html-latex-fragment) (line-break . org-html-line-break) (link .
org-html-link) (node-property . org-html-node-property) (paragraph .
org-html-paragraph) ...) :exported-data #<hash-table eq 3/4001 0xba277d>
:input-buffer "test.org" :input-file "/tmp/test.org" :html-doctype
"xhtml-strict" :html-container "div" :html-content-class "content" :description
nil :keywords nil :html-html5-fancy nil :html-link-use-abs-url nil ...))
(let* ((lang (org-element-property :language src-block)) (code
(org-html-format-code src-block info)) (label (let ((lbl (org-html--reference
src-block info t))) (if lbl (format " id=\"%s\"" lbl) ""))) (klipsify (and
(plist-get info :html-klipsify-src) (member lang '("javascript" "js" "ruby"
"scheme" "clojure" "php" "html"))))) (if (not lang) (format "<pre
class=\"example\"%s>\n%s</pre>" label code) (format "<div
class=\"org-src-container\">\n%s%s\n</div>" (let ((caption
(org-export-get-caption src-block))) (if (not caption) "" (let ((listing-number
...)) (format "<label class=\"org-src-name\">%s%s</label>" listing-number
(org-trim ...))))) (if klipsify (format "<pre><code class=\"src
src-%s\"%s%s>%s</code></pre>" lang label (if (string= lang "html") "
data-editor-type=\"html\"" "") code) (format "<pre class=\"src
src-%s\"%s>%s</pre>" lang label code)))))
(if (org-export-read-attribute :attr_html src-block :textarea)
(org-html--textarea-block src-block) (let* ((lang (org-element-property
:language src-block)) (code (org-html-format-code src-block info)) (label (let
((lbl (org-html--reference src-block info t))) (if lbl (format " id=\"%s\""
lbl) ""))) (klipsify (and (plist-get info :html-klipsify-src) (member lang
'("javascript" "js" "ruby" "scheme" "clojure" "php" "html"))))) (if (not lang)
(format "<pre class=\"example\"%s>\n%s</pre>" label code) (format "<div
class=\"org-src-container\">\n%s%s\n</div>" (let ((caption
(org-export-get-caption src-block))) (if (not caption) "" (let (...) (format
"<label class=\"org-src-name\">%s%s</label>" listing-number ...)))) (if
klipsify (format "<pre><code class=\"src src-%s\"%s%s>%s</code></pre>" lang
label (if (string= lang "html") " data-editor-type=\"html\"" "") code) (format
"<pre class=\"src src-%s\"%s>%s</pre>" lang label code))))))
org-html-src-block((src-block (:language "latex" :switches nil
:parameters nil :begin 43 :end 522 :number-lines nil :preserve-indent nil
:retain-labels t :use-labels t :label-fmt nil :value
"\\documentclass[a4paper,eng..." :post-blank 0 :post-affiliated 43 ...)) nil
(:export-options nil :back-end #s(org-export-backend :name html :parent nil
:transcoders (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ...) :options (... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
...) :filters (... ... ...) :blocks nil :menu (104 "Export to HTML" ...))
:translate-alist ((bold . org-html-bold) (center-block . org-html-center-block)
(clock . org-html-clock) (code . org-html-code) (drawer . org-html-drawer)
(dynamic-block . org-html-dynamic-block) (entity . org-html-entity)
(example-block . org-html-example-block) (export-block . org-html-export-block)
(export-snippet . org-html-export-snippet) (fixed-width . org-html-fixed-width)
(footnote-reference . org-html-footnote-reference) (headline .
org-html-headline) (horizontal-rule . org-html-horizontal-rule)
(inline-src-block . org-html-inline-src-block) (inlinetask .
org-html-inlinetask) (inner-template . org-html-inner-template) (italic .
org-html-italic) (item . org-html-item) (keyword . org-html-keyword)
(latex-environment . org-html-latex-environment) (latex-fragment .
org-html-latex-fragment) (line-break . org-html-line-break) (link .
org-html-link) (node-property . org-html-node-property) (paragraph .
org-html-paragraph) ...) :exported-data #<hash-table eq 3/4001 0xba277d>
:input-buffer "test.org" :input-file "/tmp/test.org" :html-doctype
"xhtml-strict" :html-container "div" :html-content-class "content" :description
nil :keywords nil :html-html5-fancy nil :html-link-use-abs-url nil ...))
funcall(org-html-src-block (src-block (:language "latex" :switches nil
:parameters nil :begin 43 :end 522 :number-lines nil :preserve-indent nil
:retain-labels t :use-labels t :label-fmt nil :value
"\\documentclass[a4paper,eng..." :post-blank 0 :post-affiliated 43 ...)) nil
(:export-options nil :back-end #s(org-export-backend :name html :parent nil
:transcoders (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ...) :options (... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
...) :filters (... ... ...) :blocks nil :menu (104 "Export to HTML" ...))
:translate-alist ((bold . org-html-bold) (center-block . org-html-center-block)
(clock . org-html-clock) (code . org-html-code) (drawer . org-html-drawer)
(dynamic-block . org-html-dynamic-block) (entity . org-html-entity)
(example-block . org-html-example-block) (export-block . org-html-export-block)
(export-snippet . org-html-export-snippet) (fixed-width . org-html-fixed-width)
(footnote-reference . org-html-footnote-reference) (headline .
org-html-headline) (horizontal-rule . org-html-horizontal-rule)
(inline-src-block . org-html-inline-src-block) (inlinetask .
org-html-inlinetask) (inner-template . org-html-inner-template) (italic .
org-html-italic) (item . org-html-item) (keyword . org-html-keyword)
(latex-environment . org-html-latex-environment) (latex-fragment .
org-html-latex-fragment) (line-break . org-html-line-break) (link .
org-html-link) (node-property . org-html-node-property) (paragraph .
org-html-paragraph) ...) :exported-data #<hash-table eq 3/4001 0xba277d>
:input-buffer "test.org" :input-file "/tmp/test.org" :html-doctype
"xhtml-strict" :html-container "div" :html-content-class "content" :description
nil :keywords nil :html-html5-fancy nil :html-link-use-abs-url nil ...))
(progn (funcall transcoder data nil info))
(condition-case err (progn (funcall transcoder data nil info))
(org-link-broken (let* ((val (plist-get info :with-broken-links))) (cond ((null
val) (user-error "Unable to resolve link: %S" (nth 1 err))) ((eq val 'mark)
(org-export-data (format "[BROKEN LINK: %s]" (nth 1 err)) info)) (t nil)))))
(and (functionp transcoder) (condition-case err (progn (funcall
transcoder data nil info)) (org-link-broken (let* ((val (plist-get info
:with-broken-links))) (cond ((null val) (user-error "Unable to resolve link:
%S" (nth 1 err))) ((eq val 'mark) (org-export-data (format "[BROKEN LINK: %s]"
...) info)) (t nil))))))
(or (and (functionp transcoder) (condition-case err (progn (funcall
transcoder data nil info)) (org-link-broken (let* ((val (plist-get info
:with-broken-links))) (cond ((null val) (user-error "Unable to resolve link:
%S" ...)) ((eq val ...) (org-export-data ... info)) (t nil)))))) (and (eq type
'export-snippet) ""))
(let ((transcoder (org-export-transcoder data info))) (or (and (functionp
transcoder) (condition-case err (progn (funcall transcoder data nil info))
(org-link-broken (let* ((val ...)) (cond (... ...) (... ...) (t nil)))))) (and
(eq type 'export-snippet) "")))
(cond ((memq data (plist-get info :ignore-list)) nil) ((eq type 'raw)
(car (org-element-contents data))) ((eq type 'plain-text)
(org-export-filter-apply-functions (plist-get info :filter-plain-text) (let
((transcoder (org-export-transcoder data info))) (if transcoder (funcall
transcoder data info) data)) info)) ((not type) (mapconcat #'(lambda (obj)
(org-export-data obj info)) data "")) ((or (not (org-element-contents data))
(and (eq type 'headline) (eq (plist-get info :with-archived-trees) 'headline)
(org-element-property :archivedp data))) (let ((transcoder
(org-export-transcoder data info))) (or (and (functionp transcoder)
(condition-case err (progn (funcall transcoder data nil info)) (org-link-broken
(let* ... ...)))) (and (eq type 'export-snippet) "")))) (t (let ((transcoder
(org-export-transcoder data info))) (if transcoder (progn (let* ((greaterp ...)
(objectp ...) (contents ...)) (condition-case err (progn ...) (org-link-broken
...))))))))
(let* ((type (org-element-type data)) (parent (org-export-get-parent
data)) (results (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type
'raw) (car (org-element-contents data))) ((eq type 'plain-text)
(org-export-filter-apply-functions (plist-get info :filter-plain-text) (let
(...) (if transcoder ... data)) info)) ((not type) (mapconcat #'(lambda ...
...) data "")) ((or (not (org-element-contents data)) (and (eq type ...) (eq
... ...) (org-element-property :archivedp data))) (let ((transcoder ...)) (or
(and ... ...) (and ... "")))) (t (let ((transcoder ...)) (if transcoder (progn
...))))))) (puthash data (cond ((not results) "") ((memq type '(nil org-data
plain-text raw)) results) (t (org-export-filter-apply-functions (plist-get info
(intern (format ":filter-%s" type))) (let ((blank ...)) (if (eq ... ...)
(concat results ...) (concat ... ...))) info))) (plist-get info
:exported-data)))
(or (gethash data (plist-get info :exported-data)) (let* ((type
(org-element-type data)) (parent (org-export-get-parent data)) (results (cond
((memq data (plist-get info :ignore-list)) nil) ((eq type 'raw) (car
(org-element-contents data))) ((eq type 'plain-text)
(org-export-filter-apply-functions (plist-get info :filter-plain-text) (let ...
...) info)) ((not type) (mapconcat #'... data "")) ((or (not ...) (and ... ...
...)) (let (...) (or ... ...))) (t (let (...) (if transcoder ...)))))) (puthash
data (cond ((not results) "") ((memq type '(nil org-data plain-text raw))
results) (t (org-export-filter-apply-functions (plist-get info (intern ...))
(let (...) (if ... ... ...)) info))) (plist-get info :exported-data))))
org-export-data((src-block (:language "latex" :switches nil :parameters
nil :begin 43 :end 522 :number-lines nil :preserve-indent nil :retain-labels t
:use-labels t :label-fmt nil :value "\\documentclass[a4paper,eng..."
:post-blank 0 :post-affiliated 43 ...)) (:export-options nil :back-end
#s(org-export-backend :name html :parent nil :transcoders (... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ...) :options (... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ...) :filters (... ... ...) :blocks
nil :menu (104 "Export to HTML" ...)) :translate-alist ((bold . org-html-bold)
(center-block . org-html-center-block) (clock . org-html-clock) (code .
org-html-code) (drawer . org-html-drawer) (dynamic-block .
org-html-dynamic-block) (entity . org-html-entity) (example-block .
org-html-example-block) (export-block . org-html-export-block) (export-snippet
. org-html-export-snippet) (fixed-width . org-html-fixed-width)
(footnote-reference . org-html-footnote-reference) (headline .
org-html-headline) (horizontal-rule . org-html-horizontal-rule)
(inline-src-block . org-html-inline-src-block) (inlinetask .
org-html-inlinetask) (inner-template . org-html-inner-template) (italic .
org-html-italic) (item . org-html-item) (keyword . org-html-keyword)
(latex-environment . org-html-latex-environment) (latex-fragment .
org-html-latex-fragment) (line-break . org-html-line-break) (link .
org-html-link) (node-property . org-html-node-property) (paragraph .
org-html-paragraph) ...) :exported-data #<hash-table eq 3/4001 0xba277d>
:input-buffer "test.org" :input-file "/tmp/test.org" :html-doctype
"xhtml-strict" :html-container "div" :html-content-class "content" :description
nil :keywords nil :html-html5-fancy nil :html-link-use-abs-url nil ...))
(closure ((objectp) (greaterp section special-block table org-data)
(transcoder . org-html-section) (parent org-data (:begin 1 :contents-begin 1
:contents-end 522 :end 522 :robust-begin 3 :robust-end 520 :post-blank 0
:post-affiliated 1 :path "/tmp/test.org" :mode org-data :CATEGORY "test"
:granularity nil) (section ... ... ... ...)) (type . section) (info
:export-options nil :back-end #s(org-export-backend :name html :parent nil
:transcoders ... :options ... :filters ... :blocks nil :menu ...)
:translate-alist (... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :exported-data
#<hash-table eq 3/4001 0xba277d> :input-buffer "test.org" :input-file
"/tmp/test.org" :html-doctype "xhtml-strict" :html-container "div"
:html-content-class "content" :description nil :keywords nil :html-html5-fancy
nil :html-link-use-abs-url nil :html-link-home "" ...) (data section (:begin 1
:end 522 :contents-begin 1 :contents-end 522 :robust-begin 1 :robust-end 520
:post-blank 0 :post-affiliated 1 :mode first-section :granularity nil :parent
...) (keyword ...) (paragraph ... ...) (src-block ...))
cl-struct-org-export-backend-tags org-publish-project-alist t) (element)
(org-export-data element info))((src-block (:language "latex" :switches nil
:parameters nil :begin 43 :end 522 :number-lines nil :preserve-indent nil
:retain-labels t :use-labels t :label-fmt nil :value
"\\documentclass[a4paper,english,11pt]{scrartcl}\n\\us..." :post-blank 0
:post-affiliated 43 :mode nil :granularity nil :parent (section (:begin 1 :end
522 :contents-begin 1 :contents-end 522 :robust-begin 1 :robust-end 520
:post-blank 0 :post-affiliated 1 :mode first-section :granularity nil :parent
(org-data (:begin 1 :contents-begin 1 :contents-end 522 :end 522 :robust-begin
3 :robust-end 520 :post-blank 0 :post-affiliated 1 :path "/tmp/test.org" :mode
org-data :CATEGORY "test" :granularity nil) #35)) (keyword (:key "TITLE" :value
"Test export" :begin 1 :end 23 :post-blank 1 :post-affiliated 1 :mode
top-comment :granularity nil :parent #35)) (paragraph (:begin 23 :end 43
:contents-begin 23 :contents-end 42 :post-blank 1 :post-affiliated 23 :mode nil
:granularity nil :parent #35) #("Test code follows:\n" 0 19 (:parent #39)))
#1))))
mapconcat((closure ((objectp) (greaterp section special-block table
org-data) (transcoder . org-html-section) (parent org-data (:begin 1
:contents-begin 1 :contents-end 522 :end 522 :robust-begin 3 :robust-end 520
:post-blank 0 :post-affiliated 1 :path "/tmp/test.org" :mode org-data :CATEGORY
"test" :granularity nil) (section (:begin 1 :end 522 :contents-begin 1
:contents-end 522 :robust-begin 1 :robust-end 520 :post-blank 0
:post-affiliated 1 :mode first-section :granularity nil :parent #8) (keyword
...) (paragraph ... ...) (src-block ...))) (type . section) (info
:export-options nil :back-end #s(org-export-backend :name html :parent nil
:transcoders (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ...) :options (... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ...) :filters (... ... ...) :blocks nil :menu (104 "Export to
HTML" ...)) :translate-alist ((bold . org-html-bold) (center-block .
org-html-center-block) (clock . org-html-clock) (code . org-html-code) (drawer
. org-html-drawer) (dynamic-block . org-html-dynamic-block) (entity .
org-html-entity) (example-block . org-html-example-block) (export-block .
org-html-export-block) (export-snippet . org-html-export-snippet) (fixed-width
. org-html-fixed-width) (footnote-reference . org-html-footnote-reference)
(headline . org-html-headline) (horizontal-rule . org-html-horizontal-rule)
(inline-src-block . org-html-inline-src-block) (inlinetask .
org-html-inlinetask) (inner-template . org-html-inner-template) (italic .
org-html-italic) (item . org-html-item) (keyword . org-html-keyword)
(latex-environment . org-html-latex-environment) (latex-fragment .
org-html-latex-fragment) (line-break . org-html-line-break) (link .
org-html-link) (node-property . org-html-node-property) (paragraph .
org-html-paragraph) (plain-list . org-html-plain-list) (plain-text .
org-html-plain-text) (planning . org-html-planning) (property-drawer .
org-html-property-drawer) (quote-block . org-html-quote-block) (radio-target .
org-html-radio-target) (section . org-html-section) (special-block .
org-html-special-block) (src-block . org-html-src-block) (statistics-cookie .
org-html-statistics-cookie) (strike-through . org-html-strike-through)
(subscript . org-html-subscript) ...) :exported-data #<hash-table eq 3/4001
0xba277d> :input-buffer "test.org" :input-file "/tmp/test.org" :html-doctype
"xhtml-strict" :html-container "div" :html-content-class "content" :description
nil :keywords nil :html-html5-fancy nil :html-link-use-abs-url nil
:html-link-home "" :html-link-up "" :html-mathjax ""
:html-equation-reference-format "\\eqref{%s}" :html-postamble auto
:html-preamble ...) (data section (:begin 1 :end 522 :contents-begin 1
:contents-end 522 :robust-begin 1 :robust-end 520 :post-blank 0
:post-affiliated 1 :mode first-section :granularity nil :parent (org-data ...
#11)) (keyword (:key "TITLE" :value "Test export" :begin 1 :end 23 :post-blank
1 :post-affiliated 1 :mode top-comment :granularity nil :parent #11))
(paragraph (:begin 23 :end 43 :contents-begin 23 :contents-end 42 :post-blank 1
:post-affiliated 23 :mode nil :granularity nil :parent #11) #("Test code
follows:\n" 0 19 ...)) (src-block (:language "latex" :switches nil :parameters
nil :begin 43 :end 522 :number-lines nil :preserve-indent nil :retain-labels t
:use-labels t :label-fmt nil :value
"\\documentclass[a4paper,english,11pt]{s..." :post-blank 0 :post-affiliated 43
:mode nil :granularity nil :parent #11))) cl-struct-org-export-backend-tags
org-publish-project-alist t) (element) (org-export-data element info))
((keyword (:key "TITLE" :value "Test export" :begin 1 :end 23 :post-blank 1
:post-affiliated 1 :mode top-comment :granularity nil :parent (section (:begin
1 :end 522 :contents-begin 1 :contents-end 522 :robust-begin 1 :robust-end 520
:post-blank 0 :post-affiliated 1 :mode first-section :granularity nil :parent
...) . #2))) (paragraph (:begin 23 :end 43 :contents-begin 23 :contents-end 42
:post-blank 1 :post-affiliated 23 :mode nil :granularity nil :parent (section
(:begin 1 :end 522 :contents-begin 1 :contents-end 522 :robust-begin 1
:robust-end 520 :post-blank 0 :post-affiliated 1 :mode first-section
:granularity nil :parent ...) . #2)) #("Test code follows:\n" 0 19 (:parent
#4))) (src-block (:language "latex" :switches nil :parameters nil :begin 43
:end 522 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t
:label-fmt nil :value "\\documentclass[a4paper,english,11pt]{s..." :post-blank
0 :post-affiliated 43 :mode nil :granularity nil :parent (section (:begin 1
:end 522 :contents-begin 1 :contents-end 522 :robust-begin 1 :robust-end 520
:post-blank 0 :post-affiliated 1 :mode first-section :granularity nil :parent
...) . #2)))) "")
(let* ((greaterp (memq type org-element-greater-elements)) (objectp (and
(not greaterp) (memq type org-element-recursive-objects))) (contents (mapconcat
#'(lambda (element) (org-export-data element info)) (org-element-contents (if
(or greaterp objectp) data (org-element-normalize-contents data (and ... ...
... ...)))) ""))) (condition-case err (progn (funcall transcoder data (if (not
greaterp) contents (org-element-normalize-string contents)) info))
(org-link-broken (let* ((val (plist-get info :with-broken-links))) (cond ((null
val) (user-error "Unable to resolve link: %S" (nth 1 err))) ((eq val 'mark)
(org-export-data (format "[BROKEN LINK: %s]" ...) info)) (t nil))))))
(progn (let* ((greaterp (memq type org-element-greater-elements))
(objectp (and (not greaterp) (memq type org-element-recursive-objects)))
(contents (mapconcat #'(lambda (element) (org-export-data element info))
(org-element-contents (if (or greaterp objectp) data
(org-element-normalize-contents data ...))) ""))) (condition-case err (progn
(funcall transcoder data (if (not greaterp) contents
(org-element-normalize-string contents)) info)) (org-link-broken (let* ((val
(plist-get info :with-broken-links))) (cond ((null val) (user-error "Unable to
resolve link: %S" ...)) ((eq val ...) (org-export-data ... info)) (t nil)))))))
(if transcoder (progn (let* ((greaterp (memq type
org-element-greater-elements)) (objectp (and (not greaterp) (memq type
org-element-recursive-objects))) (contents (mapconcat #'(lambda ... ...)
(org-element-contents (if ... data ...)) ""))) (condition-case err (progn
(funcall transcoder data (if (not greaterp) contents
(org-element-normalize-string contents)) info)) (org-link-broken (let* ((val
...)) (cond (... ...) (... ...) (t nil))))))))
(let ((transcoder (org-export-transcoder data info))) (if transcoder
(progn (let* ((greaterp (memq type org-element-greater-elements)) (objectp (and
(not greaterp) (memq type org-element-recursive-objects))) (contents (mapconcat
#'... (org-element-contents ...) ""))) (condition-case err (progn (funcall
transcoder data (if ... contents ...) info)) (org-link-broken (let* (...) (cond
... ... ...))))))))
(cond ((memq data (plist-get info :ignore-list)) nil) ((eq type 'raw)
(car (org-element-contents data))) ((eq type 'plain-text)
(org-export-filter-apply-functions (plist-get info :filter-plain-text) (let
((transcoder (org-export-transcoder data info))) (if transcoder (funcall
transcoder data info) data)) info)) ((not type) (mapconcat #'(lambda (obj)
(org-export-data obj info)) data "")) ((or (not (org-element-contents data))
(and (eq type 'headline) (eq (plist-get info :with-archived-trees) 'headline)
(org-element-property :archivedp data))) (let ((transcoder
(org-export-transcoder data info))) (or (and (functionp transcoder)
(condition-case err (progn (funcall transcoder data nil info)) (org-link-broken
(let* ... ...)))) (and (eq type 'export-snippet) "")))) (t (let ((transcoder
(org-export-transcoder data info))) (if transcoder (progn (let* ((greaterp ...)
(objectp ...) (contents ...)) (condition-case err (progn ...) (org-link-broken
...))))))))
(let* ((type (org-element-type data)) (parent (org-export-get-parent
data)) (results (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type
'raw) (car (org-element-contents data))) ((eq type 'plain-text)
(org-export-filter-apply-functions (plist-get info :filter-plain-text) (let
(...) (if transcoder ... data)) info)) ((not type) (mapconcat #'(lambda ...
...) data "")) ((or (not (org-element-contents data)) (and (eq type ...) (eq
... ...) (org-element-property :archivedp data))) (let ((transcoder ...)) (or
(and ... ...) (and ... "")))) (t (let ((transcoder ...)) (if transcoder (progn
...))))))) (puthash data (cond ((not results) "") ((memq type '(nil org-data
plain-text raw)) results) (t (org-export-filter-apply-functions (plist-get info
(intern (format ":filter-%s" type))) (let ((blank ...)) (if (eq ... ...)
(concat results ...) (concat ... ...))) info))) (plist-get info
:exported-data)))
(or (gethash data (plist-get info :exported-data)) (let* ((type
(org-element-type data)) (parent (org-export-get-parent data)) (results (cond
((memq data (plist-get info :ignore-list)) nil) ((eq type 'raw) (car
(org-element-contents data))) ((eq type 'plain-text)
(org-export-filter-apply-functions (plist-get info :filter-plain-text) (let ...
...) info)) ((not type) (mapconcat #'... data "")) ((or (not ...) (and ... ...
...)) (let (...) (or ... ...))) (t (let (...) (if transcoder ...)))))) (puthash
data (cond ((not results) "") ((memq type '(nil org-data plain-text raw))
results) (t (org-export-filter-apply-functions (plist-get info (intern ...))
(let (...) (if ... ... ...)) info))) (plist-get info :exported-data))))
org-export-data((section (:begin 1 :end 522 :contents-begin 1
:contents-end 522 :robust-begin 1 :robust-end 520 :post-blank 0
:post-affiliated 1 :mode first-section :granularity nil :parent (org-data ...
#1)) (keyword (:key "TITLE" :value "Test export" :begin 1 :end 23 :post-blank 1
:post-affiliated 1 :mode top-comment :granularity nil :parent #1)) (paragraph
(:begin 23 :end 43 :contents-begin 23 :contents-end 42 :post-blank 1
:post-affiliated 23 :mode nil :granularity nil :parent #1) #("Test code
follows:\n" 0 19 ...)) (src-block (:language "latex" :switches nil :parameters
nil :begin 43 :end 522 :number-lines nil :preserve-indent nil :retain-labels t
:use-labels t :label-fmt nil :value "\\documentclass[a4paper,eng..."
:post-blank 0 :post-affiliated 43 ...))) (:export-options nil :back-end
#s(org-export-backend :name html :parent nil :transcoders (... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ...) :options (... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ...) :filters (... ... ...) :blocks
nil :menu (104 "Export to HTML" ...)) :translate-alist ((bold . org-html-bold)
(center-block . org-html-center-block) (clock . org-html-clock) (code .
org-html-code) (drawer . org-html-drawer) (dynamic-block .
org-html-dynamic-block) (entity . org-html-entity) (example-block .
org-html-example-block) (export-block . org-html-export-block) (export-snippet
. org-html-export-snippet) (fixed-width . org-html-fixed-width)
(footnote-reference . org-html-footnote-reference) (headline .
org-html-headline) (horizontal-rule . org-html-horizontal-rule)
(inline-src-block . org-html-inline-src-block) (inlinetask .
org-html-inlinetask) (inner-template . org-html-inner-template) (italic .
org-html-italic) (item . org-html-item) (keyword . org-html-keyword)
(latex-environment . org-html-latex-environment) (latex-fragment .
org-html-latex-fragment) (line-break . org-html-line-break) (link .
org-html-link) (node-property . org-html-node-property) (paragraph .
org-html-paragraph) ...) :exported-data #<hash-table eq 3/4001 0xba277d>
:input-buffer "test.org" :input-file "/tmp/test.org" :html-doctype
"xhtml-strict" :html-container "div" :html-content-class "content" :description
nil :keywords nil :html-html5-fancy nil :html-link-use-abs-url nil ...))
(closure ((objectp) (greaterp org-data) (transcoder closure ... ...
contents) (parent) (type . org-data) (info :export-options nil :back-end ...
:translate-alist ... :exported-data #<hash-table eq 3/4001 0xba277d>
:input-buffer "test.org" :input-file "/tmp/test.org" :html-doctype
"xhtml-strict" :html-container "div" :html-content-class "content" :description
nil :keywords ...) (data org-data ... ...) cl-struct-org-export-backend-tags
org-publish-project-alist t) (element) (org-export-data element info))((section
(:begin 1 :end 522 :contents-begin 1 :contents-end 522 :robust-begin 1
:robust-end 520 :post-blank 0 :post-affiliated 1 :mode first-section
:granularity nil :parent (org-data (:begin 1 :contents-begin 1 :contents-end
522 :end 522 :robust-begin 3 :robust-end 520 :post-blank 0 :post-affiliated 1
:path "/tmp/test.org" :mode org-data :CATEGORY "test" :granularity nil) #1))
(keyword (:key "TITLE" :value "Test export" :begin 1 :end 23 :post-blank 1
:post-affiliated 1 :mode top-comment :granularity nil :parent #1)) (paragraph
(:begin 23 :end 43 :contents-begin 23 :contents-end 42 :post-blank 1
:post-affiliated 23 :mode nil :granularity nil :parent #1) #("Test code
follows:\n" 0 19 (:parent #5))) (src-block (:language "latex" :switches nil
:parameters nil :begin 43 :end 522 :number-lines nil :preserve-indent nil
:retain-labels t :use-labels t :label-fmt nil :value
"\\documentclass[a4paper,english,11pt]{scrartcl}\n\\us..." :post-blank 0
:post-affiliated 43 :mode nil :granularity nil :parent #1))))
mapconcat((closure ((objectp) (greaterp org-data) (transcoder closure
((type . org-data) (info :export-options nil :back-end ... :translate-alist ...
:exported-data #<hash-table eq 3/4001 0xba277d> :input-buffer "test.org"
:input-file "/tmp/test.org" :html-doctype "xhtml-strict" :html-container "div"
:html-content-class "content" :description nil :keywords nil :html-html5-fancy
nil :html-link-use-abs-url nil :html-link-home "" :html-link-up ""
:html-mathjax "" :html-equation-reference-format "\\eqref{%s}" :html-postamble
auto :html-preamble ...) (blob org-data ... ...)
cl-struct-org-export-backend-tags org-publish-project-alist t) (_datum contents
_info) contents) (parent) (type . org-data) (info :export-options nil :back-end
#s(org-export-backend :name html :parent nil :transcoders (... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ...) :options (... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :filters (...
... ...) :blocks nil :menu (104 "Export to HTML" ...)) :translate-alist ((bold
. org-html-bold) (center-block . org-html-center-block) (clock .
org-html-clock) (code . org-html-code) (drawer . org-html-drawer)
(dynamic-block . org-html-dynamic-block) (entity . org-html-entity)
(example-block . org-html-example-block) (export-block . org-html-export-block)
(export-snippet . org-html-export-snippet) (fixed-width . org-html-fixed-width)
(footnote-reference . org-html-footnote-reference) (headline .
org-html-headline) (horizontal-rule . org-html-horizontal-rule)
(inline-src-block . org-html-inline-src-block) (inlinetask .
org-html-inlinetask) (inner-template . org-html-inner-template) (italic .
org-html-italic) (item . org-html-item) (keyword . org-html-keyword)
(latex-environment . org-html-latex-environment) (latex-fragment .
org-html-latex-fragment) (line-break . org-html-line-break) (link .
org-html-link) (node-property . org-html-node-property) (paragraph .
org-html-paragraph) (plain-list . org-html-plain-list) (plain-text .
org-html-plain-text) (planning . org-html-planning) (property-drawer .
org-html-property-drawer) (quote-block . org-html-quote-block) (radio-target .
org-html-radio-target) (section . org-html-section) (special-block .
org-html-special-block) (src-block . org-html-src-block) (statistics-cookie .
org-html-statistics-cookie) (strike-through . org-html-strike-through)
(subscript . org-html-subscript) ...) :exported-data #<hash-table eq 3/4001
0xba277d> :input-buffer "test.org" :input-file "/tmp/test.org" :html-doctype
"xhtml-strict" :html-container "div" :html-content-class "content" :description
nil :keywords nil :html-html5-fancy nil :html-link-use-abs-url nil
:html-link-home "" :html-link-up "" :html-mathjax ""
:html-equation-reference-format "\\eqref{%s}" :html-postamble auto
:html-preamble ...) (data org-data (:begin 1 :contents-begin 1 :contents-end
522 :end 522 :robust-begin 3 :robust-end 520 :post-blank 0 :post-affiliated 1
:path "/tmp/test.org" :mode org-data :CATEGORY "test" :granularity nil)
(section (:begin 1 :end 522 :contents-begin 1 :contents-end 522 :robust-begin 1
:robust-end 520 :post-blank 0 :post-affiliated 1 :mode first-section
:granularity nil :parent #11) (keyword ...) (paragraph ... ...) (src-block
...))) cl-struct-org-export-backend-tags org-publish-project-alist t) (element)
(org-export-data element info)) ((section (:begin 1 :end 522 :contents-begin 1
:contents-end 522 :robust-begin 1 :robust-end 520 :post-blank 0
:post-affiliated 1 :mode first-section :granularity nil :parent (org-data
(:begin 1 :contents-begin 1 :contents-end 522 :end 522 :robust-begin 3
:robust-end 520 :post-blank 0 :post-affiliated 1 :path "/tmp/test.org" :mode
org-data :CATEGORY "test" :granularity nil) . #2)) (keyword (:key "TITLE"
:value "Test export" :begin 1 :end 23 :post-blank 1 :post-affiliated 1 :mode
top-comment :granularity nil :parent #3)) (paragraph (:begin 23 :end 43
:contents-begin 23 :contents-end 42 :post-blank 1 :post-affiliated 23 :mode nil
:granularity nil :parent #3) #("Test code follows:\n" 0 19 (:parent #7)))
(src-block (:language "latex" :switches nil :parameters nil :begin 43 :end 522
:number-lines nil :preserve-indent nil :retain-labels t :use-labels t
:label-fmt nil :value "\\documentclass[a4paper,english,11pt]{s..." :post-blank
0 :post-affiliated 43 :mode nil :granularity nil :parent #3)))) "")
(let* ((greaterp (memq type org-element-greater-elements)) (objectp (and
(not greaterp) (memq type org-element-recursive-objects))) (contents (mapconcat
#'(lambda (element) (org-export-data element info)) (org-element-contents (if
(or greaterp objectp) data (org-element-normalize-contents data (and ... ...
... ...)))) ""))) (condition-case err (progn (funcall transcoder data (if (not
greaterp) contents (org-element-normalize-string contents)) info))
(org-link-broken (let* ((val (plist-get info :with-broken-links))) (cond ((null
val) (user-error "Unable to resolve link: %S" (nth 1 err))) ((eq val 'mark)
(org-export-data (format "[BROKEN LINK: %s]" ...) info)) (t nil))))))
(progn (let* ((greaterp (memq type org-element-greater-elements))
(objectp (and (not greaterp) (memq type org-element-recursive-objects)))
(contents (mapconcat #'(lambda (element) (org-export-data element info))
(org-element-contents (if (or greaterp objectp) data
(org-element-normalize-contents data ...))) ""))) (condition-case err (progn
(funcall transcoder data (if (not greaterp) contents
(org-element-normalize-string contents)) info)) (org-link-broken (let* ((val
(plist-get info :with-broken-links))) (cond ((null val) (user-error "Unable to
resolve link: %S" ...)) ((eq val ...) (org-export-data ... info)) (t nil)))))))
(if transcoder (progn (let* ((greaterp (memq type
org-element-greater-elements)) (objectp (and (not greaterp) (memq type
org-element-recursive-objects))) (contents (mapconcat #'(lambda ... ...)
(org-element-contents (if ... data ...)) ""))) (condition-case err (progn
(funcall transcoder data (if (not greaterp) contents
(org-element-normalize-string contents)) info)) (org-link-broken (let* ((val
...)) (cond (... ...) (... ...) (t nil))))))))
(let ((transcoder (org-export-transcoder data info))) (if transcoder
(progn (let* ((greaterp (memq type org-element-greater-elements)) (objectp (and
(not greaterp) (memq type org-element-recursive-objects))) (contents (mapconcat
#'... (org-element-contents ...) ""))) (condition-case err (progn (funcall
transcoder data (if ... contents ...) info)) (org-link-broken (let* (...) (cond
... ... ...))))))))
(cond ((memq data (plist-get info :ignore-list)) nil) ((eq type 'raw)
(car (org-element-contents data))) ((eq type 'plain-text)
(org-export-filter-apply-functions (plist-get info :filter-plain-text) (let
((transcoder (org-export-transcoder data info))) (if transcoder (funcall
transcoder data info) data)) info)) ((not type) (mapconcat #'(lambda (obj)
(org-export-data obj info)) data "")) ((or (not (org-element-contents data))
(and (eq type 'headline) (eq (plist-get info :with-archived-trees) 'headline)
(org-element-property :archivedp data))) (let ((transcoder
(org-export-transcoder data info))) (or (and (functionp transcoder)
(condition-case err (progn (funcall transcoder data nil info)) (org-link-broken
(let* ... ...)))) (and (eq type 'export-snippet) "")))) (t (let ((transcoder
(org-export-transcoder data info))) (if transcoder (progn (let* ((greaterp ...)
(objectp ...) (contents ...)) (condition-case err (progn ...) (org-link-broken
...))))))))
(let* ((type (org-element-type data)) (parent (org-export-get-parent
data)) (results (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type
'raw) (car (org-element-contents data))) ((eq type 'plain-text)
(org-export-filter-apply-functions (plist-get info :filter-plain-text) (let
(...) (if transcoder ... data)) info)) ((not type) (mapconcat #'(lambda ...
...) data "")) ((or (not (org-element-contents data)) (and (eq type ...) (eq
... ...) (org-element-property :archivedp data))) (let ((transcoder ...)) (or
(and ... ...) (and ... "")))) (t (let ((transcoder ...)) (if transcoder (progn
...))))))) (puthash data (cond ((not results) "") ((memq type '(nil org-data
plain-text raw)) results) (t (org-export-filter-apply-functions (plist-get info
(intern (format ":filter-%s" type))) (let ((blank ...)) (if (eq ... ...)
(concat results ...) (concat ... ...))) info))) (plist-get info
:exported-data)))
(or (gethash data (plist-get info :exported-data)) (let* ((type
(org-element-type data)) (parent (org-export-get-parent data)) (results (cond
((memq data (plist-get info :ignore-list)) nil) ((eq type 'raw) (car
(org-element-contents data))) ((eq type 'plain-text)
(org-export-filter-apply-functions (plist-get info :filter-plain-text) (let ...
...) info)) ((not type) (mapconcat #'... data "")) ((or (not ...) (and ... ...
...)) (let (...) (or ... ...))) (t (let (...) (if transcoder ...)))))) (puthash
data (cond ((not results) "") ((memq type '(nil org-data plain-text raw))
results) (t (org-export-filter-apply-functions (plist-get info (intern ...))
(let (...) (if ... ... ...)) info))) (plist-get info :exported-data))))
org-export-data((org-data (:begin 1 :contents-begin 1 :contents-end 522
:end 522 :robust-begin 3 :robust-end 520 :post-blank 0 :post-affiliated 1 :path
"/tmp/test.org" :mode org-data :CATEGORY "test" :granularity nil) (section
(:begin 1 :end 522 :contents-begin 1 :contents-end 522 :robust-begin 1
:robust-end 520 :post-blank 0 :post-affiliated 1 :mode first-section
:granularity nil :parent #1) (keyword ...) (paragraph ... ...) (src-block
...))) (:export-options nil :back-end #s(org-export-backend :name html :parent
nil :transcoders (... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ...) :options (... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ...) :filters (... ... ...) :blocks nil :menu (104 "Export to HTML" ...))
:translate-alist ((bold . org-html-bold) (center-block . org-html-center-block)
(clock . org-html-clock) (code . org-html-code) (drawer . org-html-drawer)
(dynamic-block . org-html-dynamic-block) (entity . org-html-entity)
(example-block . org-html-example-block) (export-block . org-html-export-block)
(export-snippet . org-html-export-snippet) (fixed-width . org-html-fixed-width)
(footnote-reference . org-html-footnote-reference) (headline .
org-html-headline) (horizontal-rule . org-html-horizontal-rule)
(inline-src-block . org-html-inline-src-block) (inlinetask .
org-html-inlinetask) (inner-template . org-html-inner-template) (italic .
org-html-italic) (item . org-html-item) (keyword . org-html-keyword)
(latex-environment . org-html-latex-environment) (latex-fragment .
org-html-latex-fragment) (line-break . org-html-line-break) (link .
org-html-link) (node-property . org-html-node-property) (paragraph .
org-html-paragraph) ...) :exported-data #<hash-table eq 3/4001 0xba277d>
:input-buffer "test.org" :input-file "/tmp/test.org" :html-doctype
"xhtml-strict" :html-container "div" :html-content-class "content" :description
nil :keywords nil :html-html5-fancy nil :html-link-use-abs-url nil ...))
(or (org-export-data tree info) "")
(org-element-normalize-string (or (org-export-data tree info) ""))
(let* ((body (org-element-normalize-string (or (org-export-data tree
info) ""))) (inner-template (cdr (assq 'inner-template (plist-get info
:translate-alist)))) (full-body (org-export-filter-apply-functions (plist-get
info :filter-body) (if (not (functionp inner-template)) body (funcall
inner-template body info)) info)) (template (cdr (assq 'template (plist-get
info :translate-alist)))) (output (if (or (not (functionp template)) body-only)
full-body (funcall template full-body info)))) (setq output
(org-cite-finalize-export output info)) (org-no-properties
(org-export-filter-apply-functions (plist-get info :filter-final-output) output
info)))
(progn (run-hook-with-args 'org-export-before-processing-hook (progn (or
(and (memq (type-of backend) cl-struct-org-export-backend-tags) t) (signal
'wrong-type-argument (list 'org-export-backend backend))) (aref backend 1)))
(org-export-expand-include-keyword) (org-export--delete-comment-trees)
(org-macro-initialize-templates org-export-global-macros)
(org-macro-replace-all org-macro-templates parsed-keywords)
(org-set-regexps-and-options) (org-update-radio-target-regexp) (if
org-export-use-babel (progn (org-babel-exp-process-buffer)
(org-macro-replace-all '(("results" . "$1")) parsed-keywords)
(org-set-regexps-and-options) (org-update-radio-target-regexp))) (goto-char
(point-min)) (save-excursion (run-hook-with-args
'org-export-before-parsing-hook (progn (or (and (memq (type-of backend)
cl-struct-org-export-backend-tags) t) (signal 'wrong-type-argument (list
'org-export-backend backend))) (aref backend 1))))
(org-set-regexps-and-options) (org-update-radio-target-regexp) (setq info
(org-combine-plists info (org-export-get-environment backend subtreep
ext-plist))) (org-cite-store-bibliography info)
(org-cite-store-export-processor info) (let ((--dolist-tail-- (append
(org-export-get-all-options backend) org-export-options-alist))) (while
--dolist-tail-- (let ((entry (car --dolist-tail--))) (if (consp entry) (let*
((x857 ...) (x858 ...)) (if (consp x858) (let* ... ...) nil)) nil) (setq
--dolist-tail-- (cdr --dolist-tail--))))) (setq info
(org-export-install-filters info)) (let ((backend-name (progn (or (and (memq
... cl-struct-org-export-backend-tags) t) (signal 'wrong-type-argument (list
... backend))) (aref backend 1)))) (let ((--dolist-tail-- (plist-get info
:filter-options))) (while --dolist-tail-- (let ((filter (car --dolist-tail--)))
(let ((result ...)) (if result (progn ...))) (setq --dolist-tail-- (cdr
--dolist-tail--)))))) (setq tree (org-element-parse-buffer nil visible-only))
(org-export--prune-tree tree info) (org-export--remove-uninterpreted-data tree
info) (setq tree (org-export-filter-apply-functions (plist-get info
:filter-parse-tree) tree info)) (setq info (org-export--collect-tree-properties
tree info)) (org-cite-process-citations info) (org-cite-process-bibliography
info) (let* ((body (org-element-normalize-string (or (org-export-data tree
info) ""))) (inner-template (cdr (assq 'inner-template (plist-get info
:translate-alist)))) (full-body (org-export-filter-apply-functions (plist-get
info :filter-body) (if (not (functionp inner-template)) body (funcall
inner-template body info)) info)) (template (cdr (assq 'template (plist-get
info :translate-alist)))) (output (if (or (not (functionp template)) body-only)
full-body (funcall template full-body info)))) (setq output
(org-cite-finalize-export output info)) (org-no-properties
(org-export-filter-apply-functions (plist-get info :filter-final-output) output
info))))
(save-current-buffer (set-buffer --buf-copy) (goto-char (point-min))
(progn (run-hook-with-args 'org-export-before-processing-hook (progn (or (and
(memq (type-of backend) cl-struct-org-export-backend-tags) t) (signal
'wrong-type-argument (list 'org-export-backend backend))) (aref backend 1)))
(org-export-expand-include-keyword) (org-export--delete-comment-trees)
(org-macro-initialize-templates org-export-global-macros)
(org-macro-replace-all org-macro-templates parsed-keywords)
(org-set-regexps-and-options) (org-update-radio-target-regexp) (if
org-export-use-babel (progn (org-babel-exp-process-buffer)
(org-macro-replace-all '(("results" . "$1")) parsed-keywords)
(org-set-regexps-and-options) (org-update-radio-target-regexp))) (goto-char
(point-min)) (save-excursion (run-hook-with-args
'org-export-before-parsing-hook (progn (or (and (memq ...
cl-struct-org-export-backend-tags) t) (signal 'wrong-type-argument (list ...
backend))) (aref backend 1)))) (org-set-regexps-and-options)
(org-update-radio-target-regexp) (setq info (org-combine-plists info
(org-export-get-environment backend subtreep ext-plist)))
(org-cite-store-bibliography info) (org-cite-store-export-processor info) (let
((--dolist-tail-- (append (org-export-get-all-options backend)
org-export-options-alist))) (while --dolist-tail-- (let ((entry (car
--dolist-tail--))) (if (consp entry) (let* (... ...) (if ... ... nil)) nil)
(setq --dolist-tail-- (cdr --dolist-tail--))))) (setq info
(org-export-install-filters info)) (let ((backend-name (progn (or (and ... t)
(signal ... ...)) (aref backend 1)))) (let ((--dolist-tail-- (plist-get info
:filter-options))) (while --dolist-tail-- (let ((filter ...)) (let (...) (if
result ...)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (setq tree
(org-element-parse-buffer nil visible-only)) (org-export--prune-tree tree info)
(org-export--remove-uninterpreted-data tree info) (setq tree
(org-export-filter-apply-functions (plist-get info :filter-parse-tree) tree
info)) (setq info (org-export--collect-tree-properties tree info))
(org-cite-process-citations info) (org-cite-process-bibliography info) (let*
((body (org-element-normalize-string (or (org-export-data tree info) "")))
(inner-template (cdr (assq 'inner-template (plist-get info :translate-alist))))
(full-body (org-export-filter-apply-functions (plist-get info :filter-body) (if
(not ...) body (funcall inner-template body info)) info)) (template (cdr (assq
'template (plist-get info :translate-alist)))) (output (if (or (not ...)
body-only) full-body (funcall template full-body info)))) (setq output
(org-cite-finalize-export output info)) (org-no-properties
(org-export-filter-apply-functions (plist-get info :filter-final-output) output
info)))))
(unwind-protect (save-current-buffer (set-buffer --buf-copy) (goto-char
(point-min)) (progn (run-hook-with-args 'org-export-before-processing-hook
(progn (or (and (memq ... cl-struct-org-export-backend-tags) t) (signal
'wrong-type-argument (list ... backend))) (aref backend 1)))
(org-export-expand-include-keyword) (org-export--delete-comment-trees)
(org-macro-initialize-templates org-export-global-macros)
(org-macro-replace-all org-macro-templates parsed-keywords)
(org-set-regexps-and-options) (org-update-radio-target-regexp) (if
org-export-use-babel (progn (org-babel-exp-process-buffer)
(org-macro-replace-all '(...) parsed-keywords) (org-set-regexps-and-options)
(org-update-radio-target-regexp))) (goto-char (point-min)) (save-excursion
(run-hook-with-args 'org-export-before-parsing-hook (progn (or (and ... t)
(signal ... ...)) (aref backend 1)))) (org-set-regexps-and-options)
(org-update-radio-target-regexp) (setq info (org-combine-plists info
(org-export-get-environment backend subtreep ext-plist)))
(org-cite-store-bibliography info) (org-cite-store-export-processor info) (let
((--dolist-tail-- (append (org-export-get-all-options backend)
org-export-options-alist))) (while --dolist-tail-- (let ((entry ...)) (if
(consp entry) (let* ... ...) nil) (setq --dolist-tail-- (cdr
--dolist-tail--))))) (setq info (org-export-install-filters info)) (let
((backend-name (progn (or ... ...) (aref backend 1)))) (let ((--dolist-tail--
(plist-get info :filter-options))) (while --dolist-tail-- (let (...) (let ...
...) (setq --dolist-tail-- ...))))) (setq tree (org-element-parse-buffer nil
visible-only)) (org-export--prune-tree tree info)
(org-export--remove-uninterpreted-data tree info) (setq tree
(org-export-filter-apply-functions (plist-get info :filter-parse-tree) tree
info)) (setq info (org-export--collect-tree-properties tree info))
(org-cite-process-citations info) (org-cite-process-bibliography info) (let*
((body (org-element-normalize-string (or ... ""))) (inner-template (cdr (assq
... ...))) (full-body (org-export-filter-apply-functions (plist-get info
:filter-body) (if ... body ...) info)) (template (cdr (assq ... ...))) (output
(if (or ... body-only) full-body (funcall template full-body info)))) (setq
output (org-cite-finalize-export output info)) (org-no-properties
(org-export-filter-apply-functions (plist-get info :filter-final-output) output
info))))) (and (buffer-live-p --buf-copy) (progn (save-current-buffer
(set-buffer --buf-copy) (restore-buffer-modified-p nil)) (kill-buffer
--buf-copy))))
(let ((--buf-copy (org-export-copy-buffer))) (unwind-protect
(save-current-buffer (set-buffer --buf-copy) (goto-char (point-min)) (progn
(run-hook-with-args 'org-export-before-processing-hook (progn (or (and ... t)
(signal ... ...)) (aref backend 1))) (org-export-expand-include-keyword)
(org-export--delete-comment-trees) (org-macro-initialize-templates
org-export-global-macros) (org-macro-replace-all org-macro-templates
parsed-keywords) (org-set-regexps-and-options) (org-update-radio-target-regexp)
(if org-export-use-babel (progn (org-babel-exp-process-buffer)
(org-macro-replace-all '... parsed-keywords) (org-set-regexps-and-options)
(org-update-radio-target-regexp))) (goto-char (point-min)) (save-excursion
(run-hook-with-args 'org-export-before-parsing-hook (progn (or ... ...) (aref
backend 1)))) (org-set-regexps-and-options) (org-update-radio-target-regexp)
(setq info (org-combine-plists info (org-export-get-environment backend
subtreep ext-plist))) (org-cite-store-bibliography info)
(org-cite-store-export-processor info) (let ((--dolist-tail-- (append ...
org-export-options-alist))) (while --dolist-tail-- (let (...) (if ... ... nil)
(setq --dolist-tail-- ...)))) (setq info (org-export-install-filters info))
(let ((backend-name (progn ... ...))) (let ((--dolist-tail-- ...)) (while
--dolist-tail-- (let ... ... ...)))) (setq tree (org-element-parse-buffer nil
visible-only)) (org-export--prune-tree tree info)
(org-export--remove-uninterpreted-data tree info) (setq tree
(org-export-filter-apply-functions (plist-get info :filter-parse-tree) tree
info)) (setq info (org-export--collect-tree-properties tree info))
(org-cite-process-citations info) (org-cite-process-bibliography info) (let*
((body (org-element-normalize-string ...)) (inner-template (cdr ...))
(full-body (org-export-filter-apply-functions ... ... info)) (template (cdr
...)) (output (if ... full-body ...))) (setq output (org-cite-finalize-export
output info)) (org-no-properties (org-export-filter-apply-functions (plist-get
info :filter-final-output) output info))))) (and (buffer-live-p --buf-copy)
(progn (save-current-buffer (set-buffer --buf-copy) (restore-buffer-modified-p
nil)) (kill-buffer --buf-copy)))))
(let* ((org-export-current-backend (progn (or (and (memq (type-of
backend) cl-struct-org-export-backend-tags) t) (signal 'wrong-type-argument
(list 'org-export-backend backend))) (aref backend 1))) (info
(org-combine-plists (org-export--get-export-attributes backend subtreep
visible-only body-only) (org-export--get-buffer-attributes))) (parsed-keywords
(delq nil (mapcar #'(lambda (o) (and ... ...)) (append
(org-export-get-all-options backend) org-export-options-alist)))) tree) (let
((--buf-copy (org-export-copy-buffer))) (unwind-protect (save-current-buffer
(set-buffer --buf-copy) (goto-char (point-min)) (progn (run-hook-with-args
'org-export-before-processing-hook (progn (or ... ...) (aref backend 1)))
(org-export-expand-include-keyword) (org-export--delete-comment-trees)
(org-macro-initialize-templates org-export-global-macros)
(org-macro-replace-all org-macro-templates parsed-keywords)
(org-set-regexps-and-options) (org-update-radio-target-regexp) (if
org-export-use-babel (progn (org-babel-exp-process-buffer)
(org-macro-replace-all ... parsed-keywords) (org-set-regexps-and-options)
(org-update-radio-target-regexp))) (goto-char (point-min)) (save-excursion
(run-hook-with-args 'org-export-before-parsing-hook (progn ... ...)))
(org-set-regexps-and-options) (org-update-radio-target-regexp) (setq info
(org-combine-plists info (org-export-get-environment backend subtreep
ext-plist))) (org-cite-store-bibliography info)
(org-cite-store-export-processor info) (let ((--dolist-tail-- ...)) (while
--dolist-tail-- (let ... ... ...))) (setq info (org-export-install-filters
info)) (let ((backend-name ...)) (let (...) (while --dolist-tail-- ...))) (setq
tree (org-element-parse-buffer nil visible-only)) (org-export--prune-tree tree
info) (org-export--remove-uninterpreted-data tree info) (setq tree
(org-export-filter-apply-functions (plist-get info :filter-parse-tree) tree
info)) (setq info (org-export--collect-tree-properties tree info))
(org-cite-process-citations info) (org-cite-process-bibliography info) (let*
((body ...) (inner-template ...) (full-body ...) (template ...) (output ...))
(setq output (org-cite-finalize-export output info)) (org-no-properties
(org-export-filter-apply-functions ... output info))))) (and (buffer-live-p
--buf-copy) (progn (save-current-buffer (set-buffer --buf-copy)
(restore-buffer-modified-p nil)) (kill-buffer --buf-copy))))))
(save-restriction (cond ((org-region-active-p) (narrow-to-region
(region-beginning) (region-end))) (subtreep (org-narrow-to-subtree) (goto-char
(point-min)) (org-end-of-meta-data) (narrow-to-region (point) (point-max))))
(let* ((org-export-current-backend (progn (or (and (memq ...
cl-struct-org-export-backend-tags) t) (signal 'wrong-type-argument (list ...
backend))) (aref backend 1))) (info (org-combine-plists
(org-export--get-export-attributes backend subtreep visible-only body-only)
(org-export--get-buffer-attributes))) (parsed-keywords (delq nil (mapcar
#'(lambda ... ...) (append (org-export-get-all-options backend)
org-export-options-alist)))) tree) (let ((--buf-copy (org-export-copy-buffer)))
(unwind-protect (save-current-buffer (set-buffer --buf-copy) (goto-char
(point-min)) (progn (run-hook-with-args 'org-export-before-processing-hook
(progn ... ...)) (org-export-expand-include-keyword)
(org-export--delete-comment-trees) (org-macro-initialize-templates
org-export-global-macros) (org-macro-replace-all org-macro-templates
parsed-keywords) (org-set-regexps-and-options) (org-update-radio-target-regexp)
(if org-export-use-babel (progn ... ... ... ...)) (goto-char (point-min))
(save-excursion (run-hook-with-args ... ...)) (org-set-regexps-and-options)
(org-update-radio-target-regexp) (setq info (org-combine-plists info ...))
(org-cite-store-bibliography info) (org-cite-store-export-processor info) (let
(...) (while --dolist-tail-- ...)) (setq info (org-export-install-filters
info)) (let (...) (let ... ...)) (setq tree (org-element-parse-buffer nil
visible-only)) (org-export--prune-tree tree info)
(org-export--remove-uninterpreted-data tree info) (setq tree
(org-export-filter-apply-functions ... tree info)) (setq info
(org-export--collect-tree-properties tree info)) (org-cite-process-citations
info) (org-cite-process-bibliography info) (let* (... ... ... ... ...) (setq
output ...) (org-no-properties ...)))) (and (buffer-live-p --buf-copy) (progn
(save-current-buffer (set-buffer --buf-copy) (restore-buffer-modified-p nil))
(kill-buffer --buf-copy)))))))
(save-excursion (save-restriction (cond ((org-region-active-p)
(narrow-to-region (region-beginning) (region-end))) (subtreep
(org-narrow-to-subtree) (goto-char (point-min)) (org-end-of-meta-data)
(narrow-to-region (point) (point-max)))) (let* ((org-export-current-backend
(progn (or (and ... t) (signal ... ...)) (aref backend 1))) (info
(org-combine-plists (org-export--get-export-attributes backend subtreep
visible-only body-only) (org-export--get-buffer-attributes))) (parsed-keywords
(delq nil (mapcar #'... (append ... org-export-options-alist)))) tree) (let
((--buf-copy (org-export-copy-buffer))) (unwind-protect (save-current-buffer
(set-buffer --buf-copy) (goto-char (point-min)) (progn (run-hook-with-args ...
...) (org-export-expand-include-keyword) (org-export--delete-comment-trees)
(org-macro-initialize-templates org-export-global-macros)
(org-macro-replace-all org-macro-templates parsed-keywords)
(org-set-regexps-and-options) (org-update-radio-target-regexp) (if
org-export-use-babel ...) (goto-char ...) (save-excursion ...)
(org-set-regexps-and-options) (org-update-radio-target-regexp) (setq info ...)
(org-cite-store-bibliography info) (org-cite-store-export-processor info) (let
... ...) (setq info ...) (let ... ...) (setq tree ...) (org-export--prune-tree
tree info) (org-export--remove-uninterpreted-data tree info) (setq tree ...)
(setq info ...) (org-cite-process-citations info)
(org-cite-process-bibliography info) (let* ... ... ...))) (and (buffer-live-p
--buf-copy) (progn (save-current-buffer ... ...) (kill-buffer --buf-copy))))))))
org-export-as(html nil nil nil (:output-file "test.html"))
(let ((output (org-export-as backend subtreep visible-only body-only
ext-plist))) (let ((temp-buffer (generate-new-buffer " *temp*")))
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert
output) (let ((coding-system-for-write encoding)) (write-file file))) (and
(buffer-name temp-buffer) (kill-buffer temp-buffer))))) (if (and
(org-export--copy-to-kill-ring-p) (org-string-nw-p output)) (progn
(org-kill-new output))) (or (and (functionp post-process) (funcall post-process
file)) file))
(if async (org-export-async-start #'(lambda (file)
(org-export-add-to-stack (expand-file-name file) backend)) (list 'let (list
(list 'output (list 'org-export-as (list 'quote backend) subtreep visible-only
body-only (list 'quote ext-plist)))) (list 'with-temp-buffer '(insert output)
(list 'let (list (list 'coding-system-for-write (list ... encoding))) (list
'write-file file))) (list 'or (list 'ignore-errors (list 'funcall (list 'quote
post-process) file)) file))) (let ((output (org-export-as backend subtreep
visible-only body-only ext-plist))) (let ((temp-buffer (generate-new-buffer "
*temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
(insert output) (let (...) (write-file file))) (and (buffer-name temp-buffer)
(kill-buffer temp-buffer))))) (if (and (org-export--copy-to-kill-ring-p)
(org-string-nw-p output)) (progn (org-kill-new output))) (or (and (functionp
post-process) (funcall post-process file)) file)))
(let ((ext-plist (org-combine-plists (list ':output-file file)
ext-plist)) (encoding (or org-export-coding-system buffer-file-coding-system))
auto-mode-alist) (if async (org-export-async-start #'(lambda (file)
(org-export-add-to-stack (expand-file-name file) backend)) (list 'let (list
(list 'output (list 'org-export-as (list ... backend) subtreep visible-only
body-only (list ... ext-plist)))) (list 'with-temp-buffer '(insert output)
(list 'let (list (list ... ...)) (list 'write-file file))) (list 'or (list
'ignore-errors (list 'funcall (list ... post-process) file)) file))) (let
((output (org-export-as backend subtreep visible-only body-only ext-plist)))
(let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer
(set-buffer temp-buffer) (unwind-protect (progn (insert output) (let ... ...))
(and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (if (and
(org-export--copy-to-kill-ring-p) (org-string-nw-p output)) (progn
(org-kill-new output))) (or (and (functionp post-process) (funcall post-process
file)) file))))
(if (not (file-writable-p file)) (error "Output file not writable") (let
((ext-plist (org-combine-plists (list ':output-file file) ext-plist)) (encoding
(or org-export-coding-system buffer-file-coding-system)) auto-mode-alist) (if
async (org-export-async-start #'(lambda (file) (org-export-add-to-stack
(expand-file-name file) backend)) (list 'let (list (list 'output (list ... ...
subtreep visible-only body-only ...))) (list 'with-temp-buffer '(insert output)
(list 'let (list ...) (list ... file))) (list 'or (list 'ignore-errors (list
... ... file)) file))) (let ((output (org-export-as backend subtreep
visible-only body-only ext-plist))) (let ((temp-buffer (generate-new-buffer "
*temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
... ...) (and ... ...)))) (if (and (org-export--copy-to-kill-ring-p)
(org-string-nw-p output)) (progn (org-kill-new output))) (or (and (functionp
post-process) (funcall post-process file)) file)))))
org-export-to-file(html "test.html" nil nil nil nil nil)
(let* ((extension (concat (if (> (length org-html-extension) 0) (progn
".")) (or (plist-get ext-plist :html-extension) org-html-extension "html")))
(file (org-export-output-file-name extension subtreep))
(org-export-coding-system org-html-coding-system)) (org-export-to-file 'html
file async subtreep visible-only body-only ext-plist))
org-html-export-to-html(nil nil nil nil)
funcall(org-html-export-to-html nil nil nil nil)
(save-excursion (if arg (progn (if (eq (marker-buffer
org-export-dispatch-last-position) (org-base-buffer (current-buffer)))
(goto-char org-export-dispatch-last-position) (move-marker
org-export-dispatch-last-position nil)))) (funcall action (and (memq 'async
optns) t) (and (memq 'subtree optns) t) (and (memq 'visible optns) t) (and
(memq 'body optns) t)))
(cond ((eql action 'template) (org-export-insert-default-template nil
optns)) ((eql action 'stack) (org-export-stack)) ((eql action
'publish-current-file) (org-publish-current-file (memq 'force optns) (memq
'async optns))) ((eql action 'publish-current-project)
(org-publish-current-project (memq 'force optns) (memq 'async optns))) ((eql
action 'publish-choose-project) (org-publish (assoc (completing-read "Publish
project: " org-publish-project-alist nil t) org-publish-project-alist) (memq
'force optns) (memq 'async optns))) ((eql action 'publish-all) (org-publish-all
(memq 'force optns) (memq 'async optns))) (t (save-excursion (if arg (progn (if
(eq (marker-buffer org-export-dispatch-last-position) (org-base-buffer ...))
(goto-char org-export-dispatch-last-position) (move-marker
org-export-dispatch-last-position nil)))) (funcall action (and (memq 'async
optns) t) (and (memq 'subtree optns) t) (and (memq 'visible optns) t) (and
(memq 'body optns) t)))))
(let* ((input (cond ((equal arg '(16)) '(stack)) ((and arg
org-export-dispatch-last-action)) (t (let ((wconfig ...)) (unwind-protect
(progn ...) (set-window-configuration wconfig)))))) (action (car input)) (optns
(cdr input))) (if (memq 'subtree optns) nil (move-marker
org-export-dispatch-last-position nil)) (cond ((eql action 'template)
(org-export-insert-default-template nil optns)) ((eql action 'stack)
(org-export-stack)) ((eql action 'publish-current-file)
(org-publish-current-file (memq 'force optns) (memq 'async optns))) ((eql
action 'publish-current-project) (org-publish-current-project (memq 'force
optns) (memq 'async optns))) ((eql action 'publish-choose-project) (org-publish
(assoc (completing-read "Publish project: " org-publish-project-alist nil t)
org-publish-project-alist) (memq 'force optns) (memq 'async optns))) ((eql
action 'publish-all) (org-publish-all (memq 'force optns) (memq 'async optns)))
(t (save-excursion (if arg (progn (if (eq ... ...) (goto-char
org-export-dispatch-last-position) (move-marker
org-export-dispatch-last-position nil)))) (funcall action (and (memq 'async
optns) t) (and (memq 'subtree optns) t) (and (memq 'visible optns) t) (and
(memq 'body optns) t))))))
org-export-dispatch(nil)
funcall-interactively(org-export-dispatch nil)
call-interactively(org-export-dispatch nil nil)
command-execute(org-export-dispatch)
In order to reproduce this error, it is necessary to load htmlize.el and
set the variable `compile-command' in the `latex-mode-hook' hook.
Following is the entire content of an elisp file to be used with emacs
-Q in order to reproduce the problem:
(setq debug-on-error t
debug-on-signal nil
debug-on-quit nil)
(require 'package)
(add-to-list 'package-archives
'("melpa-stable" . "https://stable.melpa.org/packages/";) t)
(package-initialize)
(add-to-list 'load-path "/home/quintus/.emacs.d/org-mode/lisp")
(add-to-list 'load-path "/home/quintus/.emacs.d/citeproc-el")
(require 'citeproc)
(require 'org)
(require 'oc-csl)
(require 'htmlize)
(add-hook 'latex-mode-hook (lambda()
(set (make-local-variable 'compile-command)
(concat "lualatex " (shell-quote-argument
(buffer-file-name))))))
Where ~/.emacs.d/org-mode/lisp contains the current HEAD from org’s
repository and htmlize is installed from MELPA.
The problematic org file in question is /tmp/test.org and it has the
following content:
#+TITLE: Test export
Test code follows:
#+BEGIN_SRC latex
\documentclass[a4paper,english,11pt]{scrartcl}
\usepackage{babel}
\usepackage[T1]{fontenc}
\usepackage[utf8]{inputenc}
\providecommand\defpandocbool{
\newif\ifrunsinpandoc
\runsinpandocfalse}
\defpandocbool{}
\begin{document}
\title{Test}
\author{John Doe}
\date{\today}
\maketitle{}
This will always be included.
\ifrunsinpandoc
The document was processed by Pandoc.
\else
The document was processed by ordinary \LaTeX{}.
\fi
\end{document}
#+END_SRC
When this file is visited with emacs -Q as prepared above, it will
show the fontification error message. Exporting it to HTML causes the
error message reproduced above.
It is worth noting that htmlize itself seems to process the LaTeX code
just fine when I tried to htmlize a buffer with just the LaTeX code in
it using `htmlize-buffer'.
-quintus
Emacs : GNU Emacs 27.1 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.20)
of 2022-02-25
Package: Org mode version 9.5 (release_9.5-661-g5e0afb @
/home/quintus/.emacs.d/org-mode/lisp/)
current state:
==============
(setq
org-src-mode-hook '(org-src-babel-configure-edit-buffer
org-src-mode-configure-edit-buffer)
org-link-shell-confirm-function 'yes-or-no-p
org-metadown-hook '(org-babel-pop-to-session-maybe)
org-persist-before-write-hook '(org-element--cache-persist-before-write)
org-mode-hook '((closure
(org--rds reftex-docstruct-symbol
org-element-greater-elements visual-fill-column-width
org-clock-history org-agenda-current-date org-with-time
org-defdecode org-def
org-read-date-inactive org-ans2 org-ans1
org-columns-current-fmt-compiled
org-clock-current-task org-clock-effort
org-agenda-skip-function org-agenda-skip-comment-trees
org-agenda-archives-mode org-end-time-was-given
org-time-was-given org-log-note-extra
org-log-note-purpose org-log-post-message
org-last-inserted-timestamp
org-last-changed-timestamp org-entry-property-inherited-from
org-blocked-by-checkboxes
org-state org-agenda-headline-snapshot-before-repeat
org-agenda-buffer-name
org-agenda-start-on-weekday org-agenda-buffer-tmp-name
org-priority-regexp
org-mode-abbrev-table org-mode-syntax-table
org-element-use-cache org-element-cache-persistent
buffer-face-mode-face org-tbl-menu org-org-menu
org-struct-menu org-entities org-last-state
org-id-track-globally org-clock-start-time texmathp-why
remember-data-file
org-agenda-tags-todo-honor-ignore-options
iswitchb-temp-buflist calc-embedded-open-mode
calc-embedded-open-formula calc-embedded-close-formula
align-mode-rules-list org-emphasis-alist
org-emphasis-regexp-components
org-export-registered-backends org-modules crm-separator
org-babel-load-languages org-id-overriding-file-name
org-indent-indentation-per-level
org-element--timestamp-regexp
org-element-cache-map-continue-from
org-element-paragraph-separate org-agenda-buffer-name
org-inlinetask-min-level t)
nil (add-hook 'change-major-mode-hook 'org-fold-show-all
'append 'local))
(closure
(org-src-window-setup *this*
org-babel-confirm-evaluate-answer-no
org-babel-tangle-uncomment-comments
org-src-preserve-indentation org-src-lang-modes
org-edit-src-content-indentation org-babel-library-of-babel
t)
nil (add-hook 'change-major-mode-hook
#'org-babel-show-result-all 'append 'local))
org-babel-result-hide-spec org-babel-hide-all-hashes)
org-archive-hook '(org-attach-archive-delete-maybe)
org-persist-before-read-hook '(org-element--cache-persist-before-read)
org-confirm-elisp-link-function 'yes-or-no-p
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-metaup-hook '(org-babel-load-in-session-maybe)
org-persist-after-read-hook '(org-element--cache-persist-after-read)
org-bibtex-headline-format-function '(closure
(org-id-locations
org-agenda-search-view-always-boolean
org-agenda-overriding-header t)
(entry) (cdr (assq :title entry)))
org-babel-pre-tangle-hook '(save-buffer)
org-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
org-cycle-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
org-agenda-loop-over-headlines-in-active-region nil
org-fold-core-isearch-open-function 'org-fold--isearch-reveal
org-occur-hook '(org-first-headline-recenter)
org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-show-empty-lines
org-cycle-optimize-window-after-visibility-change)
org-speed-command-hook '(org-speed-command-activate
org-babel-speed-command-activate)
org-export-before-parsing-hook '(org-attach-expand-links)
org-confirm-shell-link-function 'yes-or-no-p
org-link-parameters '(("attachment" :follow org-attach-follow :complete
org-attach-complete-link)
("id" :follow org-id-open) ("eww" :follow org-eww-open
:store org-eww-store-link)
("rmail" :follow org-rmail-open :store
org-rmail-store-link)
("mhe" :follow org-mhe-open :store org-mhe-store-link)
("irc" :follow org-irc-visit :store org-irc-store-link
:export org-irc-export)
("info" :follow org-info-open :export org-info-export
:store org-info-store-link)
("gnus" :follow org-gnus-open :store org-gnus-store-link)
("docview" :follow org-docview-open :export
org-docview-export :store
org-docview-store-link)
("bbdb" :follow org-bbdb-open :export org-bbdb-export
:complete org-bbdb-complete-link
:store org-bbdb-store-link)
("w3m" :store org-w3m-store-link)
("doi" :follow org-link-doi-open :export
org-link-doi-export)
("bibtex" :follow org-bibtex-open :store
org-bibtex-store-link)
("elfeed" :follow elfeed-link-open :store
elfeed-link-store-link) ("file+sys")
("file+emacs") ("shell" :follow org-link--open-shell)
("news" :follow
(closure
((scheme . "news") (--dolist-tail--) org-ts-regexp
org-time-stamp-formats
org-src-source-file-name org-outline-regexp-bol
org-inhibit-startup
org-id-link-to-org-use-id org-highlight-links
org-comment-string org-agenda-buffer-name
clean-buffer-list-kill-buffer-names t)
(url arg) (browse-url (concat scheme ":" url) arg))
)
("mailto" :follow
(closure
((scheme . "mailto") (--dolist-tail--) org-ts-regexp
org-time-stamp-formats
org-src-source-file-name org-outline-regexp-bol
org-inhibit-startup
org-id-link-to-org-use-id org-highlight-links
org-comment-string org-agenda-buffer-name
clean-buffer-list-kill-buffer-names t)
(url arg) (browse-url (concat scheme ":" url) arg))
)
("https" :follow
(closure
((scheme . "https") (--dolist-tail--) org-ts-regexp
org-time-stamp-formats
org-src-source-file-name org-outline-regexp-bol
org-inhibit-startup
org-id-link-to-org-use-id org-highlight-links
org-comment-string org-agenda-buffer-name
clean-buffer-list-kill-buffer-names t)
(url arg) (browse-url (concat scheme ":" url) arg))
)
("http" :follow
(closure
((scheme . "http") (--dolist-tail--) org-ts-regexp
org-time-stamp-formats
org-src-source-file-name org-outline-regexp-bol
org-inhibit-startup
org-id-link-to-org-use-id org-highlight-links
org-comment-string org-agenda-buffer-name
clean-buffer-list-kill-buffer-names t)
(url arg) (browse-url (concat scheme ":" url) arg))
)
("ftp" :follow
(closure
((scheme . "ftp") (--dolist-tail--) org-ts-regexp
org-time-stamp-formats
org-src-source-file-name org-outline-regexp-bol
org-inhibit-startup
org-id-link-to-org-use-id org-highlight-links
org-comment-string org-agenda-buffer-name
clean-buffer-list-kill-buffer-names t)
(url arg) (browse-url (concat scheme ":" url) arg))
)
("help" :follow org-link--open-help :store
org-link--store-help)
("file" :complete org-link-complete-file) ("elisp"
:follow org-link--open-elisp))
org-link-elisp-confirm-function 'yes-or-no-p
)
--
Dipl.-Jur. M. Gülker | https://mg.guelker.eu | PGP: Siehe Webseite
Passau, Deutschland | kontakt@guelker.eu | O<
- [BUG] Setting compile command causes fontification error [9.5 (release_9.5-661-g5e0afb @ /home/quintus/.emacs.d/org-mode/lisp/)],
Marvin Gülker <=