From the backtrace, seems (buffer-file-name) returned nil, I guess you first created a new buffer and have not saved it to file. That caused it return nil. Not Org Mode problem. Not saving file is a common problem in young programmer as I experienced. No offence.
Marvin Gülker <post+orgmod...@guelker.eu> writes: > 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 > ) -- [ stardiviner ] I try to make every word tell the meaning that I want to express. Blog: https://stardiviner.github.io/ IRC(freenode): stardiviner, Matrix: stardiviner GPG: F09F650D7D674819892591401B5DF1C95AE89AC3
signature.asc
Description: PGP signature
