[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[BUG] Elisp error when exporting citation [9.5 (release_9.5-104-g2b1fc6
|
From: |
Marvin Gülker |
|
Subject: |
[BUG] Elisp error when exporting citation [9.5 (release_9.5-104-g2b1fc6 @ /home/quintus/.emacs.d/org-mode/lisp/)] |
|
Date: |
Sat, 30 Oct 2021 08:48:22 +0200 |
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<
- [BUG] Elisp error when exporting citation [9.5 (release_9.5-104-g2b1fc6 @ /home/quintus/.emacs.d/org-mode/lisp/)],
Marvin Gülker <=