It seems that the following commit broke the ability to link to a figure
with a caption.
commit 7048876f6fa519513763c83bc5baa791420cddab
Author: Ihor Radchenko <[email protected]>
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/)
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 --type)
(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-first-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-affiliated (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) (not (memq --type org-element-greater-elements)))) ((and (eq
--category 'elements) (eq (org-element-class --data) 'object))) (t (mapc
--walk-tree (org-element-contents --data))))))
(let ((--type (org-element-type --data))) (cond ((not --data)) ((and info
(memq --data --ignore-list))) ((not --type) (mapc --walk-tree --data)) ((eq
--type 'org-data) (mapc --walk-tree (org-element-contents --data))) (t (if
(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-affiliated (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-contents --data))) ((and
(eq --category 'greater-elements) (not (memq --type
org-element-greater-elements)))) ((and (eq --category 'elements) (eq
(org-element-class --data) 'object))) (t (mapc --walk-tree
(org-element-contents --data)))))))
(closure ((--walk-tree . #0) (--acc) (--ignore-list) (--category . objects)
(no-recursion) (types link . link) (with-affiliated) (first-match .
first-match) (info :export-options nil :back-end ... :translate-alist ...
:exported-data #<hash-table eq 12/4001 0x44be0ae7> :input-buffer "newtest.org"
:input-file "/Users/powellb/tmp/new..." :html-doctype "xhtml-strict"
:html-container "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-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/tmp/newtest.org" :mode org-data
:CATEGORY "newtest" :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 "[email protected]" :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 :contents-end 240 :post-blank 1
:post-affiliated 220 :name "fig:parcel" :caption (((#("Illustration of joy" 0
19 ...)))) :attr_html (":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-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 :contents-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 :mode nil :granularity nil :parent #1)
#("So, Figure " 0 11 (:parent #10)) (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
#10)) #("is an illustration of the stuff.\n" 0 33 (:parent #10)))))
mapc((closure ((--walk-tree . #1) (--acc) (--ignore-list) (--category .
objects) (no-recursion) (types link . link) (with-affiliated) (first-match .
first-match) (info :export-options nil :back-end #s(org-export-backend :name
html :parent nil :transcoders ... :options ... :filters ... :blocks nil :menu
...) :translate-alist (... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)
:exported-data #<hash-table eq 12/4001 0x44be0ae7> :input-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 ...) (fun closure (... ... ... ... ...) (el)
(let ... ...))) (--data) (let ((--type ...)) (cond (...) (...) (... ...) (...
...) (t ... ... ... ...)))) ((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 (org-data ... .
#2)) (keyword (:key "TITLE" :value "test" :begin 1 :end 21 :post-blank 0
:post-affiliated 1 :mode top-comment :granularity nil :parent #3)) (keyword
(:key "AUTHOR" :value "Brian Powell" :begin 21 :end 49 :post-blank 0
:post-affiliated 21 :mode nil :granularity nil :parent #3)) (keyword (:key
"EMAIL" :value "[email protected]" :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:parcel"
: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-affiliated
241 :mode nil :granularity nil :parent #3) #("Done!\n" 0 6 ...)) (paragraph
(:begin 248 :end 307 :contents-begin 248 :contents-end 307 :post-blank 0
:post-affiliated 248 :mode nil :granularity nil :parent #3) #("So, Figure " 0
11 ...) (link ...) #("is an illustration of the stuff...." 0 33 ...)))))
(cond ((not --data)) ((and info (memq --data --ignore-list))) ((not --type)
(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-first-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-affiliated (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) (not (memq --type org-element-greater-elements)))) ((and (eq
--category 'elements) (eq (org-element-class --data) 'object))) (t (mapc
--walk-tree (org-element-contents --data))))))
(let ((--type (org-element-type --data))) (cond ((not --data)) ((and info
(memq --data --ignore-list))) ((not --type) (mapc --walk-tree --data)) ((eq
--type 'org-data) (mapc --walk-tree (org-element-contents --data))) (t (if
(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-affiliated (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-contents --data))) ((and
(eq --category 'greater-elements) (not (memq --type
org-element-greater-elements)))) ((and (eq --category 'elements) (eq
(org-element-class --data) 'object))) (t (mapc --walk-tree
(org-element-contents --data)))))))
(closure ((--walk-tree . #0) (--acc) (--ignore-list) (--category . objects)
(no-recursion) (types link . link) (with-affiliated) (first-match .
first-match) (info :export-options nil :back-end ... :translate-alist ...
:exported-data #<hash-table eq 12/4001 0x44be0ae7> :input-buffer "newtest.org"
:input-file "/Users/powellb/tmp/new..." :html-doctype "xhtml-strict"
:html-container "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/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 #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 49 :post-blank 0 :post-affiliated 21 :mode nil :granularity nil
:parent #4)) (keyword (:key "EMAIL" :value "[email protected]" :begin 49 :end
83 :post-blank 0 :post-affiliated 49 :mode nil :granularity nil :parent #4))
(keyword (: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 :name "fig:parcel" :caption (((...))) :attr_html (":width
600px") :attr_org (":width 50px") :attr_latex (":width 3.5in") :mode nil
:granularity nil :parent #4) (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 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
:parent #4) #("Done!\n" 0 6 (:parent #12))) (paragraph (:begin 248 :end 307
:contents-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-match .
first-match) (info :export-options nil :back-end #s(org-export-backend :name
html :parent nil :transcoders ... :options ... :filters ... :blocks nil :menu
...) :translate-alist (... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)
:exported-data #<hash-table eq 12/4001 0x44be0ae7> :input-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 ...) (fun closure (... ... ... ... ...) (el)
(let ... ...))) (--data) (let ((--type ...)) (cond (...) (...) (... ...) (...
...) (t ... ... ... ...)))) (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/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-affiliated 21 :mode nil :granularity nil
:parent #5)) (keyword (:key "EMAIL" :value "[email protected]" :begin 49 :end
83 :post-blank 0 :post-affiliated 49 :mode nil :granularity nil :parent #5))
(keyword (:key "DATE" :value "" :begin 83 :end 93 :post-blank 2
:post-affiliated 83 :mode nil :granularity nil :parent #5)) (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 #5) (link ...) #("\n" 0
1 ...)) (paragraph (:begin 241 :end 248 :contents-begin 241 :contents-end 247
:post-blank 1 :post-affiliated 241 :mode nil :granularity nil :parent #5)
#("Done!\n" 0 6 ...)) (paragraph (:begin 248 :end 307 :contents-begin 248
:contents-end 307 :post-blank 0 :post-affiliated 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
(org-element-type --data))) (cond ((not --data)) ((and info ...)) ((not --type)
(mapc --walk-tree --data)) ((eq --type ...) (mapc --walk-tree ...)) (t (if ...
...) (if ... ...) (if ... ...) (cond ... ... ... ... ...)))))) (catch
:--map-first-match (funcall --walk-tree data) (nreverse --acc)))
(let* ((types (if (listp types) types (list types))) (no-recursion (if (listp
no-recursion) no-recursion (list no-recursion))) (--category (catch :--found
(let ((category 'greater-elements) (all-objects (cons ...
org-element-all-objects))) (let ((tail types)) (while tail (let ... ... ...))
category)))) (--ignore-list (plist-get info :ignore-list)) --acc) (let
(--walk-tree) (setq --walk-tree #'(lambda (--data) (let ((--type ...)) (cond
(...) (...) (... ...) (... ...) (t ... ... ... ...))))) (catch
:--map-first-match (funcall --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 :path
"/Users/powellb/tmp/newtest..." :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 #1) (keyword ...) (keyword ...) (keyword
...) (keyword ...) (paragraph ... ... ...) (paragraph ... ...) (paragraph ...
... ... ...))) (link . link) (closure ((counter . 0) (predicate .
org-html-standalone-image-p) (types . link) (info :export-options nil :back-end
... :translate-alist ... :exported-data #<hash-table eq 12/4001 0x44be0ae7>
:input-buffer "newtest.org" :input-file "/Users/powellb/tmp/newtest..."
:html-doctype "xhtml-strict" :html-container "div" :html-content-class
"content" :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 HTML"
...)) :translate-alist ((bold . org-html-bold) (center-block .
org-html-center-block) (clock . org-html-clock) (code . org-html-code) (drawer
. org-html-drawer) (dynamic-block . org-html-dynamic-block) (entity .
org-html-entity) (example-block . org-html-example-block) (export-block .
org-html-export-block) (export-snippet . org-html-export-snippet) (fixed-width
. org-html-fixed-width) (footnote-reference . org-html-footnote-reference)
(headline . org-html-headline) (horizontal-rule . org-html-horizontal-rule)
(inline-src-block . org-html-inline-src-block) (inlinetask .
org-html-inlinetask) (inner-template . org-html-inner-template) (italic .
org-html-italic) (item . org-html-item) (keyword . org-html-keyword)
(latex-environment . org-html-latex-environment) (latex-fragment .
org-html-latex-fragment) (line-break . org-html-line-break) (link .
org-html-link) (node-property . org-html-node-property) (paragraph .
org-html-paragraph) ...) :exported-data #<hash-table eq 12/4001 0x44be0ae7>
:input-buffer "newtest.org" :input-file "/Users/powellb/tmp/newtest..."
: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 ...) 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 counter ...)
nil) ((not predicate) (setq counter ...) (org-element-put-property el
: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 temp
'(footnote-definition footnote-reference)) (org-export-get-footnote-number
element info)) (t (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 (...) (cond ... ... ... ...)))
info 'first-match))))
(let* ((temp (org-element-type element))) (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 temp '(footnote-definition
footnote-reference)) (org-export-get-footnote-number element info)) (t (let
((counter 0)) (org-element-map (plist-get info :parse-tree) (or (and types
(cons ... types)) (org-element-type element)) #'(lambda (el) (let ... ...))
info 'first-match)))))
org-export-get-ordinal((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 nil :post-blank 0 :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) (center-block .
org-html-center-block) (clock . org-html-clock) (code . org-html-code) (drawer
. org-html-drawer) (dynamic-block . org-html-dynamic-block) (entity .
org-html-entity) (example-block . org-html-example-block) (export-block .
org-html-export-block) (export-snippet . org-html-export-snippet) (fixed-width
. org-html-fixed-width) (footnote-reference . org-html-footnote-reference)
(headline . org-html-headline) (horizontal-rule . org-html-horizontal-rule)
(inline-src-block . org-html-inline-src-block) (inlinetask .
org-html-inlinetask) (inner-template . org-html-inner-template) (italic .
org-html-italic) (item . org-html-item) (keyword . org-html-keyword)
(latex-environment . org-html-latex-environment) (latex-fragment .
org-html-latex-fragment) (line-break . org-html-line-break) (link .
org-html-link) (node-property . org-html-node-property) (paragraph .
org-html-paragraph) ...) :exported-data #<hash-table eq 12/4001 0x44be0ae7>
:input-buffer "newtest.org" :input-file "/Users/powellb/tmp/newtest..."
: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 ...) link org-html-standalone-image-p)
(cond (desc nil) ((org-html-standalone-image-p destination info)
(org-export-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 'latex-environment (org-element-type destination))
#'org-html--math-environment-p #'org-html--has-caption-p)) (number (cond (desc
nil) ((org-html-standalone-image-p destination info) (org-export-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)))) (desc (cond (desc) ((not number) "No description for this
link") ((numberp number) (number-to-string number)) (t (mapconcat
#'number-to-string number "."))))) (format "<a href=\"#%s\"%s>%s</a>" 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--environment-type destination))) (format (plist-get info
:html-equation-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--has-caption-p)) (number (cond (desc
nil) ((org-html-standalone-image-p destination info) (org-export-get-ordinal
(org-element-map destination ... ... 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 "<a href=\"#%s\"%s>%s</a>" ref
attributes desc)))
(let nil (if (and destination (memq (plist-get info :with-latex) '(mathjax
t)) (eq 'latex-environment (org-element-type destination)) (eq 'math
(org-latex--environment-type destination))) (format (plist-get info
:html-equation-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--has-caption-p)) (number (cond (desc
nil) ((org-html-standalone-image-p destination 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-string number)) (t (mapconcat ... number
"."))))) (format "<a href=\"#%s\"%s>%s</a>" 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=\"%s#%s\"%s>%s</a>" path fragment attributes (or desc destination)))))
((null val) (let nil (format "<i>%s</i>" (or desc (org-export-data
(org-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 "<a href=\"#%s\"%s>%s</a>"
href attributes desc)))) (t (let nil (if (and destination (memq (plist-get info
:with-latex) '(mathjax t)) (eq 'latex-environment (org-element-type
destination)) (eq 'math (org-latex--environment-type destination))) (format
(plist-get info :html-equation-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 ... ... ...)) (number (cond ... ... ...)) (desc (cond
... ... ... ...))) (format "<a href=\"#%s\"%s>%s</a>" 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 "<a
href=\"%s#%s\"%s>%s</a>" path fragment attributes (or desc destination)))))
((null val) (let nil (format "<i>%s</i>" (or desc (org-export-data
(org-element-property :raw-link link) info))))) ((eq val 'headline) (let nil
(let ((href (org-html--reference destination info)) (desc (if ... ... ...)))
(format "<a href=\"#%s\"%s>%s</a>" href attributes desc)))) (t (let nil (if
(and destination (memq (plist-get info :with-latex) '...) (eq
'latex-environment (org-element-type destination)) (eq 'math
(org-latex--environment-type destination))) (format (plist-get info
:html-equation-reference-format) (org-html--reference destination info)) (let*
((ref ...) (org-html-standalone-image-predicate ...) (counter-predicate ...)
(number ...) (desc ...)) (format "<a href=\"#%s\"%s>%s</a>" ref attributes
desc)))))))
(let ((destination (if (string= 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
((fragment ...) (path ...)) (format "<a href=\"%s#%s\"%s>%s</a>" path fragment
attributes (or desc destination))))) ((null val) (let nil (format "<i>%s</i>"
(or desc (org-export-data ... info))))) ((eq val 'headline) (let nil (let
((href ...) (desc ...)) (format "<a href=\"#%s\"%s>%s</a>" href attributes
desc)))) (t (let nil (if (and destination (memq ... ...) (eq ... ...) (eq ...
...)) (format (plist-get info :html-equation-reference-format)
(org-html--reference destination info)) (let* (... ... ... ... ...) (format "<a
href=\"#%s\"%s>%s</a>" ref attributes desc))))))))
(cond ((org-export-custom-protocol-maybe link desc 'html info)) ((and
(plist-get info :html-inline-images) (org-export-inline-image-p link (plist-get
info :html-inline-image-rules))) (org-html--format-image path attributes-plist
info)) ((string= type "radio") (let ((destination
(org-export-resolve-radio-link link info))) (if (not destination) desc (format
"<a href=\"#%s\"%s>%s</a>" (org-export-get-reference destination info)
attributes desc)))) ((member type '("custom-id" "fuzzy" "id")) (let
((destination (if (string= 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 "<i>%s</i>" ...))) ((eq val 'headline) (let nil (let ...
...))) (t (let nil (if ... ... ...))))))) ((string= type "coderef") (let
((fragment (concat "coderef-" (org-html-encode-plain-text path)))) (format "<a
href=\"#%s\" %s%s>%s</a>" fragment (format "class=\"coderef\"
onmouseover=\"CodeHighlightOn(this,..." fragment fragment) attributes (format
(org-export-get-coderef-format path desc) (org-export-resolve-coderef path
info))))) ((and path desc) (format "<a href=\"%s\"%s>%s</a>"
(org-html-encode-plain-text path) attributes desc)) (path (let ((path
(org-html-encode-plain-text path))) (format "<a href=\"%s\"%s>%s</a>" path
attributes path))) (t (format "<i>%s</i>" desc)))
(let* ((html-ext (plist-get info :html-extension)) (dot (if (> (length
html-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-url (concat
type ":" raw-path))) ((string= "file" type) (setq raw-path (org-export-file-uri
(org-publish-file-relative-name raw-path info))) (let ((home ...)) (if (and
home ... ...) (progn ...))) (setq raw-path (funcall
link-org-files-as-html-maybe raw-path info)) (let ((option ...)) (if (not
option) 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-read-attribute :attr_html parent))) (org-export-read-attribute
:attr_html link))) (attributes (let ((attr (org-html--make-attribute-string
attributes-plist))) (if (org-string-nw-p attr) (concat " " attr) "")))) (cond
((org-export-custom-protocol-maybe link desc 'html info)) ((and (plist-get info
:html-inline-images) (org-export-inline-image-p link (plist-get info
:html-inline-image-rules))) (org-html--format-image path attributes-plist
info)) ((string= type "radio") (let ((destination
(org-export-resolve-radio-link link info))) (if (not destination) desc (format
"<a href=\"#%s\"%s>%s</a>" (org-export-get-reference destination info)
attributes desc)))) ((member type '("custom-id" "fuzzy" "id")) (let
((destination (if (string= 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 ...) (let nil ...)) ((null val) (let nil ...))
((eq val ...) (let nil ...)) (t (let nil ...)))))) ((string= type "coderef")
(let ((fragment (concat "coderef-" (org-html-encode-plain-text path)))) (format
"<a href=\"#%s\" %s%s>%s</a>" fragment (format "class=\"coderef\"
onmouseover=\"CodeHighlightOn(this,..." fragment fragment) attributes (format
(org-export-get-coderef-format path desc) (org-export-resolve-coderef path
info))))) ((and path desc) (format "<a href=\"%s\"%s>%s</a>"
(org-html-encode-plain-text path) attributes desc)) (path (let ((path
(org-html-encode-plain-text path))) (format "<a href=\"%s\"%s>%s</a>" path
attributes path))) (t (format "<i>%s</i>" desc))))
org-html-link((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 ... ...
#1 ...))) nil (:export-options nil :back-end #s(org-export-backend :name html
:parent nil :transcoders (... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ...) :options (... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ...) :filters (... ... ...) :blocks nil :menu (104 "Export to HTML"
...)) :translate-alist ((bold . org-html-bold) (center-block .
org-html-center-block) (clock . org-html-clock) (code . org-html-code) (drawer
. org-html-drawer) (dynamic-block . org-html-dynamic-block) (entity .
org-html-entity) (example-block . org-html-example-block) (export-block .
org-html-export-block) (export-snippet . org-html-export-snippet) (fixed-width
. org-html-fixed-width) (footnote-reference . org-html-footnote-reference)
(headline . org-html-headline) (horizontal-rule . org-html-horizontal-rule)
(inline-src-block . org-html-inline-src-block) (inlinetask .
org-html-inlinetask) (inner-template . org-html-inner-template) (italic .
org-html-italic) (item . org-html-item) (keyword . org-html-keyword)
(latex-environment . org-html-latex-environment) (latex-fragment .
org-html-latex-fragment) (line-break . org-html-line-break) (link .
org-html-link) (node-property . org-html-node-property) (paragraph .
org-html-paragraph) ...) :exported-data #<hash-table eq 12/4001 0x44be0ae7>
:input-buffer "newtest.org" :input-file "/Users/powellb/tmp/newtest..."
:html-doctype "xhtml-strict" :html-container "div" :html-content-class
"content" :description nil :keywords nil :html-html5-fancy nil
:html-link-use-abs-url nil ...))
funcall(org-html-link (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 ... ...
#2 ...))) nil (:export-options nil :back-end #s(org-export-backend :name html
:parent nil :transcoders (... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ...) :options (... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ...) :filters (... ... ...) :blocks nil :menu (104 "Export to HTML"
...)) :translate-alist ((bold . org-html-bold) (center-block .
org-html-center-block) (clock . org-html-clock) (code . org-html-code) (drawer
. org-html-drawer) (dynamic-block . org-html-dynamic-block) (entity .
org-html-entity) (example-block . org-html-example-block) (export-block .
org-html-export-block) (export-snippet . org-html-export-snippet) (fixed-width
. org-html-fixed-width) (footnote-reference . org-html-footnote-reference)
(headline . org-html-headline) (horizontal-rule . org-html-horizontal-rule)
(inline-src-block . org-html-inline-src-block) (inlinetask .
org-html-inlinetask) (inner-template . org-html-inner-template) (italic .
org-html-italic) (item . org-html-item) (keyword . org-html-keyword)
(latex-environment . org-html-latex-environment) (latex-fragment .
org-html-latex-fragment) (line-break . org-html-line-break) (link .
org-html-link) (node-property . org-html-node-property) (paragraph .
org-html-paragraph) ...) :exported-data #<hash-table eq 12/4001 0x44be0ae7>
:input-buffer "newtest.org" :input-file "/Users/powellb/tmp/newtest..."
: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 ...))
(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 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" ...))) ((eq val
'mark) (let nil (org-export-data ... info))) (t 'nil))))) (funcall transcoder
data nil info))
(and (functionp transcoder) (if (eq type 'link) (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 ...)) ((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 transcoder
data nil info)) (org-link-broken (let* (...) (cond ... ... ...)))) (funcall
transcoder data nil info))) (and (eq type 'export-snippet) "")))
(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
((transcoder (org-export-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 'headline) (eq (plist-get info :with-archived-trees) 'headline)
(org-element-property :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))) (and (eq type 'export-snippet) "")))) (t (let
((transcoder (org-export-transcoder 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-export-filter-apply-functions (plist-get info :filter-plain-text) (let
(...) (if transcoder ... data)) info)) ((not type) (mapconcat #'(lambda ...
...) data "")) ((or (not (org-element-contents data)) (and (eq type ...) (eq
... ...) (org-element-property :archivedp data))) (let ((transcoder ...)) (or
(and ... ...) (and ... "")))) (t (let ((transcoder ...)) (if transcoder (progn
...))))))) (puthash data (cond ((not results) "") ((memq type '(nil org-data
plain-text raw)) results) (t (org-export-filter-apply-functions (plist-get info
(intern (format ":filter-%s" type))) (let ((blank ...)) (if (eq ... ...)
(concat results ...) (concat ... ...))) info))) (plist-get info
:exported-data)))
(or (gethash data (plist-get info :exported-data)) (let* ((type
(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-export-filter-apply-functions (plist-get info :filter-plain-text) (let ...
...) info)) ((not type) (mapconcat #'... data "")) ((or (not ...) (and ... ...
...)) (let (...) (or ... ...))) (t (let (...) (if transcoder ...)))))) (puthash
data (cond ((not results) "") ((memq type '(nil org-data plain-text raw))
results) (t (org-export-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 274
: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) (center-block .
org-html-center-block) (clock . org-html-clock) (code . org-html-code) (drawer
. org-html-drawer) (dynamic-block . org-html-dynamic-block) (entity .
org-html-entity) (example-block . org-html-example-block) (export-block .
org-html-export-block) (export-snippet . org-html-export-snippet) (fixed-width
. org-html-fixed-width) (footnote-reference . org-html-footnote-reference)
(headline . org-html-headline) (horizontal-rule . org-html-horizontal-rule)
(inline-src-block . org-html-inline-src-block) (inlinetask .
org-html-inlinetask) (inner-template . org-html-inner-template) (italic .
org-html-italic) (item . org-html-item) (keyword . org-html-keyword)
(latex-environment . org-html-latex-environment) (latex-fragment .
org-html-latex-fragment) (line-break . org-html-line-break) (link .
org-html-link) (node-property . org-html-node-property) (paragraph .
org-html-paragraph) ...) :exported-data #<hash-table eq 12/4001 0x44be0ae7>
:input-buffer "newtest.org" :input-file "/Users/powellb/tmp/newtest..."
:html-doctype "xhtml-strict" :html-container "div" :html-content-class
"content" :description nil :keywords nil :html-html5-fancy nil
:html-link-use-abs-url nil ...))
(closure ((info :export-options nil :back-end #s(org-export-backend :name
html :parent nil :transcoders ... :options ... :filters ... :blocks nil :menu
...) :translate-alist (... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :exported-data
#<hash-table eq 12/4001 0x44be0ae7> :input-buffer "newtest.org" :input-file
"/Users/powellb/tmp/newtest.or..." :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 "" ...))
(element) (org-export-data element info))((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 :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
first-section :granularity nil :parent (org-data ... #47)) (keyword (:key
"TITLE" :value "test" :begin 1 :end 21 :post-blank 0 :post-affiliated 1 :mode
top-comment :granularity nil :parent #47)) (keyword (:key "AUTHOR" :value
"Brian Powell" :begin 21 :end 49 :post-blank 0 :post-affiliated 21 :mode nil
:granularity nil :parent #47)) (keyword (:key "EMAIL" :value
"[email protected]" :begin 49 :end 83 :post-blank 0 :post-affiliated 49 :mode
nil :granularity 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) (link
...) #("\n" 0 1 ...)) (paragraph (:begin 241 :end 248 :contents-begin 241
:contents-end 247 :post-blank 1 :post-affiliated 241 :mode nil :granularity nil
:parent #47) #("Done!\n" 0 6 ...)) #27)) #("So, Figure " 0 11 (:parent #27)) #1
#("is an illustration of the stuff.\n" 0 33 (:parent #27))))))
mapconcat((closure ((info :export-options nil :back-end #s(org-export-backend
:name html :parent nil :transcoders (... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ...) :options (... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ...) :filters (... ... ...) :blocks nil
:menu (104 "Export to HTML" ...)) :translate-alist ((bold . org-html-bold)
(center-block . org-html-center-block) (clock . org-html-clock) (code .
org-html-code) (drawer . org-html-drawer) (dynamic-block .
org-html-dynamic-block) (entity . org-html-entity) (example-block .
org-html-example-block) (export-block . org-html-export-block) (export-snippet
. org-html-export-snippet) (fixed-width . org-html-fixed-width)
(footnote-reference . org-html-footnote-reference) (headline .
org-html-headline) (horizontal-rule . org-html-horizontal-rule)
(inline-src-block . org-html-inline-src-block) (inlinetask .
org-html-inlinetask) (inner-template . org-html-inner-template) (italic .
org-html-italic) (item . org-html-item) (keyword . org-html-keyword)
(latex-environment . org-html-latex-environment) (latex-fragment .
org-html-latex-fragment) (line-break . org-html-line-break) (link .
org-html-link) (node-property . org-html-node-property) (paragraph .
org-html-paragraph) (plain-list . org-html-plain-list) (plain-text .
org-html-plain-text) (planning . org-html-planning) (property-drawer .
org-html-property-drawer) (quote-block . org-html-quote-block) (radio-target .
org-html-radio-target) (section . org-html-section) (special-block .
org-html-special-block) (src-block . org-html-src-block) (statistics-cookie .
org-html-statistics-cookie) (strike-through . org-html-strike-through)
(subscript . org-html-subscript) ...) :exported-data #<hash-table eq 12/4001
0x44be0ae7> :input-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 "" :html-equation-reference-format "\\eqref{%s}"
:html-postamble auto :html-preamble ...)) (element) (org-export-data element
info)) (#("So, Figure " 0 11 (:parent (paragraph (:begin 248 :end 307
:contents-begin 248 :contents-end 307 :post-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 :end 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-begin 248 :contents-end 307
:post-blank 0 :post-affiliated 248 :mode nil :granularity nil :parent ...) .
#2)))) "")
(let* ((greaterp (memq type org-element-greater-elements)) (objectp (and (not
greaterp) (memq type org-element-recursive-objects))) (contents (mapconcat
#'(lambda (element) (org-export-data element info)) (org-element-contents (if
(or greaterp objectp) data (org-element-normalize-contents data (and ... ...
... ...)))) ""))) (condition-case err (progn (funcall transcoder data (if (not
greaterp) contents (org-element-normalize-string contents)) info))
(org-link-broken (let* ((val (plist-get info :with-broken-links))) (cond ((null
val) (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)) (objectp
(and (not greaterp) (memq type org-element-recursive-objects))) (contents
(mapconcat #'(lambda (element) (org-export-data element info))
(org-element-contents (if (or greaterp objectp) data
(org-element-normalize-contents data ...))) ""))) (condition-case err (progn
(funcall transcoder data (if (not greaterp) contents
(org-element-normalize-string contents)) info)) (org-link-broken (let* ((val
(plist-get info :with-broken-links))) (cond ((null val) (let nil ...)) ((eq val
...) (let nil ...)) (t 'nil)))))))
(if transcoder (progn (let* ((greaterp (memq type
org-element-greater-elements)) (objectp (and (not greaterp) (memq type
org-element-recursive-objects))) (contents (mapconcat #'(lambda ... ...)
(org-element-contents (if ... data ...)) ""))) (condition-case err (progn
(funcall transcoder data (if (not greaterp) contents
(org-element-normalize-string contents)) info)) (org-link-broken (let* ((val
...)) (cond (... ...) (... ...) (t ...))))))))
(let ((transcoder (org-export-transcoder data info))) (if transcoder (progn
(let* ((greaterp (memq type org-element-greater-elements)) (objectp (and (not
greaterp) (memq type org-element-recursive-objects))) (contents (mapconcat
#'... (org-element-contents ...) ""))) (condition-case err (progn (funcall
transcoder data (if ... contents ...) info)) (org-link-broken (let* (...) (cond
... ... ...))))))))
(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
((transcoder (org-export-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 'headline) (eq (plist-get info :with-archived-trees) 'headline)
(org-element-property :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))) (and (eq type 'export-snippet) "")))) (t (let
((transcoder (org-export-transcoder 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-export-filter-apply-functions (plist-get info :filter-plain-text) (let
(...) (if transcoder ... data)) info)) ((not type) (mapconcat #'(lambda ...
...) data "")) ((or (not (org-element-contents data)) (and (eq type ...) (eq
... ...) (org-element-property :archivedp data))) (let ((transcoder ...)) (or
(and ... ...) (and ... "")))) (t (let ((transcoder ...)) (if transcoder (progn
...))))))) (puthash data (cond ((not results) "") ((memq type '(nil org-data
plain-text raw)) results) (t (org-export-filter-apply-functions (plist-get info
(intern (format ":filter-%s" type))) (let ((blank ...)) (if (eq ... ...)
(concat results ...) (concat ... ...))) info))) (plist-get info
:exported-data)))
(or (gethash data (plist-get info :exported-data)) (let* ((type
(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-export-filter-apply-functions (plist-get info :filter-plain-text) (let ...
...) info)) ((not type) (mapconcat #'... data "")) ((or (not ...) (and ... ...
...)) (let (...) (or ... ...))) (t (let (...) (if transcoder ...)))))) (puthash
data (cond ((not results) "") ((memq type '(nil org-data plain-text raw))
results) (t (org-export-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
:contents-end 307 :post-blank 0 :post-affiliated 248 :mode nil :granularity nil
:parent (section ... ... ... ... ... ... ... #1)) #("So, Figure " 0 11 (:parent
#1)) (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 #1)) #("is an
illustration of the ..." 0 33 (:parent #1))) (:export-options nil :back-end
#s(org-export-backend :name html :parent nil :transcoders (... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ...) :options (... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ...) :filters (... ... ...) :blocks
nil :menu (104 "Export to HTML" ...)) :translate-alist ((bold . org-html-bold)
(center-block . org-html-center-block) (clock . org-html-clock) (code .
org-html-code) (drawer . org-html-drawer) (dynamic-block .
org-html-dynamic-block) (entity . org-html-entity) (example-block .
org-html-example-block) (export-block . org-html-export-block) (export-snippet
. org-html-export-snippet) (fixed-width . org-html-fixed-width)
(footnote-reference . org-html-footnote-reference) (headline .
org-html-headline) (horizontal-rule . org-html-horizontal-rule)
(inline-src-block . org-html-inline-src-block) (inlinetask .
org-html-inlinetask) (inner-template . org-html-inner-template) (italic .
org-html-italic) (item . org-html-item) (keyword . org-html-keyword)
(latex-environment . org-html-latex-environment) (latex-fragment .
org-html-latex-fragment) (line-break . org-html-line-break) (link .
org-html-link) (node-property . org-html-node-property) (paragraph .
org-html-paragraph) ...) :exported-data #<hash-table eq 12/4001 0x44be0ae7>
:input-buffer "newtest.org" :input-file "/Users/powellb/tmp/newtest..."
:html-doctype "xhtml-strict" :html-container "div" :html-content-class
"content" :description nil :keywords nil :html-html5-fancy nil
:html-link-use-abs-url nil ...))
(closure ((info :export-options nil :back-end #s(org-export-backend :name
html :parent nil :transcoders ... :options ... :filters ... :blocks nil :menu
...) :translate-alist (... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :exported-data
#<hash-table eq 12/4001 0x44be0ae7> :input-buffer "newtest.org" :input-file
"/Users/powellb/tmp/newtest.or..." :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 "" ...))
(element) (org-export-data element info))((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 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/tmp/newtest.org" :mode org-data :CATEGORY "newtest"
:granularity nil) #21)) (keyword (:key "TITLE" :value "test" :begin 1 :end 21
:post-blank 0 :post-affiliated 1 :mode top-comment :granularity nil :parent
#21)) (keyword (:key "AUTHOR" :value "Brian Powell" :begin 21 :end 49
:post-blank 0 :post-affiliated 21 :mode nil :granularity nil :parent #21))
(keyword (:key "EMAIL" :value "[email protected]" :begin 49 :end 83
:post-blank 0 :post-affiliated 49 :mode nil :granularity nil :parent #21))
(keyword (:key "DATE" :value "" :begin 83 :end 93 :post-blank 2
:post-affiliated 83 :mode nil :granularity nil :parent #21)) (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 (":width 3.5in") :mode nil
:granularity nil :parent #21) (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 nil :post-blank 0 :parent #28))
#("\n" 0 1 (:parent #28))) (paragraph (:begin 241 :end 248 :contents-begin 241
:contents-end 247 :post-blank 1 :post-affiliated 241 :mode nil :granularity nil
:parent #21) #("Done!\n" 0 6 (:parent #29))) #1)) #("So, Figure " 0 11 (:parent
#1)) (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 #1)) #("is an
illustration of the stuff.\n" 0 33 (:parent #1))))
mapconcat((closure ((info :export-options nil :back-end #s(org-export-backend
:name html :parent nil :transcoders ... :options ... :filters ... :blocks nil
:menu ...) :translate-alist (... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
...) :exported-data #<hash-table eq 12/4001 0x44be0ae7> :input-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 "[email protected]"
:begin 49 :end 83 :post-blank 0 :post-affiliated 49 :mode nil :granularity 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-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 (":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 :contents-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 :parent (section
... . #2)) #("Done!\n" 0 6 (:parent #8))) (paragraph (:begin 248 :end 307
:contents-begin 248 :contents-end 307 :post-blank 0 :post-affiliated 248 :mode
nil :granularity nil :parent (section ... . #2)) #("So, Figure " 0 11 (:parent
#9)) (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 #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 (mapconcat
#'(lambda (element) (org-export-data element info)) (org-element-contents (if
(or greaterp objectp) data (org-element-normalize-contents data (and ... ...
... ...)))) ""))) (condition-case err (progn (funcall transcoder data (if (not
greaterp) contents (org-element-normalize-string contents)) info))
(org-link-broken (let* ((val (plist-get info :with-broken-links))) (cond ((null
val) (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)) (objectp
(and (not greaterp) (memq type org-element-recursive-objects))) (contents
(mapconcat #'(lambda (element) (org-export-data element info))
(org-element-contents (if (or greaterp objectp) data
(org-element-normalize-contents data ...))) ""))) (condition-case err (progn
(funcall transcoder data (if (not greaterp) contents
(org-element-normalize-string contents)) info)) (org-link-broken (let* ((val
(plist-get info :with-broken-links))) (cond ((null val) (let nil ...)) ((eq val
...) (let nil ...)) (t 'nil)))))))
(if transcoder (progn (let* ((greaterp (memq type
org-element-greater-elements)) (objectp (and (not greaterp) (memq type
org-element-recursive-objects))) (contents (mapconcat #'(lambda ... ...)
(org-element-contents (if ... data ...)) ""))) (condition-case err (progn
(funcall transcoder data (if (not greaterp) contents
(org-element-normalize-string contents)) info)) (org-link-broken (let* ((val
...)) (cond (... ...) (... ...) (t ...))))))))
(let ((transcoder (org-export-transcoder data info))) (if transcoder (progn
(let* ((greaterp (memq type org-element-greater-elements)) (objectp (and (not
greaterp) (memq type org-element-recursive-objects))) (contents (mapconcat
#'... (org-element-contents ...) ""))) (condition-case err (progn (funcall
transcoder data (if ... contents ...) info)) (org-link-broken (let* (...) (cond
... ... ...))))))))
(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
((transcoder (org-export-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 'headline) (eq (plist-get info :with-archived-trees) 'headline)
(org-element-property :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))) (and (eq type 'export-snippet) "")))) (t (let
((transcoder (org-export-transcoder 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-export-filter-apply-functions (plist-get info :filter-plain-text) (let
(...) (if transcoder ... data)) info)) ((not type) (mapconcat #'(lambda ...
...) data "")) ((or (not (org-element-contents data)) (and (eq type ...) (eq
... ...) (org-element-property :archivedp data))) (let ((transcoder ...)) (or
(and ... ...) (and ... "")))) (t (let ((transcoder ...)) (if transcoder (progn
...))))))) (puthash data (cond ((not results) "") ((memq type '(nil org-data
plain-text raw)) results) (t (org-export-filter-apply-functions (plist-get info
(intern (format ":filter-%s" type))) (let ((blank ...)) (if (eq ... ...)
(concat results ...) (concat ... ...))) info))) (plist-get info
:exported-data)))
(or (gethash data (plist-get info :exported-data)) (let* ((type
(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-export-filter-apply-functions (plist-get info :filter-plain-text) (let ...
...) info)) ((not type) (mapconcat #'... data "")) ((or (not ...) (and ... ...
...)) (let (...) (or ... ...))) (t (let (...) (if transcoder ...)))))) (puthash
data (cond ((not results) "") ((memq type '(nil org-data plain-text raw))
results) (t (org-export-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-end
307 :robust-begin 1 :robust-end 305 :post-blank 0 :post-affiliated 1 :mode
first-section :granularity nil :parent (org-data ... #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
"[email protected]" :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 :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
:contents-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 :granularity nil :parent #1) #("So, Figure " 0 11 ...) (link ...) #("is an
illustration of the ..." 0 33 ...))) (:export-options nil :back-end
#s(org-export-backend :name html :parent nil :transcoders (... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ...) :options (... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ...) :filters (... ... ...) :blocks
nil :menu (104 "Export to HTML" ...)) :translate-alist ((bold . org-html-bold)
(center-block . org-html-center-block) (clock . org-html-clock) (code .
org-html-code) (drawer . org-html-drawer) (dynamic-block .
org-html-dynamic-block) (entity . org-html-entity) (example-block .
org-html-example-block) (export-block . org-html-export-block) (export-snippet
. org-html-export-snippet) (fixed-width . org-html-fixed-width)
(footnote-reference . org-html-footnote-reference) (headline .
org-html-headline) (horizontal-rule . org-html-horizontal-rule)
(inline-src-block . org-html-inline-src-block) (inlinetask .
org-html-inlinetask) (inner-template . org-html-inner-template) (italic .
org-html-italic) (item . org-html-item) (keyword . org-html-keyword)
(latex-environment . org-html-latex-environment) (latex-fragment .
org-html-latex-fragment) (line-break . org-html-line-break) (link .
org-html-link) (node-property . org-html-node-property) (paragraph .
org-html-paragraph) ...) :exported-data #<hash-table eq 12/4001 0x44be0ae7>
:input-buffer "newtest.org" :input-file "/Users/powellb/tmp/newtest..."
:html-doctype "xhtml-strict" :html-container "div" :html-content-class
"content" :description nil :keywords nil :html-html5-fancy nil
:html-link-use-abs-url nil ...))
(closure ((info :export-options nil :back-end #s(org-export-backend :name
html :parent nil :transcoders ... :options ... :filters ... :blocks nil :menu
...) :translate-alist (... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :exported-data
#<hash-table eq 12/4001 0x44be0ae7> :input-buffer "newtest.org" :input-file
"/Users/powellb/tmp/newtest.or..." :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 "" ...))
(element) (org-export-data element info))((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 (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/tmp/newtest.org" :mode org-data :CATEGORY "newtest"
: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 "[email protected]" :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 :contents-end 240 :post-blank 1
:post-affiliated 220 :name "fig:parcel" :caption (((#("Illustration of joy" 0
19 ...)))) :attr_html (":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-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 :contents-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 :mode nil :granularity nil :parent #1)
#("So, Figure " 0 11 (:parent #10)) (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
#10)) #("is an illustration of the stuff.\n" 0 33 (:parent #10)))))
mapconcat((closure ((info :export-options nil :back-end #s(org-export-backend
:name html :parent nil :transcoders (... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ...) :options (... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ...) :filters (... ... ...) :blocks nil
:menu (104 "Export to HTML" ...)) :translate-alist ((bold . org-html-bold)
(center-block . org-html-center-block) (clock . org-html-clock) (code .
org-html-code) (drawer . org-html-drawer) (dynamic-block .
org-html-dynamic-block) (entity . org-html-entity) (example-block .
org-html-example-block) (export-block . org-html-export-block) (export-snippet
. org-html-export-snippet) (fixed-width . org-html-fixed-width)
(footnote-reference . org-html-footnote-reference) (headline .
org-html-headline) (horizontal-rule . org-html-horizontal-rule)
(inline-src-block . org-html-inline-src-block) (inlinetask .
org-html-inlinetask) (inner-template . org-html-inner-template) (italic .
org-html-italic) (item . org-html-item) (keyword . org-html-keyword)
(latex-environment . org-html-latex-environment) (latex-fragment .
org-html-latex-fragment) (line-break . org-html-line-break) (link .
org-html-link) (node-property . org-html-node-property) (paragraph .
org-html-paragraph) (plain-list . org-html-plain-list) (plain-text .
org-html-plain-text) (planning . org-html-planning) (property-drawer .
org-html-property-drawer) (quote-block . org-html-quote-block) (radio-target .
org-html-radio-target) (section . org-html-section) (special-block .
org-html-special-block) (src-block . org-html-src-block) (statistics-cookie .
org-html-statistics-cookie) (strike-through . org-html-strike-through)
(subscript . org-html-subscript) ...) :exported-data #<hash-table eq 12/4001
0x44be0ae7> :input-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 "" :html-equation-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-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 :robust-end 305 :post-blank 0
:post-affiliated 1 :path "/Users/powellb/tmp/newtest.org" :mode org-data
:CATEGORY "newtest" :granularity nil) . #2)) (keyword (:key "TITLE" :value
"test" :begin 1 :end 21 :post-blank 0 :post-affiliated 1 :mode top-comment
:granularity nil :parent #3)) (keyword (:key "AUTHOR" :value "Brian Powell"
:begin 21 :end 49 :post-blank 0 :post-affiliated 21 :mode nil :granularity nil
:parent #3)) (keyword (:key "EMAIL" :value "[email protected]" :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:parcel" :caption (...) :attr_html (":width
600px") :attr_org (":width 50px") :attr_latex (":width 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 nil :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-affiliated 241 :mode nil :granularity nil
:parent #3) #("Done!\n" 0 6 (:parent #11))) (paragraph (:begin 248 :end 307
:contents-begin 248 :contents-end 307 :post-blank 0 :post-affiliated 248 :mode
nil :granularity nil :parent #3) #("So, Figure " 0 11 (:parent #12)) (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 #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 (mapconcat
#'(lambda (element) (org-export-data element info)) (org-element-contents (if
(or greaterp objectp) data (org-element-normalize-contents data (and ... ...
... ...)))) ""))) (condition-case err (progn (funcall transcoder data (if (not
greaterp) contents (org-element-normalize-string contents)) info))
(org-link-broken (let* ((val (plist-get info :with-broken-links))) (cond ((null
val) (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)) (objectp
(and (not greaterp) (memq type org-element-recursive-objects))) (contents
(mapconcat #'(lambda (element) (org-export-data element info))
(org-element-contents (if (or greaterp objectp) data
(org-element-normalize-contents data ...))) ""))) (condition-case err (progn
(funcall transcoder data (if (not greaterp) contents
(org-element-normalize-string contents)) info)) (org-link-broken (let* ((val
(plist-get info :with-broken-links))) (cond ((null val) (let nil ...)) ((eq val
...) (let nil ...)) (t 'nil)))))))
(if transcoder (progn (let* ((greaterp (memq type
org-element-greater-elements)) (objectp (and (not greaterp) (memq type
org-element-recursive-objects))) (contents (mapconcat #'(lambda ... ...)
(org-element-contents (if ... data ...)) ""))) (condition-case err (progn
(funcall transcoder data (if (not greaterp) contents
(org-element-normalize-string contents)) info)) (org-link-broken (let* ((val
...)) (cond (... ...) (... ...) (t ...))))))))
(let ((transcoder (org-export-transcoder data info))) (if transcoder (progn
(let* ((greaterp (memq type org-element-greater-elements)) (objectp (and (not
greaterp) (memq type org-element-recursive-objects))) (contents (mapconcat
#'... (org-element-contents ...) ""))) (condition-case err (progn (funcall
transcoder data (if ... contents ...) info)) (org-link-broken (let* (...) (cond
... ... ...))))))))
(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
((transcoder (org-export-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 'headline) (eq (plist-get info :with-archived-trees) 'headline)
(org-element-property :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))) (and (eq type 'export-snippet) "")))) (t (let
((transcoder (org-export-transcoder 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-export-filter-apply-functions (plist-get info :filter-plain-text) (let
(...) (if transcoder ... data)) info)) ((not type) (mapconcat #'(lambda ...
...) data "")) ((or (not (org-element-contents data)) (and (eq type ...) (eq
... ...) (org-element-property :archivedp data))) (let ((transcoder ...)) (or
(and ... ...) (and ... "")))) (t (let ((transcoder ...)) (if transcoder (progn
...))))))) (puthash data (cond ((not results) "") ((memq type '(nil org-data
plain-text raw)) results) (t (org-export-filter-apply-functions (plist-get info
(intern (format ":filter-%s" type))) (let ((blank ...)) (if (eq ... ...)
(concat results ...) (concat ... ...))) info))) (plist-get info
:exported-data)))
(or (gethash data (plist-get info :exported-data)) (let* ((type
(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-export-filter-apply-functions (plist-get info :filter-plain-text) (let ...
...) info)) ((not type) (mapconcat #'... data "")) ((or (not ...) (and ... ...
...)) (let (...) (or ... ...))) (t (let (...) (if transcoder ...)))))) (puthash
data (cond ((not results) "") ((memq type '(nil org-data plain-text raw))
results) (t (org-export-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 :path
"/Users/powellb/tmp/newtest..." :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 #1) (keyword ...) (keyword ...) (keyword
...) (keyword ...) (paragraph ... ... ...) (paragraph ... ...) (paragraph ...
... ... ...))) (:export-options nil :back-end #s(org-export-backend :name html
:parent nil :transcoders (... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ...) :options (... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ...) :filters (... ... ...) :blocks nil :menu (104 "Export to HTML"
...)) :translate-alist ((bold . org-html-bold) (center-block .
org-html-center-block) (clock . org-html-clock) (code . org-html-code) (drawer
. org-html-drawer) (dynamic-block . org-html-dynamic-block) (entity .
org-html-entity) (example-block . org-html-example-block) (export-block .
org-html-export-block) (export-snippet . org-html-export-snippet) (fixed-width
. org-html-fixed-width) (footnote-reference . org-html-footnote-reference)
(headline . org-html-headline) (horizontal-rule . org-html-horizontal-rule)
(inline-src-block . org-html-inline-src-block) (inlinetask .
org-html-inlinetask) (inner-template . org-html-inner-template) (italic .
org-html-italic) (item . org-html-item) (keyword . org-html-keyword)
(latex-environment . org-html-latex-environment) (latex-fragment .
org-html-latex-fragment) (line-break . org-html-line-break) (link .
org-html-link) (node-property . org-html-node-property) (paragraph .
org-html-paragraph) ...) :exported-data #<hash-table eq 12/4001 0x44be0ae7>
:input-buffer "newtest.org" :input-file "/Users/powellb/tmp/newtest..."
: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 ...))
(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
:translate-alist)))) (full-body (org-export-filter-apply-functions (plist-get
info :filter-body) (if (not (functionp inner-template)) body (funcall
inner-template body info)) info)) (template (cdr (assq 'template (plist-get
info :translate-alist)))) (output (if (or (not (functionp template)) body-only)
full-body (funcall template full-body info)))) (setq output
(org-cite-finalize-export output info)) (org-no-properties
(org-export-filter-apply-functions (plist-get info :filter-final-output) output
info)))
(progn (font-lock-mode -1) (run-hook-with-args
'org-export-before-processing-hook (progn (or (progn (and (memq (type-of
backend) cl-struct-org-export-backend-tags) t)) (signal 'wrong-type-argument
(list 'org-export-backend backend))) (aref backend 1)))
(org-export-expand-include-keyword) (org-export--delete-comment-trees)
(org-macro-initialize-templates org-export-global-macros)
(org-macro-replace-all org-macro-templates parsed-keywords)
(org-set-regexps-and-options) (org-update-radio-target-regexp) (setq
modified-tick (buffer-chars-modified-tick)) (if org-export-use-babel (progn
(org-babel-exp-process-buffer) (org-macro-replace-all '(("results" . "$1"))
parsed-keywords) (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)))) (goto-char (point-min))
(save-excursion (run-hook-with-args 'org-export-before-parsing-hook (progn (or
(progn (and (memq ... cl-struct-org-export-backend-tags) t)) (signal
'wrong-type-argument (list 'org-export-backend backend))) (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-store-bibliography info) (org-cite-store-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* ((x616 ...) (x617
...)) (if (consp x617) (let* ... ...) 'nil)) 'nil) (setq tail (cdr tail)))))
(setq info (org-export-install-filters info)) (let ((backend-name (progn (or
(progn (and ... t)) (signal 'wrong-type-argument (list ... backend))) (aref
backend 1)))) (let ((tail (plist-get info :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-filter-apply-functions (plist-get info
:filter-parse-tree) tree info)) (setq info (org-export--collect-tree-properties
tree info)) (org-cite-process-citations info) (org-cite-process-bibliography
info) (let* ((body (org-element-normalize-string (or (org-export-data tree
info) ""))) (inner-template (cdr (assq 'inner-template (plist-get info
:translate-alist)))) (full-body (org-export-filter-apply-functions (plist-get
info :filter-body) (if (not (functionp inner-template)) body (funcall
inner-template body info)) info)) (template (cdr (assq 'template (plist-get
info :translate-alist)))) (output (if (or (not (functionp template)) body-only)
full-body (funcall template full-body info)))) (setq output
(org-cite-finalize-export output info)) (org-no-properties
(org-export-filter-apply-functions (plist-get info :filter-final-output) output
info))))
(prog1 (progn (font-lock-mode -1) (run-hook-with-args
'org-export-before-processing-hook (progn (or (progn (and (memq ...
cl-struct-org-export-backend-tags) t)) (signal 'wrong-type-argument (list
'org-export-backend backend))) (aref backend 1)))
(org-export-expand-include-keyword) (org-export--delete-comment-trees)
(org-macro-initialize-templates org-export-global-macros)
(org-macro-replace-all org-macro-templates parsed-keywords)
(org-set-regexps-and-options) (org-update-radio-target-regexp) (setq
modified-tick (buffer-chars-modified-tick)) (if org-export-use-babel (progn
(org-babel-exp-process-buffer) (org-macro-replace-all '(("results" . "$1"))
parsed-keywords) (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)))) (goto-char (point-min))
(save-excursion (run-hook-with-args 'org-export-before-parsing-hook (progn (or
(progn (and ... t)) (signal 'wrong-type-argument (list ... backend))) (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-store-bibliography info) (org-cite-store-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-functions (plist-get info :filter-parse-tree) tree
info)) (setq info (org-export--collect-tree-properties tree info))
(org-cite-process-citations info) (org-cite-process-bibliography info) (let*
((body (org-element-normalize-string (or (org-export-data tree info) "")))
(inner-template (cdr (assq 'inner-template (plist-get info :translate-alist))))
(full-body (org-export-filter-apply-functions (plist-get info :filter-body) (if
(not ...) body (funcall inner-template body info)) info)) (template (cdr (assq
'template (plist-get info :translate-alist)))) (output (if (or (not ...)
body-only) full-body (funcall template full-body info)))) (setq output
(org-cite-finalize-export output info)) (org-no-properties
(org-export-filter-apply-functions (plist-get info :filter-final-output) output
info)))) (setq buffer-file-name nil))
(save-current-buffer (set-buffer --buf-copy) (goto-char (point-min)) (prog1
(progn (font-lock-mode -1) (run-hook-with-args
'org-export-before-processing-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-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
(org-babel-exp-process-buffer) (org-macro-replace-all '(...) parsed-keywords)
(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)))) (goto-char (point-min))
(save-excursion (run-hook-with-args 'org-export-before-parsing-hook (progn (or
(progn ...) (signal ... ...)) (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-store-bibliography info) (org-cite-store-export-processor info) (let
((tail (append (org-export-get-all-options backend) org-export-options-alist)))
(while tail (let ((entry ...)) (if (consp entry) (let* ... ...) 'nil) (setq
tail (cdr tail))))) (setq info (org-export-install-filters info)) (let
((backend-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 tree (org-export-filter-apply-functions (plist-get info
:filter-parse-tree) tree info)) (setq info (org-export--collect-tree-properties
tree info)) (org-cite-process-citations info) (org-cite-process-bibliography
info) (let* ((body (org-element-normalize-string (or ... ""))) (inner-template
(cdr (assq ... ...))) (full-body (org-export-filter-apply-functions (plist-get
info :filter-body) (if ... body ...) info)) (template (cdr (assq ... ...)))
(output (if (or ... body-only) full-body (funcall template full-body info))))
(setq output (org-cite-finalize-export output info)) (org-no-properties
(org-export-filter-apply-functions (plist-get info :filter-final-output) output
info)))) (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-export-before-processing-hook (progn (or (progn ...) (signal ... ...))
(aref backend 1))) (org-export-expand-include-keyword)
(org-export--delete-comment-trees) (org-macro-initialize-templates
org-export-global-macros) (org-macro-replace-all org-macro-templates
parsed-keywords) (org-set-regexps-and-options) (org-update-radio-target-regexp)
(setq modified-tick (buffer-chars-modified-tick)) (if org-export-use-babel
(progn (org-babel-exp-process-buffer) (org-macro-replace-all '...
parsed-keywords) (if (eq modified-tick ...) nil (org-set-regexps-and-options)
(org-update-radio-target-regexp)) (setq modified-tick
(buffer-chars-modified-tick)))) (goto-char (point-min)) (save-excursion
(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-store-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-export--prune-tree tree info) (org-export--remove-uninterpreted-data tree
info) (setq tree (org-export-filter-apply-functions (plist-get info
:filter-parse-tree) tree info)) (setq info (org-export--collect-tree-properties
tree info)) (org-cite-process-citations info) (org-cite-process-bibliography
info) (let* ((body (org-element-normalize-string ...)) (inner-template (cdr
...)) (full-body (org-export-filter-apply-functions ... ... info)) (template
(cdr ...)) (output (if ... full-body ...))) (setq output
(org-cite-finalize-export output info)) (org-no-properties
(org-export-filter-apply-functions (plist-get info :filter-final-output) output
info)))) (setq buffer-file-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)))))
(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
(progn (font-lock-mode -1) (run-hook-with-args
'org-export-before-processing-hook (progn (or ... ...) (aref backend 1)))
(org-export-expand-include-keyword) (org-export--delete-comment-trees)
(org-macro-initialize-templates org-export-global-macros)
(org-macro-replace-all org-macro-templates parsed-keywords)
(org-set-regexps-and-options) (org-update-radio-target-regexp) (setq
modified-tick (buffer-chars-modified-tick)) (if org-export-use-babel (progn
(org-babel-exp-process-buffer) (org-macro-replace-all ... parsed-keywords) (if
... nil ... ...) (setq modified-tick ...))) (goto-char (point-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
modified-tick (buffer-chars-modified-tick)) (setq info (org-combine-plists info
(org-export-get-environment backend subtreep ext-plist)))
(org-cite-store-bibliography info) (org-cite-store-export-processor info) (let
((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-filter-apply-functions (plist-get info
:filter-parse-tree) tree info)) (setq info (org-export--collect-tree-properties
tree info)) (org-cite-process-citations info) (org-cite-process-bibliography
info) (let* ((body ...) (inner-template ...) (full-body ...) (template ...)
(output ...)) (setq output (org-cite-finalize-export output info))
(org-no-properties (org-export-filter-apply-functions ... output info)))) (setq
buffer-file-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))))))
(let* ((org-export-current-backend (progn (or (progn (and (memq ...
cl-struct-org-export-backend-tags) t)) (signal 'wrong-type-argument (list
'org-export-backend backend))) (aref backend 1))) (info (org-combine-plists
(org-export--get-export-attributes backend subtreep visible-only body-only)
(org-export--get-buffer-attributes))) (parsed-keywords (delq nil (mapcar
#'(lambda (o) (and ... ...)) (append (org-export-get-all-options backend)
org-export-options-alist)))) tree 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 (progn (font-lock-mode
-1) (run-hook-with-args 'org-export-before-processing-hook (progn ... ...))
(org-export-expand-include-keyword) (org-export--delete-comment-trees)
(org-macro-initialize-templates org-export-global-macros)
(org-macro-replace-all org-macro-templates parsed-keywords)
(org-set-regexps-and-options) (org-update-radio-target-regexp) (setq
modified-tick (buffer-chars-modified-tick)) (if org-export-use-babel (progn ...
... ... ...)) (goto-char (point-min)) (save-excursion (run-hook-with-args ...
...)) (if (eq 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-cite-store-bibliography info) (org-cite-store-export-processor info) (let
(...) (while tail ...)) (setq info (org-export-install-filters info)) (let
(...) (let ... ...)) (setq tree (org-element-parse-buffer nil visible-only))
(org-export--prune-tree tree info) (org-export--remove-uninterpreted-data tree
info) (setq tree (org-export-filter-apply-functions ... tree info)) (setq info
(org-export--collect-tree-properties tree info)) (org-cite-process-citations
info) (org-cite-process-bibliography info) (let* (... ... ... ... ...) (setq
output ...) (org-no-properties ...))) (setq buffer-file-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
(point-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 subtreep
visible-only body-only) (org-export--get-buffer-attributes))) (parsed-keywords
(delq nil (mapcar #'(lambda ... ...) (append (org-export-get-all-options
backend) org-export-options-alist)))) tree 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 (progn (font-lock-mode
-1) (run-hook-with-args ... ...) (org-export-expand-include-keyword)
(org-export--delete-comment-trees) (org-macro-initialize-templates
org-export-global-macros) (org-macro-replace-all org-macro-templates
parsed-keywords) (org-set-regexps-and-options) (org-update-radio-target-regexp)
(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) (setq tree ...) (setq info ...) (org-cite-process-citations info)
(org-cite-process-bibliography info) (let* ... ... ...)) (setq buffer-file-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-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 (progn ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ...) (setq buffer-file-name nil))) (and (buffer-live-p --buf-copy)
(progn (save-current-buffer ... ...) (if nil nil ...))))))))
(progn (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 ... ...) (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 ... ...))) 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 ...) (prog1 ... ...)) (and (buffer-live-p
--buf-copy) (progn ... ...))))))))
(unwind-protect (progn (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 ... ...)) (info (org-combine-plists
... ...)) (parsed-keywords (delq nil ...)) tree modified-tick) (let
((--buf-copy ...)) (unwind-protect (save-current-buffer ... ... ...) (and ...
...))))))) (setq org-fold-core--last-buffer-chars-modified-tick
(buffer-chars-modified-tick)))
(let ((org-fold-core--ignore-modifications t)) (unwind-protect (progn
(save-excursion (save-restriction (cond ((org-region-active-p)
(narrow-to-region ... ...)) (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-chars-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-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert
output) (let ((coding-system-for-write encoding)) (write-region (point-min)
(point-max) file))) (and (buffer-name temp-buffer) (kill-buffer
temp-buffer))))) (if (and (org-export--copy-to-kill-ring-p) (org-string-nw-p
output)) (progn (org-kill-new output))) (or (and (functionp post-process)
(funcall post-process file)) file))
(if async (org-export-async-start #'(lambda (file) (org-export-add-to-stack
(expand-file-name file) backend)) (list 'let (list (list 'output (list
'org-export-as (list 'quote backend) subtreep visible-only body-only (list
'quote ext-plist)))) (list 'with-temp-buffer '(insert output) (list 'let (list
(list 'coding-system-for-write (list ... encoding))) (list 'write-region
'(point-min) '(point-max) file))) (list 'or (list 'ignore-errors (list 'funcall
(list 'quote post-process) file)) file))) (let ((output (org-export-as backend
subtreep visible-only body-only ext-plist))) (let ((temp-buffer
(generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer
temp-buffer) (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
(org-kill-new output))) (or (and (functionp post-process) (funcall post-process
file)) file)))
(let ((ext-plist (org-combine-plists (list ':output-file file) ext-plist))
(encoding (or org-export-coding-system buffer-file-coding-system))) (if async
(org-export-async-start #'(lambda (file) (org-export-add-to-stack
(expand-file-name file) backend)) (list 'let (list (list 'output (list
'org-export-as (list ... backend) subtreep visible-only body-only (list ...
ext-plist)))) (list 'with-temp-buffer '(insert output) (list 'let (list (list
... ...)) (list 'write-region '... '... file))) (list 'or (list 'ignore-errors
(list 'funcall (list ... post-process) file)) file))) (let ((output
(org-export-as backend subtreep visible-only body-only ext-plist))) (let
((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer
(set-buffer temp-buffer) (unwind-protect (progn (insert output) (let ... ...))
(and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (if (and
(org-export--copy-to-kill-ring-p) (org-string-nw-p output)) (progn
(org-kill-new output))) (or (and (functionp post-process) (funcall post-process
file)) file))))
(if (not (file-writable-p file)) (error "Output file not writable") (let
((ext-plist (org-combine-plists (list ':output-file file) ext-plist)) (encoding
(or org-export-coding-system buffer-file-coding-system))) (if async
(org-export-async-start #'(lambda (file) (org-export-add-to-stack
(expand-file-name file) backend)) (list 'let (list (list 'output (list ... ...
subtreep visible-only body-only ...))) (list 'with-temp-buffer '(insert output)
(list 'let (list ...) (list ... ... ... file))) (list 'or (list 'ignore-errors
(list ... ... file)) file))) (let ((output (org-export-as backend subtreep
visible-only body-only ext-plist))) (let ((temp-buffer (generate-new-buffer "
*temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect
(progn ... ...) (and ... ...)))) (if (and (org-export--copy-to-kill-ring-p)
(org-string-nw-p output)) (progn (org-kill-new output))) (or (and (functionp
post-process) (funcall post-process file)) file)))))
org-export-to-file(html "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 subtreep
visible-only body-only ext-plist))
org-html-export-to-html(nil nil nil nil)
(org-open-file (org-html-export-to-html nil s v b))
(if a (org-html-export-to-html t s v b) (org-open-file
(org-html-export-to-html nil s v b)))
(lambda (a s v b) (if a (org-html-export-to-html t s v b) (org-open-file
(org-html-export-to-html nil s v b))))(nil nil nil nil)
funcall((lambda (a s v b) (if a (org-html-export-to-html t s v b)
(org-open-file (org-html-export-to-html nil s v b)))) nil nil nil nil)
(save-excursion (if arg (progn (if (eq (marker-buffer
org-export-dispatch-last-position) (org-base-buffer (current-buffer)))
(goto-char org-export-dispatch-last-position) (move-marker
org-export-dispatch-last-position nil)))) (funcall action (and (memq 'async
optns) t) (and (memq 'subtree optns) t) (and (memq 'visible optns) t) (and
(memq 'body optns) t)))
(cond ((eql action 'template) (org-export-insert-default-template nil optns))
((eql action 'stack) (org-export-stack)) ((eql action 'publish-current-file)
(org-publish-current-file (memq 'force optns) (memq 'async optns))) ((eql
action 'publish-current-project) (org-publish-current-project (memq 'force
optns) (memq 'async optns))) ((eql action 'publish-choose-project) (org-publish
(assoc (completing-read "Publish project: " org-publish-project-alist nil t)
org-publish-project-alist) (memq 'force optns) (memq 'async optns))) ((eql
action 'publish-all) (org-publish-all (memq 'force optns) (memq 'async optns)))
(t (save-excursion (if arg (progn (if (eq (marker-buffer
org-export-dispatch-last-position) (org-base-buffer ...)) (goto-char
org-export-dispatch-last-position) (move-marker
org-export-dispatch-last-position nil)))) (funcall action (and (memq 'async
optns) t) (and (memq 'subtree optns) t) (and (memq 'visible optns) t) (and
(memq 'body optns) t)))))
(let* ((input (cond ((equal arg '(16)) '(stack)) ((and arg
org-export-dispatch-last-action)) (t (let ((wconfig ...)) (unwind-protect
(progn ...) (set-window-configuration wconfig)))))) (action (car input)) (optns
(cdr input))) (if (memq 'subtree optns) nil (move-marker
org-export-dispatch-last-position nil)) (cond ((eql action 'template)
(org-export-insert-default-template nil optns)) ((eql action 'stack)
(org-export-stack)) ((eql action 'publish-current-file)
(org-publish-current-file (memq 'force optns) (memq 'async optns))) ((eql
action 'publish-current-project) (org-publish-current-project (memq 'force
optns) (memq 'async optns))) ((eql action 'publish-choose-project) (org-publish
(assoc (completing-read "Publish project: " org-publish-project-alist nil t)
org-publish-project-alist) (memq 'force optns) (memq 'async optns))) ((eql
action 'publish-all) (org-publish-all (memq 'force optns) (memq 'async optns)))
(t (save-excursion (if arg (progn (if (eq ... ...) (goto-char
org-export-dispatch-last-position) (move-marker
org-export-dispatch-last-position nil)))) (funcall action (and (memq 'async
optns) t) (and (memq 'subtree optns) t) (and (memq 'visible optns) t) (and
(memq 'body optns) t))))))
org-export-dispatch(nil)
funcall-interactively(org-export-dispatch nil)
command-execute(org-export-dispatch)
