From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp0 ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms0.migadu.com with LMTPS id wL+hGgHrfGEkNQAAgWs5BA (envelope-from ) for ; Sat, 30 Oct 2021 08:49:37 +0200 Received: from aspmx1.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp0 with LMTPS id Bd9RFgHrfGHdKgAA1q6Kng (envelope-from ) for ; Sat, 30 Oct 2021 06:49:37 +0000 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id 868CA325D6 for ; Sat, 30 Oct 2021 08:49:35 +0200 (CEST) Received: from localhost ([::1]:57708 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1mgiBK-0005FZ-97 for larch@yhetil.org; Sat, 30 Oct 2021 02:49:34 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:53364) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mgiAU-0005FR-Gl for emacs-orgmode@gnu.org; Sat, 30 Oct 2021 02:48:42 -0400 Received: from mout-p-202.mailbox.org ([2001:67c:2050::465:202]:38816) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_CHACHA20_POLY1305:256) (Exim 4.90_1) (envelope-from ) id 1mgiAN-0008QL-Uq for emacs-orgmode@gnu.org; Sat, 30 Oct 2021 02:48:41 -0400 Received: from smtp1.mailbox.org (smtp1.mailbox.org [IPv6:2001:67c:2050:105:465:1:1:0]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange ECDHE (P-384) server-signature RSA-PSS (4096 bits) server-digest SHA256) (No client certificate requested) by mout-p-202.mailbox.org (Postfix) with ESMTPS id 4Hh8yP524NzQk1S for ; Sat, 30 Oct 2021 08:48:29 +0200 (CEST) X-Virus-Scanned: amavisd-new at heinlein-support.de DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=guelker.eu; s=MBO0001; t=1635576507; h=from:from:reply-to:subject:subject:date:date:message-id:message-id: to:to:cc:mime-version:mime-version:content-type:content-type: content-transfer-encoding:content-transfer-encoding; bh=hrlhuSqVwN06cJIW3iXBhl5Bxs5DCv275iW2Vfs4r2c=; b=EdaCB01gykVP7uVgOISm92z0Jbl83pE0lked0r6gEXGOmEcf7iNqPqIH32moGU7MEzou2h K0H0OMTZTzSyTs9j+TdGU40gdEcgK1e+nOBP7HL59Tczc/+x6IIjNeo7U93ttg5lZBi+D5 upEADLAUiCs8yYa7EXlAwn2WU3uU9BmYjspcE5zMCmf5hVp3PkUIVK52a58WV0ikT3dCGj jgEkgqrAHzFw0jvZcmWgKHiI70id8taoE3+tiU++xSQ0VCldffzN15MxiwVMBpvma7Kyj/ X4fmaMhex6aenkd+DnKblgmALQ4zSi36Dy/qxIynIIW4xYXfSVnuc6dvdSsTEg== From: Marvin =?utf-8?Q?G=C3=BClker?= To: emacs-orgmode@gnu.org Subject: [BUG] Elisp error when exporting citation [9.5 (release_9.5-104-g2b1fc6 @ /home/quintus/.emacs.d/org-mode/lisp/)] Mail-Followup-To: emacs-orgmode@gnu.org Date: Sat, 30 Oct 2021 08:48:22 +0200 Message-ID: <87v91f57pl.fsf@atlantis> MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Rspamd-Queue-Id: 4284A22F Received-SPF: pass client-ip=2001:67c:2050::465:202; envelope-from=post+orgmodeml@guelker.eu; helo=mout-p-202.mailbox.org X-Spam_score_int: -27 X-Spam_score: -2.8 X-Spam_bar: -- X-Spam_report: (-2.8 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, RCVD_IN_DNSWL_LOW=-0.7, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: emacs-orgmode@gnu.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+larch=yhetil.org@gnu.org Sender: "Emacs-orgmode" X-Migadu-Flow: FLOW_IN ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1635576576; h=from:from:sender:sender:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:mime-version:mime-version: content-type:content-type: content-transfer-encoding:content-transfer-encoding:list-id:list-help: list-unsubscribe:list-subscribe:list-post:dkim-signature; bh=hrlhuSqVwN06cJIW3iXBhl5Bxs5DCv275iW2Vfs4r2c=; b=OFoi1CztkxwVCp3VhWaS5Q7izj9eOG93f3K+l9Rns2KO3ySPioz6dMG3RCVIupoNp+p4th IO1TLSSkKKlIbi5PLoRAqufQVXyf+9PEeA2YzIM1nw9fONbH7wRtoQEP7KRiSPE/8VoCNZ FIDUEFOAfWBcuyyTA8K4yugY8Dzz5aP9dOhawESVGlC11SXrM6okZlPTw5ZCZ1xq4/2z3y YfluEnmtdgDITE9aRX38CLkMql5LYrWH5LqeRfWkcBZ8sllo3oNjJVKvXeij9EMtNsWgEw vwaPZQ50M25i8CFKKQaaRvvhtV6h/EfWoL1uw70G+K0piY6XIiwy2hBvhPaQqg== ARC-Seal: i=1; s=key1; d=yhetil.org; t=1635576576; a=rsa-sha256; cv=none; b=fFlagUWJz/pqECoCNh5owTkikq+GJa5kWgfjzmgAFCBAg5ZT70cgFuzBLhW2y+Ae8ObbJa 29HV0ISn/gmoUQ0hOraiuduq06qxbEftlLXzOlDeIrIazmN8ghFbYVJzuvAvVUITiebZIy /GEatciYSY+/CETsFZricmoTJ+aYa3khuZ0Tw0+4QfXBCufaqZq37V3RvJtbXRFjPGxJT+ gC00NXjOqXRGB06UD8KUuG3LeSgjrV/c0NBwV+LP+lml38QRZufXlS2tntv8EQR48W84z1 ehF4hVW1B2g2xK3WJ8E8y+eHw/VitDrpnB9qQ3xhs3YpzkpKCfXr4QCvINj39A== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=pass header.d=guelker.eu header.s=MBO0001 header.b=EdaCB01g; dmarc=none; spf=pass (aspmx1.migadu.com: domain of emacs-orgmode-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=emacs-orgmode-bounces@gnu.org X-Migadu-Spam-Score: -0.62 Authentication-Results: aspmx1.migadu.com; dkim=pass header.d=guelker.eu header.s=MBO0001 header.b=EdaCB01g; dmarc=none; spf=pass (aspmx1.migadu.com: domain of emacs-orgmode-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=emacs-orgmode-bounces@gnu.org X-Migadu-Queue-Id: 868CA325D6 X-Spam-Score: -0.62 X-Migadu-Scanner: scn0.migadu.com X-TUID: PaGtbrV4Uk1+ 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 =20=20=20=20 Test [cite:raubenheimer1996dongle p. 76; /Dreier/, in: @ds2018urhg =C2= =A7=C2=A069d Rn.=C2=A010] 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 =C2=A7 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 =3D {Andreas Raubenheimer}, title =3D {Beseitigung/Umgehung eines technischen Programmschutz= es nach UrhG und UWG}, journaltitle =3D {Computer und Recht}, shortjournal =3D {CR}, year =3D {1996}, pages =3D {69-79}, langid =3D {german}} =20=20=20=20 @commentary{ds2018urhg, title =3D "Urheberrechtsgesetz", shorttitle =3D "UrhG", editor =3D "Thomas Dreier and Gernot Schulze", edition =3D "6", year =3D "2018", publisher =3D "C.H. Beck", location =3D "M=C3=BCnchen" } juristische-schulung.csl is https://github.com/citation-style-language/styl= es/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 . #("= Dreier, in:" 3 9 (:parent (italic (:begin 179 :end 187 :contents-beg= in 180 :contents-end 186 :post-blank 0 :parent (citation-reference (:key "d= s2018urhg" :begin 178 :end 217 :post-blank 0 :prefix ... :suffix ... :paren= t ...))) #("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 (#(" =C2=A7=C2=A069d Rn.=C2= =A010" 0 13 ...)) :parent (citation (:style nil :begin 143 :post-blank 0 :e= nd 218 :prefix ... :contents-begin 178 :contents-end 217 :parent ...) #7)))= )))) plist-put((prefix . #("Dreier, in:" 3 9 (:parent (italic (:beg= in 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-b= lank 0 :prefix (#(" " 0 1 ...) (italic ... ...) #(", in: " 0 6 ...)) :suffi= x (#(" =C2=A7=C2=A069d Rn.=C2=A010" 0 13 ...)) :parent (citation (:style ni= l :begin 143 :post-blank 0 :end 218 :prefix ... :contents-begin 178 :conten= ts-end 217 :parent ...) #5)))))) :prefix (#("raubenheimer1996dongle p. 76" = 0 28 (:parent (citation (:style nil :begin 143 :post-blank 0 :end 218 :pref= ix (#4) :contents-begin 178 :contents-end 217 :parent (paragraph (:begin 13= 8 :end 219 :contents-begin 138 :contents-end 219 :post-blank 0 :post-affili= ated 138 :parent ...) #("Test " 0 5 ...) #7 #("\n" 0 1 ...))) (citation-ref= erence (: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) (set= car (cdr element) (plist-put (nth 1 element) property value)) element) org-element-put-property(((id . "ds2018urhg") (prefix . #("Dreier<= /i>, in:" 3 9 (:parent (italic (:begin 179 :end 187 :contents-begin 180 :co= ntents-end 186 :post-blank 0 :parent (citation-reference ...)) #("Dreier" 0= 6 (:parent #7)))) 13 18 (:parent (citation-reference (:key "ds2018urhg" :b= egin 178 :end 217 :post-blank 0 :prefix (... ... ...) :suffix (...) :parent= (citation ... #7)))))) (suffix) (locator . #("69d Rn.=C2=A010" 0 10 (:pare= nt (citation-reference (:key "ds2018urhg" :begin 178 :end 217 :post-blank 0= :prefix (... ... ...) :suffix (...) :parent (citation ... #9)))))) (label = . "section") (location . #(" =C2=A7=C2=A069d Rn.=C2=A010" 0 13 (:parent (ci= tation-reference (:key "ds2018urhg" :begin 178 :end 217 :post-blank 0 :pref= ix (... ... ...) :suffix (...) :parent (citation ... #11))))))) :prefix (#(= "raubenheimer1996dongle p. 76" 0 28 (:parent (citation (:style nil :begin 1= 43 :post-blank 0 :end 218 :prefix (#4) :contents-begin 178 :contents-end 21= 7 :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 21= 7 :post-blank 0 :prefix (... ... ...) :suffix (...) :parent #7))))))) (let* ((first (car cites)) (prefix (org-element-property :prefix firs= t))) (org-element-put-property first :prefix (org-cite-concat global-prefix= prefix))) (progn (let* ((first (car cites)) (prefix (org-element-property :pref= ix first))) (org-element-put-property first :prefix (org-cite-concat global= -prefix prefix)))) (if global-prefix (progn (let* ((first (car cites)) (prefix (org-elem= ent-property :prefix first))) (org-element-put-property first :prefix (org-= cite-concat global-prefix prefix))))) (let ((global-prefix (org-element-property :prefix citation))) (if gl= obal-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-foot= note-p citation))) (let ((global-prefix (org-element-property :prefix citat= ion))) (if global-prefix (progn (let* ((first (car cites)) (prefix (org-ele= ment-property :prefix first))) (org-element-put-property first :prefix (org= -cite-concat global-prefix prefix)))))) (let ((global-suffix (org-element-p= roperty :suffix citation))) (if global-suffix (progn (let* ((last (org-last= cites)) (suffix (org-element-property :suffix last))) (org-element-put-pro= perty last :suffix (org-cite-concat suffix global-suffix)))))) (if (and (no= t 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-foot= note-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 :pare= nt (paragraph ... ... #1 ...)) (citation-reference (:key "ds2018urhg" :begi= n 178 :end 217 :post-blank 0 :prefix ... :suffix ... :parent #1))) (:export= -options nil :back-end #s(org-export-backend :name html :parent nil :transc= oders (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... = ... ... ... ... ... ... ... ... ... ...) :options (... ... ... ... ... ... = ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...= ... ...) :filters (... ... ...) :blocks nil :menu (104 "Export to HTML" ..= .)) :translate-alist ((bold . org-html-bold) (center-block . org-html-cente= r-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-f= ixed-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) (inn= er-template . org-html-inner-template) (italic . org-html-italic) (item . o= rg-html-item) (keyword . org-html-keyword) (latex-environment . org-html-la= tex-environment) (latex-fragment . org-html-latex-fragment) (line-break . o= rg-html-line-break) (link . org-html-link) (node-property . org-html-node-p= roperty) (paragraph . org-html-paragraph) ...) :exported-data # :input-buffer "mwe.org" :input-file "/tmp/mwe/mwe= .org" :html-doctype "xhtml-strict" :html-container "div" :html-content-clas= s "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 (#("rauben= heimer1996dongle p. 76" 0 28 (:parent #1))) :contents-begin 178 :contents-e= nd 217 :parent (paragraph (:begin 138 :end 219 :contents-begin 138 :content= s-end 219 :post-blank 0 :post-affiliated 138 :parent (section (:begin 1 :en= d 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 "AUTHO= R" :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" :v= alue "/tmp/mwe/mwe.bib" :begin 51 :end 84 :post-blank 0 :post-affiliated 51= :parent #35)) (keyword (:key "CITE_EXPORT" :value "csl /tmp/mwe/juristisch= e-schulung.csl" :begin 84 :end 138 :post-blank 1 :post-affiliated 84 :paren= t #35)) #19)) #("Test " 0 5 (:parent #19)) #1 #("\n" 0 1 (:parent #19)))) (= citation-reference (:key "ds2018urhg" :begin 178 :end 217 :post-blank 0 :pr= efix (#(" " 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 (#(" =C2=A7=C2=A069d Rn.=C2=A010"= 0 13 (:parent #4))) :parent #1)))) mapcar((closure ((processor . #s(citeproc-proc :style ... :getter ...= :itemdata # :citations ... :names #<= hash-table equal 0/65 0x1569ebab0529> :finalized t :uncited nil :bib-filter= s 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 # :input-buffer "mwe.org" :input-file "/tmp/mwe/mwe.org" :htm= l-doctype "xhtml-strict" :html-container "div" :html-content-class "content= " :description nil :keywords nil :html-html5-fancy nil :html-link-use-abs-u= rl nil :html-link-home "" :html-link-up "" :html-mathjax ...) t) (c) (org-c= ite-csl--create-structure c info)) ((citation (:style nil :begin 143 :post-= blank 0 :end 218 :prefix (...) :contents-begin 178 :contents-end 217 :paren= t (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-cit= e-csl--processor info)) (structures (mapcar #'(lambda (c) (org-cite-csl--cr= eate-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* ((citati= ons (org-cite-list-citations info)) (processor (org-cite-csl--processor inf= o)) (structures (mapcar #'(lambda (c) (org-cite-csl--create-structure c inf= o)) citations))) (citeproc-append-citations structures processor) (let* ((r= endered (citeproc-render-citations processor (org-cite-csl--output-format i= nfo) (org-cite-csl--no-citelinks-p info))) (result (seq-mapn #'cons citatio= ns rendered))) (plist-put info :cite-citeproc-rendered-citations result) re= sult))) org-cite-csl--rendered-citations((:export-options nil :back-end #s(or= g-export-backend :name html :parent nil :transcoders ((bold . org-html-bold= ) (center-block . org-html-center-block) (clock . org-html-clock) (code . o= rg-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-sn= ippet) (fixed-width . org-html-fixed-width) (footnote-reference . org-html-= footnote-reference) (headline . org-html-headline) (horizontal-rule . org-h= tml-horizontal-rule) (inline-src-block . org-html-inline-src-block) (inline= task . org-html-inlinetask) (inner-template . org-html-inner-template) (ita= lic . 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) (plann= ing . org-html-planning) (property-drawer . org-html-property-drawer) (quot= e-block . org-html-quote-block) (radio-target . org-html-radio-target) ...)= :options ((:html-doctype "HTML_DOCTYPE" nil org-html-doctype) (:html-conta= iner "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-l= ink-use-abs-url" org-html-link-use-abs-url) (:html-link-home "HTML_LINK_HOM= E" 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-f= ormat "HTML_EQUATION_REFERENCE_FORMAT" nil org-html-equation-reference-form= at t) (:html-postamble nil "html-postamble" org-html-postamble) (:html-prea= mble 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-e= xtra newline) (:subtitle "SUBTITLE" nil nil parse) (:html-head-include-defa= ult-style nil "html-style" org-html-head-include-default-style) (:html-head= -include-scripts nil "html-scripts" org-html-head-include-scripts) (:html-a= llow-name-attribute-in-anchors nil nil org-html-allow-name-attribute-in-anc= hors) (:html-divs nil nil org-html-divs) (:html-checkbox-type nil nil org-h= tml-checkbox-type) (:html-extension nil nil org-html-extension) (:html-foot= note-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-d= rawer-function) (:html-format-headline-function nil nil org-html-format-hea= dline-function) (:html-format-inlinetask-function nil nil org-html-format-i= nlinetask-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-ht= ml-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" (... ... ...))) :t= ranslate-alist ((bold . org-html-bold) (center-block . org-html-center-bloc= k) (clock . org-html-clock) (code . org-html-code) (drawer . org-html-drawe= r) (dynamic-block . org-html-dynamic-block) (entity . org-html-entity) (exa= mple-block . org-html-example-block) (export-block . org-html-export-block)= (export-snippet . org-html-export-snippet) (fixed-width . org-html-fixed-w= idth) (footnote-reference . org-html-footnote-reference) (headline . org-ht= ml-headline) (horizontal-rule . org-html-horizontal-rule) (inline-src-block= . org-html-inline-src-block) (inlinetask . org-html-inlinetask) (inner-tem= plate . org-html-inner-template) (italic . org-html-italic) (item . org-htm= l-item) (keyword . org-html-keyword) (latex-environment . org-html-latex-en= vironment) (latex-fragment . org-html-latex-fragment) (line-break . org-htm= l-line-break) (link . org-html-link) (node-property . org-html-node-propert= y) (paragraph . org-html-paragraph) (plain-list . org-html-plain-list) (pla= in-text . org-html-plain-text) (planning . org-html-planning) (property-dra= wer . org-html-property-drawer) (quote-block . org-html-quote-block) (radio= -target . org-html-radio-target) ...) :exported-data # :input-buffer "mwe.org" :input-file "/tmp/mwe/mwe.org" :ht= ml-doctype "xhtml-strict" :html-container "div" :html-content-class "conten= t" :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 i= nfo))))) (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-b= lank 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(o= rg-export-backend :name html :parent nil :transcoders ((bold . org-html-bol= d) (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-s= nippet) (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) (inlin= etask . org-html-inlinetask) (inner-template . org-html-inner-template) (it= alic . org-html-italic) (item . org-html-item) (keyword . org-html-keyword)= (latex-environment . org-html-latex-environment) (latex-fragment . org-htm= l-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-c= ontainer "HTML_CONTAINER" nil org-html-container-element) (:html-content-cl= ass "HTML_CONTENT_CLASS" nil org-html-content-class) (:description "DESCRIP= TION" nil nil newline) (:keywords "KEYWORDS" nil nil space) (:html-html5-fa= ncy nil "html5-fancy" org-html-html5-fancy) (:html-link-use-abs-url nil "ht= ml-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-l= ink-up) (:html-mathjax "HTML_MATHJAX" nil "" space) (:html-equation-referen= ce-format "HTML_EQUATION_REFERENCE_FO..." nil org-html-equation-reference-f= ormat t) (:html-postamble nil "html-postamble" org-html-postamble) (:html-p= reamble nil "html-preamble" org-html-preamble) (:html-head "HTML_HEAD" nil = org-html-head newline) (:html-head-extra "HTML_HEAD_EXTRA" nil org-html-hea= d-extra newline) (:subtitle "SUBTITLE" nil nil parse) (:html-head-include-d= efault-style nil "html-style" org-html-head-include-default-style) (:html-h= ead-include-scripts nil "html-scripts" org-html-head-include-scripts) (:htm= l-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 or= g-html-checkbox-type) (:html-extension nil nil org-html-extension) (:html-f= ootnote-format nil nil org-html-footnote-format) (:html-footnote-separator = nil nil org-html-footnote-separator) (:html-footnotes-section nil nil org-h= tml-footnotes-section) (:html-format-drawer-function nil nil org-html-forma= t-drawer-function) ...) :filters ((:filter-options . org-html-infojs-instal= l-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) (cente= r-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-hori= zontal-rule) (inline-src-block . org-html-inline-src-block) (inlinetask . o= rg-html-inlinetask) (inner-template . org-html-inner-template) (italic . or= g-html-italic) (item . org-html-item) (keyword . org-html-keyword) (latex-e= nvironment . org-html-latex-environment) (latex-fragment . org-html-latex-f= ragment) (line-break . org-html-line-break) (link . org-html-link) (node-pr= operty . org-html-node-property) (paragraph . org-html-paragraph) ...) :exp= orted-data # :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-ht= ml5-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))) (n= il) #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-exampl= e-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-rul= e . org-html-horizontal-rule) (inline-src-block . org-html-inline-src-block= ) (inlinetask . org-html-inlinetask) (inner-template . org-html-inner-templ= ate) (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-ht= ml-link) (node-property . org-html-node-property) (paragraph . org-html-par= agraph) ...) :options ((:html-doctype "HTML_DOCTYPE" nil org-html-doctype) = (:html-container "HTML_CONTAINER" nil org-html-container-element) (:html-co= ntent-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 "H= TML_LINK_HOME" nil org-html-link-home) (:html-link-up "HTML_LINK_UP" nil or= g-html-link-up) (:html-mathjax "HTML_MATHJAX" nil "" space) (:html-equation= -reference-format "HTML_EQUATION_REFERENCE_FO..." nil org-html-equation-ref= erence-format t) (:html-postamble nil "html-postamble" org-html-postamble) = (:html-preamble nil "html-preamble" org-html-preamble) (:html-head "HTML_HE= AD" nil org-html-head newline) (:html-head-extra "HTML_HEAD_EXTRA" nil org-= html-head-extra newline) (:subtitle "SUBTITLE" nil nil parse) (:html-head-i= nclude-default-style nil "html-style" org-html-head-include-default-style) = (:html-head-include-scripts nil "html-scripts" org-html-head-include-script= s) (:html-allow-name-attribute-in-anchors nil nil org-html-allow-name-attri= bute-in-anchors) (:html-divs nil nil org-html-divs) (:html-checkbox-type ni= l nil org-html-checkbox-type) (:html-extension nil nil org-html-extension) = (:html-footnote-format nil nil org-html-footnote-format) (:html-footnote-se= parator nil nil org-html-footnote-separator) (:html-footnotes-section nil n= il org-html-footnotes-section) (:html-format-drawer-function nil nil org-ht= ml-format-drawer-function) ...) :filters ((:filter-options . org-html-infoj= s-install-script) (:filter-parse-tree . org-html-image-link-filter) (:filte= r-final-output . org-html-final-function)) :blocks nil :menu (104 "Export t= o HTML" (... ... ...))) (:export-options nil :back-end #s(org-export-backen= d :name html :parent nil :transcoders (... ... ... ... ... ... ... ... ... = ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :o= ptions (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...= ... ... ... ... ... ... ... ... ... ...) :filters (... ... ...) :blocks ni= l :menu (104 "Export to HTML" ...)) :translate-alist ((bold . org-html-bold= ) (center-block . org-html-center-block) (clock . org-html-clock) (code . o= rg-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-sn= ippet) (fixed-width . org-html-fixed-width) (footnote-reference . org-html-= footnote-reference) (headline . org-html-headline) (horizontal-rule . org-h= tml-horizontal-rule) (inline-src-block . org-html-inline-src-block) (inline= task . org-html-inlinetask) (inner-template . org-html-inner-template) (ita= lic . 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 # :input-buffer "mw= e.org" :input-file "/tmp/mwe/mwe.org" :html-doctype "xhtml-strict" :html-co= ntainer "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))) (p= rogn (or (and (memq (type-of cl-x) cl-struct-org-cite-processor-tags) t) (s= ignal 'wrong-type-argument (list 'org-cite-processor cl-x))) (aref cl-x 5))= ) citation (org-cite-citation-style citation info) (plist-get info :back-en= d) info)) (if (null x123) (let ((p x118)) (funcall (let ((cl-x (org-cite--get-p= rocessor 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 (l= et ((cl-x (org-cite--get-processor p))) (progn (or (and ... t) (signal ... = ...)) (aref cl-x 5))) citation (org-cite-citation-style citation info) (pli= st-get info :back-end) info)) (let ((other val)) (error "Invalid `:cite-exp= ort' value: %S" other)))) (if (consp x121) (let* ((x123 (cdr x121))) (if (null x123) (let ((p x= 118)) (funcall (let ((cl-x ...)) (progn (or ... ...) (aref cl-x 5))) citati= on (org-cite-citation-style citation info) (plist-get info :back-end) info)= ) (let ((other val)) (error "Invalid `:cite-export' value: %S" other)))) (l= et ((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 ... ...)) citati= on (org-cite-citation-style citation info) (plist-get info :back-end) info)= ) (let ((other val)) (error "Invalid `:cite-export' value: %S" other)))) (l= et ((other val)) (error "Invalid `:cite-export' value: %S" other)))) (if (consp x119) (let* ((x121 (cdr x119))) (if (consp x121) (let* ((x= 123 (cdr x121))) (if (null x123) (let ((p x118)) (funcall (let ... ...) cit= ation (org-cite-citation-style citation info) (plist-get info :back-end) in= fo)) (let ((other val)) (error "Invalid `:cite-export' value: %S" other))))= (let ((other val)) (error "Invalid `:cite-export' value: %S" other)))) (le= t ((other val)) (error "Invalid `:cite-export' value: %S" other))) (let* ((x118 (car val)) (x119 (cdr val))) (if (consp x119) (let* ((x1= 21 (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 `:ci= te-export' value: %S" other)))) (let ((other val)) (error "Invalid `:cite-e= xport' value: %S" other)))) (cond ((null val) nil) ((consp val) (let* ((x118 (car val)) (x119 (cd= r 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" ot= her))))) (t (let ((other val)) (error "Invalid `:cite-export' value: %S" ot= her)))) (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 (pa= ragraph ... ... #1 ...)) (citation-reference (:key "ds2018urhg" :begin 178 = :end 217 :post-blank 0 :prefix ... :suffix ... :parent #1))) nil (:export-o= ptions nil :back-end #s(org-export-backend :name html :parent nil :transcod= ers (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..= . ... ... ... ... ... ... ... ... ...) :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-d= rawer) (dynamic-block . org-html-dynamic-block) (entity . org-html-entity) = (example-block . org-html-example-block) (export-block . org-html-export-bl= ock) (export-snippet . org-html-export-snippet) (fixed-width . org-html-fix= ed-width) (footnote-reference . org-html-footnote-reference) (headline . or= g-html-headline) (horizontal-rule . org-html-horizontal-rule) (inline-src-b= lock . 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-late= x-environment) (latex-fragment . org-html-latex-fragment) (line-break . org= -html-line-break) (link . org-html-link) (node-property . org-html-node-pro= perty) (paragraph . org-html-paragraph) ...) :exported-data # :input-buffer "mwe.org" :input-file "/tmp/mwe/mwe.o= rg" :html-doctype "xhtml-strict" :html-container "div" :html-content-class = "content" :description nil :keywords nil :html-html5-fancy nil :html-link-u= se-abs-url nil ...)) (let ((replacement (org-cite-export-citation cite nil info)) (blanks = (or (org-element-property :post-blank cite) 0))) (if (null replacement) (or= g-cite--set-previous-post-blank cite blanks info) (let ((previous (org-expo= rt-get-previous-element cite info))) (if (and (org-string-nw-p previous) (s= tring-suffix-p "\"" previous)) (progn (org-cite--set-previous-post-blank ci= te 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 (or= g-cite--set-post-blank replacement blanks) (org-element-insert-before repla= cement cite)) (let (...) (let ... ...) (org-cite--set-post-blank last blank= s))))) (t (error "Invalid return value from citation export processo..." re= placement)))) (org-element-extract-element cite)) (let ((cite (car --dolist-tail--))) (let ((replacement (org-cite-expo= rt-citation cite nil info)) (blanks (or (org-element-property :post-blank c= ite) 0))) (if (null replacement) (org-cite--set-previous-post-blank cite bl= anks info) (let ((previous (org-export-get-previous-element cite info))) (i= f (and (org-string-nw-p previous) (string-suffix-p "\"" previous)) (progn (= org-cite--set-previous-post-blank cite 1 info)))) (cond ((stringp replaceme= nt) (let ((output ...)) (org-element-insert-before (org-export-raw-string o= utput) cite))) ((consp replacement) (let* ((x130 ...)) (if (symbolp x130) (= progn ... ...) (let ... ... ...)))) (t (error "Invalid return value from ci= tation export processo..." replacement)))) (org-element-extract-element cit= e)) (setq --dolist-tail-- (cdr --dolist-tail--))) (while --dolist-tail-- (let ((cite (car --dolist-tail--))) (let ((rep= lacement (org-cite-export-citation cite nil info)) (blanks (or (org-element= -property :post-blank cite) 0))) (if (null replacement) (org-cite--set-prev= ious-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)))) (c= ond ((stringp replacement) (let (...) (org-element-insert-before ... cite))= ) ((consp replacement) (let* (...) (if ... ... ...))) (t (error "Invalid re= turn value from citation export processo..." replacement)))) (org-element-e= xtract-element cite)) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((--dolist-tail-- (org-cite-list-citations info))) (while --doli= st-tail-- (let ((cite (car --dolist-tail--))) (let ((replacement (org-cite-= export-citation cite nil info)) (blanks (or (org-element-property :post-bla= nk cite) 0))) (if (null replacement) (org-cite--set-previous-post-blank cit= e blanks info) (let ((previous ...)) (if (and ... ...) (progn ...))) (cond = ((stringp replacement) (let ... ...)) ((consp replacement) (let* ... ...)) = (t (error "Invalid return value from citation export processo..." replaceme= nt)))) (org-element-extract-element cite)) (setq --dolist-tail-- (cdr --dol= ist-tail--))))) org-cite-process-citations((:export-options nil :back-end #s(org-expo= rt-backend :name html :parent nil :transcoders ((bold . org-html-bold) (cen= ter-block . org-html-center-block) (clock . org-html-clock) (code . org-htm= l-code) (drawer . org-html-drawer) (dynamic-block . org-html-dynamic-block)= (entity . org-html-entity) (example-block . org-html-example-block) (expor= t-block . org-html-export-block) (export-snippet . org-html-export-snippet)= (fixed-width . org-html-fixed-width) (footnote-reference . org-html-footno= te-reference) (headline . org-html-headline) (horizontal-rule . org-html-ho= rizontal-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-bloc= k . org-html-quote-block) (radio-target . org-html-radio-target) ...) :opti= ons ((: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 "h= tml5-fancy" org-html-html5-fancy) (:html-link-use-abs-url nil "html-link-us= e-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 n= il "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 n= ewline) (:subtitle "SUBTITLE" nil nil parse) (:html-head-include-default-st= yle nil "html-style" org-html-head-include-default-style) (:html-head-inclu= de-scripts nil "html-scripts" org-html-head-include-scripts) (:html-allow-n= ame-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-ch= eckbox-type) (:html-extension nil nil org-html-extension) (:html-footnote-f= ormat nil nil org-html-footnote-format) (:html-footnote-separator nil nil o= rg-html-footnote-separator) (:html-footnotes-section nil nil org-html-footn= otes-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-inlinet= ask-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-inf= ojs-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" (... ... ...))) :transla= te-alist ((bold . org-html-bold) (center-block . org-html-center-block) (cl= ock . org-html-clock) (code . org-html-code) (drawer . org-html-drawer) (dy= namic-block . org-html-dynamic-block) (entity . org-html-entity) (example-b= lock . org-html-example-block) (export-block . org-html-export-block) (expo= rt-snippet . org-html-export-snippet) (fixed-width . org-html-fixed-width) = (footnote-reference . org-html-footnote-reference) (headline . org-html-hea= dline) (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-environm= ent) (latex-fragment . org-html-latex-fragment) (line-break . org-html-line= -break) (link . org-html-link) (node-property . org-html-node-property) (pa= ragraph . org-html-paragraph) (plain-list . org-html-plain-list) (plain-tex= t . org-html-plain-text) (planning . org-html-planning) (property-drawer . = org-html-property-drawer) (quote-block . org-html-quote-block) (radio-targe= t . org-html-radio-target) ...) :exported-data # :input-buffer "mwe.org" :input-file "/tmp/mwe/mwe.org" :html-doc= type "xhtml-strict" :html-container "div" :html-content-class "content" :de= scription nil :keywords nil :html-html5-fancy nil :html-link-use-abs-url ni= l :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) (sig= nal '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-repl= ace-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-ke= ywords) (org-set-regexps-and-options) (org-update-radio-target-regexp))) (g= oto-char (point-min)) (save-excursion (run-hook-with-args 'org-export-befor= e-parsing-hook (progn (or (and (memq (type-of backend) cl-struct-org-export= -backend-tags) t) (signal 'wrong-type-argument (list 'org-export-backend ba= ckend))) (aref backend 1)))) (org-set-regexps-and-options) (org-update-radi= o-target-regexp) (setq info (org-combine-plists info (org-export-get-enviro= nment backend subtreep ext-plist))) (org-cite-store-bibliography info) (org= -cite-store-export-processor info) (let ((--dolist-tail-- (append (org-expo= rt-get-all-options backend) org-export-options-alist))) (while --dolist-tai= l-- (let ((entry (car --dolist-tail--))) (if (consp entry) (let* ((x981 ...= ) (x982 ...)) (if (consp x982) (let* ... ...) nil)) nil) (setq --dolist-tai= l-- (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 --dol= ist-tail-- (let ((filter (car --dolist-tail--))) (let ((result ...)) (if re= sult (progn ...))) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (setq t= ree (org-element-parse-buffer nil visible-only)) (org-export--prune-tree tr= ee 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-pr= ocess-citations info) (org-cite-process-bibliography info) (let* ((body (or= g-element-normalize-string (or (org-export-data tree info) ""))) (inner-tem= plate (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)) i= nfo)) (template (cdr (assq 'template (plist-get info :translate-alist)))) (= output (if (or (not (functionp template)) body-only) full-body (funcall tem= plate full-body info)))) (setq output (org-cite-finalize-export output info= )) (org-no-properties (org-export-filter-apply-functions (plist-get info :f= ilter-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 (a= nd (memq (type-of backend) cl-struct-org-export-backend-tags) t) (signal 'w= rong-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-al= l org-macro-templates parsed-keywords) (org-set-regexps-and-options) (org-u= pdate-radio-target-regexp) (if org-export-use-babel (progn (org-babel-exp-p= rocess-buffer) (org-macro-replace-all '(("results" . "$1")) parsed-keywords= ) (org-set-regexps-and-options) (org-update-radio-target-regexp))) (goto-ch= ar (point-min)) (save-excursion (run-hook-with-args 'org-export-before-pars= ing-hook (progn (or (and (memq ... cl-struct-org-export-backend-tags) t) (s= ignal 'wrong-type-argument (list ... backend))) (aref backend 1)))) (org-se= t-regexps-and-options) (org-update-radio-target-regexp) (setq info (org-com= bine-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-expo= rt-options-alist))) (while --dolist-tail-- (let ((entry (car --dolist-tail-= -))) (if (consp entry) (let* (... ...) (if ... ... nil)) nil) (setq --dolis= t-tail-- (cdr --dolist-tail--))))) (setq info (org-export-install-filters i= nfo)) (let ((backend-name (progn (or (and ... t) (signal ... ...)) (aref ba= ckend 1)))) (let ((--dolist-tail-- (plist-get info :filter-options))) (whil= e --dolist-tail-- (let ((filter ...)) (let (...) (if result ...)) (setq --d= olist-tail-- (cdr --dolist-tail--)))))) (setq tree (org-element-parse-buffe= r nil visible-only)) (org-export--prune-tree tree info) (org-export--remove= -uninterpreted-data tree info) (setq tree (org-export-filter-apply-function= s (plist-get info :filter-parse-tree) tree info)) (setq info (org-export--c= ollect-tree-properties tree info)) (org-cite-process-citations info) (org-c= ite-process-bibliography info) (let* ((body (org-element-normalize-string (= or (org-export-data tree info) ""))) (inner-template (cdr (assq 'inner-temp= late (plist-get info :translate-alist)))) (full-body (org-export-filter-app= ly-functions (plist-get info :filter-body) (if (not ...) body (funcall inne= r-template body info)) info)) (template (cdr (assq 'template (plist-get inf= o :translate-alist)))) (output (if (or (not ...) body-only) full-body (func= all template full-body info)))) (setq output (org-cite-finalize-export outp= ut 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-ch= ar (point-min)) (progn (run-hook-with-args 'org-export-before-processing-ho= ok (progn (or (and (memq ... cl-struct-org-export-backend-tags) t) (signal = 'wrong-type-argument (list ... backend))) (aref backend 1))) (org-export-ex= pand-include-keyword) (org-export--delete-comment-trees) (org-macro-initial= ize-templates org-export-global-macros) (org-macro-replace-all org-macro-te= mplates parsed-keywords) (org-set-regexps-and-options) (org-update-radio-ta= rget-regexp) (if org-export-use-babel (progn (org-babel-exp-process-buffer)= (org-macro-replace-all '(...) parsed-keywords) (org-set-regexps-and-option= s) (org-update-radio-target-regexp))) (goto-char (point-min)) (save-excursi= on (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-expor= t-get-environment backend subtreep ext-plist))) (org-cite-store-bibliograph= y info) (org-cite-store-export-processor info) (let ((--dolist-tail-- (appe= nd (org-export-get-all-options backend) org-export-options-alist))) (while = --dolist-tail-- (let ((entry ...)) (if (consp entry) (let* ... ...) nil) (s= etq --dolist-tail-- (cdr --dolist-tail--))))) (setq info (org-export-instal= l-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 i= nfo) (org-export--remove-uninterpreted-data tree info) (setq tree (org-expo= rt-filter-apply-functions (plist-get info :filter-parse-tree) tree info)) (= setq info (org-export--collect-tree-properties tree info)) (org-cite-proces= s-citations info) (org-cite-process-bibliography info) (let* ((body (org-el= ement-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-filte= r-apply-functions (plist-get info :filter-final-output) output info))))) (a= nd (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-cu= rrent-buffer (set-buffer --buf-copy) (goto-char (point-min)) (progn (run-ho= ok-with-args 'org-export-before-processing-hook (progn (or (and ... t) (sig= nal ... ...)) (aref backend 1))) (org-export-expand-include-keyword) (org-e= xport--delete-comment-trees) (org-macro-initialize-templates org-export-glo= bal-macros) (org-macro-replace-all org-macro-templates parsed-keywords) (or= g-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-re= gexp))) (goto-char (point-min)) (save-excursion (run-hook-with-args 'org-ex= port-before-parsing-hook (progn (or ... ...) (aref backend 1)))) (org-set-r= egexps-and-options) (org-update-radio-target-regexp) (setq info (org-combin= e-plists info (org-export-get-environment backend subtreep ext-plist))) (or= g-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 ... ... ...)))) (se= tq tree (org-element-parse-buffer nil visible-only)) (org-export--prune-tre= e 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-cit= e-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 ...)) (out= put (if ... full-body ...))) (setq output (org-cite-finalize-export output = info)) (org-no-properties (org-export-filter-apply-functions (plist-get inf= o :filter-final-output) output info))))) (and (buffer-live-p --buf-copy) (p= rogn (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 bac= kend) cl-struct-org-export-backend-tags) t) (signal 'wrong-type-argument (l= ist 'org-export-backend backend))) (aref backend 1))) (info (org-combine-pl= ists (org-export--get-export-attributes backend subtreep visible-only body-= only) (org-export--get-buffer-attributes))) (parsed-keywords (delq nil (map= car #'(lambda (o) (and ... ...)) (append (org-export-get-all-options backen= d) org-export-options-alist)))) tree) (let ((--buf-copy (org-export-copy-bu= ffer))) (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-keyw= ord) (org-export--delete-comment-trees) (org-macro-initialize-templates org= -export-global-macros) (org-macro-replace-all org-macro-templates parsed-ke= ywords) (org-set-regexps-and-options) (org-update-radio-target-regexp) (if = org-export-use-babel (progn (org-babel-exp-process-buffer) (org-macro-repla= ce-all ... parsed-keywords) (org-set-regexps-and-options) (org-update-radio= -target-regexp))) (goto-char (point-min)) (save-excursion (run-hook-with-ar= gs 'org-export-before-parsing-hook (progn ... ...))) (org-set-regexps-and-o= ptions) (org-update-radio-target-regexp) (setq info (org-combine-plists inf= o (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-exp= ort-install-filters info)) (let ((backend-name ...)) (let (...) (while --do= list-tail-- ...))) (setq tree (org-element-parse-buffer nil visible-only)) = (org-export--prune-tree tree info) (org-export--remove-uninterpreted-data t= ree info) (setq tree (org-export-filter-apply-functions (plist-get info :fi= lter-parse-tree) tree info)) (setq info (org-export--collect-tree-propertie= s tree info)) (org-cite-process-citations info) (org-cite-process-bibliogra= phy info) (let* ((body ...) (inner-template ...) (full-body ...) (template = ...) (output ...)) (setq output (org-cite-finalize-export output info)) (or= g-no-properties (org-export-filter-apply-functions ... output info))))) (an= d (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 (reg= ion-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-or= g-export-backend-tags) t) (signal 'wrong-type-argument (list ... backend)))= (aref backend 1))) (info (org-combine-plists (org-export--get-export-attri= butes backend subtreep visible-only body-only) (org-export--get-buffer-attr= ibutes))) (parsed-keywords (delq nil (mapcar #'(lambda ... ...) (append (or= g-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-inc= lude-keyword) (org-export--delete-comment-trees) (org-macro-initialize-temp= lates org-export-global-macros) (org-macro-replace-all org-macro-templates = parsed-keywords) (org-set-regexps-and-options) (org-update-radio-target-reg= exp) (if org-export-use-babel (progn ... ... ... ...)) (goto-char (point-mi= n)) (save-excursion (run-hook-with-args ... ...)) (org-set-regexps-and-opti= ons) (org-update-radio-target-regexp) (setq info (org-combine-plists info .= ..)) (org-cite-store-bibliography info) (org-cite-store-export-processor in= fo) (let (...) (while --dolist-tail-- ...)) (setq info (org-export-install-= filters info)) (let (...) (let ... ...)) (setq tree (org-element-parse-buff= er nil visible-only)) (org-export--prune-tree tree info) (org-export--remov= e-uninterpreted-data tree info) (setq tree (org-export-filter-apply-functio= ns ... tree info)) (setq info (org-export--collect-tree-properties tree inf= o)) (org-cite-process-citations info) (org-cite-process-bibliography info) = (let* (... ... ... ... ...) (setq output ...) (org-no-properties ...)))) (a= nd (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) (narro= w-to-region (region-beginning) (region-end))) (subtreep (org-narrow-to-subt= ree) (goto-char (point-min)) (org-end-of-meta-data) (narrow-to-region (poin= t) (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-expor= t--get-buffer-attributes))) (parsed-keywords (delq nil (mapcar #'... (appen= d ... org-export-options-alist)))) tree) (let ((--buf-copy (org-export-copy= -buffer))) (unwind-protect (save-current-buffer (set-buffer --buf-copy) (go= to-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-templa= tes 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 in= fo) (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-c= opy) (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-cur= rent-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 (li= st 'org-export-as (list 'quote backend) subtreep visible-only body-only (li= st 'quote ext-plist)))) (list 'with-temp-buffer '(insert output) (list 'let= (list (list 'coding-system-for-write (list ... encoding))) (list 'write-fi= le file))) (list 'or (list 'ignore-errors (list 'funcall (list 'quote post-= process) file)) file))) (let ((output (org-export-as backend subtreep visib= le-only body-only ext-plist))) (let ((temp-buffer (generate-new-buffer " *t= emp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (pro= gn (insert output) (let (...) (write-file file))) (and (buffer-name temp-bu= ffer) (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 (func= tionp post-process) (funcall post-process file)) file))) (let ((ext-plist (org-combine-plists (list ':output-file file) ext-pl= ist)) (encoding (or org-export-coding-system buffer-file-coding-system)) au= to-mode-alist) (if async (org-export-async-start #'(lambda (file) (org-expo= rt-add-to-stack (expand-file-name file) backend)) (list 'let (list (list 'o= utput (list 'org-export-as (list ... backend) subtreep visible-only body-on= ly (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-bu= ffer temp-buffer) (unwind-protect (progn (insert output) (let ... ...)) (an= d (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (if (and (org-exp= ort--copy-to-kill-ring-p) (org-string-nw-p output)) (progn (org-kill-new ou= tput))) (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 bac= kend subtreep visible-only body-only ext-plist))) (let ((temp-buffer (gener= ate-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))) (o= r (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) (prog= n ".")) (or (plist-get ext-plist :html-extension) org-html-extension "html"= ))) (file (org-export-output-file-name extension subtreep)) (org-export-cod= ing-system org-html-coding-system)) (org-export-to-file 'html file async su= btreep 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-expo= rt-to-html nil s v b))) (lambda (a s v b) (if a (org-html-export-to-html t s v b) (org-open-f= ile (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) (or= g-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-disp= atch-last-position) (org-base-buffer (current-buffer))) (goto-char org-expo= rt-dispatch-last-position) (move-marker org-export-dispatch-last-position n= il)))) (funcall action (and (memq 'async optns) t) (and (memq 'subtree optn= s) 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-cur= rent-file) (org-publish-current-file (memq 'force optns) (memq 'async optns= ))) ((eql action 'publish-current-project) (org-publish-current-project (me= mq 'force optns) (memq 'async optns))) ((eql action 'publish-choose-project= ) (org-publish (assoc (completing-read "Publish project: " org-publish-proj= ect-alist nil t) org-publish-project-alist) (memq 'force optns) (memq 'asyn= c optns))) ((eql action 'publish-all) (org-publish-all (memq 'force optns) = (memq 'async optns))) (t (save-excursion (if arg (progn (if (eq (marker-buf= fer org-export-dispatch-last-position) (org-base-buffer ...)) (goto-char or= g-export-dispatch-last-position) (move-marker org-export-dispatch-last-posi= tion nil)))) (funcall action (and (memq 'async optns) t) (and (memq 'subtre= e 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 i= nput))) (if (memq 'subtree optns) nil (move-marker org-export-dispatch-last= -position nil)) (cond ((eql action 'template) (org-export-insert-default-te= mplate nil optns)) ((eql action 'stack) (org-export-stack)) ((eql action 'p= ublish-current-file) (org-publish-current-file (memq 'force optns) (memq 'a= sync optns))) ((eql action 'publish-current-project) (org-publish-current-p= roject (memq 'force optns) (memq 'async optns))) ((eql action 'publish-choo= se-project) (org-publish (assoc (completing-read "Publish project: " org-pu= blish-project-alist nil t) org-publish-project-alist) (memq 'force optns) (= memq 'async optns))) ((eql action 'publish-all) (org-publish-all (memq 'for= ce optns) (memq 'async optns))) (t (save-excursion (if arg (progn (if (eq .= .. ...) (goto-char org-export-dispatch-last-position) (move-marker org-expo= rt-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/.ema= cs.d/org-mode/lisp/) current state: =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D (setq org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-confi= gure-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-fu= nction 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-hi= story org-agenda-current-date org-with-time org-defdecode org-def org-read-d= ate-inactive org-ans2 org-ans1 org-columns-current-fmt-compiled org-clock-current-t= ask 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-befor= e-repeat org-agenda-buffer-name org-agenda-start-on-weekday org-agenda-buffer-t= mp-name buffer-face-mode-face org-struct-menu org-last-state org-id-track-glob= ally 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-effo= rt org-agenda-skip-function org-agenda-skip-comment-trees org-agenda-arch= ives-mode org-end-time-was-given org-time-was-given org-log-note-extra org-log-n= ote-purpose org-log-post-message org-last-inserted-timestamp org-last-changed-time= stamp 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-re= gexp 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-loa= d-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 'appe= nd '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-a= rg-expand) org-ascii-format-drawer-function '(closure (t) (_name contents _width) con= tents) 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 o= rg-cycle-show-empty-lines org-optimize-window-after-visibility-change) org-speed-command-hook '(org-speed-command-activate org-babel-speed-comman= d-activate) org-odt-format-inlinetask-function 'org-odt-format-inlinetask-default-func= tion 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 or= g-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 :st= ore 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-forma= ts 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-for= mats 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-form= ats 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-forma= ts 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-func= tion 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-functi= on ) --=20 Dipl.-Jur. M. G=C3=BClker | https://mg.guelker.eu | PGP: Siehe Webseite Passau, Deutschland | kontakt@guelker.eu | O<