From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp10.migadu.com ([2001:41d0:8:6d80::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms5.migadu.com with LMTPS id wGrDLyOBkWLTLgEAbAwnHQ (envelope-from ) for ; Sat, 28 May 2022 03:55:47 +0200 Received: from aspmx1.migadu.com ([2001:41d0:8:6d80::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp10.migadu.com with LMTPS id sEPJLiOBkWJWIQEAG6o9tA (envelope-from ) for ; Sat, 28 May 2022 03:55:47 +0200 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 024511EB44 for ; Sat, 28 May 2022 03:55:46 +0200 (CEST) Received: from localhost ([::1]:47654 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1nulg9-0003wU-Au for larch@yhetil.org; Fri, 27 May 2022 21:55:45 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:56272) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1nulee-0003w8-71 for emacs-orgmode@gnu.org; Fri, 27 May 2022 21:54:12 -0400 Received: from [39.171.214.172] (port=7827 helo=Mac-mini.local) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1nuleY-0007VX-Bh for emacs-orgmode@gnu.org; Fri, 27 May 2022 21:54:11 -0400 Received: by Mac-mini.local (Postfix, from userid 501) id 410BB520D6CF; Sat, 28 May 2022 09:53:57 +0800 (CST) References: <87k0a7kzlh.fsf@guelker.eu> User-agent: mu4e 1.6.10; emacs 28.1 From: "Christopher M. Miles" To: Marvin =?utf-8?Q?G=C3=BClker?= Cc: emacs-orgmode@gnu.org Subject: Re: [BUG] Setting compile command causes fontification error [9.5 (release_9.5-661-g5e0afb @ /home/quintus/.emacs.d/org-mode/lisp/)] Date: Sat, 28 May 2022 09:52:22 +0800 In-reply-to: <87k0a7kzlh.fsf@guelker.eu> Message-ID: MIME-Version: 1.0 Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha256; protocol="application/pgp-signature" X-Host-Lookup-Failed: Reverse DNS lookup failed for 39.171.214.172 (deferred) Received-SPF: softfail client-ip=39.171.214.172; envelope-from=numbchild@gmail.com; helo=Mac-mini.local X-Spam_score_int: 58 X-Spam_score: 5.8 X-Spam_bar: +++++ X-Spam_report: (5.8 / 5.0 requ) BAYES_00=-1.9, DKIM_ADSP_CUSTOM_MED=0.001, FORGED_GMAIL_RCVD=1, FREEMAIL_FROM=0.001, MSGID_MULTIPLE_AT=1, NML_ADSP_CUSTOM_MED=0.9, RCVD_IN_PBL=3.335, RDNS_NONE=0.793, SPF_HELO_NONE=0.001, SPF_SOFTFAIL=0.665, SPOOFED_FREEMAIL_NO_RDNS=0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=no autolearn_force=no X-Spam_action: reject X-BeenThere: emacs-orgmode@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Reply-To: numbchild@gmail.com Errors-To: emacs-orgmode-bounces+larch=yhetil.org@gnu.org Sender: "Emacs-orgmode" X-Migadu-Flow: FLOW_IN X-Migadu-To: larch@yhetil.org X-Migadu-Country: US ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1653702947; h=from:from:sender:sender:reply-to:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:cc:mime-version:mime-version: content-type:content-type:in-reply-to:in-reply-to: references:references:list-id:list-help:list-unsubscribe: list-subscribe:list-post; bh=EsPS94neYeBd2lWx4TERBt9VA4MuGX7ynKOM35yCAq8=; b=A38tj30nRiNErn8R5M1C9aJ72luoasqcw/+kAvi1IevAHVynrv1Y+Jisvlttp0ESN8amrk SwIpyewRvkFTlemlcmUb3iO047VIjmvo/kq2etU1v+kyBsu5K/BMDsuhwHs4LTOWaoLtdH CXaxaoSVoPwho9p1L5q1JDYmJH3sm9djOr9yMP+w6cPZ9lEYjzcLI6brQQ+AYGRhpeUHMA jONXqaXsTdSCbQrF8/ZgCYsYgx16qbw9Xv9yNwouX+Mmssl4XwXHQuEi1k8zEAwbsXuPb3 y0lknmlf0cla4NkWMAFFqNUw5DhjWlE/CZVGLFL8+ZtHkunjHGY4D4m0AWr3tg== ARC-Seal: i=1; s=key1; d=yhetil.org; t=1653702947; a=rsa-sha256; cv=none; b=LYuyNjudoHYlLqT/eqSLmNY8VrlFsPG9AsFiH/r3pHJLFbc5387Ufm5vpMSK3GHyNiMvsA nXIvDNHgeFN7VIw+dfxoCUqMoP/WXO6nHf0ifCw7/cjhB/i7ivPgotKOpvAQ7FipCpdqH7 Nl5hmjz06jZ5dSY7OI80v3GyWkrYC9CGouVaHRduZ2fAiQSprawONOBf4HxYG2KfVmC5EX zVgu88HxSIxjiX3009AaVJfQuzTFGi/L0hQOi+q36zyIQLqBU3qFRxRN+Bh3MT0t1g10yO H3wMcfKqEq/qYjBc/5PoGUT721a1iKF+KNI6M/mDDdGk+cgAuuXGDZhQN820Jg== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=none; dmarc=fail reason="SPF not aligned (relaxed), No valid DKIM" header.from=gmail.com (policy=none); spf=pass (aspmx1.migadu.com: domain of "emacs-orgmode-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="emacs-orgmode-bounces+larch=yhetil.org@gnu.org" X-Migadu-Spam-Score: 2.06 Authentication-Results: aspmx1.migadu.com; dkim=none; dmarc=fail reason="SPF not aligned (relaxed), No valid DKIM" header.from=gmail.com (policy=none); spf=pass (aspmx1.migadu.com: domain of "emacs-orgmode-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="emacs-orgmode-bounces+larch=yhetil.org@gnu.org" X-Migadu-Queue-Id: 024511EB44 X-Spam-Score: 2.06 X-Migadu-Scanner: scn0.migadu.com X-TUID: 0LAYTgGY4cOf --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable From=20the backtrace, seems (buffer-file-name) returned nil, I guess you first created a new buffer and have not saved it to file. That caused it return nil. Not Org Mode problem. Not saving file is a common problem in young programmer as I experienced. No offence. Marvin G=C3=BClker writes: > 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 access a file with the content shown further below results in > this message: > > Org mode fontification error in # at 31 > > Trying to export said file to HTML yields this backtrace: > > Debugger entered--Lisp error: (wrong-type-argument arrayp nil) > substring(nil 0 0) > replace-regexp-in-string("[^-0-9a-zA-Z_./\n]" "\\\\\\&" nil) > shell-quote-argument(nil) > (concat "lualatex " (shell-quote-argument (buffer-file-name))) > (set (make-local-variable 'compile-command) (concat "lualatex " (sh= ell-quote-argument (buffer-file-name)))) > (lambda nil (set (make-local-variable 'compile-command) (concat "lu= alatex " (shell-quote-argument (buffer-file-name)))))() > run-hooks(change-major-mode-after-body-hook text-mode-hook tex-mode= -hook latex-mode-hook) > apply(run-hooks (change-major-mode-after-body-hook text-mode-hook t= ex-mode-hook latex-mode-hook)) > run-mode-hooks(latex-mode-hook) > latex-mode() > funcall(latex-mode) > (progn (funcall lang-mode) (insert code) (org-font-lock-ensure) (sa= ve-excursion (let ((beg (point-min)) (end (point-max))) (goto-char beg) (wh= ile (progn (end-of-line) (< (point) end)) (put-text-property (point) (1+ (p= oint)) 'face nil) (forward-char 1)))) (org-src-mode) (set-buffer-modified-p= nil) (let ((org-html-htmlize-output-type output-type) (org-html-htmlize-fo= nt-prefix font-prefix)) (org-html-htmlize-region-for-paste (point-min) (poi= nt-max)))) > (unwind-protect (progn (funcall lang-mode) (insert code) (org-font-= lock-ensure) (save-excursion (let ((beg (point-min)) (end (point-max))) (go= to-char beg) (while (progn (end-of-line) (< (point) end)) (put-text-propert= y (point) (1+ (point)) 'face nil) (forward-char 1)))) (org-src-mode) (set-b= uffer-modified-p nil) (let ((org-html-htmlize-output-type output-type) (org= -html-htmlize-font-prefix font-prefix)) (org-html-htmlize-region-for-paste = (point-min) (point-max)))) (and (buffer-name temp-buffer) (kill-buffer temp= -buffer))) > (save-current-buffer (set-buffer temp-buffer) (unwind-protect (prog= n (funcall lang-mode) (insert code) (org-font-lock-ensure) (save-excursion = (let ((beg (point-min)) (end (point-max))) (goto-char beg) (while (progn (e= nd-of-line) (< ... end)) (put-text-property (point) (1+ ...) 'face nil) (fo= rward-char 1)))) (org-src-mode) (set-buffer-modified-p nil) (let ((org-html= -htmlize-output-type output-type) (org-html-htmlize-font-prefix font-prefix= )) (org-html-htmlize-region-for-paste (point-min) (point-max)))) (and (buff= er-name temp-buffer) (kill-buffer temp-buffer)))) > (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-= buffer (set-buffer temp-buffer) (unwind-protect (progn (funcall lang-mode) = (insert code) (org-font-lock-ensure) (save-excursion (let ((beg ...) (end .= ..)) (goto-char beg) (while (progn ... ...) (put-text-property ... ... ... = nil) (forward-char 1)))) (org-src-mode) (set-buffer-modified-p nil) (let ((= org-html-htmlize-output-type output-type) (org-html-htmlize-font-prefix fon= t-prefix)) (org-html-htmlize-region-for-paste (point-min) (point-max)))) (a= nd (buffer-name temp-buffer) (kill-buffer temp-buffer))))) > (let ((output-type org-html-htmlize-output-type) (font-prefix org-h= tml-htmlize-font-prefix) (inhibit-read-only t)) (let ((temp-buffer (generat= e-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (un= wind-protect (progn (funcall lang-mode) (insert code) (org-font-lock-ensure= ) (save-excursion (let (... ...) (goto-char beg) (while ... ... ...))) (org= -src-mode) (set-buffer-modified-p nil) (let ((org-html-htmlize-output-type = output-type) (org-html-htmlize-font-prefix font-prefix)) (org-html-htmlize-= region-for-paste (point-min) (point-max)))) (and (buffer-name temp-buffer) = (kill-buffer temp-buffer)))))) > (setq code (let ((output-type org-html-htmlize-output-type) (font-p= refix org-html-htmlize-font-prefix) (inhibit-read-only t)) (let ((temp-buff= er (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-= buffer) (unwind-protect (progn (funcall lang-mode) (insert code) (org-font-= lock-ensure) (save-excursion (let ... ... ...)) (org-src-mode) (set-buffer-= modified-p nil) (let (... ...) (org-html-htmlize-region-for-paste ... ...))= ) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))) > (cond ((not (functionp lang-mode)) (org-html-encode-plain-text code= )) (t (setq code (let ((output-type org-html-htmlize-output-type) (font-pre= fix org-html-htmlize-font-prefix) (inhibit-read-only t)) (let ((temp-buffer= (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-bu= ffer) (unwind-protect (progn ... ... ... ... ... ... ...) (and ... ...)))))= ) (let* ((beg (and (string-match "\\`]*>\n?" code) (match-end 0))) (= end (and beg (string-match "\\'" code)))) (if (and beg end) (substrin= g code beg end) code)))) > (let* ((lang-mode (and lang (intern (format "%s-mode" lang))))) (co= nd ((not (functionp lang-mode)) (org-html-encode-plain-text code)) (t (setq= code (let ((output-type org-html-htmlize-output-type) (font-prefix org-htm= l-htmlize-font-prefix) (inhibit-read-only t)) (let ((temp-buffer ...)) (sav= e-current-buffer (set-buffer temp-buffer) (unwind-protect ... ...))))) (let= * ((beg (and (string-match "\\`]*>\n?" code) (match-end 0))) (end (a= nd beg (string-match "\\'" code)))) (if (and beg end) (substring code= beg end) code))))) > (cond ((not lang) (org-html-encode-plain-text code)) ((not org-html= -htmlize-output-type) (org-html-encode-plain-text code)) ((not (progn (requ= ire 'htmlize nil t) (fboundp 'htmlize-region-for-paste))) (message "Cannot = fontify source block (htmlize.el >=3D 1.34 re...") (org-html-encode-plain-t= ext code)) (t (setq lang (or (assoc-default lang org-src-lang-modes) lang))= (let* ((lang-mode (and lang (intern (format "%s-mode" lang))))) (cond ((no= t (functionp lang-mode)) (org-html-encode-plain-text code)) (t (setq code (= let (... ... ...) (let ... ...))) (let* ((beg ...) (end ...)) (if (and beg = end) (substring code beg end) code))))))) > (progn (cond ((not lang) (org-html-encode-plain-text code)) ((not o= rg-html-htmlize-output-type) (org-html-encode-plain-text code)) ((not (prog= n (require 'htmlize nil t) (fboundp 'htmlize-region-for-paste))) (message "= Cannot fontify source block (htmlize.el >=3D 1.34 re...") (org-html-encode-= plain-text code)) (t (setq lang (or (assoc-default lang org-src-lang-modes)= lang)) (let* ((lang-mode (and lang (intern ...)))) (cond ((not (functionp = lang-mode)) (org-html-encode-plain-text code)) (t (setq code (let ... ...))= (let* (... ...) (if ... ... code)))))))) > (if code (progn (cond ((not lang) (org-html-encode-plain-text code)= ) ((not org-html-htmlize-output-type) (org-html-encode-plain-text code)) ((= not (progn (require 'htmlize nil t) (fboundp 'htmlize-region-for-paste))) (= message "Cannot fontify source block (htmlize.el >=3D 1.34 re...") (org-htm= l-encode-plain-text code)) (t (setq lang (or (assoc-default lang org-src-la= ng-modes) lang)) (let* ((lang-mode (and lang ...))) (cond ((not ...) (org-h= tml-encode-plain-text code)) (t (setq code ...) (let* ... ...)))))))) > org-html-fontify-code("\\documentclass[a4paper,english,11pt]{scrart= cl}\n\\us..." "latex") > (let* ((code-lines (split-string code "\n")) (code-length (length c= ode-lines)) (num-fmt (and num-start (format "%%%ds: " (length (number-to-st= ring (+ code-length num-start)))))) (code (org-html-fontify-code code lang)= )) (org-export-format-code code #'(lambda (loc line-num ref) (setq loc (con= cat (if num-start (progn ...)) (if wrap-lines (format "%s" .= .. loc) loc) (if (and ref retain-labels) (progn ...)))) (if (not ref) loc (= format "%s org-html-do-format-code("\\documentclass[a4paper,english,11pt]{scra= rtcl}\n\\us..." "latex" nil t nil nil) > (let* ((lang (org-element-property :language element)) (code-info (= org-export-unravel-code element)) (code (car code-info)) (refs (cdr code-in= fo)) (retain-labels (org-element-property :retain-labels element)) (num-sta= rt (org-export-get-loc element info)) (wrap-lines (plist-get info :html-wra= p-src-lines))) (org-html-do-format-code code lang refs retain-labels num-st= art wrap-lines)) > org-html-format-code((src-block (:language "latex" :switches nil :p= arameters nil :begin 43 :end 522 :number-lines nil :preserve-indent nil :re= tain-labels t :use-labels t :label-fmt nil :value "\\documentclass[a4paper,= eng..." :post-blank 0 :post-affiliated 43 ...)) (:export-options nil :back-= end #s(org-export-backend :name html :parent nil :transcoders (... ... ... = ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...= ... ... ... ... ...) :options (... ... ... ... ... ... ... ... ... ... ...= ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :filters = (... ... ...) :blocks nil :menu (104 "Export to HTML" ...)) :translate-alis= t ((bold . org-html-bold) (center-block . org-html-center-block) (clock . o= rg-html-clock) (code . org-html-code) (drawer . org-html-drawer) (dynamic-b= lock . org-html-dynamic-block) (entity . org-html-entity) (example-block . = org-html-example-block) (export-block . org-html-export-block) (export-snip= pet . org-html-export-snippet) (fixed-width . org-html-fixed-width) (footno= te-reference . org-html-footnote-reference) (headline . org-html-headline) = (horizontal-rule . org-html-horizontal-rule) (inline-src-block . org-html-i= nline-src-block) (inlinetask . org-html-inlinetask) (inner-template . org-h= tml-inner-template) (italic . org-html-italic) (item . org-html-item) (keyw= ord . org-html-keyword) (latex-environment . org-html-latex-environment) (l= atex-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 "test.org" :input-file "/tmp/test.org" :html-doctype "xhtml-= strict" :html-container "div" :html-content-class "content" :description ni= l :keywords nil :html-html5-fancy nil :html-link-use-abs-url nil ...)) > (let* ((lang (org-element-property :language src-block)) (code (org= -html-format-code src-block info)) (label (let ((lbl (org-html--reference s= rc-block info t))) (if lbl (format " id=3D\"%s\"" lbl) ""))) (klipsify (and= (plist-get info :html-klipsify-src) (member lang '("javascript" "js" "ruby= " "scheme" "clojure" "php" "html"))))) (if (not lang) (format "
\n%s
" label code) (format "
\n%s%s\n
" (let ((caption (org-export-get-caption src-block)= )) (if (not caption) "" (let ((listing-number ...)) (format "" listing-number (org-trim ...))))) (if kli= psify (format "
%s
" lang = label (if (string=3D lang "html") " data-editor-type=3D\"html\"" "") code) = (format "
%s
" lang label code))))) > (if (org-export-read-attribute :attr_html src-block :textarea) (org= -html--textarea-block src-block) (let* ((lang (org-element-property :langua= ge src-block)) (code (org-html-format-code src-block info)) (label (let ((l= bl (org-html--reference src-block info t))) (if lbl (format " id=3D\"%s\"" = lbl) ""))) (klipsify (and (plist-get info :html-klipsify-src) (member lang = '("javascript" "js" "ruby" "scheme" "clojure" "php" "html"))))) (if (not la= ng) (format "
\n%s
" label code) (format "\n%s%s\n" (let ((caption (org-export= -get-caption src-block))) (if (not caption) "" (let (...) (format "" listing-number ...)))) (if klipsify (= format "
%s
" lang label (= if (string=3D lang "html") " data-editor-type=3D\"html\"" "") code) (format= "
%s
" lang label code)))))) > org-html-src-block((src-block (:language "latex" :switches nil :par= ameters nil :begin 43 :end 522 :number-lines nil :preserve-indent nil :reta= in-labels t :use-labels t :label-fmt nil :value "\\documentclass[a4paper,en= g..." :post-blank 0 :post-affiliated 43 ...)) nil (:export-options nil :bac= k-end #s(org-export-backend :name html :parent nil :transcoders (... ... ..= . ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .= .. ... ... ... ... ...) :options (... ... ... ... ... ... ... ... ... ... .= .. ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :filter= s (... ... ...) :blocks nil :menu (104 "Export to HTML" ...)) :translate-al= ist ((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-sn= ippet . org-html-export-snippet) (fixed-width . org-html-fixed-width) (foot= note-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) (ke= yword . org-html-keyword) (latex-environment . org-html-latex-environment) = (latex-fragment . org-html-latex-fragment) (line-break . org-html-line-brea= k) (link . org-html-link) (node-property . org-html-node-property) (paragra= ph . org-html-paragraph) ...) :exported-data # :input-buffer "test.org" :input-file "/tmp/test.org" :html-doctype "xhtm= l-strict" :html-container "div" :html-content-class "content" :description = nil :keywords nil :html-html5-fancy nil :html-link-use-abs-url nil ...)) > funcall(org-html-src-block (src-block (:language "latex" :switches = nil :parameters nil :begin 43 :end 522 :number-lines nil :preserve-indent n= il :retain-labels t :use-labels t :label-fmt nil :value "\\documentclass[a4= paper,eng..." :post-blank 0 :post-affiliated 43 ...)) nil (:export-options = nil :back-end #s(org-export-backend :name html :parent nil :transcoders (..= . ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .= .. ... ... ... ... ... ... ...) :options (... ... ... ... ... ... ... ... .= .. ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)= :filters (... ... ...) :blocks nil :menu (104 "Export to HTML" ...)) :tran= slate-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) (exampl= e-block . org-html-example-block) (export-block . org-html-export-block) (e= xport-snippet . org-html-export-snippet) (fixed-width . org-html-fixed-widt= h) (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-templa= te . org-html-inner-template) (italic . org-html-italic) (item . org-html-i= tem) (keyword . org-html-keyword) (latex-environment . org-html-latex-envir= onment) (latex-fragment . org-html-latex-fragment) (line-break . org-html-l= ine-break) (link . org-html-link) (node-property . org-html-node-property) = (paragraph . org-html-paragraph) ...) :exported-data # :input-buffer "test.org" :input-file "/tmp/test.org" :html-docty= pe "xhtml-strict" :html-container "div" :html-content-class "content" :desc= ription nil :keywords nil :html-html5-fancy nil :html-link-use-abs-url nil = ...)) > (progn (funcall transcoder data nil info)) > (condition-case err (progn (funcall transcoder data nil info)) (org= -link-broken (let* ((val (plist-get info :with-broken-links))) (cond ((null= val) (user-error "Unable to resolve link: %S" (nth 1 err))) ((eq val 'mark= ) (org-export-data (format "[BROKEN LINK: %s]" (nth 1 err)) info)) (t nil))= ))) > (and (functionp transcoder) (condition-case err (progn (funcall tra= nscoder data nil info)) (org-link-broken (let* ((val (plist-get info :with-= broken-links))) (cond ((null val) (user-error "Unable to resolve link: %S" = (nth 1 err))) ((eq val 'mark) (org-export-data (format "[BROKEN LINK: %s]" = ...) info)) (t nil)))))) > (or (and (functionp transcoder) (condition-case err (progn (funcall= transcoder data nil info)) (org-link-broken (let* ((val (plist-get info :w= ith-broken-links))) (cond ((null val) (user-error "Unable to resolve link: = %S" ...)) ((eq val ...) (org-export-data ... info)) (t nil)))))) (and (eq t= ype 'export-snippet) "")) > (let ((transcoder (org-export-transcoder data info))) (or (and (fun= ctionp transcoder) (condition-case err (progn (funcall transcoder data nil = info)) (org-link-broken (let* ((val ...)) (cond (... ...) (... ...) (t nil)= ))))) (and (eq type 'export-snippet) ""))) > (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type 'ra= w) (car (org-element-contents data))) ((eq type 'plain-text) (org-export-fi= lter-apply-functions (plist-get info :filter-plain-text) (let ((transcoder = (org-export-transcoder data info))) (if transcoder (funcall transcoder data= info) data)) info)) ((not type) (mapconcat #'(lambda (obj) (org-export-dat= a obj info)) data "")) ((or (not (org-element-contents data)) (and (eq type= 'headline) (eq (plist-get info :with-archived-trees) 'headline) (org-eleme= nt-property :archivedp data))) (let ((transcoder (org-export-transcoder dat= a info))) (or (and (functionp transcoder) (condition-case err (progn (funca= ll transcoder data nil info)) (org-link-broken (let* ... ...)))) (and (eq t= ype 'export-snippet) "")))) (t (let ((transcoder (org-export-transcoder dat= a info))) (if transcoder (progn (let* ((greaterp ...) (objectp ...) (conten= ts ...)) (condition-case err (progn ...) (org-link-broken ...)))))))) > (let* ((type (org-element-type data)) (parent (org-export-get-paren= t data)) (results (cond ((memq data (plist-get info :ignore-list)) nil) ((e= q type 'raw) (car (org-element-contents data))) ((eq type 'plain-text) (org= -export-filter-apply-functions (plist-get info :filter-plain-text) (let (..= .) (if transcoder ... data)) info)) ((not type) (mapconcat #'(lambda ... ..= .) data "")) ((or (not (org-element-contents data)) (and (eq type ...) (eq = ... ...) (org-element-property :archivedp data))) (let ((transcoder ...)) (= or (and ... ...) (and ... "")))) (t (let ((transcoder ...)) (if transcoder = (progn ...))))))) (puthash data (cond ((not results) "") ((memq type '(nil = org-data plain-text raw)) results) (t (org-export-filter-apply-functions (p= list-get info (intern (format ":filter-%s" type))) (let ((blank ...)) (if (= eq ... ...) (concat results ...) (concat ... ...))) info))) (plist-get info= :exported-data))) > (or (gethash data (plist-get info :exported-data)) (let* ((type (or= g-element-type data)) (parent (org-export-get-parent data)) (results (cond = ((memq data (plist-get info :ignore-list)) nil) ((eq type 'raw) (car (org-e= lement-contents data))) ((eq type 'plain-text) (org-export-filter-apply-fun= ctions (plist-get info :filter-plain-text) (let ... ...) info)) ((not type)= (mapconcat #'... data "")) ((or (not ...) (and ... ... ...)) (let (...) (o= r ... ...))) (t (let (...) (if transcoder ...)))))) (puthash data (cond ((n= ot results) "") ((memq type '(nil org-data plain-text raw)) results) (t (or= g-export-filter-apply-functions (plist-get info (intern ...)) (let (...) (i= f ... ... ...)) info))) (plist-get info :exported-data)))) > org-export-data((src-block (:language "latex" :switches nil :parame= ters nil :begin 43 :end 522 :number-lines nil :preserve-indent nil :retain-= labels t :use-labels t :label-fmt nil :value "\\documentclass[a4paper,eng..= ." :post-blank 0 :post-affiliated 43 ...)) (: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 ((b= old . org-html-bold) (center-block . org-html-center-block) (clock . org-ht= ml-clock) (code . org-html-code) (drawer . org-html-drawer) (dynamic-block = . org-html-dynamic-block) (entity . org-html-entity) (example-block . org-h= tml-example-block) (export-block . org-html-export-block) (export-snippet .= org-html-export-snippet) (fixed-width . org-html-fixed-width) (footnote-re= ference . org-html-footnote-reference) (headline . org-html-headline) (hori= zontal-rule . org-html-horizontal-rule) (inline-src-block . org-html-inline= -src-block) (inlinetask . org-html-inlinetask) (inner-template . org-html-i= nner-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) (lin= k . org-html-link) (node-property . org-html-node-property) (paragraph . or= g-html-paragraph) ...) :exported-data # :inp= ut-buffer "test.org" :input-file "/tmp/test.org" :html-doctype "xhtml-stric= t" :html-container "div" :html-content-class "content" :description nil :ke= ywords nil :html-html5-fancy nil :html-link-use-abs-url nil ...)) > (closure ((objectp) (greaterp section special-block table org-data)= (transcoder . org-html-section) (parent org-data (:begin 1 :contents-begin= 1 :contents-end 522 :end 522 :robust-begin 3 :robust-end 520 :post-blank 0= :post-affiliated 1 :path "/tmp/test.org" :mode org-data :CATEGORY "test" := granularity nil) (section ... ... ... ...)) (type . section) (info :export-= options nil :back-end #s(org-export-backend :name html :parent nil :transco= ders ... :options ... :filters ... :blocks nil :menu ...) :translate-alist = (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..= . ... ... ... ... ... ... ... ... ... ... ...) :exported-data # :input-buffer "test.org" :input-file "/tmp/test.org" :h= tml-doctype "xhtml-strict" :html-container "div" :html-content-class "conte= nt" :description nil :keywords nil :html-html5-fancy nil :html-link-use-abs= -url nil :html-link-home "" ...) (data section (:begin 1 :end 522 :contents= -begin 1 :contents-end 522 :robust-begin 1 :robust-end 520 :post-blank 0 :p= ost-affiliated 1 :mode first-section :granularity nil :parent ...) (keyword= ...) (paragraph ... ...) (src-block ...)) cl-struct-org-export-backend-tag= s org-publish-project-alist t) (element) (org-export-data element info))((s= rc-block (:language "latex" :switches nil :parameters nil :begin 43 :end 52= 2 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :la= bel-fmt nil :value "\\documentclass[a4paper,english,11pt]{scrartcl}\n\\us..= ." :post-blank 0 :post-affiliated 43 :mode nil :granularity nil :parent (se= ction (:begin 1 :end 522 :contents-begin 1 :contents-end 522 :robust-begin = 1 :robust-end 520 :post-blank 0 :post-affiliated 1 :mode first-section :gra= nularity nil :parent (org-data (:begin 1 :contents-begin 1 :contents-end 52= 2 :end 522 :robust-begin 3 :robust-end 520 :post-blank 0 :post-affiliated 1= :path "/tmp/test.org" :mode org-data :CATEGORY "test" :granularity nil) #3= 5)) (keyword (:key "TITLE" :value "Test export" :begin 1 :end 23 :post-blan= k 1 :post-affiliated 1 :mode top-comment :granularity nil :parent #35)) (pa= ragraph (:begin 23 :end 43 :contents-begin 23 :contents-end 42 :post-blank = 1 :post-affiliated 23 :mode nil :granularity nil :parent #35) #("Test code = follows:\n" 0 19 (:parent #39))) #1)))) > mapconcat((closure ((objectp) (greaterp section special-block table= org-data) (transcoder . org-html-section) (parent org-data (:begin 1 :cont= ents-begin 1 :contents-end 522 :end 522 :robust-begin 3 :robust-end 520 :po= st-blank 0 :post-affiliated 1 :path "/tmp/test.org" :mode org-data :CATEGOR= Y "test" :granularity nil) (section (:begin 1 :end 522 :contents-begin 1 :c= ontents-end 522 :robust-begin 1 :robust-end 520 :post-blank 0 :post-affilia= ted 1 :mode first-section :granularity nil :parent #8) (keyword ...) (parag= raph ... ...) (src-block ...))) (type . section) (info :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-ht= ml-center-block) (clock . org-html-clock) (code . org-html-code) (drawer . = org-html-drawer) (dynamic-block . org-html-dynamic-block) (entity . org-htm= l-entity) (example-block . org-html-example-block) (export-block . org-html= -export-block) (export-snippet . org-html-export-snippet) (fixed-width . or= g-html-fixed-width) (footnote-reference . org-html-footnote-reference) (hea= dline . org-html-headline) (horizontal-rule . org-html-horizontal-rule) (in= line-src-block . org-html-inline-src-block) (inlinetask . org-html-inlineta= sk) (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-b= reak . org-html-line-break) (link . org-html-link) (node-property . org-htm= l-node-property) (paragraph . org-html-paragraph) (plain-list . org-html-pl= ain-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) (section . org-html-section)= (special-block . org-html-special-block) (src-block . org-html-src-block) = (statistics-cookie . org-html-statistics-cookie) (strike-through . org-html= -strike-through) (subscript . org-html-subscript) ...) :exported-data # :input-buffer "test.org" :input-file "/tmp/test= .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 :html-link-home "" :html-link-up "" :html-mathjax "" :html= -equation-reference-format "\\eqref{%s}" :html-postamble auto :html-preambl= e ...) (data section (:begin 1 :end 522 :contents-begin 1 :contents-end 522= :robust-begin 1 :robust-end 520 :post-blank 0 :post-affiliated 1 :mode fir= st-section :granularity nil :parent (org-data ... #11)) (keyword (:key "TIT= LE" :value "Test export" :begin 1 :end 23 :post-blank 1 :post-affiliated 1 = :mode top-comment :granularity nil :parent #11)) (paragraph (:begin 23 :end= 43 :contents-begin 23 :contents-end 42 :post-blank 1 :post-affiliated 23 := mode nil :granularity nil :parent #11) #("Test code follows:\n" 0 19 ...)) = (src-block (:language "latex" :switches nil :parameters nil :begin 43 :end = 522 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t := label-fmt nil :value "\\documentclass[a4paper,english,11pt]{s..." :post-bla= nk 0 :post-affiliated 43 :mode nil :granularity nil :parent #11))) cl-struc= t-org-export-backend-tags org-publish-project-alist t) (element) (org-expor= t-data element info)) ((keyword (:key "TITLE" :value "Test export" :begin 1= :end 23 :post-blank 1 :post-affiliated 1 :mode top-comment :granularity ni= l :parent (section (:begin 1 :end 522 :contents-begin 1 :contents-end 522 := robust-begin 1 :robust-end 520 :post-blank 0 :post-affiliated 1 :mode first= -section :granularity nil :parent ...) . #2))) (paragraph (:begin 23 :end 4= 3 :contents-begin 23 :contents-end 42 :post-blank 1 :post-affiliated 23 :mo= de nil :granularity nil :parent (section (:begin 1 :end 522 :contents-begin= 1 :contents-end 522 :robust-begin 1 :robust-end 520 :post-blank 0 :post-af= filiated 1 :mode first-section :granularity nil :parent ...) . #2)) #("Test= code follows:\n" 0 19 (:parent #4))) (src-block (:language "latex" :switch= es nil :parameters nil :begin 43 :end 522 :number-lines nil :preserve-inden= t nil :retain-labels t :use-labels t :label-fmt nil :value "\\documentclass= [a4paper,english,11pt]{s..." :post-blank 0 :post-affiliated 43 :mode nil :g= ranularity nil :parent (section (:begin 1 :end 522 :contents-begin 1 :conte= nts-end 522 :robust-begin 1 :robust-end 520 :post-blank 0 :post-affiliated = 1 :mode first-section :granularity nil :parent ...) . #2)))) "") > (let* ((greaterp (memq type org-element-greater-elements)) (objectp= (and (not greaterp) (memq type org-element-recursive-objects))) (contents = (mapconcat #'(lambda (element) (org-export-data element info)) (org-element= -contents (if (or greaterp objectp) data (org-element-normalize-contents da= ta (and ... ... ... ...)))) ""))) (condition-case err (progn (funcall trans= coder data (if (not greaterp) contents (org-element-normalize-string conten= ts)) info)) (org-link-broken (let* ((val (plist-get info :with-broken-links= ))) (cond ((null val) (user-error "Unable to resolve link: %S" (nth 1 err))= ) ((eq val 'mark) (org-export-data (format "[BROKEN LINK: %s]" ...) info)) = (t nil)))))) > (progn (let* ((greaterp (memq type org-element-greater-elements)) (= objectp (and (not greaterp) (memq type org-element-recursive-objects))) (co= ntents (mapconcat #'(lambda (element) (org-export-data element info)) (org-= element-contents (if (or greaterp objectp) data (org-element-normalize-cont= ents data ...))) ""))) (condition-case err (progn (funcall transcoder data = (if (not greaterp) contents (org-element-normalize-string contents)) info))= (org-link-broken (let* ((val (plist-get info :with-broken-links))) (cond (= (null val) (user-error "Unable to resolve link: %S" ...)) ((eq val ...) (or= g-export-data ... info)) (t nil))))))) > (if transcoder (progn (let* ((greaterp (memq type org-element-great= er-elements)) (objectp (and (not greaterp) (memq type org-element-recursive= -objects))) (contents (mapconcat #'(lambda ... ...) (org-element-contents (= if ... data ...)) ""))) (condition-case err (progn (funcall transcoder data= (if (not greaterp) contents (org-element-normalize-string contents)) info)= ) (org-link-broken (let* ((val ...)) (cond (... ...) (... ...) (t nil))))))= )) > (let ((transcoder (org-export-transcoder data info))) (if transcode= r (progn (let* ((greaterp (memq type org-element-greater-elements)) (object= p (and (not greaterp) (memq type org-element-recursive-objects))) (contents= (mapconcat #'... (org-element-contents ...) ""))) (condition-case err (pro= gn (funcall transcoder data (if ... contents ...) info)) (org-link-broken (= let* (...) (cond ... ... ...)))))))) > (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type 'ra= w) (car (org-element-contents data))) ((eq type 'plain-text) (org-export-fi= lter-apply-functions (plist-get info :filter-plain-text) (let ((transcoder = (org-export-transcoder data info))) (if transcoder (funcall transcoder data= info) data)) info)) ((not type) (mapconcat #'(lambda (obj) (org-export-dat= a obj info)) data "")) ((or (not (org-element-contents data)) (and (eq type= 'headline) (eq (plist-get info :with-archived-trees) 'headline) (org-eleme= nt-property :archivedp data))) (let ((transcoder (org-export-transcoder dat= a info))) (or (and (functionp transcoder) (condition-case err (progn (funca= ll transcoder data nil info)) (org-link-broken (let* ... ...)))) (and (eq t= ype 'export-snippet) "")))) (t (let ((transcoder (org-export-transcoder dat= a info))) (if transcoder (progn (let* ((greaterp ...) (objectp ...) (conten= ts ...)) (condition-case err (progn ...) (org-link-broken ...)))))))) > (let* ((type (org-element-type data)) (parent (org-export-get-paren= t data)) (results (cond ((memq data (plist-get info :ignore-list)) nil) ((e= q type 'raw) (car (org-element-contents data))) ((eq type 'plain-text) (org= -export-filter-apply-functions (plist-get info :filter-plain-text) (let (..= .) (if transcoder ... data)) info)) ((not type) (mapconcat #'(lambda ... ..= .) data "")) ((or (not (org-element-contents data)) (and (eq type ...) (eq = ... ...) (org-element-property :archivedp data))) (let ((transcoder ...)) (= or (and ... ...) (and ... "")))) (t (let ((transcoder ...)) (if transcoder = (progn ...))))))) (puthash data (cond ((not results) "") ((memq type '(nil = org-data plain-text raw)) results) (t (org-export-filter-apply-functions (p= list-get info (intern (format ":filter-%s" type))) (let ((blank ...)) (if (= eq ... ...) (concat results ...) (concat ... ...))) info))) (plist-get info= :exported-data))) > (or (gethash data (plist-get info :exported-data)) (let* ((type (or= g-element-type data)) (parent (org-export-get-parent data)) (results (cond = ((memq data (plist-get info :ignore-list)) nil) ((eq type 'raw) (car (org-e= lement-contents data))) ((eq type 'plain-text) (org-export-filter-apply-fun= ctions (plist-get info :filter-plain-text) (let ... ...) info)) ((not type)= (mapconcat #'... data "")) ((or (not ...) (and ... ... ...)) (let (...) (o= r ... ...))) (t (let (...) (if transcoder ...)))))) (puthash data (cond ((n= ot results) "") ((memq type '(nil org-data plain-text raw)) results) (t (or= g-export-filter-apply-functions (plist-get info (intern ...)) (let (...) (i= f ... ... ...)) info))) (plist-get info :exported-data)))) > org-export-data((section (:begin 1 :end 522 :contents-begin 1 :cont= ents-end 522 :robust-begin 1 :robust-end 520 :post-blank 0 :post-affiliated= 1 :mode first-section :granularity nil :parent (org-data ... #1)) (keyword= (:key "TITLE" :value "Test export" :begin 1 :end 23 :post-blank 1 :post-af= filiated 1 :mode top-comment :granularity nil :parent #1)) (paragraph (:beg= in 23 :end 43 :contents-begin 23 :contents-end 42 :post-blank 1 :post-affil= iated 23 :mode nil :granularity nil :parent #1) #("Test code follows:\n" 0 = 19 ...)) (src-block (:language "latex" :switches nil :parameters nil :begin= 43 :end 522 :number-lines nil :preserve-indent nil :retain-labels t :use-l= abels t :label-fmt nil :value "\\documentclass[a4paper,eng..." :post-blank = 0 :post-affiliated 43 ...))) (:export-options nil :back-end #s(org-export-b= ackend :name html :parent nil :transcoders (... ... ... ... ... ... ... ...= ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..= .) :options (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..= . ... ... ... ... ... ... ... ... ... ... ...) :filters (... ... ...) :bloc= ks nil :menu (104 "Export to HTML" ...)) :translate-alist ((bold . org-html= -bold) (center-block . org-html-center-block) (clock . org-html-clock) (cod= e . org-html-code) (drawer . org-html-drawer) (dynamic-block . org-html-dyn= amic-block) (entity . org-html-entity) (example-block . org-html-example-bl= ock) (export-block . org-html-export-block) (export-snippet . org-html-expo= rt-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) (i= nlinetask . org-html-inlinetask) (inner-template . org-html-inner-template)= (italic . org-html-italic) (item . org-html-item) (keyword . org-html-keyw= ord) (latex-environment . org-html-latex-environment) (latex-fragment . org= -html-latex-fragment) (line-break . org-html-line-break) (link . org-html-l= ink) (node-property . org-html-node-property) (paragraph . org-html-paragra= ph) ...) :exported-data # :input-buffer "tes= t.org" :input-file "/tmp/test.org" :html-doctype "xhtml-strict" :html-conta= iner "div" :html-content-class "content" :description nil :keywords nil :ht= ml-html5-fancy nil :html-link-use-abs-url nil ...)) > (closure ((objectp) (greaterp org-data) (transcoder closure ... ...= contents) (parent) (type . org-data) (info :export-options nil :back-end .= .. :translate-alist ... :exported-data # :in= put-buffer "test.org" :input-file "/tmp/test.org" :html-doctype "xhtml-stri= ct" :html-container "div" :html-content-class "content" :description nil :k= eywords ...) (data org-data ... ...) cl-struct-org-export-backend-tags org-= publish-project-alist t) (element) (org-export-data element info))((section= (:begin 1 :end 522 :contents-begin 1 :contents-end 522 :robust-begin 1 :ro= bust-end 520 :post-blank 0 :post-affiliated 1 :mode first-section :granular= ity nil :parent (org-data (:begin 1 :contents-begin 1 :contents-end 522 :en= d 522 :robust-begin 3 :robust-end 520 :post-blank 0 :post-affiliated 1 :pat= h "/tmp/test.org" :mode org-data :CATEGORY "test" :granularity nil) #1)) (k= eyword (:key "TITLE" :value "Test export" :begin 1 :end 23 :post-blank 1 :p= ost-affiliated 1 :mode top-comment :granularity nil :parent #1)) (paragraph= (:begin 23 :end 43 :contents-begin 23 :contents-end 42 :post-blank 1 :post= -affiliated 23 :mode nil :granularity nil :parent #1) #("Test code follows:= \n" 0 19 (:parent #5))) (src-block (:language "latex" :switches nil :parame= ters nil :begin 43 :end 522 :number-lines nil :preserve-indent nil :retain-= labels t :use-labels t :label-fmt nil :value "\\documentclass[a4paper,engli= sh,11pt]{scrartcl}\n\\us..." :post-blank 0 :post-affiliated 43 :mode nil :g= ranularity nil :parent #1)))) > mapconcat((closure ((objectp) (greaterp org-data) (transcoder closu= re ((type . org-data) (info :export-options nil :back-end ... :translate-al= ist ... :exported-data # :input-buffer "test= .org" :input-file "/tmp/test.org" :html-doctype "xhtml-strict" :html-contai= ner "div" :html-content-class "content" :description nil :keywords nil :htm= l-html5-fancy nil :html-link-use-abs-url nil :html-link-home "" :html-link-= up "" :html-mathjax "" :html-equation-reference-format "\\eqref{%s}" :html-= postamble auto :html-preamble ...) (blob org-data ... ...) cl-struct-org-ex= port-backend-tags org-publish-project-alist t) (_datum contents _info) cont= ents) (parent) (type . org-data) (info :export-options nil :back-end #s(org= -export-backend :name html :parent nil :transcoders (... ... ... ... ... ..= . ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .= .. ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :options (... .= .. ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... = ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...= ) :filters (... ... ...) :blocks nil :menu (104 "Export to HTML" ...)) :tra= nslate-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) (examp= le-block . org-html-example-block) (export-block . org-html-export-block) (= export-snippet . org-html-export-snippet) (fixed-width . org-html-fixed-wid= th) (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-templ= ate . org-html-inner-template) (italic . org-html-italic) (item . org-html-= item) (keyword . org-html-keyword) (latex-environment . org-html-latex-envi= ronment) (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-drawe= r . org-html-property-drawer) (quote-block . org-html-quote-block) (radio-t= arget . org-html-radio-target) (section . org-html-section) (special-block = . org-html-special-block) (src-block . org-html-src-block) (statistics-cook= ie . org-html-statistics-cookie) (strike-through . org-html-strike-through)= (subscript . org-html-subscript) ...) :exported-data # :input-buffer "test.org" :input-file "/tmp/test.org" :html-doct= ype "xhtml-strict" :html-container "div" :html-content-class "content" :des= cription nil :keywords nil :html-html5-fancy nil :html-link-use-abs-url nil= :html-link-home "" :html-link-up "" :html-mathjax "" :html-equation-refere= nce-format "\\eqref{%s}" :html-postamble auto :html-preamble ...) (data org= -data (:begin 1 :contents-begin 1 :contents-end 522 :end 522 :robust-begin = 3 :robust-end 520 :post-blank 0 :post-affiliated 1 :path "/tmp/test.org" :m= ode org-data :CATEGORY "test" :granularity nil) (section (:begin 1 :end 522= :contents-begin 1 :contents-end 522 :robust-begin 1 :robust-end 520 :post-= blank 0 :post-affiliated 1 :mode first-section :granularity nil :parent #11= ) (keyword ...) (paragraph ... ...) (src-block ...))) cl-struct-org-export-= backend-tags org-publish-project-alist t) (element) (org-export-data elemen= t info)) ((section (:begin 1 :end 522 :contents-begin 1 :contents-end 522 := robust-begin 1 :robust-end 520 :post-blank 0 :post-affiliated 1 :mode first= -section :granularity nil :parent (org-data (:begin 1 :contents-begin 1 :co= ntents-end 522 :end 522 :robust-begin 3 :robust-end 520 :post-blank 0 :post= -affiliated 1 :path "/tmp/test.org" :mode org-data :CATEGORY "test" :granul= arity nil) . #2)) (keyword (:key "TITLE" :value "Test export" :begin 1 :end= 23 :post-blank 1 :post-affiliated 1 :mode top-comment :granularity nil :pa= rent #3)) (paragraph (:begin 23 :end 43 :contents-begin 23 :contents-end 42= :post-blank 1 :post-affiliated 23 :mode nil :granularity nil :parent #3) #= ("Test code follows:\n" 0 19 (:parent #7))) (src-block (:language "latex" := switches nil :parameters nil :begin 43 :end 522 :number-lines nil :preserve= -indent nil :retain-labels t :use-labels t :label-fmt nil :value "\\documen= tclass[a4paper,english,11pt]{s..." :post-blank 0 :post-affiliated 43 :mode = nil :granularity nil :parent #3)))) "") > (let* ((greaterp (memq type org-element-greater-elements)) (objectp= (and (not greaterp) (memq type org-element-recursive-objects))) (contents = (mapconcat #'(lambda (element) (org-export-data element info)) (org-element= -contents (if (or greaterp objectp) data (org-element-normalize-contents da= ta (and ... ... ... ...)))) ""))) (condition-case err (progn (funcall trans= coder data (if (not greaterp) contents (org-element-normalize-string conten= ts)) info)) (org-link-broken (let* ((val (plist-get info :with-broken-links= ))) (cond ((null val) (user-error "Unable to resolve link: %S" (nth 1 err))= ) ((eq val 'mark) (org-export-data (format "[BROKEN LINK: %s]" ...) info)) = (t nil)))))) > (progn (let* ((greaterp (memq type org-element-greater-elements)) (= objectp (and (not greaterp) (memq type org-element-recursive-objects))) (co= ntents (mapconcat #'(lambda (element) (org-export-data element info)) (org-= element-contents (if (or greaterp objectp) data (org-element-normalize-cont= ents data ...))) ""))) (condition-case err (progn (funcall transcoder data = (if (not greaterp) contents (org-element-normalize-string contents)) info))= (org-link-broken (let* ((val (plist-get info :with-broken-links))) (cond (= (null val) (user-error "Unable to resolve link: %S" ...)) ((eq val ...) (or= g-export-data ... info)) (t nil))))))) > (if transcoder (progn (let* ((greaterp (memq type org-element-great= er-elements)) (objectp (and (not greaterp) (memq type org-element-recursive= -objects))) (contents (mapconcat #'(lambda ... ...) (org-element-contents (= if ... data ...)) ""))) (condition-case err (progn (funcall transcoder data= (if (not greaterp) contents (org-element-normalize-string contents)) info)= ) (org-link-broken (let* ((val ...)) (cond (... ...) (... ...) (t nil))))))= )) > (let ((transcoder (org-export-transcoder data info))) (if transcode= r (progn (let* ((greaterp (memq type org-element-greater-elements)) (object= p (and (not greaterp) (memq type org-element-recursive-objects))) (contents= (mapconcat #'... (org-element-contents ...) ""))) (condition-case err (pro= gn (funcall transcoder data (if ... contents ...) info)) (org-link-broken (= let* (...) (cond ... ... ...)))))))) > (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type 'ra= w) (car (org-element-contents data))) ((eq type 'plain-text) (org-export-fi= lter-apply-functions (plist-get info :filter-plain-text) (let ((transcoder = (org-export-transcoder data info))) (if transcoder (funcall transcoder data= info) data)) info)) ((not type) (mapconcat #'(lambda (obj) (org-export-dat= a obj info)) data "")) ((or (not (org-element-contents data)) (and (eq type= 'headline) (eq (plist-get info :with-archived-trees) 'headline) (org-eleme= nt-property :archivedp data))) (let ((transcoder (org-export-transcoder dat= a info))) (or (and (functionp transcoder) (condition-case err (progn (funca= ll transcoder data nil info)) (org-link-broken (let* ... ...)))) (and (eq t= ype 'export-snippet) "")))) (t (let ((transcoder (org-export-transcoder dat= a info))) (if transcoder (progn (let* ((greaterp ...) (objectp ...) (conten= ts ...)) (condition-case err (progn ...) (org-link-broken ...)))))))) > (let* ((type (org-element-type data)) (parent (org-export-get-paren= t data)) (results (cond ((memq data (plist-get info :ignore-list)) nil) ((e= q type 'raw) (car (org-element-contents data))) ((eq type 'plain-text) (org= -export-filter-apply-functions (plist-get info :filter-plain-text) (let (..= .) (if transcoder ... data)) info)) ((not type) (mapconcat #'(lambda ... ..= .) data "")) ((or (not (org-element-contents data)) (and (eq type ...) (eq = ... ...) (org-element-property :archivedp data))) (let ((transcoder ...)) (= or (and ... ...) (and ... "")))) (t (let ((transcoder ...)) (if transcoder = (progn ...))))))) (puthash data (cond ((not results) "") ((memq type '(nil = org-data plain-text raw)) results) (t (org-export-filter-apply-functions (p= list-get info (intern (format ":filter-%s" type))) (let ((blank ...)) (if (= eq ... ...) (concat results ...) (concat ... ...))) info))) (plist-get info= :exported-data))) > (or (gethash data (plist-get info :exported-data)) (let* ((type (or= g-element-type data)) (parent (org-export-get-parent data)) (results (cond = ((memq data (plist-get info :ignore-list)) nil) ((eq type 'raw) (car (org-e= lement-contents data))) ((eq type 'plain-text) (org-export-filter-apply-fun= ctions (plist-get info :filter-plain-text) (let ... ...) info)) ((not type)= (mapconcat #'... data "")) ((or (not ...) (and ... ... ...)) (let (...) (o= r ... ...))) (t (let (...) (if transcoder ...)))))) (puthash data (cond ((n= ot results) "") ((memq type '(nil org-data plain-text raw)) results) (t (or= g-export-filter-apply-functions (plist-get info (intern ...)) (let (...) (i= f ... ... ...)) info))) (plist-get info :exported-data)))) > org-export-data((org-data (:begin 1 :contents-begin 1 :contents-end= 522 :end 522 :robust-begin 3 :robust-end 520 :post-blank 0 :post-affiliate= d 1 :path "/tmp/test.org" :mode org-data :CATEGORY "test" :granularity nil)= (section (:begin 1 :end 522 :contents-begin 1 :contents-end 522 :robust-be= gin 1 :robust-end 520 :post-blank 0 :post-affiliated 1 :mode first-section = :granularity nil :parent #1) (keyword ...) (paragraph ... ...) (src-block .= ..))) (:export-options nil :back-end #s(org-export-backend :name html :pare= nt nil :transcoders (... ... ... ... ... ... ... ... ... ... ... ... ... ..= . ... ... ... ... ... ... ... ... ... ... ... ... ...) :options (... ... ..= . ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .= .. ... ... ... ... ...) :filters (... ... ...) :blocks nil :menu (104 "Expo= rt to HTML" ...)) :translate-alist ((bold . org-html-bold) (center-block . = org-html-center-block) (clock . org-html-clock) (code . org-html-code) (dra= wer . org-html-drawer) (dynamic-block . org-html-dynamic-block) (entity . o= rg-html-entity) (example-block . org-html-example-block) (export-block . or= g-html-export-block) (export-snippet . org-html-export-snippet) (fixed-widt= h . org-html-fixed-width) (footnote-reference . org-html-footnote-reference= ) (headline . org-html-headline) (horizontal-rule . org-html-horizontal-rul= e) (inline-src-block . org-html-inline-src-block) (inlinetask . org-html-in= linetask) (inner-template . org-html-inner-template) (italic . org-html-ita= lic) (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 . o= rg-html-node-property) (paragraph . org-html-paragraph) ...) :exported-data= # :input-buffer "test.org" :input-file "/tm= p/test.org" :html-doctype "xhtml-strict" :html-container "div" :html-conten= t-class "content" :description nil :keywords nil :html-html5-fancy nil :htm= l-link-use-abs-url nil ...)) > (or (org-export-data tree info) "") > (org-element-normalize-string (or (org-export-data tree info) "")) > (let* ((body (org-element-normalize-string (or (org-export-data tre= e info) ""))) (inner-template (cdr (assq 'inner-template (plist-get info :t= ranslate-alist)))) (full-body (org-export-filter-apply-functions (plist-get= info :filter-body) (if (not (functionp inner-template)) body (funcall inne= r-template body info)) info)) (template (cdr (assq 'template (plist-get inf= o :translate-alist)))) (output (if (or (not (functionp template)) body-only= ) full-body (funcall template full-body info)))) (setq output (org-cite-fin= alize-export output info)) (org-no-properties (org-export-filter-apply-func= tions (plist-get info :filter-final-output) output info))) > (progn (run-hook-with-args 'org-export-before-processing-hook (prog= n (or (and (memq (type-of backend) cl-struct-org-export-backend-tags) t) (s= ignal 'wrong-type-argument (list 'org-export-backend backend))) (aref backe= nd 1))) (org-export-expand-include-keyword) (org-export--delete-comment-tre= es) (org-macro-initialize-templates org-export-global-macros) (org-macro-re= place-all org-macro-templates parsed-keywords) (org-set-regexps-and-options= ) (org-update-radio-target-regexp) (if org-export-use-babel (progn (org-bab= el-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-bef= ore-parsing-hook (progn (or (and (memq (type-of backend) cl-struct-org-expo= rt-backend-tags) t) (signal 'wrong-type-argument (list 'org-export-backend = backend))) (aref backend 1)))) (org-set-regexps-and-options) (org-update-ra= dio-target-regexp) (setq info (org-combine-plists info (org-export-get-envi= ronment backend subtreep ext-plist))) (org-cite-store-bibliography info) (o= rg-cite-store-export-processor info) (let ((--dolist-tail-- (append (org-ex= port-get-all-options backend) org-export-options-alist))) (while --dolist-t= ail-- (let ((entry (car --dolist-tail--))) (if (consp entry) (let* ((x857 .= ..) (x858 ...)) (if (consp x858) (let* ... ...) nil)) nil) (setq --dolist-t= ail-- (cdr --dolist-tail--))))) (setq info (org-export-install-filters info= )) (let ((backend-name (progn (or (and (memq ... cl-struct-org-export-backe= nd-tags) t) (signal 'wrong-type-argument (list ... backend))) (aref backend= 1)))) (let ((--dolist-tail-- (plist-get info :filter-options))) (while --d= olist-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 (or= g-export-filter-apply-functions (plist-get info :filter-parse-tree) tree in= fo)) (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-t= emplate (cdr (assq 'inner-template (plist-get info :translate-alist)))) (fu= ll-body (org-export-filter-apply-functions (plist-get info :filter-body) (i= f (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 t= emplate full-body info)))) (setq output (org-cite-finalize-export output in= fo)) (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) (o= rg-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-keywor= ds) (org-set-regexps-and-options) (org-update-radio-target-regexp))) (goto-= char (point-min)) (save-excursion (run-hook-with-args 'org-export-before-pa= rsing-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-c= ombine-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-ex= port-options-alist))) (while --dolist-tail-- (let ((entry (car --dolist-tai= l--))) (if (consp entry) (let* (... ...) (if ... ... nil)) nil) (setq --dol= ist-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))) (wh= ile --dolist-tail-- (let ((filter ...)) (let (...) (if result ...)) (setq -= -dolist-tail-- (cdr --dolist-tail--)))))) (setq tree (org-element-parse-buf= fer nil visible-only)) (org-export--prune-tree tree info) (org-export--remo= ve-uninterpreted-data tree info) (setq tree (org-export-filter-apply-functi= ons (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-te= mplate (plist-get info :translate-alist)))) (full-body (org-export-filter-a= pply-functions (plist-get info :filter-body) (if (not ...) body (funcall in= ner-template body info)) info)) (template (cdr (assq 'template (plist-get i= nfo :translate-alist)))) (output (if (or (not ...) body-only) full-body (fu= ncall template full-body info)))) (setq output (org-cite-finalize-export ou= tput info)) (org-no-properties (org-export-filter-apply-functions (plist-ge= t 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) (signa= l 'wrong-type-argument (list ... backend))) (aref backend 1))) (org-export-= expand-include-keyword) (org-export--delete-comment-trees) (org-macro-initi= alize-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-buffe= r) (org-macro-replace-all '(...) parsed-keywords) (org-set-regexps-and-opti= ons) (org-update-radio-target-regexp))) (goto-char (point-min)) (save-excur= sion (run-hook-with-args 'org-export-before-parsing-hook (progn (or (and ..= . t) (signal ... ...)) (aref backend 1)))) (org-set-regexps-and-options) (o= rg-update-radio-target-regexp) (setq info (org-combine-plists info (org-exp= ort-get-environment backend subtreep ext-plist))) (org-cite-store-bibliogra= phy info) (org-cite-store-export-processor info) (let ((--dolist-tail-- (ap= pend (org-export-get-all-options backend) org-export-options-alist))) (whil= e --dolist-tail-- (let ((entry ...)) (if (consp entry) (let* ... ...) nil) = (setq --dolist-tail-- (cdr --dolist-tail--))))) (setq info (org-export-inst= all-filters info)) (let ((backend-name (progn (or ... ...) (aref backend 1)= ))) (let ((--dolist-tail-- (plist-get info :filter-options))) (while --doli= st-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...))))) (setq tre= e (org-element-parse-buffer nil visible-only)) (org-export--prune-tree tree= info) (org-export--remove-uninterpreted-data tree info) (setq tree (org-ex= port-filter-apply-functions (plist-get info :filter-parse-tree) tree info))= (setq info (org-export--collect-tree-properties tree info)) (org-cite-proc= ess-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-bod= y) (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-fil= ter-apply-functions (plist-get info :filter-final-output) output info))))) = (and (buffer-live-p --buf-copy) (progn (save-current-buffer (set-buffer --b= uf-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) (s= ignal ... ...)) (aref backend 1))) (org-export-expand-include-keyword) (org= -export--delete-comment-trees) (org-macro-initialize-templates org-export-g= lobal-macros) (org-macro-replace-all org-macro-templates parsed-keywords) (= org-set-regexps-and-options) (org-update-radio-target-regexp) (if org-expor= t-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-comb= ine-plists info (org-export-get-environment backend subtreep ext-plist))) (= org-cite-store-bibliography info) (org-cite-store-export-processor info) (l= et ((--dolist-tail-- (append ... org-export-options-alist))) (while --dolis= t-tail-- (let (...) (if ... ... nil) (setq --dolist-tail-- ...)))) (setq in= fo (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-t= ree tree info) (org-export--remove-uninterpreted-data tree info) (setq tree= (org-export-filter-apply-functions (plist-get info :filter-parse-tree) tre= e info)) (setq info (org-export--collect-tree-properties tree info)) (org-c= ite-process-citations info) (org-cite-process-bibliography info) (let* ((bo= dy (org-element-normalize-string ...)) (inner-template (cdr ...)) (full-bod= y (org-export-filter-apply-functions ... ... info)) (template (cdr ...)) (o= utput (if ... full-body ...))) (setq output (org-cite-finalize-export outpu= t info)) (org-no-properties (org-export-filter-apply-functions (plist-get i= nfo :filter-final-output) output info))))) (and (buffer-live-p --buf-copy) = (progn (save-current-buffer (set-buffer --buf-copy) (restore-buffer-modifie= d-p nil)) (kill-buffer --buf-copy))))) > (let* ((org-export-current-backend (progn (or (and (memq (type-of b= ackend) 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 bod= y-only) (org-export--get-buffer-attributes))) (parsed-keywords (delq nil (m= apcar #'(lambda (o) (and ... ...)) (append (org-export-get-all-options back= end) org-export-options-alist)))) tree) (let ((--buf-copy (org-export-copy-= buffer))) (unwind-protect (save-current-buffer (set-buffer --buf-copy) (got= o-char (point-min)) (progn (run-hook-with-args 'org-export-before-processin= g-hook (progn (or ... ...) (aref backend 1))) (org-export-expand-include-ke= yword) (org-export--delete-comment-trees) (org-macro-initialize-templates o= rg-export-global-macros) (org-macro-replace-all org-macro-templates parsed-= keywords) (org-set-regexps-and-options) (org-update-radio-target-regexp) (i= f org-export-use-babel (progn (org-babel-exp-process-buffer) (org-macro-rep= lace-all ... parsed-keywords) (org-set-regexps-and-options) (org-update-rad= io-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 i= nfo (org-export-get-environment backend subtreep ext-plist))) (org-cite-sto= re-bibliography info) (org-cite-store-export-processor info) (let ((--dolis= t-tail-- ...)) (while --dolist-tail-- (let ... ... ...))) (setq info (org-e= xport-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-propert= ies tree info)) (org-cite-process-citations info) (org-cite-process-bibliog= raphy info) (let* ((body ...) (inner-template ...) (full-body ...) (templat= e ...) (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 --bu= f-copy) (restore-buffer-modified-p nil)) (kill-buffer --buf-copy)))))) > (save-restriction (cond ((org-region-active-p) (narrow-to-region (r= egion-beginning) (region-end))) (subtreep (org-narrow-to-subtree) (goto-cha= r (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-att= ributes backend subtreep visible-only body-only) (org-export--get-buffer-at= tributes))) (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-buff= er (set-buffer --buf-copy) (goto-char (point-min)) (progn (run-hook-with-ar= gs 'org-export-before-processing-hook (progn ... ...)) (org-export-expand-i= nclude-keyword) (org-export--delete-comment-trees) (org-macro-initialize-te= mplates org-export-global-macros) (org-macro-replace-all org-macro-template= s parsed-keywords) (org-set-regexps-and-options) (org-update-radio-target-r= egexp) (if org-export-use-babel (progn ... ... ... ...)) (goto-char (point-= min)) (save-excursion (run-hook-with-args ... ...)) (org-set-regexps-and-op= tions) (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-instal= l-filters info)) (let (...) (let ... ...)) (setq tree (org-element-parse-bu= ffer nil visible-only)) (org-export--prune-tree tree info) (org-export--rem= ove-uninterpreted-data tree info) (setq tree (org-export-filter-apply-funct= ions ... tree info)) (setq info (org-export--collect-tree-properties tree i= nfo)) (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 --b= uf-copy) (restore-buffer-modified-p nil)) (kill-buffer --buf-copy))))))) > (save-excursion (save-restriction (cond ((org-region-active-p) (nar= row-to-region (region-beginning) (region-end))) (subtreep (org-narrow-to-su= btree) (goto-char (point-min)) (org-end-of-meta-data) (narrow-to-region (po= int) (point-max)))) (let* ((org-export-current-backend (progn (or (and ... = t) (signal ... ...)) (aref backend 1))) (info (org-combine-plists (org-expo= rt--get-export-attributes backend subtreep visible-only body-only) (org-exp= ort--get-buffer-attributes))) (parsed-keywords (delq nil (mapcar #'... (app= end ... org-export-options-alist)))) tree) (let ((--buf-copy (org-export-co= py-buffer))) (unwind-protect (save-current-buffer (set-buffer --buf-copy) (= goto-char (point-min)) (progn (run-hook-with-args ... ...) (org-export-expa= nd-include-keyword) (org-export--delete-comment-trees) (org-macro-initializ= e-templates org-export-global-macros) (org-macro-replace-all org-macro-temp= lates parsed-keywords) (org-set-regexps-and-options) (org-update-radio-targ= et-regexp) (if org-export-use-babel ...) (goto-char ...) (save-excursion ..= .) (org-set-regexps-and-options) (org-update-radio-target-regexp) (setq inf= o ...) (org-cite-store-bibliography info) (org-cite-store-export-processor = info) (let ... ...) (setq info ...) (let ... ...) (setq tree ...) (org-expo= rt--prune-tree tree info) (org-export--remove-uninterpreted-data tree info)= (setq tree ...) (setq info ...) (org-cite-process-citations info) (org-cit= e-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 "test.html")) > (let ((output (org-export-as backend subtreep visible-only body-onl= y ext-plist))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-c= urrent-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert outpu= t) (let ((coding-system-for-write encoding)) (write-file file))) (and (buff= er-name temp-buffer) (kill-buffer temp-buffer))))) (if (and (org-export--co= py-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 'l= et (list (list 'coding-system-for-write (list ... encoding))) (list 'write-= file file))) (list 'or (list 'ignore-errors (list 'funcall (list 'quote pos= t-process) file)) file))) (let ((output (org-export-as backend subtreep vis= ible-only body-only ext-plist))) (let ((temp-buffer (generate-new-buffer " = *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (p= rogn (insert output) (let (...) (write-file file))) (and (buffer-name temp-= buffer) (kill-buffer temp-buffer))))) (if (and (org-export--copy-to-kill-ri= ng-p) (org-string-nw-p output)) (progn (org-kill-new output))) (or (and (fu= nctionp 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-ex= port-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 'igno= re-errors (list 'funcall (list ... post-process) file)) file))) (let ((outp= ut (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-e= xport--copy-to-kill-ring-p) (org-string-nw-p output)) (progn (org-kill-new = output))) (or (and (functionp post-process) (funcall post-process file)) fi= le)))) > (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-mo= de-alist) (if async (org-export-async-start #'(lambda (file) (org-export-ad= d-to-stack (expand-file-name file) backend)) (list 'let (list (list 'output= (list ... ... subtreep visible-only body-only ...))) (list 'with-temp-buff= er '(insert output) (list 'let (list ...) (list ... file))) (list 'or (list= 'ignore-errors (list ... ... file)) file))) (let ((output (org-export-as b= ackend subtreep visible-only body-only ext-plist))) (let ((temp-buffer (gen= erate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer)= (unwind-protect (progn ... ...) (and ... ...)))) (if (and (org-export--cop= y-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 "test.html" nil nil nil nil nil) > (let* ((extension (concat (if (> (length org-html-extension) 0) (pr= ogn ".")) (or (plist-get ext-plist :html-extension) org-html-extension "htm= l"))) (file (org-export-output-file-name extension subtreep)) (org-export-c= oding-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) > funcall(org-html-export-to-html nil nil nil nil) > (save-excursion (if arg (progn (if (eq (marker-buffer org-export-di= spatch-last-position) (org-base-buffer (current-buffer))) (goto-char org-ex= port-dispatch-last-position) (move-marker org-export-dispatch-last-position= nil)))) (funcall action (and (memq 'async optns) t) (and (memq 'subtree op= tns) t) (and (memq 'visible optns) t) (and (memq 'body optns) t))) > (cond ((eql action 'template) (org-export-insert-default-template n= il optns)) ((eql action 'stack) (org-export-stack)) ((eql action 'publish-c= urrent-file) (org-publish-current-file (memq 'force optns) (memq 'async opt= ns))) ((eql action 'publish-current-project) (org-publish-current-project (= memq 'force optns) (memq 'async optns))) ((eql action 'publish-choose-proje= ct) (org-publish (assoc (completing-read "Publish project: " org-publish-pr= oject-alist nil t) org-publish-project-alist) (memq 'force optns) (memq 'as= ync optns))) ((eql action 'publish-all) (org-publish-all (memq 'force optns= ) (memq 'async optns))) (t (save-excursion (if arg (progn (if (eq (marker-b= uffer org-export-dispatch-last-position) (org-base-buffer ...)) (goto-char = org-export-dispatch-last-position) (move-marker org-export-dispatch-last-po= sition nil)))) (funcall action (and (memq 'async optns) t) (and (memq 'subt= ree optns) t) (and (memq 'visible optns) t) (and (memq 'body optns) t))))) > (let* ((input (cond ((equal arg '(16)) '(stack)) ((and arg org-expo= rt-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-la= st-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-ch= oose-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 'f= orce optns) (memq 'async optns))) (t (save-excursion (if arg (progn (if (eq= ... ...) (goto-char org-export-dispatch-last-position) (move-marker org-ex= port-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) > > In order to reproduce this error, it is necessary to load htmlize.el and > set the variable `compile-command' in the `latex-mode-hook' hook. > Following is the entire content of an elisp file to be used with emacs > -Q in order to reproduce the problem: > > (setq debug-on-error t > debug-on-signal nil > debug-on-quit nil) > (require 'package) > (add-to-list 'package-archives > '("melpa-stable" . "https://stable.melpa.org/packages/") t) > (package-initialize) > (add-to-list 'load-path "/home/quintus/.emacs.d/org-mode/lisp") > (add-to-list 'load-path "/home/quintus/.emacs.d/citeproc-el") > (require 'citeproc) > (require 'org) > (require 'oc-csl) > (require 'htmlize) > (add-hook 'latex-mode-hook (lambda() > (set (make-local-variable 'compile-comma= nd) > (concat "lualatex " (shell-quote-ar= gument (buffer-file-name)))))) > > Where ~/.emacs.d/org-mode/lisp contains the current HEAD from org=E2=80= =99s > repository and htmlize is installed from MELPA. > > The problematic org file in question is /tmp/test.org and it has the > following content: > > #+TITLE: Test export > > Test code follows: > > #+BEGIN_SRC latex > \documentclass[a4paper,english,11pt]{scrartcl} > \usepackage{babel} > \usepackage[T1]{fontenc} > \usepackage[utf8]{inputenc} > > \providecommand\defpandocbool{ > \newif\ifrunsinpandoc > \runsinpandocfalse} > \defpandocbool{} > > \begin{document} > \title{Test} > \author{John Doe} > \date{\today} > \maketitle{} > > This will always be included. > > \ifrunsinpandoc > The document was processed by Pandoc. > \else > The document was processed by ordinary \LaTeX{}. > \fi > > \end{document} > #+END_SRC > > > When this file is visited with emacs -Q as prepared above, it will > show the fontification error message. Exporting it to HTML causes the > error message reproduced above. > > It is worth noting that htmlize itself seems to process the LaTeX code > just fine when I tried to htmlize a buffer with just the LaTeX code in > it using `htmlize-buffer'. > > -quintus > > Emacs : GNU Emacs 27.1 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.= 20) > of 2022-02-25 > Package: Org mode version 9.5 (release_9.5-661-g5e0afb @ /home/quintus/.e= macs.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-con= figure-edit-buffer) > org-link-shell-confirm-function 'yes-or-no-p > org-metadown-hook '(org-babel-pop-to-session-maybe) > org-persist-before-write-hook '(org-element--cache-persist-before-write) > org-mode-hook '((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-defdecod= e org-def > org-read-date-inactive org-ans2 org-ans1 org-columns-current-fmt-com= piled > 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 o= rg-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-blo= cked-by-checkboxes > org-state org-agenda-headline-snapshot-before-repeat org-agenda-buff= er-name > org-agenda-start-on-weekday org-agenda-buffer-tmp-name org-priority-= regexp > org-mode-abbrev-table org-mode-syntax-table org-element-use-cache or= g-element-cache-persistent > 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-dat= a-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-ru= les-list org-emphasis-alist > org-emphasis-regexp-components org-export-registered-backends org-mo= dules crm-separator > org-babel-load-languages org-id-overriding-file-name org-indent-inde= ntation-per-level > org-element--timestamp-regexp org-element-cache-map-continue-from > org-element-paragraph-separate org-agenda-buffer-name org-inlinetask= -min-level t) > nil (add-hook 'change-major-mode-hook 'org-fold-show-all 'append 'loc= al)) > (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 'ap= pend 'local)) > org-babel-result-hide-spec org-babel-hide-all-hashes) > org-archive-hook '(org-attach-archive-delete-maybe) > org-persist-before-read-hook '(org-element--cache-persist-before-read) > 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-persist-after-read-hook '(org-element--cache-persist-after-read) > 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-babel-pre-tangle-hook '(save-buffer) > org-tab-first-hook '(org-babel-hide-result-toggle-maybe org-babel-header= -arg-expand) > org-cycle-tab-first-hook '(org-babel-hide-result-toggle-maybe org-babel-= header-arg-expand) > org-agenda-loop-over-headlines-in-active-region nil > org-fold-core-isearch-open-function 'org-fold--isearch-reveal > org-occur-hook '(org-first-headline-recenter) > org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-show-empty-l= ines > org-cycle-optimize-window-after-visibility-change) > org-speed-command-hook '(org-speed-command-activate org-babel-speed-comm= and-activate) > 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 or= g-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 o= rg-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-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)) > ) > ("mailto" :follow > (closure > ((scheme . "mailto") (--dolist-tail--) org-ts-regexp org-time-stamp-f= ormats > 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-fo= rmats > 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-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)) > ) > ("ftp" :follow > (closure > ((scheme . "ftp") (--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)) > ) > ("help" :follow org-link--open-help :store org-link--store-help) > ("file" :complete org-link-complete-file) ("elisp" :follow org-l= ink--open-elisp)) > org-link-elisp-confirm-function 'yes-or-no-p > ) =2D-=20 [ stardiviner ] I try to make every word tell the meaning that I want to express. Blog: https://stardiviner.github.io/ IRC(freenode): stardiviner, Matrix: stardiviner GPG: F09F650D7D674819892591401B5DF1C95AE89AC3 --=-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQEzBAEBCAAdFiEE8J9lDX1nSBmJJZFAG13xyVromsMFAmKRgLQACgkQG13xyVro msOd3ggAoVO2uINyhDm633r5RR7i6zDQe7tSB6zrIn1QSZyC4+4//bHI/27DDHw8 T2tpqtj9w482SjtEDsoYnZ4UfJL94orD2GMCPv2blkKECNfd4DVEGe4gefF8djSj Mlu2oc8xpN7QqacVIXd8vgDpwzdGjzHInXU4nEAiaiz9QxCH+iW0eUFCdZhLLM26 QTqoploMV1H3Ad3k+IoUCk64mmXFEzASCgqjgpI9fkaw3H/t1Js5WdWWcWYOY3FB dWPaiopigWD4UAmh5hHL12oegsf18cwsLpL/95IeXtIxXn4pppWjL83VcW6/NMs0 Jm3OtaXGOBxDtmCnmUzGeXlWW4zMxg== =qe4V -----END PGP SIGNATURE----- --=-=-=--