[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [BUG] Setting compile command causes fontification error [9.5 (relea
From: |
Christopher M. Miles |
Subject: |
Re: [BUG] Setting compile command causes fontification error [9.5 (release_9.5-661-g5e0afb @ /home/quintus/.emacs.d/org-mode/lisp/)] |
Date: |
Sat, 28 May 2022 09:52:22 +0800 |
User-agent: |
mu4e 1.6.10; emacs 28.1 |
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
signature.asc
Description: PGP signature