emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* [BUG] Elisp error when exporting citation [9.5 (release_9.5-104-g2b1fc6 @ /home/quintus/.emacs.d/org-mode/lisp/)]
@ 2021-10-30  6:48 Marvin Gülker
  2021-10-30 19:16 ` Marvin Gülker
  2021-11-03 16:02 ` Nicolas Goaziou
  0 siblings, 2 replies; 8+ messages in thread
From: Marvin Gülker @ 2021-10-30  6:48 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 export the following org-document results in an Elisp error:

    #+TITLE: Test
    #+AUTHOR: Testauthor
    #+LANGUAGE: de
    #+bibliography: /tmp/mwe/mwe.bib
    #+cite_export: csl /tmp/mwe/juristische-schulung.csl
    
    Test [cite:raubenheimer1996dongle p. 76; /Dreier/, in: @ds2018urhg § 69d Rn. 10]

In case you wonder why there's a name in the prefix for @ds2018urhg:
another speciality of German judicial citations. We have a special kind
of literature called commentaries. In these, a specific law's articles
are explained one by one, where different authors comment on different
articles. In the above example, Mr. Dreier comments § 69d of the German
Copyright Act (UrhG). Still, the entire commentary is to be cited as one
work. Each footnote is prefixed with the (typically italicised) name of
the person commenting the specific article, resulting in the above cite
command.

The exported footnote should have looked like this:

    Raubenheimer, CR 1996, 69, 76; Dreier, in: Dreier/Schulze (Hrsg.), UrhG, 6. Aufl. 2018

This is mwe.bib:

    @Article{raubenheimer1996dongle,
    author       = {Andreas Raubenheimer},
    title        = {Beseitigung/Umgehung eines technischen Programmschutzes nach UrhG und UWG},
    journaltitle = {Computer und Recht},
    shortjournal = {CR},
    year      = {1996},
    pages     = {69-79},
    langid    = {german}}
    
    @commentary{ds2018urhg,
    title = "Urheberrechtsgesetz",
    shorttitle = "UrhG",
    editor = "Thomas Dreier and Gernot Schulze",
    edition = "6",
    year = "2018",
    publisher = "C.H. Beck",
    location = "München"
    }

juristische-schulung.csl is https://github.com/citation-style-language/styles/raw/e22b8a566bad9b4c7f52720f60dd875057a5d210/juristische-schulung.csl

I use Org mode version 9.5 (release_9.5-104-g2b1fc6 @ /home/quintus/.emacs.d/org-mode/lisp/).
Citeproc.el is at 34e66583d95a8d80fb5b9f2960f3382ca0e6d3ab.

The following error is produced when exporting to HTML (C-c C-e h o):

    Debugger entered--Lisp error: (wrong-type-argument plistp (prefix . #("<i>Dreier</i>, in:" 3 9 (:parent (italic (:begin 179 :end 187 :contents-begin 180 :contents-end 186 :post-blank 0 :parent (citation-reference (:key "ds2018urhg" :begin 178 :end 217 :post-blank 0 :prefix ... :suffix ... :parent ...))) #("Dreier" 0 6 (:parent #7)))) 13 18 (:parent (citation-reference (:key "ds2018urhg" :begin 178 :end 217 :post-blank 0 :prefix (#(" " 0 1 ...) (italic ... ...) #(", in: " 0 6 ...)) :suffix (#(" § 69d Rn. 10" 0 13 ...)) :parent (citation (:style nil :begin 143 :post-blank 0 :end 218 :prefix ... :contents-begin 178 :contents-end 217 :parent ...) #7)))))))
      plist-put((prefix . #("<i>Dreier</i>, in:" 3 9 (:parent (italic (:begin 179 :end 187 :contents-begin 180 :contents-end 186 :post-blank 0 :parent (citation-reference (:key "ds2018urhg" :begin 178 :end 217 :post-blank 0 :prefix ... :suffix ... :parent ...))) #("Dreier" 0 6 (:parent #5)))) 13 18 (:parent (citation-reference (:key "ds2018urhg" :begin 178 :end 217 :post-blank 0 :prefix (#(" " 0 1 ...) (italic ... ...) #(", in: " 0 6 ...)) :suffix (#(" § 69d Rn. 10" 0 13 ...)) :parent (citation (:style nil :begin 143 :post-blank 0 :end 218 :prefix ... :contents-begin 178 :contents-end 217 :parent ...) #5)))))) :prefix (#("raubenheimer1996dongle p. 76" 0 28 (:parent (citation (:style nil :begin 143 :post-blank 0 :end 218 :prefix (#4) :contents-begin 178 :contents-end 217 :parent (paragraph (:begin 138 :end 219 :contents-begin 138 :contents-end 219 :post-blank 0 :post-affiliated 138 :parent ...) #("Test " 0 5 ...) #7 #("\n" 0 1 ...))) (citation-reference (:key "ds2018urhg" :begin 178 :end 217 :post-blank 0 :prefix (... ... ...) :suffix (...) :parent #7)))))))
      (setcar (cdr element) (plist-put (nth 1 element) property value))
      (if (stringp element) (org-add-props element nil property value) (setcar (cdr element) (plist-put (nth 1 element) property value)) element)
      org-element-put-property(((id . "ds2018urhg") (prefix . #("<i>Dreier</i>, in:" 3 9 (:parent (italic (:begin 179 :end 187 :contents-begin 180 :contents-end 186 :post-blank 0 :parent (citation-reference ...)) #("Dreier" 0 6 (:parent #7)))) 13 18 (:parent (citation-reference (:key "ds2018urhg" :begin 178 :end 217 :post-blank 0 :prefix (... ... ...) :suffix (...) :parent (citation ... #7)))))) (suffix) (locator . #("69d Rn. 10" 0 10 (:parent (citation-reference (:key "ds2018urhg" :begin 178 :end 217 :post-blank 0 :prefix (... ... ...) :suffix (...) :parent (citation ... #9)))))) (label . "section") (location . #(" § 69d Rn. 10" 0 13 (:parent (citation-reference (:key "ds2018urhg" :begin 178 :end 217 :post-blank 0 :prefix (... ... ...) :suffix (...) :parent (citation ... #11))))))) :prefix (#("raubenheimer1996dongle p. 76" 0 28 (:parent (citation (:style nil :begin 143 :post-blank 0 :end 218 :prefix (#4) :contents-begin 178 :contents-end 217 :parent (paragraph (:begin 138 :end 219 :contents-begin 138 :contents-end 219 :post-blank 0 :post-affiliated 138 :parent ...) #("Test " 0 5 ...) #7 #("\n" 0 1 ...))) (citation-reference (:key "ds2018urhg" :begin 178 :end 217 :post-blank 0 :prefix (... ... ...) :suffix (...) :parent #7)))))))
      (let* ((first (car cites)) (prefix (org-element-property :prefix first))) (org-element-put-property first :prefix (org-cite-concat global-prefix prefix)))
      (progn (let* ((first (car cites)) (prefix (org-element-property :prefix first))) (org-element-put-property first :prefix (org-cite-concat global-prefix prefix))))
      (if global-prefix (progn (let* ((first (car cites)) (prefix (org-element-property :prefix first))) (org-element-put-property first :prefix (org-cite-concat global-prefix prefix)))))
      (let ((global-prefix (org-element-property :prefix citation))) (if global-prefix (progn (let* ((first (car cites)) (prefix (org-element-property :prefix first))) (org-element-put-property first :prefix (org-cite-concat global-prefix prefix))))))
      (let* ((cites (mapcar #'(lambda (r) (org-cite-csl--parse-reference r info)) (org-cite-get-references citation))) (footnote (org-cite-inside-footnote-p citation))) (let ((global-prefix (org-element-property :prefix citation))) (if global-prefix (progn (let* ((first (car cites)) (prefix (org-element-property :prefix first))) (org-element-put-property first :prefix (org-cite-concat global-prefix prefix)))))) (let ((global-suffix (org-element-property :suffix citation))) (if global-suffix (progn (let* ((last (org-last cites)) (suffix (org-element-property :suffix last))) (org-element-put-property last :suffix (org-cite-concat suffix global-suffix)))))) (if (and (not footnote) (org-cite-csl--note-style-p info)) (progn (org-cite-adjust-note citation info) (org-cite-wrap-citation citation info))) (apply #'citeproc-citation-create (cons ':note-index (cons (and footnote (org-export-get-footnote-number footnote info)) (cons ':cites (cons cites (org-cite-csl--create-structure-params citation info)))))))
      org-cite-csl--create-structure((citation (:style nil :begin 143 :post-blank 0 :end 218 :prefix (...) :contents-begin 178 :contents-end 217 :parent (paragraph ... ... #1 ...)) (citation-reference (:key "ds2018urhg" :begin 178 :end 217 :post-blank 0 :prefix ... :suffix ... :parent #1))) (: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 6/4001 0x1569eb2da1f1> :input-buffer "mwe.org" :input-file "/tmp/mwe/mwe.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 (... ... ... t) (c) (org-cite-csl--create-structure c info))((citation (:style nil :begin 143 :post-blank 0 :end 218 :prefix (#("raubenheimer1996dongle p. 76" 0 28 (:parent #1))) :contents-begin 178 :contents-end 217 :parent (paragraph (:begin 138 :end 219 :contents-begin 138 :contents-end 219 :post-blank 0 :post-affiliated 138 :parent (section (:begin 1 :end 219 :contents-begin 1 :contents-end 219 :post-blank 0 :post-affiliated 1 :parent (org-data nil #35)) (keyword (:key "TITLE" :value "Test" :begin 1 :end 15 :post-blank 0 :post-affiliated 1 :parent #35)) (keyword (:key "AUTHOR" :value "Testauthor" :begin 15 :end 36 :post-blank 0 :post-affiliated 15 :parent #35)) (keyword (:key "LANGUAGE" :value "de" :begin 36 :end 51 :post-blank 0 :post-affiliated 36 :parent #35)) (keyword (:key "BIBLIOGRAPHY" :value "/tmp/mwe/mwe.bib" :begin 51 :end 84 :post-blank 0 :post-affiliated 51 :parent #35)) (keyword (:key "CITE_EXPORT" :value "csl /tmp/mwe/juristische-schulung.csl" :begin 84 :end 138 :post-blank 1 :post-affiliated 84 :parent #35)) #19)) #("Test " 0 5 (:parent #19)) #1 #("\n" 0 1 (:parent #19)))) (citation-reference (:key "ds2018urhg" :begin 178 :end 217 :post-blank 0 :prefix (#(" " 0 1 (:parent #4)) (italic (:begin 179 :end 187 :contents-begin 180 :contents-end 186 :post-blank 0 :parent #4) #("Dreier" 0 6 (:parent #18))) #(", in: " 0 6 (:parent #4))) :suffix (#(" § 69d Rn. 10" 0 13 (:parent #4))) :parent #1))))
      mapcar((closure ((processor . #s(citeproc-proc :style ... :getter ... :itemdata #<hash-table equal 0/65 0x1569ebab05cd> :citations ... :names #<hash-table equal 0/65 0x1569ebab0529> :finalized t :uncited nil :bib-filters nil)) (citations (citation ... ...)) (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 6/4001 0x1569eb2da1f1> :input-buffer "mwe.org" :input-file "/tmp/mwe/mwe.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 ...) t) (c) (org-cite-csl--create-structure c info)) ((citation (:style nil :begin 143 :post-blank 0 :end 218 :prefix (...) :contents-begin 178 :contents-end 217 :parent (paragraph ... ... #3 ...)) (citation-reference (:key "ds2018urhg" :begin 178 :end 217 :post-blank 0 :prefix ... :suffix ... :parent #3)))))
      (let* ((citations (org-cite-list-citations info)) (processor (org-cite-csl--processor info)) (structures (mapcar #'(lambda (c) (org-cite-csl--create-structure c info)) citations))) (citeproc-append-citations structures processor) (let* ((rendered (citeproc-render-citations processor (org-cite-csl--output-format info) (org-cite-csl--no-citelinks-p info))) (result (seq-mapn #'cons citations rendered))) (plist-put info :cite-citeproc-rendered-citations result) result))
      (or (plist-get info :cite-citeproc-rendered-citations) (let* ((citations (org-cite-list-citations info)) (processor (org-cite-csl--processor info)) (structures (mapcar #'(lambda (c) (org-cite-csl--create-structure c info)) citations))) (citeproc-append-citations structures processor) (let* ((rendered (citeproc-render-citations processor (org-cite-csl--output-format info) (org-cite-csl--no-citelinks-p info))) (result (seq-mapn #'cons citations rendered))) (plist-put info :cite-citeproc-rendered-citations result) result)))
      org-cite-csl--rendered-citations((:export-options nil :back-end #s(org-export-backend :name html :parent nil :transcoders ((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) ...) :options ((:html-doctype "HTML_DOCTYPE" nil org-html-doctype) (:html-container "HTML_CONTAINER" nil org-html-container-element) (:html-content-class "HTML_CONTENT_CLASS" nil org-html-content-class) (:description "DESCRIPTION" nil nil newline) (:keywords "KEYWORDS" nil nil space) (:html-html5-fancy nil "html5-fancy" org-html-html5-fancy) (:html-link-use-abs-url nil "html-link-use-abs-url" org-html-link-use-abs-url) (:html-link-home "HTML_LINK_HOME" nil org-html-link-home) (:html-link-up "HTML_LINK_UP" nil org-html-link-up) (:html-mathjax "HTML_MATHJAX" nil "" space) (:html-equation-reference-format "HTML_EQUATION_REFERENCE_FORMAT" nil org-html-equation-reference-format t) (:html-postamble nil "html-postamble" org-html-postamble) (:html-preamble nil "html-preamble" org-html-preamble) (:html-head "HTML_HEAD" nil org-html-head newline) (:html-head-extra "HTML_HEAD_EXTRA" nil org-html-head-extra newline) (:subtitle "SUBTITLE" nil nil parse) (:html-head-include-default-style nil "html-style" org-html-head-include-default-style) (:html-head-include-scripts nil "html-scripts" org-html-head-include-scripts) (:html-allow-name-attribute-in-anchors nil nil org-html-allow-name-attribute-in-anchors) (:html-divs nil nil org-html-divs) (:html-checkbox-type nil nil org-html-checkbox-type) (:html-extension nil nil org-html-extension) (:html-footnote-format nil nil org-html-footnote-format) (:html-footnote-separator nil nil org-html-footnote-separator) (:html-footnotes-section nil nil org-html-footnotes-section) (:html-format-drawer-function nil nil org-html-format-drawer-function) (:html-format-headline-function nil nil org-html-format-headline-function) (:html-format-inlinetask-function nil nil org-html-format-inlinetask-function) (:html-home/up-format nil nil org-html-home/up-format) (:html-indent nil nil org-html-indent) (:html-infojs-options nil nil org-html-infojs-options) (:html-infojs-template nil nil org-html-infojs-template) ...) :filters ((:filter-options . org-html-infojs-install-script) (:filter-parse-tree . org-html-image-link-filter) (:filter-final-output . org-html-final-function)) :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) ...) :exported-data #<hash-table eq 6/4001 0x1569eb2da1f1> :input-buffer "mwe.org" :input-file "/tmp/mwe/mwe.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 "" ...))
      (assq citation (org-cite-csl--rendered-citations info))
      (cdr (assq citation (org-cite-csl--rendered-citations info)))
      (let ((output (cdr (assq citation (org-cite-csl--rendered-citations info))))) (if (not (eq 'org (org-cite-csl--output-format info))) output (org-cite-parse-objects output)))
      org-cite-csl-render-citation((citation (:style nil :begin 143 :post-blank 0 :end 218 :prefix (...) :contents-begin 178 :contents-end 217 :parent (paragraph ... ... #1 ...)) (citation-reference (:key "ds2018urhg" :begin 178 :end 217 :post-blank 0 :prefix ... :suffix ... :parent #1))) (nil) #s(org-export-backend :name html :parent nil :transcoders ((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) ...) :options ((:html-doctype "HTML_DOCTYPE" nil org-html-doctype) (:html-container "HTML_CONTAINER" nil org-html-container-element) (:html-content-class "HTML_CONTENT_CLASS" nil org-html-content-class) (:description "DESCRIPTION" nil nil newline) (:keywords "KEYWORDS" nil nil space) (:html-html5-fancy nil "html5-fancy" org-html-html5-fancy) (:html-link-use-abs-url nil "html-link-use-abs-url" org-html-link-use-abs-url) (:html-link-home "HTML_LINK_HOME" nil org-html-link-home) (:html-link-up "HTML_LINK_UP" nil org-html-link-up) (:html-mathjax "HTML_MATHJAX" nil "" space) (:html-equation-reference-format "HTML_EQUATION_REFERENCE_FO..." nil org-html-equation-reference-format t) (:html-postamble nil "html-postamble" org-html-postamble) (:html-preamble nil "html-preamble" org-html-preamble) (:html-head "HTML_HEAD" nil org-html-head newline) (:html-head-extra "HTML_HEAD_EXTRA" nil org-html-head-extra newline) (:subtitle "SUBTITLE" nil nil parse) (:html-head-include-default-style nil "html-style" org-html-head-include-default-style) (:html-head-include-scripts nil "html-scripts" org-html-head-include-scripts) (:html-allow-name-attribute-in-anchors nil nil org-html-allow-name-attribute-in-anchors) (:html-divs nil nil org-html-divs) (:html-checkbox-type nil nil org-html-checkbox-type) (:html-extension nil nil org-html-extension) (:html-footnote-format nil nil org-html-footnote-format) (:html-footnote-separator nil nil org-html-footnote-separator) (:html-footnotes-section nil nil org-html-footnotes-section) (:html-format-drawer-function nil nil org-html-format-drawer-function) ...) :filters ((:filter-options . org-html-infojs-install-script) (:filter-parse-tree . org-html-image-link-filter) (:filter-final-output . org-html-final-function)) :blocks nil :menu (104 "Export to HTML" (... ... ...))) (: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 6/4001 0x1569eb2da1f1> :input-buffer "mwe.org" :input-file "/tmp/mwe/mwe.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-cite-csl-render-citation (citation (:style nil :begin 143 :post-blank 0 :end 218 :prefix (...) :contents-begin 178 :contents-end 217 :parent (paragraph ... ... #2 ...)) (citation-reference (:key "ds2018urhg" :begin 178 :end 217 :post-blank 0 :prefix ... :suffix ... :parent #2))) (nil) #s(org-export-backend :name html :parent nil :transcoders ((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) ...) :options ((:html-doctype "HTML_DOCTYPE" nil org-html-doctype) (:html-container "HTML_CONTAINER" nil org-html-container-element) (:html-content-class "HTML_CONTENT_CLASS" nil org-html-content-class) (:description "DESCRIPTION" nil nil newline) (:keywords "KEYWORDS" nil nil space) (:html-html5-fancy nil "html5-fancy" org-html-html5-fancy) (:html-link-use-abs-url nil "html-link-use-abs-url" org-html-link-use-abs-url) (:html-link-home "HTML_LINK_HOME" nil org-html-link-home) (:html-link-up "HTML_LINK_UP" nil org-html-link-up) (:html-mathjax "HTML_MATHJAX" nil "" space) (:html-equation-reference-format "HTML_EQUATION_REFERENCE_FO..." nil org-html-equation-reference-format t) (:html-postamble nil "html-postamble" org-html-postamble) (:html-preamble nil "html-preamble" org-html-preamble) (:html-head "HTML_HEAD" nil org-html-head newline) (:html-head-extra "HTML_HEAD_EXTRA" nil org-html-head-extra newline) (:subtitle "SUBTITLE" nil nil parse) (:html-head-include-default-style nil "html-style" org-html-head-include-default-style) (:html-head-include-scripts nil "html-scripts" org-html-head-include-scripts) (:html-allow-name-attribute-in-anchors nil nil org-html-allow-name-attribute-in-anchors) (:html-divs nil nil org-html-divs) (:html-checkbox-type nil nil org-html-checkbox-type) (:html-extension nil nil org-html-extension) (:html-footnote-format nil nil org-html-footnote-format) (:html-footnote-separator nil nil org-html-footnote-separator) (:html-footnotes-section nil nil org-html-footnotes-section) (:html-format-drawer-function nil nil org-html-format-drawer-function) ...) :filters ((:filter-options . org-html-infojs-install-script) (:filter-parse-tree . org-html-image-link-filter) (:filter-final-output . org-html-final-function)) :blocks nil :menu (104 "Export to HTML" (... ... ...))) (: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 6/4001 0x1569eb2da1f1> :input-buffer "mwe.org" :input-file "/tmp/mwe/mwe.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 ((p x118)) (funcall (let ((cl-x (org-cite--get-processor p))) (progn (or (and (memq (type-of cl-x) cl-struct-org-cite-processor-tags) t) (signal 'wrong-type-argument (list 'org-cite-processor cl-x))) (aref cl-x 5))) citation (org-cite-citation-style citation info) (plist-get info :back-end) info))
      (if (null x123) (let ((p x118)) (funcall (let ((cl-x (org-cite--get-processor p))) (progn (or (and (memq ... cl-struct-org-cite-processor-tags) t) (signal 'wrong-type-argument (list ... cl-x))) (aref cl-x 5))) citation (org-cite-citation-style citation info) (plist-get info :back-end) info)) (let ((other val)) (error "Invalid `:cite-export' value: %S" other)))
      (let* ((x123 (cdr x121))) (if (null x123) (let ((p x118)) (funcall (let ((cl-x (org-cite--get-processor p))) (progn (or (and ... t) (signal ... ...)) (aref cl-x 5))) citation (org-cite-citation-style citation info) (plist-get info :back-end) info)) (let ((other val)) (error "Invalid `:cite-export' value: %S" other))))
      (if (consp x121) (let* ((x123 (cdr x121))) (if (null x123) (let ((p x118)) (funcall (let ((cl-x ...)) (progn (or ... ...) (aref cl-x 5))) citation (org-cite-citation-style citation info) (plist-get info :back-end) info)) (let ((other val)) (error "Invalid `:cite-export' value: %S" other)))) (let ((other val)) (error "Invalid `:cite-export' value: %S" other)))
      (let* ((x121 (cdr x119))) (if (consp x121) (let* ((x123 (cdr x121))) (if (null x123) (let ((p x118)) (funcall (let (...) (progn ... ...)) citation (org-cite-citation-style citation info) (plist-get info :back-end) info)) (let ((other val)) (error "Invalid `:cite-export' value: %S" other)))) (let ((other val)) (error "Invalid `:cite-export' value: %S" other))))
      (if (consp x119) (let* ((x121 (cdr x119))) (if (consp x121) (let* ((x123 (cdr x121))) (if (null x123) (let ((p x118)) (funcall (let ... ...) citation (org-cite-citation-style citation info) (plist-get info :back-end) info)) (let ((other val)) (error "Invalid `:cite-export' value: %S" other)))) (let ((other val)) (error "Invalid `:cite-export' value: %S" other)))) (let ((other val)) (error "Invalid `:cite-export' value: %S" other)))
      (let* ((x118 (car val)) (x119 (cdr val))) (if (consp x119) (let* ((x121 (cdr x119))) (if (consp x121) (let* ((x123 (cdr x121))) (if (null x123) (let (...) (funcall ... citation ... ... info)) (let (...) (error "Invalid `:cite-export' value: %S" other)))) (let ((other val)) (error "Invalid `:cite-export' value: %S" other)))) (let ((other val)) (error "Invalid `:cite-export' value: %S" other))))
      (cond ((null val) nil) ((consp val) (let* ((x118 (car val)) (x119 (cdr val))) (if (consp x119) (let* ((x121 (cdr x119))) (if (consp x121) (let* (...) (if ... ... ...)) (let (...) (error "Invalid `:cite-export' value: %S" other)))) (let ((other val)) (error "Invalid `:cite-export' value: %S" other))))) (t (let ((other val)) (error "Invalid `:cite-export' value: %S" other))))
      (let* ((val (plist-get info :cite-export))) (cond ((null val) nil) ((consp val) (let* ((x118 (car val)) (x119 (cdr val))) (if (consp x119) (let* ((x121 ...)) (if (consp x121) (let* ... ...) (let ... ...))) (let ((other val)) (error "Invalid `:cite-export' value: %S" other))))) (t (let ((other val)) (error "Invalid `:cite-export' value: %S" other)))))
      org-cite-export-citation((citation (:style nil :begin 143 :post-blank 0 :end 218 :prefix (...) :contents-begin 178 :contents-end 217 :parent (paragraph ... ... #1 ...)) (citation-reference (:key "ds2018urhg" :begin 178 :end 217 :post-blank 0 :prefix ... :suffix ... :parent #1))) 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 6/4001 0x1569eb2da1f1> :input-buffer "mwe.org" :input-file "/tmp/mwe/mwe.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 ((replacement (org-cite-export-citation cite nil info)) (blanks (or (org-element-property :post-blank cite) 0))) (if (null replacement) (org-cite--set-previous-post-blank cite blanks info) (let ((previous (org-export-get-previous-element cite info))) (if (and (org-string-nw-p previous) (string-suffix-p "\"" previous)) (progn (org-cite--set-previous-post-blank cite 1 info)))) (cond ((stringp replacement) (let ((output (concat ... ...))) (org-element-insert-before (org-export-raw-string output) cite))) ((consp replacement) (let* ((x130 (car replacement))) (if (symbolp x130) (progn (org-cite--set-post-blank replacement blanks) (org-element-insert-before replacement cite)) (let (...) (let ... ...) (org-cite--set-post-blank last blanks))))) (t (error "Invalid return value from citation export processo..." replacement)))) (org-element-extract-element cite))
      (let ((cite (car --dolist-tail--))) (let ((replacement (org-cite-export-citation cite nil info)) (blanks (or (org-element-property :post-blank cite) 0))) (if (null replacement) (org-cite--set-previous-post-blank cite blanks info) (let ((previous (org-export-get-previous-element cite info))) (if (and (org-string-nw-p previous) (string-suffix-p "\"" previous)) (progn (org-cite--set-previous-post-blank cite 1 info)))) (cond ((stringp replacement) (let ((output ...)) (org-element-insert-before (org-export-raw-string output) cite))) ((consp replacement) (let* ((x130 ...)) (if (symbolp x130) (progn ... ...) (let ... ... ...)))) (t (error "Invalid return value from citation export processo..." replacement)))) (org-element-extract-element cite)) (setq --dolist-tail-- (cdr --dolist-tail--)))
      (while --dolist-tail-- (let ((cite (car --dolist-tail--))) (let ((replacement (org-cite-export-citation cite nil info)) (blanks (or (org-element-property :post-blank cite) 0))) (if (null replacement) (org-cite--set-previous-post-blank cite blanks info) (let ((previous (org-export-get-previous-element cite info))) (if (and (org-string-nw-p previous) (string-suffix-p "\"" previous)) (progn (org-cite--set-previous-post-blank cite 1 info)))) (cond ((stringp replacement) (let (...) (org-element-insert-before ... cite))) ((consp replacement) (let* (...) (if ... ... ...))) (t (error "Invalid return value from citation export processo..." replacement)))) (org-element-extract-element cite)) (setq --dolist-tail-- (cdr --dolist-tail--))))
      (let ((--dolist-tail-- (org-cite-list-citations info))) (while --dolist-tail-- (let ((cite (car --dolist-tail--))) (let ((replacement (org-cite-export-citation cite nil info)) (blanks (or (org-element-property :post-blank cite) 0))) (if (null replacement) (org-cite--set-previous-post-blank cite blanks info) (let ((previous ...)) (if (and ... ...) (progn ...))) (cond ((stringp replacement) (let ... ...)) ((consp replacement) (let* ... ...)) (t (error "Invalid return value from citation export processo..." replacement)))) (org-element-extract-element cite)) (setq --dolist-tail-- (cdr --dolist-tail--)))))
      org-cite-process-citations((:export-options nil :back-end #s(org-export-backend :name html :parent nil :transcoders ((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) ...) :options ((:html-doctype "HTML_DOCTYPE" nil org-html-doctype) (:html-container "HTML_CONTAINER" nil org-html-container-element) (:html-content-class "HTML_CONTENT_CLASS" nil org-html-content-class) (:description "DESCRIPTION" nil nil newline) (:keywords "KEYWORDS" nil nil space) (:html-html5-fancy nil "html5-fancy" org-html-html5-fancy) (:html-link-use-abs-url nil "html-link-use-abs-url" org-html-link-use-abs-url) (:html-link-home "HTML_LINK_HOME" nil org-html-link-home) (:html-link-up "HTML_LINK_UP" nil org-html-link-up) (:html-mathjax "HTML_MATHJAX" nil "" space) (:html-equation-reference-format "HTML_EQUATION_REFERENCE_FORMAT" nil org-html-equation-reference-format t) (:html-postamble nil "html-postamble" org-html-postamble) (:html-preamble nil "html-preamble" org-html-preamble) (:html-head "HTML_HEAD" nil org-html-head newline) (:html-head-extra "HTML_HEAD_EXTRA" nil org-html-head-extra newline) (:subtitle "SUBTITLE" nil nil parse) (:html-head-include-default-style nil "html-style" org-html-head-include-default-style) (:html-head-include-scripts nil "html-scripts" org-html-head-include-scripts) (:html-allow-name-attribute-in-anchors nil nil org-html-allow-name-attribute-in-anchors) (:html-divs nil nil org-html-divs) (:html-checkbox-type nil nil org-html-checkbox-type) (:html-extension nil nil org-html-extension) (:html-footnote-format nil nil org-html-footnote-format) (:html-footnote-separator nil nil org-html-footnote-separator) (:html-footnotes-section nil nil org-html-footnotes-section) (:html-format-drawer-function nil nil org-html-format-drawer-function) (:html-format-headline-function nil nil org-html-format-headline-function) (:html-format-inlinetask-function nil nil org-html-format-inlinetask-function) (:html-home/up-format nil nil org-html-home/up-format) (:html-indent nil nil org-html-indent) (:html-infojs-options nil nil org-html-infojs-options) (:html-infojs-template nil nil org-html-infojs-template) ...) :filters ((:filter-options . org-html-infojs-install-script) (:filter-parse-tree . org-html-image-link-filter) (:filter-final-output . org-html-final-function)) :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) ...) :exported-data #<hash-table eq 6/4001 0x1569eb2da1f1> :input-buffer "mwe.org" :input-file "/tmp/mwe/mwe.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 "" ...))
      (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* ((x981 ...) (x982 ...)) (if (consp x982) (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 "mwe.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 "mwe.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)
      (org-open-file (org-html-export-to-html nil s v b))
      (if a (org-html-export-to-html t s v b) (org-open-file (org-html-export-to-html nil s v b)))
      (lambda (a s v b) (if a (org-html-export-to-html t s v b) (org-open-file (org-html-export-to-html nil s v b))))(nil nil nil nil)
      funcall((lambda (a s v b) (if a (org-html-export-to-html t s v b) (org-open-file (org-html-export-to-html nil s v b)))) 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)

  -quintus

Emacs  : GNU Emacs 27.1 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.24, cairo version 1.16.0)
 of 2021-03-28, modified by Debian
Package: Org mode version 9.5 (release_9.5-104-g2b1fc6 @ /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-html-format-inlinetask-function 'org-html-format-inlinetask-default-function
 org-odt-format-headline-function 'org-odt-format-headline-default-function
 org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
 org-mode-hook '((closure
		  (org--rds reftex-docstruct-symbol 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-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
		   buffer-face-mode-face org-struct-menu 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-export-registered-backends crm-separator
		   org-id-overriding-file-name org-indent-indentation-per-level
		   org-inlinetask-min-level t)
		  nil (add-hook 'change-major-mode-hook 'org-show-all 'append 'local))
		 (closure (*this* org-babel-confirm-evaluate-answer-no t) nil
		  (add-hook 'change-major-mode-hook #'org-babel-show-result-all 'append 'local))
		 (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 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-paragraph-separate org-inlinetask-min-level t)
		  nil (add-hook 'change-major-mode-hook 'org-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-odt-format-drawer-function '(closure
				  (hfy-user-sheet-assoc hfy-html-quote-regex hfy-html-quote-map
				   hfy-face-to-css hfy-begin-span-handler hfy-end-span-handler
				   archive-zip-extract nxml-auto-insert-xml-declaration-flag t)
				  (_name contents) contents)
 org-archive-hook '(org-attach-archive-delete-maybe)
 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-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-latex-format-drawer-function '(closure (t) (_ contents) contents)
 org-babel-pre-tangle-hook '(save-buffer)
 org-tab-first-hook '(org-babel-hide-result-toggle-maybe org-babel-header-arg-expand)
 org-ascii-format-drawer-function '(closure (t) (_name contents _width) contents)
 org-agenda-loop-over-headlines-in-active-region nil
 org-occur-hook '(org-first-headline-recenter)
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers org-cycle-show-empty-lines
		  org-optimize-window-after-visibility-change)
 org-speed-command-hook '(org-speed-command-activate org-babel-speed-command-activate)
 org-odt-format-inlinetask-function 'org-odt-format-inlinetask-default-function
 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-latex-format-headline-function 'org-latex-format-headline-default-function
 org-link-elisp-confirm-function 'yes-or-no-p
 org-latex-format-inlinetask-function 'org-latex-format-inlinetask-default-function
 org-html-format-drawer-function '(closure
				   (htmlize-buffer-places org-html-format-table-no-css
				    htmlize-css-name-prefix htmlize-output-type htmlize-output-type
				    htmlize-css-name-prefix t)
				   (_name contents) contents)
 org-html-format-headline-function 'org-html-format-headline-default-function
 )

-- 
Dipl.-Jur. M. Gülker | https://mg.guelker.eu | PGP: Siehe Webseite
Passau, Deutschland  | kontakt@guelker.eu    | O<


^ permalink raw reply	[flat|nested] 8+ messages in thread

end of thread, other threads:[~2021-11-06 12:06 UTC | newest]

Thread overview: 8+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2021-10-30  6:48 [BUG] Elisp error when exporting citation [9.5 (release_9.5-104-g2b1fc6 @ /home/quintus/.emacs.d/org-mode/lisp/)] Marvin Gülker
2021-10-30 19:16 ` Marvin Gülker
2021-11-03 16:02 ` Nicolas Goaziou
2021-11-04  6:38   ` András Simonyi
2021-11-04  9:16     ` Nicolas Goaziou
2021-11-04 19:25       ` M. ‘quintus’ Gülker
2021-11-06  8:19         ` András Simonyi
2021-11-06 12:05           ` M. ‘quintus’ Gülker

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).