Hello,
Marvin Gülker <post+orgmod...@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
