* [BUG] commit 7048876f broke Figure link with caption [9.6 (release_9.6 @ /Users/powellb/src/org-mode/lisp/)]
@ 2022-12-19 0:15 Brian Powell
2022-12-21 12:36 ` Ihor Radchenko
0 siblings, 1 reply; 2+ messages in thread
From: Brian Powell @ 2022-12-19 0:15 UTC (permalink / raw)
To: emacs-orgmode
[-- Attachment #1: Type: text/plain, Size: 1446 bytes --]
It seems that the following commit broke the ability to link to a figure
with a caption.
commit 7048876f6fa519513763c83bc5baa791420cddab
Author: Ihor Radchenko <yantar92@posteo.net>
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/)
[-- Attachment #2: trace --]
[-- Type: text/plain, Size: 108404 bytes --]
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 "powellb@hawaii.edu" :begin 49 :end 83 :post-blank 0 :post-affiliated 49 :mode nil :granularity nil :parent #1)) (keyword (:key "DATE" :value "" :begin 83 :end 93 :post-blank 2 :post-affiliated 83 :mode nil :granularity nil :parent #1)) (paragraph (:begin 93 :end 241 :contents-begin 220 :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 "powellb@hawaii.edu" :begin 49 :end 83 :post-blank 0 :post-affiliated 49 :mode nil :granularity nil :parent #3)) (keyword (:key "DATE" :value "" :begin 83 :end 93 :post-blank 2 :post-affiliated 83 :mode nil :granularity nil :parent #3)) (paragraph (:begin 93 :end 241 :contents-begin 220 :contents-end 240 :post-blank 1 :post-affiliated 220 :name "fig: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 "powellb@hawaii.edu" :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 "powellb@hawaii.edu" :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 "powellb@hawaii.edu" :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 "powellb@hawaii.edu" :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 "powellb@hawaii.edu" :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 "powellb@hawaii.edu" :begin 49 :end 83 :post-blank 0 :post-affiliated 49 :mode nil :granularity nil :parent #1)) (keyword (:key "DATE" :value "" :begin 83 :end 93 :post-blank 2 :post-affiliated 83 :mode nil :granularity nil :parent #1)) (paragraph (:begin 93 :end 241 :contents-begin 220 :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 "powellb@hawaii.edu" :begin 49 :end 83 :post-blank 0 :post-affiliated 49 :mode nil :granularity nil :parent #1)) (keyword (:key "DATE" :value "" :begin 83 :end 93 :post-blank 2 :post-affiliated 83 :mode nil :granularity nil :parent #1)) (paragraph (:begin 93 :end 241 :contents-begin 220 :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 "powellb@hawaii.edu" :begin 49 :end 83 :post-blank 0 :post-affiliated 49 :mode nil :granularity nil :parent #3)) (keyword (:key "DATE" :value "" :begin 83 :end 93 :post-blank 2 :post-affiliated 83 :mode nil :granularity nil :parent #3)) (paragraph (:begin 93 :end 241 :contents-begin 220 :contents-end 240 :post-blank 1 :post-affiliated 220 :name "fig: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)
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: [BUG] commit 7048876f broke Figure link with caption [9.6 (release_9.6 @ /Users/powellb/src/org-mode/lisp/)]
2022-12-19 0:15 [BUG] commit 7048876f broke Figure link with caption [9.6 (release_9.6 @ /Users/powellb/src/org-mode/lisp/)] Brian Powell
@ 2022-12-21 12:36 ` Ihor Radchenko
0 siblings, 0 replies; 2+ messages in thread
From: Ihor Radchenko @ 2022-12-21 12:36 UTC (permalink / raw)
To: Brian Powell; +Cc: emacs-orgmode
Brian Powell <powellb@hawaii.edu> writes:
> It seems that the following commit broke the ability to link to a figure
> with a caption.
>
> commit 7048876f6fa519513763c83bc5baa791420cddab
> Author: Ihor Radchenko <yantar92@posteo.net>
> 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.
Thanks for reporting!
I was unable to reproduce the problem with the given recipe, but I do
see what is wrong looking at the backtrace.
Fixed on bugfix now.
https://git.savannah.gnu.org/cgit/emacs/org-mode.git/commit/?id=db34a7d83
--
Ihor Radchenko // yantar92,
Org mode contributor,
Learn more about Org mode at <https://orgmode.org/>.
Support Org development at <https://liberapay.com/org-mode>,
or support my work at <https://liberapay.com/yantar92>
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2022-12-21 12:36 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2022-12-19 0:15 [BUG] commit 7048876f broke Figure link with caption [9.6 (release_9.6 @ /Users/powellb/src/org-mode/lisp/)] Brian Powell
2022-12-21 12:36 ` Ihor Radchenko
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).