* [BUG] Setting compile command causes fontification error [9.5 (release_9.5-661-g5e0afb @ /home/quintus/.emacs.d/org-mode/lisp/)]
@ 2022-05-27 11:02 Marvin Gülker
2022-05-28 1:52 ` Christopher M. Miles
[not found] ` <629180cb.1c69fb81.4263.8e2fSMTPIN_ADDED_BROKEN@mx.google.com>
0 siblings, 2 replies; 4+ messages in thread
From: Marvin Gülker @ 2022-05-27 11:02 UTC (permalink / raw)
To: emacs-orgmode
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<
^ permalink raw reply [flat|nested] 4+ messages in thread* Re: [BUG] Setting compile command causes fontification error [9.5 (release_9.5-661-g5e0afb @ /home/quintus/.emacs.d/org-mode/lisp/)]
2022-05-27 11:02 [BUG] Setting compile command causes fontification error [9.5 (release_9.5-661-g5e0afb @ /home/quintus/.emacs.d/org-mode/lisp/)] Marvin Gülker
@ 2022-05-28 1:52 ` Christopher M. Miles
[not found] ` <629180cb.1c69fb81.4263.8e2fSMTPIN_ADDED_BROKEN@mx.google.com>
1 sibling, 0 replies; 4+ messages in thread
From: Christopher M. Miles @ 2022-05-28 1:52 UTC (permalink / raw)
To: Marvin Gülker; +Cc: emacs-orgmode
[-- Attachment #1: Type: text/plain, Size: 83776 bytes --]
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+orgmodeml@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
[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 487 bytes --]
^ permalink raw reply [flat|nested] 4+ messages in thread[parent not found: <629180cb.1c69fb81.4263.8e2fSMTPIN_ADDED_BROKEN@mx.google.com>]
* Re: [BUG] Setting compile command causes fontification error [9.5 (release_9.5-661-g5e0afb @ /home/quintus/.emacs.d/org-mode/lisp/)]
[not found] ` <629180cb.1c69fb81.4263.8e2fSMTPIN_ADDED_BROKEN@mx.google.com>
@ 2022-05-28 2:20 ` Ihor Radchenko
2022-05-29 7:17 ` Christopher M. Miles
0 siblings, 1 reply; 4+ messages in thread
From: Ihor Radchenko @ 2022-05-28 2:20 UTC (permalink / raw)
To: numbchild; +Cc: Marvin Gülker, emacs-orgmode
"Christopher M. Miles" <numbchild@gmail.com> writes:
> 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.
To clarify, the problem is in the user-defined hook:
(add-hook 'latex-mode-hook (lambda()
(set (make-local-variable 'compile-command)
(concat "lualatex " (shell-quote-argument (buffer-file-name))))))
The hook does not work when (buffer-file-name) returns nil, which is
exactly what happens when Org mode tries to fontify the source block.
Org does it inside a temporary buffer not associated with any real file.
One way to fix the problem would be
(add-hook 'latex-mode-hook (lambda()
(when (buffer-file-name)
(set (make-local-variable 'compile-command)
(concat "lualatex " (shell-quote-argument (buffer-file-name)))))))
Best,
Ihor
^ permalink raw reply [flat|nested] 4+ messages in thread* Re: [BUG] Setting compile command causes fontification error [9.5 (release_9.5-661-g5e0afb @ /home/quintus/.emacs.d/org-mode/lisp/)]
2022-05-28 2:20 ` Ihor Radchenko
@ 2022-05-29 7:17 ` Christopher M. Miles
0 siblings, 0 replies; 4+ messages in thread
From: Christopher M. Miles @ 2022-05-29 7:17 UTC (permalink / raw)
To: Ihor Radchenko; +Cc: numbchild, Marvin Gülker, emacs-orgmode
[-- Attachment #1: Type: text/plain, Size: 1507 bytes --]
Ihor Radchenko <yantar92@gmail.com> writes:
> "Christopher M. Miles" <numbchild@gmail.com> writes:
>
>> 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.
>
> To clarify, the problem is in the user-defined hook:
>
> (add-hook 'latex-mode-hook (lambda()
> (set (make-local-variable 'compile-command)
> (concat "lualatex " (shell-quote-argument (buffer-file-name))))))
>
> The hook does not work when (buffer-file-name) returns nil, which is
> exactly what happens when Org mode tries to fontify the source block.
> Org does it inside a temporary buffer not associated with any real file.
>
That's why you are senior developer, I haven't fount the hook in his error report.
Good job.
> One way to fix the problem would be
>
> (add-hook 'latex-mode-hook (lambda()
> (when (buffer-file-name)
> (set (make-local-variable 'compile-command)
> (concat "lualatex " (shell-quote-argument (buffer-file-name)))))))
>
> Best,
> Ihor
--
[ 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
[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 487 bytes --]
^ permalink raw reply [flat|nested] 4+ messages in thread
end of thread, other threads:[~2022-05-29 7:23 UTC | newest]
Thread overview: 4+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2022-05-27 11:02 [BUG] Setting compile command causes fontification error [9.5 (release_9.5-661-g5e0afb @ /home/quintus/.emacs.d/org-mode/lisp/)] Marvin Gülker
2022-05-28 1:52 ` Christopher M. Miles
[not found] ` <629180cb.1c69fb81.4263.8e2fSMTPIN_ADDED_BROKEN@mx.google.com>
2022-05-28 2:20 ` Ihor Radchenko
2022-05-29 7:17 ` Christopher M. Miles
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).