From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp11.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 uC7lBsWtn2NVfwAAbAwnHQ (envelope-from ) for ; Mon, 19 Dec 2022 01:18:13 +0100 Received: from aspmx1.migadu.com ([2001:41d0:8:6d80::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp11.migadu.com with LMTPS id gKjuBsWtn2N5FAEA9RJhRA (envelope-from ) for ; Mon, 19 Dec 2022 01:18:13 +0100 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 7135128E4A for ; Mon, 19 Dec 2022 01:18:08 +0100 (CET) Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1p73q8-0006iJ-Iz; Sun, 18 Dec 2022 19:17:08 -0500 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1p73q6-0006i9-30 for emacs-orgmode@gnu.org; Sun, 18 Dec 2022 19:17:06 -0500 Received: from mail-pl1-x631.google.com ([2607:f8b0:4864:20::631]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1p73q0-0007IE-7y for emacs-orgmode@gnu.org; Sun, 18 Dec 2022 19:17:05 -0500 Received: by mail-pl1-x631.google.com with SMTP id 4so7512218plj.3 for ; Sun, 18 Dec 2022 16:16:59 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=hawaii.edu; s=google; h=mime-version:message-id:date:subject:cc:to:from:user-agent:from:to :cc:subject:date:message-id:reply-to; bh=Cdh9I3AX/EI6sa6kwfNtFJkHv7H6S5Br9Ngjv+XkU2o=; b=O5cjsw6Erzhl9bRJMS9izz7lRyszfzhSxCPbfijuVMt/fz1zMNQWQbdZjKAmmu1uK6 57GBL5yxgYkKqNlfp47uoz/aZn2l8k9vEw/9HX1YlIU3jNwtmkyM2XkZDaxL6pMquPHp 3zrzGzb783q0cZec6ejv97NGzj6PbTAn/0WCs= X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=mime-version:message-id:date:subject:cc:to:from:user-agent :x-gm-message-state:from:to:cc:subject:date:message-id:reply-to; bh=Cdh9I3AX/EI6sa6kwfNtFJkHv7H6S5Br9Ngjv+XkU2o=; b=fbAFyTySuiNMJinVil3MKDO/g7+pGrdojZJ5+P941ca2QxmhxVTd0mlwZ3/Q9fEbOA Psej7bz4MOieoQNM01kpGJheVNrleEs/5/WBaTVq8Cuz0J5y2DP8PlM8Wo5yex5kAvlh gqPVZyTxby3IxTZuNDuQnRMz5WxRHP/SLUm91A4U9Pm9YeQ4vzG+u+ImcwxrvVHb6+TG ia8ASAMojIYF1M00sYRNDqnjG8mkYQWzqXY8qrmufNHZ3BrwH0/FDC4sIc/vwMl8znxO AggA2ufICc1+pVtTGeOjheUPBDyssTJPoWMI1n9llG4fNbDskuj1/TovezJKyJczX5LG bsxg== X-Gm-Message-State: ANoB5pmeGg3xx8w1pvrXqK8ChZktsCGKday+wX6nw+/tIYLOKMaDcMD2 MWxkp1bYG/YX2/YAB8NmK+2rJrg3jDw3r0V2LzyY0UCuQniT6v5KGuxkMrhOgUa42n56mrdCdse RL4wFuCuF6x7lgbuUlUun0GJIMM5UJrQhgnncBQb63buPjcYc8a5kLIz0no7cRTMV4t+npjBomK wm3eNm9/lQFrcNqQIh8DJH3Q8KOBKCZlySmk8hNgPjmDJKWAYfs0aDhv7n X-Google-Smtp-Source: AA0mqf4S40Tiz4kWL8ndxvg8lk+MEVTJx2IgakiLrYtMLyc8QBzHACLdR9XIA85cxHADycHMZsg91Q== X-Received: by 2002:a17:902:e84a:b0:189:feee:4926 with SMTP id t10-20020a170902e84a00b00189feee4926mr54832576plg.16.1671409017367; Sun, 18 Dec 2022 16:16:57 -0800 (PST) Received: from localhost (dhcp-72-234-241-179.hawaiiantel.net. [72.234.241.179]) by smtp.gmail.com with ESMTPSA id m7-20020a170902f64700b001869f2120a6sm5665948plg.108.2022.12.18.16.16.55 for (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Sun, 18 Dec 2022 16:16:56 -0800 (PST) User-agent: mu4e 1.8.13; emacs 29.0.60 From: Brian Powell To: emacs-orgmode@gnu.org Cc: Subject: [BUG] commit 7048876f broke Figure link with caption [9.6 (release_9.6 @ /Users/powellb/src/org-mode/lisp/)] Date: Sun, 18 Dec 2022 14:15:43 -1000 Message-ID: MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Received-SPF: pass client-ip=2607:f8b0:4864:20::631; envelope-from=powellb@hawaii.edu; helo=mail-pl1-x631.google.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 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_NONE=-0.0001, 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.29 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-bounces+larch=yhetil.org@gnu.org X-Migadu-Country: US X-Migadu-Flow: FLOW_IN ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=pass header.d=hawaii.edu header.s=google header.b=O5cjsw6E; 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"; dmarc=pass (policy=none) header.from=hawaii.edu ARC-Seal: i=1; s=key1; d=yhetil.org; t=1671409090; a=rsa-sha256; cv=none; b=JYfBtVB/SXxUtYpkIocTS6UJ1gQcBolXPKqCMbIcgFmgMl5OWXNnw3eIBUHeErixLYH3dR zQlZwuCM462RFze6qyWh9NwTm+9HmEpScv9QyCregX/OT7pFZAkLLqzHtx7Ggpft93d0EL y3oI4mt0vPMrpdOcftSWBUA+16Tyz6p6kbDfknCbw14geC0I85ETbBiCniHva6EryZFYa1 O/9Ocfm5L244q+dpDiOSYoB2n7O0XvKqZP2vpYB1bWLPJnWRVzaDFFqM9FJNtJsZkpHofz Ehr/I2DEdtryxQEEYqyHi5Egi3LxkGfpeuAL7QzYet/4gdlsCKc1cECkCMDz5g== ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1671409090; h=from:from:sender:sender:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:cc:mime-version:mime-version: content-type:content-type:list-id:list-help:list-unsubscribe: list-subscribe:list-post:dkim-signature; bh=Cdh9I3AX/EI6sa6kwfNtFJkHv7H6S5Br9Ngjv+XkU2o=; b=s+m9SRI1kwH482iOOHZSG2lgzby35FCTm6RNUn6hv2IWYVC7PZUfTy4FlnZUrqnshS6Me0 llC0P3DYvW+XJx/zVZ22Zp1y2IMLJyTA9UpanN+HDjUDXLeBbPZXQHB0s/a+PtngEN2QCG G8OfZf1bK68pyNpgQxIkSQDcfa7jCG9KZ9Z/iv3pwNFvulAxQw+3Dpgye3ZolA5n85TmfB sGP468a/75sbslex19Cjb3pgoZzS94m0NQfI6Q59O4+Q8rWrF+tw1vqNwIreF1OHDjuTPJ zCCGKqnTqUBypddanhpKuCKwSqwxnHzs9JHFOGGpR5gkV6m8bx/Wr8zPefXRBQ== X-Migadu-Scanner: scn0.migadu.com Authentication-Results: aspmx1.migadu.com; dkim=pass header.d=hawaii.edu header.s=google header.b=O5cjsw6E; 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"; dmarc=pass (policy=none) header.from=hawaii.edu X-Migadu-Spam-Score: -8.64 X-Spam-Score: -8.64 X-Migadu-Queue-Id: 7135128E4A X-TUID: ys6Vqre/n1/6 --=-=-= Content-Type: text/plain It seems that the following commit broke the ability to link to a figure with a caption. commit 7048876f6fa519513763c83bc5baa791420cddab Author: Ihor Radchenko Date: Tue Dec 13 11:44:22 2022 +0300 org-export-get-ordinal: Do not ignore ELEMENT type when TYPES is given * lisp/ox.el (org-export-get-ordinal): Append ELEMENT type to TYPES, when TYPES is non-nil. I have a simple file with a figure and image link. The figure has a #+name and #+caption. If I add a link to the figure name in the document, then exporting to HTML fails. Prior commits did not have any issue. Using `emacs -Q` with the following: (add-to-list 'load-path "/Users/powellb/src/org-mode/lisp") (require 'org) With the following sample file: #+TITLE: test #+AUTHOR: Me #+EMAIL: email #+DATE: #+name: fig:parcel #+caption: Illustration of joy #+attr_html: :width 600px #+attr_org: :width 50px #+attr_latex: :width 3.5in [[file:./test.png]] Done! So, Figure [[fig:parcel]] is an illustration of the stuff. Executing C-c C-e h o : to export to html and open, results in the attached trace dump. Cheers, Brian Emacs : GNU Emacs 29.0.60 (build 1, aarch64-apple-darwin22.2.0, NS appkit-2299.30 Version 13.1 (Build 22C65)) of 2022-12-16 Package: Org mode version 9.6 (release_9.6 @ /Users/powellb/src/org-mode/lisp/) --=-=-= Content-Type: text/plain Content-Disposition: attachment; filename=debug.txt Content-Transfer-Encoding: quoted-printable Content-Description: trace Debugger entered--Lisp error: (wrong-type-argument listp (link . link)) memq(section (link . link)) (if (memq --type types) (progn (let ((result (funcall fun --data))) (cond= ((not result)) (first-match (throw :--map-first-match result)) (t (setq --= acc (cons result --acc))))))) (cond ((not --data)) ((and info (memq --data --ignore-list))) ((not --typ= e) (mapc --walk-tree --data)) ((eq --type 'org-data) (mapc --walk-tree (org= -element-contents --data))) (t (if (memq --type types) (progn (let ((result= (funcall fun --data))) (cond ((not result)) (first-match (throw :--map-fir= st-match result)) (t (setq --acc ...)))))) (if (and (eq --category 'objects= ) (not (stringp --data))) (progn (let ((tail (cdr ...))) (while tail (let (= ...) (funcall --walk-tree ...) (setq tail ...)))))) (if (and with-affiliate= d (eq --category 'objects) (eq (org-element-class --data) 'element)) (progn= (let ((tail org-element--parsed-properties-alist)) (while tail (let (...) = (let ... ...) (setq tail ...)))))) (cond ((memq --type no-recursion)) ((not= (org-element-contents --data))) ((and (eq --category 'greater-elements) (n= ot (memq --type org-element-greater-elements)))) ((and (eq --category 'elem= ents) (eq (org-element-class --data) 'object))) (t (mapc --walk-tree (org-e= lement-contents --data)))))) (let ((--type (org-element-type --data))) (cond ((not --data)) ((and info= (memq --data --ignore-list))) ((not --type) (mapc --walk-tree --data)) ((e= q --type 'org-data) (mapc --walk-tree (org-element-contents --data))) (t (i= f (memq --type types) (progn (let ((result ...)) (cond (...) (first-match .= ..) (t ...))))) (if (and (eq --category 'objects) (not (stringp --data))) (= progn (let ((tail ...)) (while tail (let ... ... ...))))) (if (and with-aff= iliated (eq --category 'objects) (eq (org-element-class --data) 'element)) = (progn (let ((tail org-element--parsed-properties-alist)) (while tail (let = ... ... ...))))) (cond ((memq --type no-recursion)) ((not (org-element-cont= ents --data))) ((and (eq --category 'greater-elements) (not (memq --type or= g-element-greater-elements)))) ((and (eq --category 'elements) (eq (org-ele= ment-class --data) 'object))) (t (mapc --walk-tree (org-element-contents --= data))))))) (closure ((--walk-tree . #0) (--acc) (--ignore-list) (--category . object= s) (no-recursion) (types link . link) (with-affiliated) (first-match . firs= t-match) (info :export-options nil :back-end ... :translate-alist ... :expo= rted-data # :input-buffer "newtest.org" := input-file "/Users/powellb/tmp/new..." :html-doctype "xhtml-strict" :html-c= ontainer "div" :html-content-class "content" :description nil :keywords ...= ) (fun closure ... ... ...)) (--data) (let (...) (cond ... ... ... ... ...)= ))((section (:begin 1 :end 307 :contents-begin 1 :contents-end 307 :robust-= begin 1 :robust-end 305 :post-blank 0 :post-affiliated 1 :mode first-sectio= n :granularity nil :parent (org-data (:begin 1 :contents-begin 1 :contents-= end 307 :end 307 :robust-begin 3 :robust-end 305 :post-blank 0 :post-affili= ated 1 :path "/Users/powellb/tmp/newtest.org" :mode org-data :CATEGORY "new= test" :granularity nil) #1)) (keyword (:key "TITLE" :value "test" :begin 1 = :end 21 :post-blank 0 :post-affiliated 1 :mode top-comment :granularity nil= :parent #1)) (keyword (:key "AUTHOR" :value "Brian Powell" :begin 21 :end = 49 :post-blank 0 :post-affiliated 21 :mode nil :granularity nil :parent #1)= ) (keyword (:key "EMAIL" :value "powellb@hawaii.edu" :begin 49 :end 83 :pos= t-blank 0 :post-affiliated 49 :mode nil :granularity nil :parent #1)) (keyw= ord (:key "DATE" :value "" :begin 83 :end 93 :post-blank 2 :post-affiliated= 83 :mode nil :granularity nil :parent #1)) (paragraph (:begin 93 :end 241 = :contents-begin 220 :contents-end 240 :post-blank 1 :post-affiliated 220 :n= ame "fig:parcel" :caption (((#("Illustration of joy" 0 19 ...)))) :attr_htm= l (":width 600px") :attr_org (":width 50px") :attr_latex (":width 3.5in") := mode nil :granularity nil :parent #1) (link (:type "file" :path "./test.png= " :format bracket :raw-link "file:./test.png" :application nil :search-opti= on nil :begin 220 :end 239 :contents-begin nil :contents-end nil :post-blan= k 0 :parent #8)) #("\n" 0 1 (:parent #8))) (paragraph (:begin 241 :end 248 = :contents-begin 241 :contents-end 247 :post-blank 1 :post-affiliated 241 :m= ode nil :granularity nil :parent #1) #("Done!\n" 0 6 (:parent #9))) (paragr= aph (:begin 248 :end 307 :contents-begin 248 :contents-end 307 :post-blank = 0 :post-affiliated 248 :mode nil :granularity nil :parent #1) #("So, Figure= " 0 11 (:parent #10)) (link (:type "fuzzy" :path "fig:parcel" :format brac= ket :raw-link "fig:parcel" :application nil :search-option nil :begin 259 := end 274 :contents-begin nil :contents-end nil :post-blank 1 :parent #10)) #= ("is an illustration of the stuff.\n" 0 33 (:parent #10))))) mapc((closure ((--walk-tree . #1) (--acc) (--ignore-list) (--category . o= bjects) (no-recursion) (types link . link) (with-affiliated) (first-match .= first-match) (info :export-options nil :back-end #s(org-export-backend :na= me html :parent nil :transcoders ... :options ... :filters ... :blocks nil = :menu ...) :translate-alist (... ... ... ... ... ... ... ... ... ... ... ..= . ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .= .. ... ...) :exported-data # :input-buffe= r "newtest.org" :input-file "/Users/powellb/tmp/newtest.org" :html-doctype = "xhtml-strict" :html-container "div" :html-content-class "content" :descrip= tion nil :keywords nil :html-html5-fancy nil :html-link-use-abs-url nil :ht= ml-link-home "" :html-link-up "" :html-mathjax ...) (fun closure (... ... .= .. ... ...) (el) (let ... ...))) (--data) (let ((--type ...)) (cond (...) (= ...) (... ...) (... ...) (t ... ... ... ...)))) ((section (:begin 1 :end 30= 7 :contents-begin 1 :contents-end 307 :robust-begin 1 :robust-end 305 :post= -blank 0 :post-affiliated 1 :mode first-section :granularity nil :parent (o= rg-data ... . #2)) (keyword (:key "TITLE" :value "test" :begin 1 :end 21 :p= ost-blank 0 :post-affiliated 1 :mode top-comment :granularity nil :parent #= 3)) (keyword (:key "AUTHOR" :value "Brian Powell" :begin 21 :end 49 :post-b= lank 0 :post-affiliated 21 :mode nil :granularity nil :parent #3)) (keyword= (:key "EMAIL" :value "powellb@hawaii.edu" :begin 49 :end 83 :post-blank 0 = :post-affiliated 49 :mode nil :granularity nil :parent #3)) (keyword (:key = "DATE" :value "" :begin 83 :end 93 :post-blank 2 :post-affiliated 83 :mode = nil :granularity nil :parent #3)) (paragraph (:begin 93 :end 241 :contents-= begin 220 :contents-end 240 :post-blank 1 :post-affiliated 220 :name "fig:p= arcel" :caption ... :attr_html ... :attr_org ... :attr_latex ... :mode nil = :granularity nil :parent #3) (link ...) #("\n" 0 1 ...)) (paragraph (:begin= 241 :end 248 :contents-begin 241 :contents-end 247 :post-blank 1 :post-aff= iliated 241 :mode nil :granularity nil :parent #3) #("Done!\n" 0 6 ...)) (p= aragraph (:begin 248 :end 307 :contents-begin 248 :contents-end 307 :post-b= lank 0 :post-affiliated 248 :mode nil :granularity nil :parent #3) #("So, F= igure " 0 11 ...) (link ...) #("is an illustration of the stuff...." 0 33 .= ..))))) (cond ((not --data)) ((and info (memq --data --ignore-list))) ((not --typ= e) (mapc --walk-tree --data)) ((eq --type 'org-data) (mapc --walk-tree (org= -element-contents --data))) (t (if (memq --type types) (progn (let ((result= (funcall fun --data))) (cond ((not result)) (first-match (throw :--map-fir= st-match result)) (t (setq --acc ...)))))) (if (and (eq --category 'objects= ) (not (stringp --data))) (progn (let ((tail (cdr ...))) (while tail (let (= ...) (funcall --walk-tree ...) (setq tail ...)))))) (if (and with-affiliate= d (eq --category 'objects) (eq (org-element-class --data) 'element)) (progn= (let ((tail org-element--parsed-properties-alist)) (while tail (let (...) = (let ... ...) (setq tail ...)))))) (cond ((memq --type no-recursion)) ((not= (org-element-contents --data))) ((and (eq --category 'greater-elements) (n= ot (memq --type org-element-greater-elements)))) ((and (eq --category 'elem= ents) (eq (org-element-class --data) 'object))) (t (mapc --walk-tree (org-e= lement-contents --data)))))) (let ((--type (org-element-type --data))) (cond ((not --data)) ((and info= (memq --data --ignore-list))) ((not --type) (mapc --walk-tree --data)) ((e= q --type 'org-data) (mapc --walk-tree (org-element-contents --data))) (t (i= f (memq --type types) (progn (let ((result ...)) (cond (...) (first-match .= ..) (t ...))))) (if (and (eq --category 'objects) (not (stringp --data))) (= progn (let ((tail ...)) (while tail (let ... ... ...))))) (if (and with-aff= iliated (eq --category 'objects) (eq (org-element-class --data) 'element)) = (progn (let ((tail org-element--parsed-properties-alist)) (while tail (let = ... ... ...))))) (cond ((memq --type no-recursion)) ((not (org-element-cont= ents --data))) ((and (eq --category 'greater-elements) (not (memq --type or= g-element-greater-elements)))) ((and (eq --category 'elements) (eq (org-ele= ment-class --data) 'object))) (t (mapc --walk-tree (org-element-contents --= data))))))) (closure ((--walk-tree . #0) (--acc) (--ignore-list) (--category . object= s) (no-recursion) (types link . link) (with-affiliated) (first-match . firs= t-match) (info :export-options nil :back-end ... :translate-alist ... :expo= rted-data # :input-buffer "newtest.org" := input-file "/Users/powellb/tmp/new..." :html-doctype "xhtml-strict" :html-c= ontainer "div" :html-content-class "content" :description nil :keywords ...= ) (fun closure ... ... ...)) (--data) (let (...) (cond ... ... ... ... ...)= ))((org-data (:begin 1 :contents-begin 1 :contents-end 307 :end 307 :robust= -begin 3 :robust-end 305 :post-blank 0 :post-affiliated 1 :path "/Users/pow= ellb/tmp/newtest.org" :mode org-data :CATEGORY "newtest" :granularity nil) = (section (:begin 1 :end 307 :contents-begin 1 :contents-end 307 :robust-beg= in 1 :robust-end 305 :post-blank 0 :post-affiliated 1 :mode first-section := granularity nil :parent #1) (keyword (:key "TITLE" :value "test" :begin 1 := end 21 :post-blank 0 :post-affiliated 1 :mode top-comment :granularity nil = :parent #4)) (keyword (:key "AUTHOR" :value "Brian Powell" :begin 21 :end 4= 9 :post-blank 0 :post-affiliated 21 :mode nil :granularity nil :parent #4))= (keyword (:key "EMAIL" :value "powellb@hawaii.edu" :begin 49 :end 83 :post= -blank 0 :post-affiliated 49 :mode nil :granularity nil :parent #4)) (keywo= rd (:key "DATE" :value "" :begin 83 :end 93 :post-blank 2 :post-affiliated = 83 :mode nil :granularity nil :parent #4)) (paragraph (:begin 93 :end 241 := contents-begin 220 :contents-end 240 :post-blank 1 :post-affiliated 220 :na= me "fig:parcel" :caption (((...))) :attr_html (":width 600px") :attr_org ("= :width 50px") :attr_latex (":width 3.5in") :mode nil :granularity nil :pare= nt #4) (link (:type "file" :path "./test.png" :format bracket :raw-link "fi= le:./test.png" :application nil :search-option nil :begin 220 :end 239 :con= tents-begin nil :contents-end nil :post-blank 0 :parent #11)) #("\n" 0 1 (:= parent #11))) (paragraph (:begin 241 :end 248 :contents-begin 241 :contents= -end 247 :post-blank 1 :post-affiliated 241 :mode nil :granularity nil :par= ent #4) #("Done!\n" 0 6 (:parent #12))) (paragraph (:begin 248 :end 307 :co= ntents-begin 248 :contents-end 307 :post-blank 0 :post-affiliated 248 :mode= nil :granularity nil :parent #4) #("So, Figure " 0 11 (:parent #13)) (link= (:type "fuzzy" :path "fig:parcel" :format bracket :raw-link "fig:parcel" := application nil :search-option nil :begin 259 :end 274 :contents-begin nil = :contents-end nil :post-blank 1 :parent #13)) #("is an illustration of the = stuff.\n" 0 33 (:parent #13)))))) funcall((closure ((--walk-tree . #1) (--acc) (--ignore-list) (--category = . objects) (no-recursion) (types link . link) (with-affiliated) (first-matc= h . first-match) (info :export-options nil :back-end #s(org-export-backend = :name html :parent nil :transcoders ... :options ... :filters ... :blocks n= il :menu ...) :translate-alist (... ... ... ... ... ... ... ... ... ... ...= ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..= . ... ... ...) :exported-data # :input-bu= ffer "newtest.org" :input-file "/Users/powellb/tmp/newtest.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 = :html-link-home "" :html-link-up "" :html-mathjax ...) (fun closure (... ..= . ... ... ...) (el) (let ... ...))) (--data) (let ((--type ...)) (cond (...= ) (...) (... ...) (... ...) (t ... ... ... ...)))) (org-data (:begin 1 :con= tents-begin 1 :contents-end 307 :end 307 :robust-begin 3 :robust-end 305 :p= ost-blank 0 :post-affiliated 1 :path "/Users/powellb/tmp/newtest.org" :mode= org-data :CATEGORY "newtest" :granularity nil) (section (:begin 1 :end 307= :contents-begin 1 :contents-end 307 :robust-begin 1 :robust-end 305 :post-= blank 0 :post-affiliated 1 :mode first-section :granularity nil :parent #2)= (keyword (:key "TITLE" :value "test" :begin 1 :end 21 :post-blank 0 :post-= affiliated 1 :mode top-comment :granularity nil :parent #5)) (keyword (:key= "AUTHOR" :value "Brian Powell" :begin 21 :end 49 :post-blank 0 :post-affil= iated 21 :mode nil :granularity nil :parent #5)) (keyword (:key "EMAIL" :va= lue "powellb@hawaii.edu" :begin 49 :end 83 :post-blank 0 :post-affiliated 4= 9 :mode nil :granularity nil :parent #5)) (keyword (:key "DATE" :value "" := begin 83 :end 93 :post-blank 2 :post-affiliated 83 :mode nil :granularity n= il :parent #5)) (paragraph (:begin 93 :end 241 :contents-begin 220 :content= s-end 240 :post-blank 1 :post-affiliated 220 :name "fig:parcel" :caption ..= . :attr_html ... :attr_org ... :attr_latex ... :mode nil :granularity nil := parent #5) (link ...) #("\n" 0 1 ...)) (paragraph (:begin 241 :end 248 :con= tents-begin 241 :contents-end 247 :post-blank 1 :post-affiliated 241 :mode = nil :granularity nil :parent #5) #("Done!\n" 0 6 ...)) (paragraph (:begin 2= 48 :end 307 :contents-begin 248 :contents-end 307 :post-blank 0 :post-affil= iated 248 :mode nil :granularity nil :parent #5) #("So, Figure " 0 11 ...) = (link ...) #("is an illustration of the stuff...." 0 33 ...))))) (catch :--map-first-match (funcall --walk-tree data) (nreverse --acc)) (let (--walk-tree) (setq --walk-tree #'(lambda (--data) (let ((--type (or= g-element-type --data))) (cond ((not --data)) ((and info ...)) ((not --type= ) (mapc --walk-tree --data)) ((eq --type ...) (mapc --walk-tree ...)) (t (i= f ... ...) (if ... ...) (if ... ...) (cond ... ... ... ... ...)))))) (catch= :--map-first-match (funcall --walk-tree data) (nreverse --acc))) (let* ((types (if (listp types) types (list types))) (no-recursion (if (l= istp no-recursion) no-recursion (list no-recursion))) (--category (catch :-= -found (let ((category 'greater-elements) (all-objects (cons ... org-elemen= t-all-objects))) (let ((tail types)) (while tail (let ... ... ...)) categor= y)))) (--ignore-list (plist-get info :ignore-list)) --acc) (let (--walk-tre= e) (setq --walk-tree #'(lambda (--data) (let ((--type ...)) (cond (...) (..= .) (... ...) (... ...) (t ... ... ... ...))))) (catch :--map-first-match (f= uncall --walk-tree data) (nreverse --acc)))) org-element-map((org-data (:begin 1 :contents-begin 1 :contents-end 307 := end 307 :robust-begin 3 :robust-end 305 :post-blank 0 :post-affiliated 1 :p= ath "/Users/powellb/tmp/newtest..." :mode org-data :CATEGORY "newtest" :gra= nularity nil) (section (:begin 1 :end 307 :contents-begin 1 :contents-end 3= 07 :robust-begin 1 :robust-end 305 :post-blank 0 :post-affiliated 1 :mode f= irst-section :granularity nil :parent #1) (keyword ...) (keyword ...) (keyw= ord ...) (keyword ...) (paragraph ... ... ...) (paragraph ... ...) (paragra= ph ... ... ... ...))) (link . link) (closure ((counter . 0) (predicate . or= g-html-standalone-image-p) (types . link) (info :export-options nil :back-e= nd ... :translate-alist ... :exported-data # :input-buffer "newtest.org" :input-file "/Users/powellb/tmp/newtest..."= :html-doctype "xhtml-strict" :html-container "div" :html-content-class "co= ntent" :description nil :keywords nil :html-html5-fancy nil :html-link-use-= abs-url ...) (element link ...)) (el) (let (...) (cond ... ... ... ...))) (= :export-options nil :back-end #s(org-export-backend :name html :parent nil = :transcoders (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .= .. ... ... ... ... ... ... ... ... ... ... ...) :options (... ... ... ... .= .. ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... = ... ... ... ...) :filters (... ... ...) :blocks nil :menu (104 "Export to H= TML" ...)) :translate-alist ((bold . org-html-bold) (center-block . org-htm= l-center-block) (clock . org-html-clock) (code . org-html-code) (drawer . o= rg-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) (head= line . org-html-headline) (horizontal-rule . org-html-horizontal-rule) (inl= ine-src-block . org-html-inline-src-block) (inlinetask . org-html-inlinetas= k) (inner-template . org-html-inner-template) (italic . org-html-italic) (i= tem . org-html-item) (keyword . org-html-keyword) (latex-environment . org-= html-latex-environment) (latex-fragment . org-html-latex-fragment) (line-br= eak . org-html-line-break) (link . org-html-link) (node-property . org-html= -node-property) (paragraph . org-html-paragraph) ...) :exported-data # :input-buffer "newtest.org" :input-file "/Use= rs/powellb/tmp/newtest..." :html-doctype "xhtml-strict" :html-container "di= v" :html-content-class "content" :description nil :keywords nil :html-html5= -fancy nil :html-link-use-abs-url nil ...) first-match) (let ((counter 0)) (org-element-map (plist-get info :parse-tree) (or (and= types (cons (org-element-type element) types)) (org-element-type element))= #'(lambda (el) (let ((cached (org-element-property :org-export--counter el= ))) (cond ((eq element el) (1+ counter)) ((and cached ... ...) (setq counte= r ...) nil) ((not predicate) (setq counter ...) (org-element-put-property e= l :org-export--counter ...) nil) ((funcall predicate el info) (setq counter= ...) (org-element-put-property el :org-export--counter ...) nil)))) info '= first-match)) (cond ((eql temp 'headline) (org-export-get-headline-number element info)= ) ((eql temp 'item) (let ((struct (org-element-property :structure element)= )) (org-list-get-item-number (org-element-property :begin element) struct (= org-list-prevs-alist struct) (org-list-parents-alist struct)))) ((memql tem= p '(footnote-definition footnote-reference)) (org-export-get-footnote-numbe= r element info)) (t (let ((counter 0)) (org-element-map (plist-get info :pa= rse-tree) (or (and types (cons (org-element-type element) types)) (org-elem= ent-type element)) #'(lambda (el) (let (...) (cond ... ... ... ...))) info = 'first-match)))) (let* ((temp (org-element-type element))) (cond ((eql temp 'headline) (or= g-export-get-headline-number element info)) ((eql temp 'item) (let ((struct= (org-element-property :structure element))) (org-list-get-item-number (org= -element-property :begin element) struct (org-list-prevs-alist struct) (org= -list-parents-alist struct)))) ((memql temp '(footnote-definition footnote-= reference)) (org-export-get-footnote-number element info)) (t (let ((counte= r 0)) (org-element-map (plist-get info :parse-tree) (or (and types (cons ..= . types)) (org-element-type element)) #'(lambda (el) (let ... ...)) info 'f= irst-match))))) org-export-get-ordinal((link (:type "file" :path "./test.png" :format bra= cket :raw-link "file:./test.png" :application nil :search-option nil :begin= 220 :end 239 :contents-begin nil :contents-end nil :post-blank 0 :parent (= paragraph ... #1 ...))) (: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 "newte= st.org" :input-file "/Users/powellb/tmp/newtest..." :html-doctype "xhtml-st= rict" :html-container "div" :html-content-class "content" :description nil = :keywords nil :html-html5-fancy nil :html-link-use-abs-url nil ...) link or= g-html-standalone-image-p) (cond (desc nil) ((org-html-standalone-image-p destination info) (org-exp= ort-get-ordinal (org-element-map destination 'link #'identity info t) info = 'link 'org-html-standalone-image-p)) (t (org-export-get-ordinal destination= info nil counter-predicate))) (let* ((ref (org-html--reference destination info)) (org-html-standalone-= image-predicate #'org-html--has-caption-p) (counter-predicate (if (eq 'late= x-environment (org-element-type destination)) #'org-html--math-environment-= p #'org-html--has-caption-p)) (number (cond (desc nil) ((org-html-standalon= e-image-p destination info) (org-export-get-ordinal (org-element-map destin= ation 'link #'identity info t) info 'link 'org-html-standalone-image-p)) (t= (org-export-get-ordinal destination info nil counter-predicate)))) (desc (= cond (desc) ((not number) "No description for this link") ((numberp number)= (number-to-string number)) (t (mapconcat #'number-to-string number "."))))= ) (format "%s" ref attributes desc)) (if (and destination (memq (plist-get info :with-latex) '(mathjax t)) (eq= 'latex-environment (org-element-type destination)) (eq 'math (org-latex--e= nvironment-type destination))) (format (plist-get info :html-equation-refer= ence-format) (org-html--reference destination info)) (let* ((ref (org-html-= -reference destination info)) (org-html-standalone-image-predicate #'org-ht= ml--has-caption-p) (counter-predicate (if (eq 'latex-environment (org-eleme= nt-type destination)) #'org-html--math-environment-p #'org-html--has-captio= n-p)) (number (cond (desc nil) ((org-html-standalone-image-p destination in= fo) (org-export-get-ordinal (org-element-map destination ... ... info t) in= fo 'link 'org-html-standalone-image-p)) (t (org-export-get-ordinal destinat= ion info nil counter-predicate)))) (desc (cond (desc) ((not number) "No des= cription for this link") ((numberp number) (number-to-string number)) (t (m= apconcat #'number-to-string number "."))))) (format "%s= " ref attributes desc))) (let nil (if (and destination (memq (plist-get info :with-latex) '(mathja= x t)) (eq 'latex-environment (org-element-type destination)) (eq 'math (org= -latex--environment-type destination))) (format (plist-get info :html-equat= ion-reference-format) (org-html--reference destination info)) (let* ((ref (= org-html--reference destination info)) (org-html-standalone-image-predicate= #'org-html--has-caption-p) (counter-predicate (if (eq 'latex-environment (= org-element-type destination)) #'org-html--math-environment-p #'org-html--h= as-caption-p)) (number (cond (desc nil) ((org-html-standalone-image-p desti= nation info) (org-export-get-ordinal ... info ... ...)) (t (org-export-get-= ordinal destination info nil counter-predicate)))) (desc (cond (desc) ((not= number) "No description for this link") ((numberp number) (number-to-strin= g number)) (t (mapconcat ... number "."))))) (format "%= s" ref attributes desc)))) (cond ((eq val 'plain-text) (let nil (let ((fragment (concat "ID-" path))= (path (funcall link-org-files-as-html-maybe destination info))) (format "<= a href=3D\"%s#%s\"%s>%s" path fragment attributes (or desc destination)= )))) ((null val) (let nil (format "%s" (or desc (org-export-data (or= g-element-property :raw-link link) info))))) ((eq val 'headline) (let nil (= let ((href (org-html--reference destination info)) (desc (if (and ... ...) = (mapconcat ... ... ".") (or desc ...)))) (format "%s" href attributes desc)))) (t (let nil (if (and destination (memq (plist-g= et info :with-latex) '(mathjax t)) (eq 'latex-environment (org-element-type= destination)) (eq 'math (org-latex--environment-type destination))) (forma= t (plist-get info :html-equation-reference-format) (org-html--reference des= tination info)) (let* ((ref (org-html--reference destination info)) (org-ht= ml-standalone-image-predicate #'org-html--has-caption-p) (counter-predicate= (if ... ... ...)) (number (cond ... ... ...)) (desc (cond ... ... ... ...)= )) (format "%s" ref attributes desc)))))) (let* ((val (org-element-type destination))) (cond ((eq val 'plain-text) = (let nil (let ((fragment (concat "ID-" path)) (path (funcall link-org-files= -as-html-maybe destination info))) (format "%s" p= ath fragment attributes (or desc destination))))) ((null val) (let nil (for= mat "%s" (or desc (org-export-data (org-element-property :raw-link l= ink) info))))) ((eq val 'headline) (let nil (let ((href (org-html--referenc= e destination info)) (desc (if ... ... ...))) (format "= %s" href attributes desc)))) (t (let nil (if (and destination (memq (pl= ist-get info :with-latex) '...) (eq 'latex-environment (org-element-type de= stination)) (eq 'math (org-latex--environment-type destination))) (format (= plist-get info :html-equation-reference-format) (org-html--reference destin= ation info)) (let* ((ref ...) (org-html-standalone-image-predicate ...) (co= unter-predicate ...) (number ...) (desc ...)) (format "= %s" ref attributes desc))))))) (let ((destination (if (string=3D type "fuzzy") (org-export-resolve-fuzzy= -link link info) (org-export-resolve-id-link link info)))) (let* ((val (org= -element-type destination))) (cond ((eq val 'plain-text) (let nil (let ((fr= agment ...) (path ...)) (format "%s" path fragmen= t attributes (or desc destination))))) ((null val) (let nil (format "%s<= /i>" (or desc (org-export-data ... info))))) ((eq val 'headline) (let nil (= let ((href ...) (desc ...)) (format "%s" href attri= butes desc)))) (t (let nil (if (and destination (memq ... ...) (eq ... ...)= (eq ... ...)) (format (plist-get info :html-equation-reference-format) (or= g-html--reference destination info)) (let* (... ... ... ... ...) (format "<= a href=3D\"#%s\"%s>%s" ref attributes desc)))))))) (cond ((org-export-custom-protocol-maybe link desc 'html info)) ((and (pl= ist-get info :html-inline-images) (org-export-inline-image-p link (plist-ge= t info :html-inline-image-rules))) (org-html--format-image path attributes-= plist info)) ((string=3D type "radio") (let ((destination (org-export-resol= ve-radio-link link info))) (if (not destination) desc (format "%s" (org-export-get-reference destination info) attributes desc= )))) ((member type '("custom-id" "fuzzy" "id")) (let ((destination (if (str= ing=3D type "fuzzy") (org-export-resolve-fuzzy-link link info) (org-export-= resolve-id-link link info)))) (let* ((val (org-element-type destination))) = (cond ((eq val 'plain-text) (let nil (let ... ...))) ((null val) (let nil (= format "%s" ...))) ((eq val 'headline) (let nil (let ... ...))) (t (= let nil (if ... ... ...))))))) ((string=3D type "coderef") (let ((fragment = (concat "coderef-" (org-html-encode-plain-text path)))) (format "%s" fragment (format "class=3D\"coderef\" onmouseover=3D\"= CodeHighlightOn(this,..." fragment fragment) attributes (format (org-export= -get-coderef-format path desc) (org-export-resolve-coderef path info))))) (= (and path desc) (format "%s" (org-html-encode-plain-= text path) attributes desc)) (path (let ((path (org-html-encode-plain-text = path))) (format "%s" path attributes path))) (t (for= mat "%s" desc))) (let* ((html-ext (plist-get info :html-extension)) (dot (if (> (length ht= ml-ext) 0) (progn "."))) (link-org-files-as-html-maybe #'(lambda (raw-path = info) (let ((saved-match-data ...)) (unwind-protect (progn ...) (set-match-= data saved-match-data t))))) (type (org-element-property :type link)) (raw-= path (org-element-property :path link)) (desc (org-string-nw-p desc)) (path= (cond ((member type '("http" "https" "ftp" "mailto" "news")) (url-encode-u= rl (concat type ":" raw-path))) ((string=3D "file" type) (setq raw-path (or= g-export-file-uri (org-publish-file-relative-name raw-path info))) (let ((h= ome ...)) (if (and home ... ...) (progn ...))) (setq raw-path (funcall link= -org-files-as-html-maybe raw-path info)) (let ((option ...)) (if (not optio= n) raw-path (let ... ...)))) (t raw-path))) (attributes-plist (org-combine-= plists (let* ((parent (org-export-get-parent-element link)) (link (let ... = ...))) (and (eq link (org-element-map parent ... ... info t)) (org-export-r= ead-attribute :attr_html parent))) (org-export-read-attribute :attr_html li= nk))) (attributes (let ((attr (org-html--make-attribute-string attributes-p= list))) (if (org-string-nw-p attr) (concat " " attr) "")))) (cond ((org-exp= ort-custom-protocol-maybe link desc 'html info)) ((and (plist-get info :htm= l-inline-images) (org-export-inline-image-p link (plist-get info :html-inli= ne-image-rules))) (org-html--format-image path attributes-plist info)) ((st= ring=3D type "radio") (let ((destination (org-export-resolve-radio-link lin= k info))) (if (not destination) desc (format "%s" (= org-export-get-reference destination info) attributes desc)))) ((member typ= e '("custom-id" "fuzzy" "id")) (let ((destination (if (string=3D type "fuzz= y") (org-export-resolve-fuzzy-link link info) (org-export-resolve-id-link l= ink info)))) (let* ((val (org-element-type destination))) (cond ((eq val ..= .) (let nil ...)) ((null val) (let nil ...)) ((eq val ...) (let nil ...)) (= t (let nil ...)))))) ((string=3D type "coderef") (let ((fragment (concat "c= oderef-" (org-html-encode-plain-text path)))) (format "%s" fragment (format "class=3D\"coderef\" onmouseover=3D\"CodeHighli= ghtOn(this,..." fragment fragment) attributes (format (org-export-get-coder= ef-format path desc) (org-export-resolve-coderef path info))))) ((and path = desc) (format "%s" (org-html-encode-plain-text path)= attributes desc)) (path (let ((path (org-html-encode-plain-text path))) (f= ormat "%s" path attributes path))) (t (format "%s= " desc)))) org-html-link((link (:type "fuzzy" :path "fig:parcel" :format bracket :ra= w-link "fig:parcel" :application nil :search-option nil :begin 259 :end 274= :contents-begin nil :contents-end nil :post-blank 1 :parent (paragraph ...= ... #1 ...))) nil (:export-options nil :back-end #s(org-export-backend :na= me html :parent nil :transcoders (... ... ... ... ... ... ... ... ... ... .= .. ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :option= s (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... = ... ... ... ... ... ... ... ... ...) :filters (... ... ...) :blocks nil :me= nu (104 "Export to HTML" ...)) :translate-alist ((bold . org-html-bold) (ce= nter-block . org-html-center-block) (clock . org-html-clock) (code . org-ht= ml-code) (drawer . org-html-drawer) (dynamic-block . org-html-dynamic-block= ) (entity . org-html-entity) (example-block . org-html-example-block) (expo= rt-block . org-html-export-block) (export-snippet . org-html-export-snippet= ) (fixed-width . org-html-fixed-width) (footnote-reference . org-html-footn= ote-reference) (headline . org-html-headline) (horizontal-rule . org-html-h= orizontal-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) (late= x-environment . org-html-latex-environment) (latex-fragment . org-html-late= x-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 "newtest.or= g" :input-file "/Users/powellb/tmp/newtest..." :html-doctype "xhtml-strict"= :html-container "div" :html-content-class "content" :description nil :keyw= ords nil :html-html5-fancy nil :html-link-use-abs-url nil ...)) funcall(org-html-link (link (:type "fuzzy" :path "fig:parcel" :format bra= cket :raw-link "fig:parcel" :application nil :search-option nil :begin 259 = :end 274 :contents-begin nil :contents-end nil :post-blank 1 :parent (parag= raph ... ... #2 ...))) nil (:export-options nil :back-end #s(org-export-bac= kend :name html :parent nil :transcoders (... ... ... ... ... ... ... ... .= .. ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)= :options (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... = ... ... ... ... ... ... ... ... ... ... ...) :filters (... ... ...) :blocks= nil :menu (104 "Export to HTML" ...)) :translate-alist ((bold . org-html-b= old) (center-block . org-html-center-block) (clock . org-html-clock) (code = . org-html-code) (drawer . org-html-drawer) (dynamic-block . org-html-dynam= ic-block) (entity . org-html-entity) (example-block . org-html-example-bloc= k) (export-block . org-html-export-block) (export-snippet . org-html-export= -snippet) (fixed-width . org-html-fixed-width) (footnote-reference . org-ht= ml-footnote-reference) (headline . org-html-headline) (horizontal-rule . or= g-html-horizontal-rule) (inline-src-block . org-html-inline-src-block) (inl= inetask . org-html-inlinetask) (inner-template . org-html-inner-template) (= italic . org-html-italic) (item . org-html-item) (keyword . org-html-keywor= d) (latex-environment . org-html-latex-environment) (latex-fragment . org-h= tml-latex-fragment) (line-break . org-html-line-break) (link . org-html-lin= k) (node-property . org-html-node-property) (paragraph . org-html-paragraph= ) ...) :exported-data # :input-buffer "ne= wtest.org" :input-file "/Users/powellb/tmp/newtest..." :html-doctype "xhtml= -strict" :html-container "div" :html-content-class "content" :description n= il :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) = (let nil (user-error "Unable to resolve link: %S" (nth 1 err)))) ((eq val '= mark) (let nil (org-export-data (format "[BROKEN LINK: %s]" ...) info))) (t= 'nil))))) (if (eq type 'link) (condition-case err (progn (funcall transcoder data n= il info)) (org-link-broken (let* ((val (plist-get info :with-broken-links))= ) (cond ((null val) (let nil (user-error "Unable to resolve link: %S" ...))= ) ((eq val 'mark) (let nil (org-export-data ... info))) (t 'nil))))) (funca= ll transcoder data nil info)) (and (functionp transcoder) (if (eq type 'link) (condition-case err (prog= n (funcall transcoder data nil info)) (org-link-broken (let* ((val (plist-g= et info :with-broken-links))) (cond ((null val) (let nil ...)) ((eq val ...= ) (let nil ...)) (t 'nil))))) (funcall transcoder data nil info))) (or (and (functionp transcoder) (if (eq type 'link) (condition-case err (= progn (funcall transcoder data nil info)) (org-link-broken (let* ((val ...)= ) (cond (... ...) (... ...) (t ...))))) (funcall transcoder data nil info))= ) (and (eq type 'export-snippet) "")) (let ((transcoder (org-export-transcoder data info))) (or (and (functionp= transcoder) (if (eq type 'link) (condition-case err (progn (funcall transc= oder data nil info)) (org-link-broken (let* (...) (cond ... ... ...)))) (fu= ncall transcoder data nil info))) (and (eq type 'export-snippet) ""))) (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type 'raw) (ca= r (org-element-contents data))) ((eq type 'plain-text) (org-export-filter-a= pply-functions (plist-get info :filter-plain-text) (let ((transcoder (org-e= xport-transcoder data info))) (if transcoder (funcall transcoder data info)= data)) info)) ((not type) (mapconcat #'(lambda (obj) (org-export-data obj = info)) data "")) ((or (not (org-element-contents data)) (and (eq type 'head= line) (eq (plist-get info :with-archived-trees) 'headline) (org-element-pro= perty :archivedp data))) (let ((transcoder (org-export-transcoder data info= ))) (or (and (functionp transcoder) (if (eq type 'link) (condition-case err= (progn ...) (org-link-broken ...)) (funcall transcoder data nil info))) (a= nd (eq type 'export-snippet) "")))) (t (let ((transcoder (org-export-transc= oder data info))) (if transcoder (progn (let* ((greaterp ...) (objectp ...)= (contents ...)) (condition-case err (progn ...) (org-link-broken ...))))))= )) (let* ((type (org-element-type data)) (parent (org-export-get-parent data= )) (results (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type= 'raw) (car (org-element-contents data))) ((eq type 'plain-text) (org-expor= t-filter-apply-functions (plist-get info :filter-plain-text) (let (...) (if= transcoder ... data)) info)) ((not type) (mapconcat #'(lambda ... ...) dat= a "")) ((or (not (org-element-contents data)) (and (eq type ...) (eq ... ..= .) (org-element-property :archivedp data))) (let ((transcoder ...)) (or (an= d ... ...) (and ... "")))) (t (let ((transcoder ...)) (if transcoder (progn= ...))))))) (puthash data (cond ((not results) "") ((memq type '(nil org-da= ta plain-text raw)) results) (t (org-export-filter-apply-functions (plist-g= et info (intern (format ":filter-%s" type))) (let ((blank ...)) (if (eq ...= ...) (concat results ...) (concat ... ...))) info))) (plist-get info :expo= rted-data))) (or (gethash data (plist-get info :exported-data)) (let* ((type (org-elem= ent-type data)) (parent (org-export-get-parent data)) (results (cond ((memq= data (plist-get info :ignore-list)) nil) ((eq type 'raw) (car (org-element= -contents data))) ((eq type 'plain-text) (org-export-filter-apply-functions= (plist-get info :filter-plain-text) (let ... ...) info)) ((not type) (mapc= oncat #'... data "")) ((or (not ...) (and ... ... ...)) (let (...) (or ... = ...))) (t (let (...) (if transcoder ...)))))) (puthash data (cond ((not res= ults) "") ((memq type '(nil org-data plain-text raw)) results) (t (org-expo= rt-filter-apply-functions (plist-get info (intern ...)) (let (...) (if ... = ... ...)) info))) (plist-get info :exported-data)))) org-export-data((link (:type "fuzzy" :path "fig:parcel" :format bracket := raw-link "fig:parcel" :application nil :search-option nil :begin 259 :end 2= 74 :contents-begin nil :contents-end nil :post-blank 1 :parent (paragraph .= .. ... #1 ...))) (:export-options nil :back-end #s(org-export-backend :name= html :parent nil :transcoders (... ... ... ... ... ... ... ... ... ... ...= ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :options = (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..= . ... ... ... ... ... ... ... ...) :filters (... ... ...) :blocks nil :menu= (104 "Export to HTML" ...)) :translate-alist ((bold . org-html-bold) (cent= er-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-footnot= e-reference) (headline . org-html-headline) (horizontal-rule . org-html-hor= izontal-rule) (inline-src-block . org-html-inline-src-block) (inlinetask . = org-html-inlinetask) (inner-template . org-html-inner-template) (italic . o= rg-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-p= roperty . org-html-node-property) (paragraph . org-html-paragraph) ...) :ex= ported-data # :input-buffer "newtest.org"= :input-file "/Users/powellb/tmp/newtest..." :html-doctype "xhtml-strict" := html-container "div" :html-content-class "content" :description nil :keywor= ds nil :html-html5-fancy nil :html-link-use-abs-url nil ...)) (closure ((info :export-options nil :back-end #s(org-export-backend :name= html :parent nil :transcoders ... :options ... :filters ... :blocks nil :m= enu ...) :translate-alist (... ... ... ... ... ... ... ... ... ... ... ... = ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :e= xported-data # :input-buffer "newtest.org= " :input-file "/Users/powellb/tmp/newtest.or..." :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 :html-link-home= "" ...)) (element) (org-export-data element info))((link (:type "fuzzy" :p= ath "fig:parcel" :format bracket :raw-link "fig:parcel" :application nil :s= earch-option nil :begin 259 :end 274 :contents-begin nil :contents-end nil = :post-blank 1 :parent (paragraph (:begin 248 :end 307 :contents-begin 248 := contents-end 307 :post-blank 0 :post-affiliated 248 :mode nil :granularity = nil :parent (section (:begin 1 :end 307 :contents-begin 1 :contents-end 307= :robust-begin 1 :robust-end 305 :post-blank 0 :post-affiliated 1 :mode fir= st-section :granularity nil :parent (org-data ... #47)) (keyword (:key "TIT= LE" :value "test" :begin 1 :end 21 :post-blank 0 :post-affiliated 1 :mode t= op-comment :granularity nil :parent #47)) (keyword (:key "AUTHOR" :value "B= rian Powell" :begin 21 :end 49 :post-blank 0 :post-affiliated 21 :mode nil = :granularity nil :parent #47)) (keyword (:key "EMAIL" :value "powellb@hawai= i.edu" :begin 49 :end 83 :post-blank 0 :post-affiliated 49 :mode nil :granu= larity nil :parent #47)) (keyword (:key "DATE" :value "" :begin 83 :end 93 = :post-blank 2 :post-affiliated 83 :mode nil :granularity nil :parent #47)) = (paragraph (:begin 93 :end 241 :contents-begin 220 :contents-end 240 :post-= blank 1 :post-affiliated 220 :name "fig:parcel" :caption ... :attr_html ...= :attr_org ... :attr_latex ... :mode nil :granularity nil :parent #47) (lin= k ...) #("\n" 0 1 ...)) (paragraph (:begin 241 :end 248 :contents-begin 241= :contents-end 247 :post-blank 1 :post-affiliated 241 :mode nil :granularit= y nil :parent #47) #("Done!\n" 0 6 ...)) #27)) #("So, Figure " 0 11 (:paren= t #27)) #1 #("is an illustration of the stuff.\n" 0 33 (:parent #27)))))) mapconcat((closure ((info :export-options nil :back-end #s(org-export-bac= kend :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) (plain-list . org-html-plain-list) (plain-text . org= -html-plain-text) (planning . org-html-planning) (property-drawer . org-htm= l-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-ht= ml-statistics-cookie) (strike-through . org-html-strike-through) (subscript= . org-html-subscript) ...) :exported-data # :input-buffer "newtest.org" :input-file "/Users/powellb/tmp/newtest.org= " :html-doctype "xhtml-strict" :html-container "div" :html-content-class "c= ontent" :description nil :keywords nil :html-html5-fancy nil :html-link-use= -abs-url nil :html-link-home "" :html-link-up "" :html-mathjax "" :html-equ= ation-reference-format "\\eqref{%s}" :html-postamble auto :html-preamble ..= .)) (element) (org-export-data element info)) (#("So, Figure " 0 11 (:paren= t (paragraph (:begin 248 :end 307 :contents-begin 248 :contents-end 307 :po= st-blank 0 :post-affiliated 248 :mode nil :granularity nil :parent ...) . #= 2))) (link (:type "fuzzy" :path "fig:parcel" :format bracket :raw-link "fig= :parcel" :application nil :search-option nil :begin 259 :end 274 :contents-= begin nil :contents-end nil :post-blank 1 :parent (paragraph (:begin 248 :e= nd 307 :contents-begin 248 :contents-end 307 :post-blank 0 :post-affiliated= 248 :mode nil :granularity nil :parent ...) . #2))) #("is an illustration = of the stuff.\n" 0 33 (:parent (paragraph (:begin 248 :end 307 :contents-be= gin 248 :contents-end 307 :post-blank 0 :post-affiliated 248 :mode nil :gra= nularity nil :parent ...) . #2)))) "") (let* ((greaterp (memq type org-element-greater-elements)) (objectp (and = (not greaterp) (memq type org-element-recursive-objects))) (contents (mapco= ncat #'(lambda (element) (org-export-data element info)) (org-element-conte= nts (if (or greaterp objectp) data (org-element-normalize-contents data (an= d ... ... ... ...)))) ""))) (condition-case err (progn (funcall transcoder = data (if (not greaterp) contents (org-element-normalize-string contents)) i= nfo)) (org-link-broken (let* ((val (plist-get info :with-broken-links))) (c= ond ((null val) (let nil (user-error "Unable to resolve link: %S" ...))) ((= eq val 'mark) (let nil (org-export-data ... info))) (t 'nil)))))) (progn (let* ((greaterp (memq type org-element-greater-elements)) (object= p (and (not greaterp) (memq type org-element-recursive-objects))) (contents= (mapconcat #'(lambda (element) (org-export-data element info)) (org-elemen= t-contents (if (or greaterp objectp) data (org-element-normalize-contents d= ata ...))) ""))) (condition-case err (progn (funcall transcoder data (if (n= ot greaterp) contents (org-element-normalize-string contents)) info)) (org-= link-broken (let* ((val (plist-get info :with-broken-links))) (cond ((null = val) (let nil ...)) ((eq val ...) (let nil ...)) (t 'nil))))))) (if transcoder (progn (let* ((greaterp (memq type org-element-greater-ele= ments)) (objectp (and (not greaterp) (memq type org-element-recursive-objec= ts))) (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 ...)))))))) (let ((transcoder (org-export-transcoder data info))) (if transcoder (pro= gn (let* ((greaterp (memq type org-element-greater-elements)) (objectp (and= (not greaterp) (memq type org-element-recursive-objects))) (contents (mapc= oncat #'... (org-element-contents ...) ""))) (condition-case err (progn (fu= ncall transcoder data (if ... contents ...) info)) (org-link-broken (let* (= ...) (cond ... ... ...)))))))) (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type 'raw) (ca= r (org-element-contents data))) ((eq type 'plain-text) (org-export-filter-a= pply-functions (plist-get info :filter-plain-text) (let ((transcoder (org-e= xport-transcoder data info))) (if transcoder (funcall transcoder data info)= data)) info)) ((not type) (mapconcat #'(lambda (obj) (org-export-data obj = info)) data "")) ((or (not (org-element-contents data)) (and (eq type 'head= line) (eq (plist-get info :with-archived-trees) 'headline) (org-element-pro= perty :archivedp data))) (let ((transcoder (org-export-transcoder data info= ))) (or (and (functionp transcoder) (if (eq type 'link) (condition-case err= (progn ...) (org-link-broken ...)) (funcall transcoder data nil info))) (a= nd (eq type 'export-snippet) "")))) (t (let ((transcoder (org-export-transc= oder data info))) (if transcoder (progn (let* ((greaterp ...) (objectp ...)= (contents ...)) (condition-case err (progn ...) (org-link-broken ...))))))= )) (let* ((type (org-element-type data)) (parent (org-export-get-parent data= )) (results (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type= 'raw) (car (org-element-contents data))) ((eq type 'plain-text) (org-expor= t-filter-apply-functions (plist-get info :filter-plain-text) (let (...) (if= transcoder ... data)) info)) ((not type) (mapconcat #'(lambda ... ...) dat= a "")) ((or (not (org-element-contents data)) (and (eq type ...) (eq ... ..= .) (org-element-property :archivedp data))) (let ((transcoder ...)) (or (an= d ... ...) (and ... "")))) (t (let ((transcoder ...)) (if transcoder (progn= ...))))))) (puthash data (cond ((not results) "") ((memq type '(nil org-da= ta plain-text raw)) results) (t (org-export-filter-apply-functions (plist-g= et info (intern (format ":filter-%s" type))) (let ((blank ...)) (if (eq ...= ...) (concat results ...) (concat ... ...))) info))) (plist-get info :expo= rted-data))) (or (gethash data (plist-get info :exported-data)) (let* ((type (org-elem= ent-type data)) (parent (org-export-get-parent data)) (results (cond ((memq= data (plist-get info :ignore-list)) nil) ((eq type 'raw) (car (org-element= -contents data))) ((eq type 'plain-text) (org-export-filter-apply-functions= (plist-get info :filter-plain-text) (let ... ...) info)) ((not type) (mapc= oncat #'... data "")) ((or (not ...) (and ... ... ...)) (let (...) (or ... = ...))) (t (let (...) (if transcoder ...)))))) (puthash data (cond ((not res= ults) "") ((memq type '(nil org-data plain-text raw)) results) (t (org-expo= rt-filter-apply-functions (plist-get info (intern ...)) (let (...) (if ... = ... ...)) info))) (plist-get info :exported-data)))) org-export-data((paragraph (:begin 248 :end 307 :contents-begin 248 :cont= ents-end 307 :post-blank 0 :post-affiliated 248 :mode nil :granularity nil = :parent (section ... ... ... ... ... ... ... #1)) #("So, Figure " 0 11 (:pa= rent #1)) (link (:type "fuzzy" :path "fig:parcel" :format bracket :raw-link= "fig:parcel" :application nil :search-option nil :begin 259 :end 274 :cont= ents-begin nil :contents-end nil :post-blank 1 :parent #1)) #("is an illust= ration of the ..." 0 33 (:parent #1))) (:export-options nil :back-end #s(or= g-export-backend :name html :parent nil :transcoders (... ... ... ... ... .= .. ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... = ... ... ...) :options (... ... ... ... ... ... ... ... ... ... ... ... ... = ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :filters (... ... = ...) :blocks nil :menu (104 "Export to HTML" ...)) :translate-alist ((bold = . org-html-bold) (center-block . org-html-center-block) (clock . org-html-c= lock) (code . org-html-code) (drawer . org-html-drawer) (dynamic-block . or= g-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-refere= nce . org-html-footnote-reference) (headline . org-html-headline) (horizont= al-rule . org-html-horizontal-rule) (inline-src-block . org-html-inline-src= -block) (inlinetask . org-html-inlinetask) (inner-template . org-html-inner= -template) (italic . org-html-italic) (item . org-html-item) (keyword . org= -html-keyword) (latex-environment . org-html-latex-environment) (latex-frag= ment . org-html-latex-fragment) (line-break . org-html-line-break) (link . = org-html-link) (node-property . org-html-node-property) (paragraph . org-ht= ml-paragraph) ...) :exported-data # :inpu= t-buffer "newtest.org" :input-file "/Users/powellb/tmp/newtest..." :html-do= ctype "xhtml-strict" :html-container "div" :html-content-class "content" :d= escription nil :keywords nil :html-html5-fancy nil :html-link-use-abs-url n= il ...)) (closure ((info :export-options nil :back-end #s(org-export-backend :name= html :parent nil :transcoders ... :options ... :filters ... :blocks nil :m= enu ...) :translate-alist (... ... ... ... ... ... ... ... ... ... ... ... = ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :e= xported-data # :input-buffer "newtest.org= " :input-file "/Users/powellb/tmp/newtest.or..." :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 :html-link-home= "" ...)) (element) (org-export-data element info))((paragraph (:begin 248 = :end 307 :contents-begin 248 :contents-end 307 :post-blank 0 :post-affiliat= ed 248 :mode nil :granularity nil :parent (section (:begin 1 :end 307 :cont= ents-begin 1 :contents-end 307 :robust-begin 1 :robust-end 305 :post-blank = 0 :post-affiliated 1 :mode first-section :granularity nil :parent (org-data= (:begin 1 :contents-begin 1 :contents-end 307 :end 307 :robust-begin 3 :ro= bust-end 305 :post-blank 0 :post-affiliated 1 :path "/Users/powellb/tmp/new= test.org" :mode org-data :CATEGORY "newtest" :granularity nil) #21)) (keywo= rd (:key "TITLE" :value "test" :begin 1 :end 21 :post-blank 0 :post-affilia= ted 1 :mode top-comment :granularity nil :parent #21)) (keyword (:key "AUTH= OR" :value "Brian Powell" :begin 21 :end 49 :post-blank 0 :post-affiliated = 21 :mode nil :granularity nil :parent #21)) (keyword (:key "EMAIL" :value "= powellb@hawaii.edu" :begin 49 :end 83 :post-blank 0 :post-affiliated 49 :mo= de nil :granularity nil :parent #21)) (keyword (:key "DATE" :value "" :begi= n 83 :end 93 :post-blank 2 :post-affiliated 83 :mode nil :granularity nil := parent #21)) (paragraph (:begin 93 :end 241 :contents-begin 220 :contents-e= nd 240 :post-blank 1 :post-affiliated 220 :name "fig:parcel" :caption ((...= )) :attr_html (":width 600px") :attr_org (":width 50px") :attr_latex (":wid= th 3.5in") :mode nil :granularity nil :parent #21) (link (:type "file" :pat= h "./test.png" :format bracket :raw-link "file:./test.png" :application nil= :search-option nil :begin 220 :end 239 :contents-begin nil :contents-end n= il :post-blank 0 :parent #28)) #("\n" 0 1 (:parent #28))) (paragraph (:begi= n 241 :end 248 :contents-begin 241 :contents-end 247 :post-blank 1 :post-af= filiated 241 :mode nil :granularity nil :parent #21) #("Done!\n" 0 6 (:pare= nt #29))) #1)) #("So, Figure " 0 11 (:parent #1)) (link (:type "fuzzy" :pat= h "fig:parcel" :format bracket :raw-link "fig:parcel" :application nil :sea= rch-option nil :begin 259 :end 274 :contents-begin nil :contents-end nil :p= ost-blank 1 :parent #1)) #("is an illustration of the stuff.\n" 0 33 (:pare= nt #1)))) mapconcat((closure ((info :export-options nil :back-end #s(org-export-bac= kend :name html :parent nil :transcoders ... :options ... :filters ... :blo= cks nil :menu ...) :translate-alist (... ... ... ... ... ... ... ... ... ..= . ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .= .. ... ... ... ...) :exported-data # :inp= ut-buffer "newtest.org" :input-file "/Users/powellb/tmp/newtest.org" :html-= doctype "xhtml-strict" :html-container "div" :html-content-class "content" = :description nil :keywords nil :html-html5-fancy nil :html-link-use-abs-url= nil :html-link-home "" :html-link-up "" :html-mathjax ...)) (element) (org= -export-data element info)) ((keyword (:key "TITLE" :value "test" :begin 1 = :end 21 :post-blank 0 :post-affiliated 1 :mode top-comment :granularity nil= :parent (section ... . #2))) (keyword (:key "AUTHOR" :value "Brian Powell"= :begin 21 :end 49 :post-blank 0 :post-affiliated 21 :mode nil :granularity= nil :parent (section ... . #2))) (keyword (:key "EMAIL" :value "powellb@ha= waii.edu" :begin 49 :end 83 :post-blank 0 :post-affiliated 49 :mode nil :gr= anularity nil :parent (section ... . #2))) (keyword (:key "DATE" :value "" = :begin 83 :end 93 :post-blank 2 :post-affiliated 83 :mode nil :granularity = nil :parent (section ... . #2))) (paragraph (:begin 93 :end 241 :contents-b= egin 220 :contents-end 240 :post-blank 1 :post-affiliated 220 :name "fig:pa= rcel" :caption (...) :attr_html (":width 600px") :attr_org (":width 50px") = :attr_latex (":width 3.5in") :mode nil :granularity nil :parent (section ..= . . #2)) (link (:type "file" :path "./test.png" :format bracket :raw-link "= file:./test.png" :application nil :search-option nil :begin 220 :end 239 :c= ontents-begin nil :contents-end nil :post-blank 0 :parent #7)) #("\n" 0 1 (= :parent #7))) (paragraph (:begin 241 :end 248 :contents-begin 241 :contents= -end 247 :post-blank 1 :post-affiliated 241 :mode nil :granularity nil :par= ent (section ... . #2)) #("Done!\n" 0 6 (:parent #8))) (paragraph (:begin 2= 48 :end 307 :contents-begin 248 :contents-end 307 :post-blank 0 :post-affil= iated 248 :mode nil :granularity nil :parent (section ... . #2)) #("So, Fig= ure " 0 11 (:parent #9)) (link (:type "fuzzy" :path "fig:parcel" :format br= acket :raw-link "fig:parcel" :application nil :search-option nil :begin 259= :end 274 :contents-begin nil :contents-end nil :post-blank 1 :parent #9)) = #("is an illustration of the stuff...." 0 33 (:parent #9)))) "") (let* ((greaterp (memq type org-element-greater-elements)) (objectp (and = (not greaterp) (memq type org-element-recursive-objects))) (contents (mapco= ncat #'(lambda (element) (org-export-data element info)) (org-element-conte= nts (if (or greaterp objectp) data (org-element-normalize-contents data (an= d ... ... ... ...)))) ""))) (condition-case err (progn (funcall transcoder = data (if (not greaterp) contents (org-element-normalize-string contents)) i= nfo)) (org-link-broken (let* ((val (plist-get info :with-broken-links))) (c= ond ((null val) (let nil (user-error "Unable to resolve link: %S" ...))) ((= eq val 'mark) (let nil (org-export-data ... info))) (t 'nil)))))) (progn (let* ((greaterp (memq type org-element-greater-elements)) (object= p (and (not greaterp) (memq type org-element-recursive-objects))) (contents= (mapconcat #'(lambda (element) (org-export-data element info)) (org-elemen= t-contents (if (or greaterp objectp) data (org-element-normalize-contents d= ata ...))) ""))) (condition-case err (progn (funcall transcoder data (if (n= ot greaterp) contents (org-element-normalize-string contents)) info)) (org-= link-broken (let* ((val (plist-get info :with-broken-links))) (cond ((null = val) (let nil ...)) ((eq val ...) (let nil ...)) (t 'nil))))))) (if transcoder (progn (let* ((greaterp (memq type org-element-greater-ele= ments)) (objectp (and (not greaterp) (memq type org-element-recursive-objec= ts))) (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 ...)))))))) (let ((transcoder (org-export-transcoder data info))) (if transcoder (pro= gn (let* ((greaterp (memq type org-element-greater-elements)) (objectp (and= (not greaterp) (memq type org-element-recursive-objects))) (contents (mapc= oncat #'... (org-element-contents ...) ""))) (condition-case err (progn (fu= ncall transcoder data (if ... contents ...) info)) (org-link-broken (let* (= ...) (cond ... ... ...)))))))) (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type 'raw) (ca= r (org-element-contents data))) ((eq type 'plain-text) (org-export-filter-a= pply-functions (plist-get info :filter-plain-text) (let ((transcoder (org-e= xport-transcoder data info))) (if transcoder (funcall transcoder data info)= data)) info)) ((not type) (mapconcat #'(lambda (obj) (org-export-data obj = info)) data "")) ((or (not (org-element-contents data)) (and (eq type 'head= line) (eq (plist-get info :with-archived-trees) 'headline) (org-element-pro= perty :archivedp data))) (let ((transcoder (org-export-transcoder data info= ))) (or (and (functionp transcoder) (if (eq type 'link) (condition-case err= (progn ...) (org-link-broken ...)) (funcall transcoder data nil info))) (a= nd (eq type 'export-snippet) "")))) (t (let ((transcoder (org-export-transc= oder data info))) (if transcoder (progn (let* ((greaterp ...) (objectp ...)= (contents ...)) (condition-case err (progn ...) (org-link-broken ...))))))= )) (let* ((type (org-element-type data)) (parent (org-export-get-parent data= )) (results (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type= 'raw) (car (org-element-contents data))) ((eq type 'plain-text) (org-expor= t-filter-apply-functions (plist-get info :filter-plain-text) (let (...) (if= transcoder ... data)) info)) ((not type) (mapconcat #'(lambda ... ...) dat= a "")) ((or (not (org-element-contents data)) (and (eq type ...) (eq ... ..= .) (org-element-property :archivedp data))) (let ((transcoder ...)) (or (an= d ... ...) (and ... "")))) (t (let ((transcoder ...)) (if transcoder (progn= ...))))))) (puthash data (cond ((not results) "") ((memq type '(nil org-da= ta plain-text raw)) results) (t (org-export-filter-apply-functions (plist-g= et info (intern (format ":filter-%s" type))) (let ((blank ...)) (if (eq ...= ...) (concat results ...) (concat ... ...))) info))) (plist-get info :expo= rted-data))) (or (gethash data (plist-get info :exported-data)) (let* ((type (org-elem= ent-type data)) (parent (org-export-get-parent data)) (results (cond ((memq= data (plist-get info :ignore-list)) nil) ((eq type 'raw) (car (org-element= -contents data))) ((eq type 'plain-text) (org-export-filter-apply-functions= (plist-get info :filter-plain-text) (let ... ...) info)) ((not type) (mapc= oncat #'... data "")) ((or (not ...) (and ... ... ...)) (let (...) (or ... = ...))) (t (let (...) (if transcoder ...)))))) (puthash data (cond ((not res= ults) "") ((memq type '(nil org-data plain-text raw)) results) (t (org-expo= rt-filter-apply-functions (plist-get info (intern ...)) (let (...) (if ... = ... ...)) info))) (plist-get info :exported-data)))) org-export-data((section (:begin 1 :end 307 :contents-begin 1 :contents-e= nd 307 :robust-begin 1 :robust-end 305 :post-blank 0 :post-affiliated 1 :mo= de first-section :granularity nil :parent (org-data ... #1)) (keyword (:key= "TITLE" :value "test" :begin 1 :end 21 :post-blank 0 :post-affiliated 1 :m= ode top-comment :granularity nil :parent #1)) (keyword (:key "AUTHOR" :valu= e "Brian Powell" :begin 21 :end 49 :post-blank 0 :post-affiliated 21 :mode = nil :granularity nil :parent #1)) (keyword (:key "EMAIL" :value "powellb@ha= waii.edu" :begin 49 :end 83 :post-blank 0 :post-affiliated 49 :mode nil :gr= anularity nil :parent #1)) (keyword (:key "DATE" :value "" :begin 83 :end 9= 3 :post-blank 2 :post-affiliated 83 :mode nil :granularity nil :parent #1))= (paragraph (:begin 93 :end 241 :contents-begin 220 :contents-end 240 :post= -blank 1 :post-affiliated 220 :name "fig:parcel" :caption ... :attr_html ..= . :attr_org ... :attr_latex ... :mode nil :granularity nil ...) (link ...) = #("\n" 0 1 ...)) (paragraph (:begin 241 :end 248 :contents-begin 241 :conte= nts-end 247 :post-blank 1 :post-affiliated 241 :mode nil :granularity nil := parent #1) #("Done!\n" 0 6 ...)) (paragraph (:begin 248 :end 307 :contents-= begin 248 :contents-end 307 :post-blank 0 :post-affiliated 248 :mode nil :g= ranularity nil :parent #1) #("So, Figure " 0 11 ...) (link ...) #("is an il= lustration of the ..." 0 33 ...))) (:export-options nil :back-end #s(org-ex= port-backend :name html :parent nil :transcoders (... ... ... ... ... ... .= .. ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... = ... ...) :options (... ... ... ... ... ... ... ... ... ... ... ... ... ... = ... ... ... ... ... ... ... ... ... ... ... ... ...) :filters (... ... ...)= :blocks nil :menu (104 "Export to HTML" ...)) :translate-alist ((bold . or= g-html-bold) (center-block . org-html-center-block) (clock . org-html-clock= ) (code . org-html-code) (drawer . org-html-drawer) (dynamic-block . org-ht= ml-dynamic-block) (entity . org-html-entity) (example-block . org-html-exam= ple-block) (export-block . org-html-export-block) (export-snippet . org-htm= l-export-snippet) (fixed-width . org-html-fixed-width) (footnote-reference = . org-html-footnote-reference) (headline . org-html-headline) (horizontal-r= ule . org-html-horizontal-rule) (inline-src-block . org-html-inline-src-blo= ck) (inlinetask . org-html-inlinetask) (inner-template . org-html-inner-tem= plate) (italic . org-html-italic) (item . org-html-item) (keyword . org-htm= l-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-p= aragraph) ...) :exported-data # :input-bu= ffer "newtest.org" :input-file "/Users/powellb/tmp/newtest..." :html-doctyp= e "xhtml-strict" :html-container "div" :html-content-class "content" :descr= iption nil :keywords nil :html-html5-fancy nil :html-link-use-abs-url nil .= ..)) (closure ((info :export-options nil :back-end #s(org-export-backend :name= html :parent nil :transcoders ... :options ... :filters ... :blocks nil :m= enu ...) :translate-alist (... ... ... ... ... ... ... ... ... ... ... ... = ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :e= xported-data # :input-buffer "newtest.org= " :input-file "/Users/powellb/tmp/newtest.or..." :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 :html-link-home= "" ...)) (element) (org-export-data element info))((section (:begin 1 :end= 307 :contents-begin 1 :contents-end 307 :robust-begin 1 :robust-end 305 :p= ost-blank 0 :post-affiliated 1 :mode first-section :granularity nil :parent= (org-data (:begin 1 :contents-begin 1 :contents-end 307 :end 307 :robust-b= egin 3 :robust-end 305 :post-blank 0 :post-affiliated 1 :path "/Users/powel= lb/tmp/newtest.org" :mode org-data :CATEGORY "newtest" :granularity nil) #1= )) (keyword (:key "TITLE" :value "test" :begin 1 :end 21 :post-blank 0 :pos= t-affiliated 1 :mode top-comment :granularity nil :parent #1)) (keyword (:k= ey "AUTHOR" :value "Brian Powell" :begin 21 :end 49 :post-blank 0 :post-aff= iliated 21 :mode nil :granularity nil :parent #1)) (keyword (:key "EMAIL" := value "powellb@hawaii.edu" :begin 49 :end 83 :post-blank 0 :post-affiliated= 49 :mode nil :granularity nil :parent #1)) (keyword (:key "DATE" :value ""= :begin 83 :end 93 :post-blank 2 :post-affiliated 83 :mode nil :granularity= nil :parent #1)) (paragraph (:begin 93 :end 241 :contents-begin 220 :conte= nts-end 240 :post-blank 1 :post-affiliated 220 :name "fig:parcel" :caption = (((#("Illustration of joy" 0 19 ...)))) :attr_html (":width 600px") :attr_o= rg (":width 50px") :attr_latex (":width 3.5in") :mode nil :granularity nil = :parent #1) (link (:type "file" :path "./test.png" :format bracket :raw-lin= k "file:./test.png" :application nil :search-option nil :begin 220 :end 239= :contents-begin nil :contents-end nil :post-blank 0 :parent #8)) #("\n" 0 = 1 (:parent #8))) (paragraph (:begin 241 :end 248 :contents-begin 241 :conte= nts-end 247 :post-blank 1 :post-affiliated 241 :mode nil :granularity nil := parent #1) #("Done!\n" 0 6 (:parent #9))) (paragraph (:begin 248 :end 307 := contents-begin 248 :contents-end 307 :post-blank 0 :post-affiliated 248 :mo= de nil :granularity nil :parent #1) #("So, Figure " 0 11 (:parent #10)) (li= nk (:type "fuzzy" :path "fig:parcel" :format bracket :raw-link "fig:parcel"= :application nil :search-option nil :begin 259 :end 274 :contents-begin ni= l :contents-end nil :post-blank 1 :parent #10)) #("is an illustration of th= e stuff.\n" 0 33 (:parent #10))))) mapconcat((closure ((info :export-options nil :back-end #s(org-export-bac= kend :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) (plain-list . org-html-plain-list) (plain-text . org= -html-plain-text) (planning . org-html-planning) (property-drawer . org-htm= l-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-ht= ml-statistics-cookie) (strike-through . org-html-strike-through) (subscript= . org-html-subscript) ...) :exported-data # :input-buffer "newtest.org" :input-file "/Users/powellb/tmp/newtest.org= " :html-doctype "xhtml-strict" :html-container "div" :html-content-class "c= ontent" :description nil :keywords nil :html-html5-fancy nil :html-link-use= -abs-url nil :html-link-home "" :html-link-up "" :html-mathjax "" :html-equ= ation-reference-format "\\eqref{%s}" :html-postamble auto :html-preamble ..= .)) (element) (org-export-data element info)) ((section (:begin 1 :end 307 = :contents-begin 1 :contents-end 307 :robust-begin 1 :robust-end 305 :post-b= lank 0 :post-affiliated 1 :mode first-section :granularity nil :parent (org= -data (:begin 1 :contents-begin 1 :contents-end 307 :end 307 :robust-begin = 3 :robust-end 305 :post-blank 0 :post-affiliated 1 :path "/Users/powellb/tm= p/newtest.org" :mode org-data :CATEGORY "newtest" :granularity nil) . #2)) = (keyword (:key "TITLE" :value "test" :begin 1 :end 21 :post-blank 0 :post-a= ffiliated 1 :mode top-comment :granularity nil :parent #3)) (keyword (:key = "AUTHOR" :value "Brian Powell" :begin 21 :end 49 :post-blank 0 :post-affili= ated 21 :mode nil :granularity nil :parent #3)) (keyword (:key "EMAIL" :val= ue "powellb@hawaii.edu" :begin 49 :end 83 :post-blank 0 :post-affiliated 49= :mode nil :granularity nil :parent #3)) (keyword (:key "DATE" :value "" :b= egin 83 :end 93 :post-blank 2 :post-affiliated 83 :mode nil :granularity ni= l :parent #3)) (paragraph (:begin 93 :end 241 :contents-begin 220 :contents= -end 240 :post-blank 1 :post-affiliated 220 :name "fig:parcel" :caption (..= .) :attr_html (":width 600px") :attr_org (":width 50px") :attr_latex (":wid= th 3.5in") :mode nil :granularity nil :parent #3) (link (:type "file" :path= "./test.png" :format bracket :raw-link "file:./test.png" :application nil = :search-option nil :begin 220 :end 239 :contents-begin nil :contents-end ni= l :post-blank 0 :parent #10)) #("\n" 0 1 (:parent #10))) (paragraph (:begin= 241 :end 248 :contents-begin 241 :contents-end 247 :post-blank 1 :post-aff= iliated 241 :mode nil :granularity nil :parent #3) #("Done!\n" 0 6 (:parent= #11))) (paragraph (:begin 248 :end 307 :contents-begin 248 :contents-end 3= 07 :post-blank 0 :post-affiliated 248 :mode nil :granularity nil :parent #3= ) #("So, Figure " 0 11 (:parent #12)) (link (:type "fuzzy" :path "fig:parce= l" :format bracket :raw-link "fig:parcel" :application nil :search-option n= il :begin 259 :end 274 :contents-begin nil :contents-end nil :post-blank 1 = :parent #12)) #("is an illustration of the stuff.\n" 0 33 (:parent #12)))))= "") (let* ((greaterp (memq type org-element-greater-elements)) (objectp (and = (not greaterp) (memq type org-element-recursive-objects))) (contents (mapco= ncat #'(lambda (element) (org-export-data element info)) (org-element-conte= nts (if (or greaterp objectp) data (org-element-normalize-contents data (an= d ... ... ... ...)))) ""))) (condition-case err (progn (funcall transcoder = data (if (not greaterp) contents (org-element-normalize-string contents)) i= nfo)) (org-link-broken (let* ((val (plist-get info :with-broken-links))) (c= ond ((null val) (let nil (user-error "Unable to resolve link: %S" ...))) ((= eq val 'mark) (let nil (org-export-data ... info))) (t 'nil)))))) (progn (let* ((greaterp (memq type org-element-greater-elements)) (object= p (and (not greaterp) (memq type org-element-recursive-objects))) (contents= (mapconcat #'(lambda (element) (org-export-data element info)) (org-elemen= t-contents (if (or greaterp objectp) data (org-element-normalize-contents d= ata ...))) ""))) (condition-case err (progn (funcall transcoder data (if (n= ot greaterp) contents (org-element-normalize-string contents)) info)) (org-= link-broken (let* ((val (plist-get info :with-broken-links))) (cond ((null = val) (let nil ...)) ((eq val ...) (let nil ...)) (t 'nil))))))) (if transcoder (progn (let* ((greaterp (memq type org-element-greater-ele= ments)) (objectp (and (not greaterp) (memq type org-element-recursive-objec= ts))) (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 ...)))))))) (let ((transcoder (org-export-transcoder data info))) (if transcoder (pro= gn (let* ((greaterp (memq type org-element-greater-elements)) (objectp (and= (not greaterp) (memq type org-element-recursive-objects))) (contents (mapc= oncat #'... (org-element-contents ...) ""))) (condition-case err (progn (fu= ncall transcoder data (if ... contents ...) info)) (org-link-broken (let* (= ...) (cond ... ... ...)))))))) (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type 'raw) (ca= r (org-element-contents data))) ((eq type 'plain-text) (org-export-filter-a= pply-functions (plist-get info :filter-plain-text) (let ((transcoder (org-e= xport-transcoder data info))) (if transcoder (funcall transcoder data info)= data)) info)) ((not type) (mapconcat #'(lambda (obj) (org-export-data obj = info)) data "")) ((or (not (org-element-contents data)) (and (eq type 'head= line) (eq (plist-get info :with-archived-trees) 'headline) (org-element-pro= perty :archivedp data))) (let ((transcoder (org-export-transcoder data info= ))) (or (and (functionp transcoder) (if (eq type 'link) (condition-case err= (progn ...) (org-link-broken ...)) (funcall transcoder data nil info))) (a= nd (eq type 'export-snippet) "")))) (t (let ((transcoder (org-export-transc= oder data info))) (if transcoder (progn (let* ((greaterp ...) (objectp ...)= (contents ...)) (condition-case err (progn ...) (org-link-broken ...))))))= )) (let* ((type (org-element-type data)) (parent (org-export-get-parent data= )) (results (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type= 'raw) (car (org-element-contents data))) ((eq type 'plain-text) (org-expor= t-filter-apply-functions (plist-get info :filter-plain-text) (let (...) (if= transcoder ... data)) info)) ((not type) (mapconcat #'(lambda ... ...) dat= a "")) ((or (not (org-element-contents data)) (and (eq type ...) (eq ... ..= .) (org-element-property :archivedp data))) (let ((transcoder ...)) (or (an= d ... ...) (and ... "")))) (t (let ((transcoder ...)) (if transcoder (progn= ...))))))) (puthash data (cond ((not results) "") ((memq type '(nil org-da= ta plain-text raw)) results) (t (org-export-filter-apply-functions (plist-g= et info (intern (format ":filter-%s" type))) (let ((blank ...)) (if (eq ...= ...) (concat results ...) (concat ... ...))) info))) (plist-get info :expo= rted-data))) (or (gethash data (plist-get info :exported-data)) (let* ((type (org-elem= ent-type data)) (parent (org-export-get-parent data)) (results (cond ((memq= data (plist-get info :ignore-list)) nil) ((eq type 'raw) (car (org-element= -contents data))) ((eq type 'plain-text) (org-export-filter-apply-functions= (plist-get info :filter-plain-text) (let ... ...) info)) ((not type) (mapc= oncat #'... data "")) ((or (not ...) (and ... ... ...)) (let (...) (or ... = ...))) (t (let (...) (if transcoder ...)))))) (puthash data (cond ((not res= ults) "") ((memq type '(nil org-data plain-text raw)) results) (t (org-expo= rt-filter-apply-functions (plist-get info (intern ...)) (let (...) (if ... = ... ...)) info))) (plist-get info :exported-data)))) org-export-data((org-data (:begin 1 :contents-begin 1 :contents-end 307 := end 307 :robust-begin 3 :robust-end 305 :post-blank 0 :post-affiliated 1 :p= ath "/Users/powellb/tmp/newtest..." :mode org-data :CATEGORY "newtest" :gra= nularity nil) (section (:begin 1 :end 307 :contents-begin 1 :contents-end 3= 07 :robust-begin 1 :robust-end 305 :post-blank 0 :post-affiliated 1 :mode f= irst-section :granularity nil :parent #1) (keyword ...) (keyword ...) (keyw= ord ...) (keyword ...) (paragraph ... ... ...) (paragraph ... ...) (paragra= ph ... ... ... ...))) (:export-options nil :back-end #s(org-export-backend = :name html :parent nil :transcoders (... ... ... ... ... ... ... ... ... ..= . ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :opt= ions (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .= .. ... ... ... ... ... ... ... ... ...) :filters (... ... ...) :blocks nil = :menu (104 "Export to HTML" ...)) :translate-alist ((bold . org-html-bold) = (center-block . org-html-center-block) (clock . org-html-clock) (code . org= -html-code) (drawer . org-html-drawer) (dynamic-block . org-html-dynamic-bl= ock) (entity . org-html-entity) (example-block . org-html-example-block) (e= xport-block . org-html-export-block) (export-snippet . org-html-export-snip= pet) (fixed-width . org-html-fixed-width) (footnote-reference . org-html-fo= otnote-reference) (headline . org-html-headline) (horizontal-rule . org-htm= l-horizontal-rule) (inline-src-block . org-html-inline-src-block) (inlineta= sk . org-html-inlinetask) (inner-template . org-html-inner-template) (itali= c . org-html-italic) (item . org-html-item) (keyword . org-html-keyword) (l= atex-environment . org-html-latex-environment) (latex-fragment . org-html-l= atex-fragment) (line-break . org-html-line-break) (link . org-html-link) (n= ode-property . org-html-node-property) (paragraph . org-html-paragraph) ...= ) :exported-data # :input-buffer "newtest= .org" :input-file "/Users/powellb/tmp/newtest..." :html-doctype "xhtml-stri= ct" :html-container "div" :html-content-class "content" :description nil :k= eywords nil :html-html5-fancy nil :html-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 tree info= ) ""))) (inner-template (cdr (assq 'inner-template (plist-get info :transla= te-alist)))) (full-body (org-export-filter-apply-functions (plist-get info = :filter-body) (if (not (functionp inner-template)) body (funcall inner-temp= late body info)) info)) (template (cdr (assq 'template (plist-get info :tra= nslate-alist)))) (output (if (or (not (functionp template)) body-only) full= -body (funcall template full-body info)))) (setq output (org-cite-finalize-= export output info)) (org-no-properties (org-export-filter-apply-functions = (plist-get info :filter-final-output) output info))) (progn (font-lock-mode -1) (run-hook-with-args 'org-export-before-process= ing-hook (progn (or (progn (and (memq (type-of backend) cl-struct-org-expor= t-backend-tags) t)) (signal 'wrong-type-argument (list 'org-export-backend = backend))) (aref backend 1))) (org-export-expand-include-keyword) (org-expo= rt--delete-comment-trees) (org-macro-initialize-templates org-export-global= -macros) (org-macro-replace-all org-macro-templates parsed-keywords) (org-s= et-regexps-and-options) (org-update-radio-target-regexp) (setq modified-tic= k (buffer-chars-modified-tick)) (if org-export-use-babel (progn (org-babel-= exp-process-buffer) (org-macro-replace-all '(("results" . "$1")) parsed-key= words) (if (eq modified-tick (buffer-chars-modified-tick)) nil (org-set-reg= exps-and-options) (org-update-radio-target-regexp)) (setq modified-tick (bu= ffer-chars-modified-tick)))) (goto-char (point-min)) (save-excursion (run-h= ook-with-args 'org-export-before-parsing-hook (progn (or (progn (and (memq = ... cl-struct-org-export-backend-tags) t)) (signal 'wrong-type-argument (li= st 'org-export-backend backend))) (aref backend 1)))) (if (eq modified-tick= (buffer-chars-modified-tick)) nil (org-set-regexps-and-options) (org-updat= e-radio-target-regexp)) (setq modified-tick (buffer-chars-modified-tick)) (= setq info (org-combine-plists info (org-export-get-environment backend subt= reep ext-plist))) (org-cite-store-bibliography info) (org-cite-store-export= -processor info) (let ((tail (append (org-export-get-all-options backend) o= rg-export-options-alist))) (while tail (let ((entry (car tail))) (if (consp= entry) (let* ((x616 ...) (x617 ...)) (if (consp x617) (let* ... ...) 'nil)= ) 'nil) (setq tail (cdr tail))))) (setq info (org-export-install-filters in= fo)) (let ((backend-name (progn (or (progn (and ... t)) (signal 'wrong-type= -argument (list ... backend))) (aref backend 1)))) (let ((tail (plist-get i= nfo :filter-options))) (while tail (let ((filter (car tail))) (let ((result= ...)) (if result (progn ...))) (setq tail (cdr 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-fi= lter-apply-functions (plist-get info :filter-parse-tree) tree info)) (setq = info (org-export--collect-tree-properties tree info)) (org-cite-process-cit= ations info) (org-cite-process-bibliography info) (let* ((body (org-element= -normalize-string (or (org-export-data tree info) ""))) (inner-template (cd= r (assq 'inner-template (plist-get info :translate-alist)))) (full-body (or= g-export-filter-apply-functions (plist-get info :filter-body) (if (not (fun= ctionp inner-template)) body (funcall inner-template body info)) info)) (te= mplate (cdr (assq 'template (plist-get info :translate-alist)))) (output (i= f (or (not (functionp template)) body-only) full-body (funcall template ful= l-body info)))) (setq output (org-cite-finalize-export output info)) (org-n= o-properties (org-export-filter-apply-functions (plist-get info :filter-fin= al-output) output info)))) (prog1 (progn (font-lock-mode -1) (run-hook-with-args 'org-export-before-= processing-hook (progn (or (progn (and (memq ... cl-struct-org-export-backe= nd-tags) t)) (signal 'wrong-type-argument (list 'org-export-backend backend= ))) (aref backend 1))) (org-export-expand-include-keyword) (org-export--del= ete-comment-trees) (org-macro-initialize-templates org-export-global-macros= ) (org-macro-replace-all org-macro-templates parsed-keywords) (org-set-rege= xps-and-options) (org-update-radio-target-regexp) (setq modified-tick (buff= er-chars-modified-tick)) (if org-export-use-babel (progn (org-babel-exp-pro= cess-buffer) (org-macro-replace-all '(("results" . "$1")) parsed-keywords) = (if (eq modified-tick (buffer-chars-modified-tick)) nil (org-set-regexps-an= d-options) (org-update-radio-target-regexp)) (setq modified-tick (buffer-ch= ars-modified-tick)))) (goto-char (point-min)) (save-excursion (run-hook-wit= h-args 'org-export-before-parsing-hook (progn (or (progn (and ... t)) (sign= al 'wrong-type-argument (list ... backend))) (aref backend 1)))) (if (eq mo= dified-tick (buffer-chars-modified-tick)) nil (org-set-regexps-and-options)= (org-update-radio-target-regexp)) (setq modified-tick (buffer-chars-modifi= ed-tick)) (setq info (org-combine-plists info (org-export-get-environment b= ackend subtreep ext-plist))) (org-cite-store-bibliography info) (org-cite-s= tore-export-processor info) (let ((tail (append (org-export-get-all-options= backend) org-export-options-alist))) (while tail (let ((entry (car tail)))= (if (consp entry) (let* (... ...) (if ... ... ...)) 'nil) (setq tail (cdr = tail))))) (setq info (org-export-install-filters info)) (let ((backend-name= (progn (or (progn ...) (signal ... ...)) (aref backend 1)))) (let ((tail (= plist-get info :filter-options))) (while tail (let ((filter ...)) (let (...= ) (if result ...)) (setq tail (cdr 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-fu= nctions (plist-get info :filter-parse-tree) tree info)) (setq info (org-exp= ort--collect-tree-properties tree info)) (org-cite-process-citations info) = (org-cite-process-bibliography info) (let* ((body (org-element-normalize-st= ring (or (org-export-data tree info) ""))) (inner-template (cdr (assq 'inne= r-template (plist-get info :translate-alist)))) (full-body (org-export-filt= er-apply-functions (plist-get info :filter-body) (if (not ...) body (funcal= l inner-template body info)) info)) (template (cdr (assq 'template (plist-g= et info :translate-alist)))) (output (if (or (not ...) body-only) full-body= (funcall template full-body info)))) (setq output (org-cite-finalize-expor= t output info)) (org-no-properties (org-export-filter-apply-functions (plis= t-get info :filter-final-output) output info)))) (setq buffer-file-name nil= )) (save-current-buffer (set-buffer --buf-copy) (goto-char (point-min)) (pro= g1 (progn (font-lock-mode -1) (run-hook-with-args 'org-export-before-proces= sing-hook (progn (or (progn (and ... t)) (signal 'wrong-type-argument (list= ... backend))) (aref backend 1))) (org-export-expand-include-keyword) (org= -export--delete-comment-trees) (org-macro-initialize-templates org-export-g= lobal-macros) (org-macro-replace-all org-macro-templates parsed-keywords) (= org-set-regexps-and-options) (org-update-radio-target-regexp) (setq modifie= d-tick (buffer-chars-modified-tick)) (if org-export-use-babel (progn (org-b= abel-exp-process-buffer) (org-macro-replace-all '(...) parsed-keywords) (if= (eq modified-tick (buffer-chars-modified-tick)) nil (org-set-regexps-and-o= ptions) (org-update-radio-target-regexp)) (setq modified-tick (buffer-chars= -modified-tick)))) (goto-char (point-min)) (save-excursion (run-hook-with-a= rgs 'org-export-before-parsing-hook (progn (or (progn ...) (signal ... ...)= ) (aref backend 1)))) (if (eq modified-tick (buffer-chars-modified-tick)) n= il (org-set-regexps-and-options) (org-update-radio-target-regexp)) (setq mo= dified-tick (buffer-chars-modified-tick)) (setq info (org-combine-plists in= fo (org-export-get-environment backend subtreep ext-plist))) (org-cite-stor= e-bibliography info) (org-cite-store-export-processor info) (let ((tail (ap= pend (org-export-get-all-options backend) org-export-options-alist))) (whil= e tail (let ((entry ...)) (if (consp entry) (let* ... ...) 'nil) (setq tail= (cdr tail))))) (setq info (org-export-install-filters info)) (let ((backen= d-name (progn (or ... ...) (aref backend 1)))) (let ((tail (plist-get info = :filter-options))) (while tail (let (...) (let ... ...) (setq tail ...)))))= (setq tree (org-element-parse-buffer nil visible-only)) (org-export--prune= -tree tree info) (org-export--remove-uninterpreted-data tree info) (setq tr= ee (org-export-filter-apply-functions (plist-get info :filter-parse-tree) t= ree info)) (setq info (org-export--collect-tree-properties tree info)) (org= -cite-process-citations info) (org-cite-process-bibliography info) (let* ((= body (org-element-normalize-string (or ... ""))) (inner-template (cdr (assq= ... ...))) (full-body (org-export-filter-apply-functions (plist-get info := filter-body) (if ... body ...) info)) (template (cdr (assq ... ...))) (outp= ut (if (or ... body-only) full-body (funcall template full-body info)))) (s= etq output (org-cite-finalize-export output info)) (org-no-properties (org-= export-filter-apply-functions (plist-get info :filter-final-output) output = info)))) (setq buffer-file-name nil))) (unwind-protect (save-current-buffer (set-buffer --buf-copy) (goto-char (= point-min)) (prog1 (progn (font-lock-mode -1) (run-hook-with-args 'org-expo= rt-before-processing-hook (progn (or (progn ...) (signal ... ...)) (aref ba= ckend 1))) (org-export-expand-include-keyword) (org-export--delete-comment-= trees) (org-macro-initialize-templates org-export-global-macros) (org-macro= -replace-all org-macro-templates parsed-keywords) (org-set-regexps-and-opti= ons) (org-update-radio-target-regexp) (setq modified-tick (buffer-chars-mod= ified-tick)) (if org-export-use-babel (progn (org-babel-exp-process-buffer)= (org-macro-replace-all '... parsed-keywords) (if (eq modified-tick ...) ni= l (org-set-regexps-and-options) (org-update-radio-target-regexp)) (setq mod= ified-tick (buffer-chars-modified-tick)))) (goto-char (point-min)) (save-ex= cursion (run-hook-with-args 'org-export-before-parsing-hook (progn (or ... = ...) (aref backend 1)))) (if (eq modified-tick (buffer-chars-modified-tick)= ) nil (org-set-regexps-and-options) (org-update-radio-target-regexp)) (setq= modified-tick (buffer-chars-modified-tick)) (setq info (org-combine-plists= info (org-export-get-environment backend subtreep ext-plist))) (org-cite-s= tore-bibliography info) (org-cite-store-export-processor info) (let ((tail = (append ... org-export-options-alist))) (while tail (let (...) (if ... ... = ...) (setq tail ...)))) (setq info (org-export-install-filters info)) (let = ((backend-name (progn ... ...))) (let ((tail ...)) (while tail (let ... ...= ...)))) (setq tree (org-element-parse-buffer nil visible-only)) (org-expor= t--prune-tree tree info) (org-export--remove-uninterpreted-data tree info) = (setq tree (org-export-filter-apply-functions (plist-get info :filter-parse= -tree) tree info)) (setq info (org-export--collect-tree-properties tree inf= o)) (org-cite-process-citations info) (org-cite-process-bibliography info) = (let* ((body (org-element-normalize-string ...)) (inner-template (cdr ...))= (full-body (org-export-filter-apply-functions ... ... info)) (template (cd= r ...)) (output (if ... full-body ...))) (setq output (org-cite-finalize-ex= port output info)) (org-no-properties (org-export-filter-apply-functions (p= list-get info :filter-final-output) output info)))) (setq buffer-file-name = nil))) (and (buffer-live-p --buf-copy) (progn (save-current-buffer (set-buf= fer --buf-copy) (restore-buffer-modified-p nil)) (if nil nil (kill-buffer -= -buf-copy))))) (let ((--buf-copy (org-export-copy-buffer :to-buffer nil :drop-visibility= nil :drop-narrowing nil :drop-contents nil :drop-locals nil))) (unwind-pro= tect (save-current-buffer (set-buffer --buf-copy) (goto-char (point-min)) (= prog1 (progn (font-lock-mode -1) (run-hook-with-args 'org-export-before-pro= cessing-hook (progn (or ... ...) (aref backend 1))) (org-export-expand-incl= ude-keyword) (org-export--delete-comment-trees) (org-macro-initialize-templ= ates org-export-global-macros) (org-macro-replace-all org-macro-templates p= arsed-keywords) (org-set-regexps-and-options) (org-update-radio-target-rege= xp) (setq modified-tick (buffer-chars-modified-tick)) (if org-export-use-ba= bel (progn (org-babel-exp-process-buffer) (org-macro-replace-all ... parsed= -keywords) (if ... nil ... ...) (setq modified-tick ...))) (goto-char (poin= t-min)) (save-excursion (run-hook-with-args 'org-export-before-parsing-hook= (progn ... ...))) (if (eq modified-tick (buffer-chars-modified-tick)) nil = (org-set-regexps-and-options) (org-update-radio-target-regexp)) (setq modif= ied-tick (buffer-chars-modified-tick)) (setq info (org-combine-plists info = (org-export-get-environment backend subtreep ext-plist))) (org-cite-store-b= ibliography info) (org-cite-store-export-processor info) (let ((tail ...)) = (while tail (let ... ... ...))) (setq info (org-export-install-filters info= )) (let ((backend-name ...)) (let (...) (while 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-fi= lter-apply-functions (plist-get info :filter-parse-tree) tree info)) (setq = info (org-export--collect-tree-properties tree info)) (org-cite-process-cit= ations info) (org-cite-process-bibliography info) (let* ((body ...) (inner-= template ...) (full-body ...) (template ...) (output ...)) (setq output (or= g-cite-finalize-export output info)) (org-no-properties (org-export-filter-= apply-functions ... output info)))) (setq buffer-file-name nil))) (and (buf= fer-live-p --buf-copy) (progn (save-current-buffer (set-buffer --buf-copy) = (restore-buffer-modified-p nil)) (if nil nil (kill-buffer --buf-copy)))))) (let* ((org-export-current-backend (progn (or (progn (and (memq ... cl-st= ruct-org-export-backend-tags) t)) (signal 'wrong-type-argument (list 'org-e= xport-backend backend))) (aref backend 1))) (info (org-combine-plists (org-= export--get-export-attributes backend subtreep visible-only body-only) (org= -export--get-buffer-attributes))) (parsed-keywords (delq nil (mapcar #'(lam= bda (o) (and ... ...)) (append (org-export-get-all-options backend) org-exp= ort-options-alist)))) tree modified-tick) (let ((--buf-copy (org-export-cop= y-buffer :to-buffer nil :drop-visibility nil :drop-narrowing nil :drop-cont= ents nil :drop-locals nil))) (unwind-protect (save-current-buffer (set-buff= er --buf-copy) (goto-char (point-min)) (prog1 (progn (font-lock-mode -1) (r= un-hook-with-args 'org-export-before-processing-hook (progn ... ...)) (org-= export-expand-include-keyword) (org-export--delete-comment-trees) (org-macr= o-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) (setq modified-tick (buffer-chars-modified-tick)) (if= org-export-use-babel (progn ... ... ... ...)) (goto-char (point-min)) (sav= e-excursion (run-hook-with-args ... ...)) (if (eq modified-tick ...) nil (o= rg-set-regexps-and-options) (org-update-radio-target-regexp)) (setq modifie= d-tick (buffer-chars-modified-tick)) (setq info (org-combine-plists info ..= .)) (org-cite-store-bibliography info) (org-cite-store-export-processor inf= o) (let (...) (while tail ...)) (setq info (org-export-install-filters info= )) (let (...) (let ... ...)) (setq tree (org-element-parse-buffer nil visib= le-only)) (org-export--prune-tree tree info) (org-export--remove-uninterpre= ted-data tree info) (setq tree (org-export-filter-apply-functions ... tree = info)) (setq info (org-export--collect-tree-properties tree info)) (org-cit= e-process-citations info) (org-cite-process-bibliography info) (let* (... .= .. ... ... ...) (setq output ...) (org-no-properties ...))) (setq buffer-fi= le-name nil))) (and (buffer-live-p --buf-copy) (progn (save-current-buffer = (set-buffer --buf-copy) (restore-buffer-modified-p nil)) (if nil nil (kill-= buffer --buf-copy))))))) (save-restriction (cond ((org-region-active-p) (narrow-to-region (region-= beginning) (region-end))) (subtreep (org-narrow-to-subtree) (goto-char (poi= nt-min)) (org-end-of-meta-data) (backward-char) (narrow-to-region (point) (= point-max)))) (let* ((org-export-current-backend (progn (or (progn (and ...= t)) (signal 'wrong-type-argument (list ... backend))) (aref backend 1))) (= info (org-combine-plists (org-export--get-export-attributes backend subtree= p visible-only body-only) (org-export--get-buffer-attributes))) (parsed-key= words (delq nil (mapcar #'(lambda ... ...) (append (org-export-get-all-opti= ons backend) org-export-options-alist)))) tree modified-tick) (let ((--buf-= copy (org-export-copy-buffer :to-buffer nil :drop-visibility nil :drop-narr= owing nil :drop-contents nil :drop-locals nil))) (unwind-protect (save-curr= ent-buffer (set-buffer --buf-copy) (goto-char (point-min)) (prog1 (progn (f= ont-lock-mode -1) (run-hook-with-args ... ...) (org-export-expand-include-k= eyword) (org-export--delete-comment-trees) (org-macro-initialize-templates = org-export-global-macros) (org-macro-replace-all org-macro-templates parsed= -keywords) (org-set-regexps-and-options) (org-update-radio-target-regexp) (= setq modified-tick ...) (if org-export-use-babel ...) (goto-char ...) (save= -excursion ...) (if ... nil ... ...) (setq modified-tick ...) (setq info ..= .) (org-cite-store-bibliography info) (org-cite-store-export-processor info= ) (let ... ...) (setq info ...) (let ... ...) (setq tree ...) (org-export--= prune-tree tree info) (org-export--remove-uninterpreted-data tree info) (se= tq tree ...) (setq info ...) (org-cite-process-citations info) (org-cite-pr= ocess-bibliography info) (let* ... ... ...)) (setq buffer-file-name nil))) = (and (buffer-live-p --buf-copy) (progn (save-current-buffer (set-buffer --b= uf-copy) (restore-buffer-modified-p nil)) (if nil nil (kill-buffer --buf-co= py)))))))) (save-excursion (save-restriction (cond ((org-region-active-p) (narrow-to= -region (region-beginning) (region-end))) (subtreep (org-narrow-to-subtree)= (goto-char (point-min)) (org-end-of-meta-data) (backward-char) (narrow-to-= region (point) (point-max)))) (let* ((org-export-current-backend (progn (or= (progn ...) (signal ... ...)) (aref backend 1))) (info (org-combine-plists= (org-export--get-export-attributes backend subtreep visible-only body-only= ) (org-export--get-buffer-attributes))) (parsed-keywords (delq nil (mapcar = #'... (append ... org-export-options-alist)))) tree modified-tick) (let ((-= -buf-copy (org-export-copy-buffer :to-buffer nil :drop-visibility nil :drop= -narrowing nil :drop-contents nil :drop-locals nil))) (unwind-protect (save= -current-buffer (set-buffer --buf-copy) (goto-char (point-min)) (prog1 (pro= gn ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... = ... ... ... ... ... ... ... ... ... ...) (setq buffer-file-name nil))) (and= (buffer-live-p --buf-copy) (progn (save-current-buffer ... ...) (if nil ni= l ...)))))))) (progn (save-excursion (save-restriction (cond ((org-region-active-p) (na= rrow-to-region (region-beginning) (region-end))) (subtreep (org-narrow-to-s= ubtree) (goto-char (point-min)) (org-end-of-meta-data) (backward-char) (nar= row-to-region (point) (point-max)))) (let* ((org-export-current-backend (pr= ogn (or ... ...) (aref backend 1))) (info (org-combine-plists (org-export--= get-export-attributes backend subtreep visible-only body-only) (org-export-= -get-buffer-attributes))) (parsed-keywords (delq nil (mapcar ... ...))) tre= e modified-tick) (let ((--buf-copy (org-export-copy-buffer :to-buffer nil := drop-visibility nil :drop-narrowing nil :drop-contents nil :drop-locals nil= ))) (unwind-protect (save-current-buffer (set-buffer --buf-copy) (goto-char= ...) (prog1 ... ...)) (and (buffer-live-p --buf-copy) (progn ... ...))))))= )) (unwind-protect (progn (save-excursion (save-restriction (cond ((org-regi= on-active-p) (narrow-to-region (region-beginning) (region-end))) (subtreep = (org-narrow-to-subtree) (goto-char (point-min)) (org-end-of-meta-data) (bac= kward-char) (narrow-to-region (point) (point-max)))) (let* ((org-export-cur= rent-backend (progn ... ...)) (info (org-combine-plists ... ...)) (parsed-k= eywords (delq nil ...)) tree modified-tick) (let ((--buf-copy ...)) (unwind= -protect (save-current-buffer ... ... ...) (and ... ...))))))) (setq org-fo= ld-core--last-buffer-chars-modified-tick (buffer-chars-modified-tick))) (let ((org-fold-core--ignore-modifications t)) (unwind-protect (progn (sa= ve-excursion (save-restriction (cond ((org-region-active-p) (narrow-to-regi= on ... ...)) (subtreep (org-narrow-to-subtree) (goto-char ...) (org-end-of-= meta-data) (backward-char) (narrow-to-region ... ...))) (let* ((org-export-= current-backend ...) (info ...) (parsed-keywords ...) tree modified-tick) (= let (...) (unwind-protect ... ...)))))) (setq org-fold-core--last-buffer-ch= ars-modified-tick (buffer-chars-modified-tick)))) org-export-as(html nil nil nil (:output-file "newtest.html")) (let ((output (org-export-as backend subtreep visible-only body-only ext-= plist))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-curre= nt-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert output) (= let ((coding-system-for-write encoding)) (write-region (point-min) (point-m= ax) file))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (i= f (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-proc= ess file)) file)) (if async (org-export-async-start #'(lambda (file) (org-export-add-to-sta= ck (expand-file-name file) backend)) (list 'let (list (list 'output (list '= org-export-as (list 'quote backend) subtreep visible-only body-only (list '= quote ext-plist)))) (list 'with-temp-buffer '(insert output) (list 'let (li= st (list 'coding-system-for-write (list ... encoding))) (list 'write-region= '(point-min) '(point-max) file))) (list 'or (list 'ignore-errors (list 'fu= ncall (list 'quote post-process) file)) file))) (let ((output (org-export-a= s backend subtreep visible-only body-only ext-plist))) (let ((temp-buffer (= generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-bu= ffer) (unwind-protect (progn (insert output) (let (...) (write-region ... .= .. 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 (o= rg-kill-new output))) (or (and (functionp post-process) (funcall post-proce= ss file)) file))) (let ((ext-plist (org-combine-plists (list ':output-file file) ext-plist)= ) (encoding (or org-export-coding-system buffer-file-coding-system))) (if a= sync (org-export-async-start #'(lambda (file) (org-export-add-to-stack (exp= and-file-name file) backend)) (list 'let (list (list 'output (list 'org-exp= ort-as (list ... backend) subtreep visible-only body-only (list ... ext-pli= st)))) (list 'with-temp-buffer '(insert output) (list 'let (list (list ... = ...)) (list 'write-region '... '... file))) (list 'or (list 'ignore-errors = (list 'funcall (list ... post-process) file)) file))) (let ((output (org-ex= port-as backend subtreep visible-only body-only ext-plist))) (let ((temp-bu= ffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer t= emp-buffer) (unwind-protect (progn (insert output) (let ... ...)) (and (buf= fer-name temp-buffer) (kill-buffer temp-buffer))))) (if (and (org-export--c= opy-to-kill-ring-p) (org-string-nw-p output)) (progn (org-kill-new output))= ) (or (and (functionp post-process) (funcall post-process file)) file)))) (if (not (file-writable-p file)) (error "Output file not writable") (let = ((ext-plist (org-combine-plists (list ':output-file file) ext-plist)) (enco= ding (or org-export-coding-system buffer-file-coding-system))) (if async (o= rg-export-async-start #'(lambda (file) (org-export-add-to-stack (expand-fil= e-name file) backend)) (list 'let (list (list 'output (list ... ... subtree= p visible-only body-only ...))) (list 'with-temp-buffer '(insert output) (l= ist 'let (list ...) (list ... ... ... file))) (list 'or (list 'ignore-error= s (list ... ... file)) file))) (let ((output (org-export-as backend subtree= p visible-only body-only ext-plist))) (let ((temp-buffer (generate-new-buff= er " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-pro= tect (progn ... ...) (and ... ...)))) (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))))) org-export-to-file(html "newtest.html" nil nil nil nil nil) (let* ((extension (concat (if (> (length org-html-extension) 0) (progn ".= ")) (or (plist-get ext-plist :html-extension) org-html-extension "html"))) = (file (org-export-output-file-name extension subtreep)) (org-export-coding-= system org-html-coding-system)) (org-export-to-file 'html file async subtre= ep visible-only body-only ext-plist)) org-html-export-to-html(nil nil nil nil) (org-open-file (org-html-export-to-html nil s v b)) (if a (org-html-export-to-html t s v b) (org-open-file (org-html-export-t= o-html nil s v b))) (lambda (a s v b) (if a (org-html-export-to-html t s v b) (org-open-file = (org-html-export-to-html nil s v b))))(nil nil nil nil) funcall((lambda (a s v b) (if a (org-html-export-to-html t s v b) (org-op= en-file (org-html-export-to-html nil s v b)))) nil nil nil nil) (save-excursion (if arg (progn (if (eq (marker-buffer org-export-dispatch= -last-position) (org-base-buffer (current-buffer))) (goto-char org-export-d= ispatch-last-position) (move-marker org-export-dispatch-last-position nil))= )) (funcall action (and (memq 'async optns) t) (and (memq 'subtree optns) t= ) (and (memq 'visible optns) t) (and (memq 'body optns) t))) (cond ((eql action 'template) (org-export-insert-default-template nil opt= ns)) ((eql action 'stack) (org-export-stack)) ((eql action 'publish-current= -file) (org-publish-current-file (memq 'force optns) (memq 'async optns))) = ((eql action 'publish-current-project) (org-publish-current-project (memq '= force optns) (memq 'async optns))) ((eql action 'publish-choose-project) (o= rg-publish (assoc (completing-read "Publish project: " org-publish-project-= alist nil t) org-publish-project-alist) (memq 'force optns) (memq 'async op= tns))) ((eql action 'publish-all) (org-publish-all (memq 'force optns) (mem= q 'async optns))) (t (save-excursion (if arg (progn (if (eq (marker-buffer = org-export-dispatch-last-position) (org-base-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))))) (let* ((input (cond ((equal arg '(16)) '(stack)) ((and arg org-export-dis= patch-last-action)) (t (let ((wconfig ...)) (unwind-protect (progn ...) (se= t-window-configuration wconfig)))))) (action (car input)) (optns (cdr input= ))) (if (memq 'subtree optns) nil (move-marker org-export-dispatch-last-pos= ition nil)) (cond ((eql action 'template) (org-export-insert-default-templa= te nil optns)) ((eql action 'stack) (org-export-stack)) ((eql action 'publi= sh-current-file) (org-publish-current-file (memq 'force optns) (memq 'async= optns))) ((eql action 'publish-current-project) (org-publish-current-proje= ct (memq 'force optns) (memq 'async optns))) ((eql action 'publish-choose-p= roject) (org-publish (assoc (completing-read "Publish project: " org-publis= h-project-alist nil t) org-publish-project-alist) (memq 'force optns) (memq= 'async optns))) ((eql action 'publish-all) (org-publish-all (memq 'force o= ptns) (memq 'async optns))) (t (save-excursion (if arg (progn (if (eq ... .= ..) (goto-char org-export-dispatch-last-position) (move-marker org-export-d= ispatch-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) command-execute(org-export-dispatch) --=-=-=--