emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [BUG] Elisp error when exporting citation [9.5 (release_9.5-104-g2b1


From: Nicolas Goaziou
Subject: Re: [BUG] Elisp error when exporting citation [9.5 (release_9.5-104-g2b1fc6 @ /home/quintus/.emacs.d/org-mode/lisp/)]
Date: Wed, 03 Nov 2021 17:02:24 +0100
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/27.2 (gnu/linux)

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]