* [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
* Re: [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 [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
1 sibling, 0 replies; 8+ messages in thread
From: Marvin Gülker @ 2021-10-30 19:16 UTC (permalink / raw)
To: emacs-orgmode
Am Samstag, dem 30. Oktober 2021 schrieb Marvin Gülker:
> 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]
It turns out my cite command lacks an @ before `raubenheimer1996dongle'.
With the @ it does not error. I leave it to the org maintainers to
decide whether the resulting error should be more human-readable or not.
However, if exported to LaTeX the italic on the name `Dreier' comes out
wrong:
{ Dreier}, in: Dreier/Schulze
The braces are included literally in the PDF, with the first brace being
italicised. Exporting to HTML applies the italic correctly.
-quintus
--
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
* Re: [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 [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
1 sibling, 1 reply; 8+ messages in thread
From: Nicolas Goaziou @ 2021-11-03 16:02 UTC (permalink / raw)
To: emacs-orgmode; +Cc: András Simonyi
Hello,
Marvin Gülker <post+orgmodeml@guelker.eu> writes:
> 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]
[...]
> 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)))))))
Indeed. There was an issue with global affixes in oc-csl.el. I think
I fixed it. Unfortunately, your ECM still does not work, because the
process encounters an error later on:
--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-type-argument sequencep splice)
citeproc-rt--cquote-pstns-1(splice 66)
citeproc-rt--cquote-pstns-1((nil #("raubenheimer1996dongle p. 76 \\emph{Dreier}, in: " 0 29 (:parent (citation (:style nil :begin 145 :post-blank 0 :end 221 :prefix (#("raubenheimer1996dongle p. 76 " 0 29 ...)) :contents-begin 181 :contents-end 220 :parent (footnote-reference (:label nil :type inline :contents-begin 145 :contents-end 221 :post-blank 0 :parent ...) #6)) (citation-reference (:key "ds2018urhg" :begin 181 :end 220 :post-blank 0 :prefix (... ... ...) :suffix (...) :parent #6)))) 36 42 (:parent (italic (:begin 182 :end 190 :contents-begin 183 :contents-end 189 :post-blank 0 :parent (citation-reference (:key "ds2018urhg" :begin 181 :end 220 :post-blank 0 :prefix ... :suffix ... :parent ...))) #("Dreier" 0 6 (:parent #6)))) 43 48 (:parent (citation-reference (:key "ds2018urhg" :begin 181 :end 220 :post-blank 0 :prefix (#(" " 0 1 ...) (italic ... ...) #(", in: " 0 6 ...)) :suffix (#(" § 69d Rn. 10" 0 13 ...)) :parent (citation (:style nil :begin 145 :post-blank 0 :end 221 :prefix ... :contents-begin 181 :contents-end 220 :parent ...) #6))))) (nil (nil (nil (((font-style . "italic")) ((... ...) (... ...) "/" (... ...))))) ", ") splice splice) 1)
citeproc-rt--cquote-pstns((nil #("raubenheimer1996dongle p. 76 \\emph{Dreier}, in: " 0 29 (:parent (citation (:style nil :begin 145 :post-blank 0 :end 221 :prefix (#("raubenheimer1996dongle p. 76 " 0 29 ...)) :contents-begin 181 :contents-end 220 :parent (footnote-reference (:label nil :type inline :contents-begin 145 :contents-end 221 :post-blank 0 :parent ...) #6)) (citation-reference (:key "ds2018urhg" :begin 181 :end 220 :post-blank 0 :prefix (... ... ...) :suffix (...) :parent #6)))) 36 42 (:parent (italic (:begin 182 :end 190 :contents-begin 183 :contents-end 189 :post-blank 0 :parent (citation-reference (:key "ds2018urhg" :begin 181 :end 220 :post-blank 0 :prefix ... :suffix ... :parent ...))) #("Dreier" 0 6 (:parent #6)))) 43 48 (:parent (citation-reference (:key "ds2018urhg" :begin 181 :end 220 :post-blank 0 :prefix (#(" " 0 1 ...) (italic ... ...) #(", in: " 0 6 ...)) :suffix (#(" § 69d Rn. 10" 0 13 ...)) :parent (citation (:style nil :begin 145 :post-blank 0 :end 221 :prefix ... :contents-begin 181 :contents-end 220 :parent ...) #6))))) (nil (nil (nil (((font-style . "italic")) ((... ...) (... ...) "/" (... ...))))) ", ") splice splice))
citeproc-rt-punct-in-quote((nil #("raubenheimer1996dongle p. 76 \\emph{Dreier}, in: " 0 29 (:parent (citation (:style nil :begin 145 :post-blank 0 :end 221 :prefix (#("raubenheimer1996dongle p. 76 " 0 29 ...)) :contents-begin 181 :contents-end 220 :parent (footnote-reference (:label nil :type inline :contents-begin 145 :contents-end 221 :post-blank 0 :parent ...) #6)) (citation-reference (:key "ds2018urhg" :begin 181 :end 220 :post-blank 0 :prefix (... ... ...) :suffix (...) :parent #6)))) 36 42 (:parent (italic (:begin 182 :end 190 :contents-begin 183 :contents-end 189 :post-blank 0 :parent (citation-reference (:key "ds2018urhg" :begin 181 :end 220 :post-blank 0 :prefix ... :suffix ... :parent ...))) #("Dreier" 0 6 (:parent #6)))) 43 48 (:parent (citation-reference (:key "ds2018urhg" :begin 181 :end 220 :post-blank 0 :prefix (#(" " 0 1 ...) (italic ... ...) #(", in: " 0 6 ...)) :suffix (#(" § 69d Rn. 10" 0 13 ...)) :parent (citation (:style nil :begin 145 :post-blank 0 :end 221 :prefix ... :contents-begin 181 :contents-end 220 :parent ...) #6))))) (nil (nil (nil (((font-style . "italic")) ((... ...) (... ...) "/" (... ...))))) ", ") splice splice))
citeproc-rt-finalize((nil #("raubenheimer1996dongle p. 76 \\emph{Dreier}, in: " 0 29 (:parent (citation (:style nil :begin 145 :post-blank 0 :end 221 :prefix (#("raubenheimer1996dongle p. 76 " 0 29 ...)) :contents-begin 181 :contents-end 220 :parent (footnote-reference (:label nil :type inline :contents-begin 145 :contents-end 221 :post-blank 0 :parent ...) #6)) (citation-reference (:key "ds2018urhg" :begin 181 :end 220 :post-blank 0 :prefix (... ... ...) :suffix (...) :parent #6)))) 36 42 (:parent (italic (:begin 182 :end 190 :contents-begin 183 :contents-end 189 :post-blank 0 :parent (citation-reference (:key "ds2018urhg" :begin 181 :end 220 :post-blank 0 :prefix ... :suffix ... :parent ...))) #("Dreier" 0 6 (:parent #6)))) 43 48 (:parent (citation-reference (:key "ds2018urhg" :begin 181 :end 220 :post-blank 0 :prefix (#(" " 0 1 ...) (italic ... ...) #(", in: " 0 6 ...)) :suffix (#(" § 69d Rn. 10" 0 13 ...)) :parent (citation (:style nil :begin 145 :post-blank 0 :end 221 :prefix ... :contents-begin 181 :contents-end 220 :parent ...) #6))))) (nil (nil (nil (((font-style . "italic")) ((... ...) (... ...) "/" (... ...))))) ", ") splice splice) t)
citeproc-citation--render(#s(citeproc-citation :cites ((... ... ... ... ... ... ... ...)) :note-index 1 :mode nil :suppress-affixes nil :capitalize-first nil :ignore-et-al nil :grouped nil) #s(citeproc-proc :style #s(citeproc-style :info (... ... ... ... ... ... ... ... ... ... ... ... ...) :opts (... ... ... ... ...) :bib-opts (... ... ...) :bib-sort (lambda ... ...) :bib-sort-orders (t t) :bib-layout (lambda ... ...) :cite-opts (... ... ...) :cite-note t :cite-sort nil :cite-sort-orders nil :cite-layout (lambda ... ...) :cite-layout-attrs (...) :locale-opts (... ...) :macros (... ... ... ... ... ... ... ... ...) :terms (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :uses-ys-var nil :date-text (... ... ... ...) :date-numeric (... ... ... ...)) :getter #f(compiled-function (itemids) #<bytecode 0x38cd289>) :itemdata #<hash-table equal 1/65 0x21dfd2d> :citations #s(queue :head (...) :tail (...)) :names #<hash-table equal 2/65 0x38d52e1> :finalized t) t)
citeproc-citation--render-formatted-citation(#s(citeproc-citation :cites ((... ... ... ... ... ... ... ...)) :note-index 1 :mode nil :suppress-affixes nil :capitalize-first nil :ignore-et-al nil :grouped nil) #s(citeproc-proc :style #s(citeproc-style :info (... ... ... ... ... ... ... ... ... ... ... ... ...) :opts (... ... ... ... ...) :bib-opts (... ... ...) :bib-sort (lambda ... ...) :bib-sort-orders (t t) :bib-layout (lambda ... ...) :cite-opts (... ... ...) :cite-note t :cite-sort nil :cite-sort-orders nil :cite-layout (lambda ... ...) :cite-layout-attrs (...) :locale-opts (... ...) :macros (... ... ... ... ... ... ... ... ...) :terms (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :uses-ys-var nil :date-text (... ... ... ...) :date-numeric (... ... ... ...)) :getter #f(compiled-function (itemids) #<bytecode 0x38cd289>) :itemdata #<hash-table equal 1/65 0x21dfd2d> :citations #s(queue :head (...) :tail (...)) :names #<hash-table equal 2/65 0x38d52e1> :finalized t) latex t)
#f(compiled-function (it) #<bytecode 0x3b4710d>)(#s(citeproc-citation :cites (((position . first) (itd . #s(citeproc-itemdata :varvals ((citation-number . "1") (label . "page") (publisher-place . "München") (publisher . "C.H. Beck") (title-short . "UrhG") (title . "Urheberrechtsgesetz") (issued ...) (type . "book") (editor ... ...) (edition . "6")) :rawcite nil :rc-uptodate nil :sort-key ("Dreier, Thomas/ Schulze, Gernot (eds.)" "70180000") :occurred-before 1 :disamb-pos first)) (id . "ds2018urhg") (prefix . #("raubenheimer1996dongle p. 76 \\emph{Dreier}, in:" 0 29 (:parent (citation ... ...)) 36 42 (:parent (italic ... ...)) 43 48 (:parent (citation-reference ...)))) (suffix) (locator . #("69d Rn. 10" 0 10 (:parent (citation-reference ...)))) (label . "section") (location . #(" § 69d Rn. 10" 0 13 (:parent (citation-reference ...)))))) :note-index 1 :mode nil :suppress-affixes nil :capitalize-first nil :ignore-et-al nil :grouped nil))
mapcar(#f(compiled-function (it) #<bytecode 0x3b4710d>) (#s(citeproc-citation :cites (((position . first) (itd . #s(citeproc-itemdata :varvals (... ... ... ... ... ... ... ... ... ...) :rawcite nil :rc-uptodate nil :sort-key ("Dreier, Thomas/ Schulze, Gernot (eds.)" "70180000") :occurred-before 1 :disamb-pos first)) (id . "ds2018urhg") (prefix . #("raubenheimer1996dongle p. 76 \\emph{Dreier}, in:" 0 29 (:parent ...) 36 42 (:parent ...) 43 48 (:parent ...))) (suffix) (locator . #("69d Rn. 10" 0 10 (:parent ...))) (label . "section") (location . #(" § 69d Rn. 10" 0 13 (:parent ...))))) :note-index 1 :mode nil :suppress-affixes nil :capitalize-first nil :ignore-et-al nil :grouped nil)))
citeproc-render-citations(#s(citeproc-proc :style #s(citeproc-style :info (... ... ... ... ... ... ... ... ... ... ... ... ...) :opts (... ... ... ... ...) :bib-opts (... ... ...) :bib-sort (lambda ... ...) :bib-sort-orders (t t) :bib-layout (lambda ... ...) :cite-opts (... ... ...) :cite-note t :cite-sort nil :cite-sort-orders nil :cite-layout (lambda ... ...) :cite-layout-attrs (...) :locale-opts (... ...) :macros (... ... ... ... ... ... ... ... ...) :terms (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :uses-ys-var nil :date-text (... ... ... ...) :date-numeric (... ... ... ...)) :getter #f(compiled-function (itemids) #<bytecode 0x38cd289>) :itemdata #<hash-table equal 1/65 0x21dfd2d> :citations #s(queue :head (...) :tail (...)) :names #<hash-table equal 2/65 0x38d52e1> :finalized t) latex t)
(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)
(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)))
--8<---------------cut here---------------end--------------->8---
It looks like there's something to repair on the Citeproc side. I'm
Cc'ing András Simonyi for a better understanding of the problem.
Thank you.
Regards,
--
Nicolas Goaziou
^ permalink raw reply [flat|nested] 8+ messages in thread
* Re: [BUG] Elisp error when exporting citation [9.5 (release_9.5-104-g2b1fc6 @ /home/quintus/.emacs.d/org-mode/lisp/)]
2021-11-03 16:02 ` Nicolas Goaziou
@ 2021-11-04 6:38 ` András Simonyi
2021-11-04 9:16 ` Nicolas Goaziou
0 siblings, 1 reply; 8+ messages in thread
From: András Simonyi @ 2021-11-04 6:38 UTC (permalink / raw)
To: Nicolas Goaziou; +Cc: emacs-orgmode list
Dear All,
On Wed, 3 Nov 2021 at 17:02, Nicolas Goaziou <mail@nicolasgoaziou.fr> wrote:
> It looks like there's something to repair on the Citeproc side. I'm
> Cc'ing András Simonyi for a better understanding of the problem.
I think this problem has been fixed in citeproc-el (see PR #55) -- you
are probably using an earlier version.
best wishes,
András
^ permalink raw reply [flat|nested] 8+ messages in thread
* Re: [BUG] Elisp error when exporting citation [9.5 (release_9.5-104-g2b1fc6 @ /home/quintus/.emacs.d/org-mode/lisp/)]
2021-11-04 6:38 ` András Simonyi
@ 2021-11-04 9:16 ` Nicolas Goaziou
2021-11-04 19:25 ` M. ‘quintus’ Gülker
0 siblings, 1 reply; 8+ messages in thread
From: Nicolas Goaziou @ 2021-11-04 9:16 UTC (permalink / raw)
To: András Simonyi; +Cc: emacs-orgmode list
Hello,
András Simonyi <andras.simonyi@gmail.com> writes:
> On Wed, 3 Nov 2021 at 17:02, Nicolas Goaziou <mail@nicolasgoaziou.fr> wrote:
>> It looks like there's something to repair on the Citeproc side. I'm
>> Cc'ing András Simonyi for a better understanding of the problem.
>
> I think this problem has been fixed in citeproc-el (see PR #55)
Great! Hopefully, OP's problem is completely solved, then.
> you are probably using an earlier version.
I'm using latest stable release, indeed. Thanks for the answer.
Regards,
--
Nicolas Goaziou
^ permalink raw reply [flat|nested] 8+ messages in thread
* Re: [BUG] Elisp error when exporting citation [9.5 (release_9.5-104-g2b1fc6 @ /home/quintus/.emacs.d/org-mode/lisp/)]
2021-11-04 9:16 ` Nicolas Goaziou
@ 2021-11-04 19:25 ` M. ‘quintus’ Gülker
2021-11-06 8:19 ` András Simonyi
0 siblings, 1 reply; 8+ messages in thread
From: M. ‘quintus’ Gülker @ 2021-11-04 19:25 UTC (permalink / raw)
To: emacs-orgmode
Dear all,
Am Donnerstag, dem 04. November 2021 schrieb Nicolas Goaziou:
> Great! Hopefully, OP's problem is completely solved, then.
I can confirm that the original example I gave (the one with the missing
@ sign) does not error anymore now. The improper formatting on LaTeX
export I mentioned in the other e-mail[1] however is still persisting,
both with the @ and without it.
Org mode version 9.5 (release_9.5-214-gced2b3 @ /home/quintus/.emacs.d/org-mode/lisp/)
Citeproc.el at e93b45fe125d2ed61c60136638b3836ec770f879
-quintus
[1]: https://list.orgmode.org/87pmrgs2la.fsf@nicolasgoaziou.fr/T/#m04c52902b1b2cb813269cac8088b4de94f0fcf2b
--
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
* Re: [BUG] Elisp error when exporting citation [9.5 (release_9.5-104-g2b1fc6 @ /home/quintus/.emacs.d/org-mode/lisp/)]
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
0 siblings, 1 reply; 8+ messages in thread
From: András Simonyi @ 2021-11-06 8:19 UTC (permalink / raw)
To: emacs-orgmode list
Dear All,
On Thu, 4 Nov 2021 at 20:26, M. ‘quintus’ Gülker
<post+orgmodeml@guelker.eu> wrote:
> The improper formatting on LaTeX export I mentioned in the other e-mail[1] however is still persisting,
> both with the @ and without it.
I've pushed a change to citeproc-el which should solve that problem --
thanks for reporting it.
best wishes,
András
^ permalink raw reply [flat|nested] 8+ messages in thread
* Re: [BUG] Elisp error when exporting citation [9.5 (release_9.5-104-g2b1fc6 @ /home/quintus/.emacs.d/org-mode/lisp/)]
2021-11-06 8:19 ` András Simonyi
@ 2021-11-06 12:05 ` M. ‘quintus’ Gülker
0 siblings, 0 replies; 8+ messages in thread
From: M. ‘quintus’ Gülker @ 2021-11-06 12:05 UTC (permalink / raw)
To: emacs-orgmode
Am Samstag, dem 06. November 2021 schrieb András Simonyi:
> I've pushed a change to citeproc-el which should solve that problem --
> thanks for reporting it.
Thank you again! It works now properly.
-quintus
--
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 external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.