Re: [BUG] Elisp error when exporting citation [9.5 (release_9.5-104-g2b1fc6 @ /home/quintus/.emacs.d/org-mode/lisp/)]

[Nicolas Goaziou <mail@nicolasgoaziou.fr>]

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