* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 [not found] ` <20240609211858.A2C31C1F9FB@vcs2.savannah.gnu.org> @ 2024-06-10 0:40 ` Po Lu 2024-06-10 1:14 ` Kyle Meyer 2024-06-11 11:03 ` Stefan Kangas 1 sibling, 1 reply; 45+ messages in thread From: Po Lu @ 2024-06-10 0:40 UTC (permalink / raw) To: emacs-devel; +Cc: Kyle Meyer Kyle Meyer <kyle@kyleam.com> writes: > branch: master > commit 5a125fb5a9736bd3c67cf6ff9acc185d8e2260e2 > Author: Kyle Meyer <kyle@kyleam.com> > Commit: Kyle Meyer <kyle@kyleam.com> > > Update to Org 9.7.3 This interferes with bootstrapping org.texi, for which I've installed a temporary workaround that you should revert once the error is resolved on Org's part. ^ permalink raw reply [flat|nested] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-10 0:40 ` master 5a125fb5a97 1/2: Update to Org 9.7.3 Po Lu @ 2024-06-10 1:14 ` Kyle Meyer 2024-06-10 3:45 ` Po Lu 2024-06-10 11:13 ` Eli Zaretskii 0 siblings, 2 replies; 45+ messages in thread From: Kyle Meyer @ 2024-06-10 1:14 UTC (permalink / raw) To: Po Lu; +Cc: emacs-devel, Ihor Radchenko Po Lu writes: > This interferes with bootstrapping org.texi, for which I've installed a > temporary workaround that you should revert once the error is resolved > on Org's part. Could you please provide more details about the error? I don't see any specifics mentioned in 8d1d9798f77 (Fix bootstrap of org.texi), and running 'make bootstrap' on its parent commit (77d0eed74e1) completes without errors for me. ^ permalink raw reply [flat|nested] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-10 1:14 ` Kyle Meyer @ 2024-06-10 3:45 ` Po Lu 2024-06-10 3:58 ` Po Lu 2024-06-12 13:08 ` Ihor Radchenko 2024-06-10 11:13 ` Eli Zaretskii 1 sibling, 2 replies; 45+ messages in thread From: Po Lu @ 2024-06-10 3:45 UTC (permalink / raw) To: Kyle Meyer; +Cc: emacs-devel, Ihor Radchenko [-- Attachment #1: Type: text/plain, Size: 511 bytes --] Kyle Meyer <kyle@kyleam.com> writes: > Po Lu writes: > >> This interferes with bootstrapping org.texi, for which I've installed a >> temporary workaround that you should revert once the error is resolved >> on Org's part. > > Could you please provide more details about the error? I don't see any > specifics mentioned in 8d1d9798f77 (Fix bootstrap of org.texi), and > running 'make bootstrap' on its parent commit (77d0eed74e1) completes > without errors for me. Yes, here's a complete backtrace from Org: [-- Attachment #2: backtrace.txt --] [-- Type: text/plain, Size: 568672 bytes --] GEN org.texi Could not read ‘org-id-locations’ from ~/.emacs.d/.org-id-locations, setting it to nil Executing Emacs-Lisp code block at position 643527... Error: arith-error nil ceiling(0 0) (if pixels pixel-width (ceiling pixel-width symbol-width)) (let (pixel-width symbol-width) (let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hooks t)) (unwind-protect (progn (erase-buffer) (insert string) (setq pixel-width (org-buffer-text-pixel-width)) (if pixels nil (erase-buffer) (insert (propertize "a" 'face (or default-face 'default))) (setq symbol-width (org-buffer-text-pixel-width)))) (if (memq modified '(nil autosaved)) (progn (restore-buffer-modified-p modified))))) (if pixels pixel-width (ceiling pixel-width symbol-width))) (save-current-buffer (set-buffer (get-buffer-create " *Org string width*")) (set (make-local-variable 'display-line-numbers) nil) (set (make-local-variable 'line-prefix) nil) (set (make-local-variable 'wrap-prefix) nil) (set (make-local-variable 'buffer-invisibility-spec) (if (listp current-invisibility-spec) (mapcar #'(lambda (el) (if (and (consp el) (cdr el)) (list (car el)) el)) current-invisibility-spec) current-invisibility-spec)) (set (make-local-variable 'char-property-alias-alist) current-char-property-alias-alist) (let (pixel-width symbol-width) (let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hooks t)) (unwind-protect (progn (erase-buffer) (insert string) (setq pixel-width (org-buffer-text-pixel-width)) (if pixels nil (erase-buffer) (insert (propertize "a" 'face (or default-face 'default))) (setq symbol-width (org-buffer-text-pixel-width)))) (if (memq modified '(nil autosaved)) (progn (restore-buffer-modified-p modified))))) (if pixels pixel-width (ceiling pixel-width symbol-width)))) (let ((current-invisibility-spec (or (and (not (listp buffer-invisibility-spec)) buffer-invisibility-spec) (let (result) (let ((tail buffer-invisibility-spec)) (while tail (let ((el (car tail))) (if (or (memq el '(org-fold-drawer org-fold-block org-fold-outline)) (and (listp el) (memq (car el) '(org-fold-drawer org-fold-block org-fold-outline)))) nil (setq result (cons el result))) (setq tail (cdr tail))))) result))) (current-char-property-alias-alist char-property-alias-alist)) (save-current-buffer (set-buffer (get-buffer-create " *Org string width*")) (set (make-local-variable 'display-line-numbers) nil) (set (make-local-variable 'line-prefix) nil) (set (make-local-variable 'wrap-prefix) nil) (set (make-local-variable 'buffer-invisibility-spec) (if (listp current-invisibility-spec) (mapcar #'(lambda (el) (if (and (consp el) (cdr el)) (list (car el)) el)) current-invisibility-spec) current-invisibility-spec)) (set (make-local-variable 'char-property-alias-alist) current-char-property-alias-alist) (let (pixel-width symbol-width) (let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hooks t)) (unwind-protect (progn (erase-buffer) (insert string) (setq pixel-width (org-buffer-text-pixel-width)) (if pixels nil (erase-buffer) (insert (propertize "a" 'face (or default-face 'default))) (setq symbol-width (org-buffer-text-pixel-width)))) (if (memq modified '(nil autosaved)) (progn (restore-buffer-modified-p modified))))) (if pixels pixel-width (ceiling pixel-width symbol-width))))) (if (and (version< emacs-version "28") (not pixels)) (org--string-width-1 string) (remove-text-properties 0 (length string) '(wrap-prefix t line-prefix t) string) (if pixels nil (put-text-property 0 (length string) 'face (or default-face 'default) string)) (let ((current-invisibility-spec (or (and (not (listp buffer-invisibility-spec)) buffer-invisibility-spec) (let (result) (let ((tail buffer-invisibility-spec)) (while tail (let ((el (car tail))) (if (or (memq el '(org-fold-drawer org-fold-block org-fold-outline)) (and (listp el) (memq (car el) '(org-fold-drawer org-fold-block org-fold-outline)))) nil (setq result (cons el result))) (setq tail (cdr tail))))) result))) (current-char-property-alias-alist char-property-alias-alist)) (save-current-buffer (set-buffer (get-buffer-create " *Org string width*")) (set (make-local-variable 'display-line-numbers) nil) (set (make-local-variable 'line-prefix) nil) (set (make-local-variable 'wrap-prefix) nil) (set (make-local-variable 'buffer-invisibility-spec) (if (listp current-invisibility-spec) (mapcar #'(lambda (el) (if (and (consp el) (cdr el)) (list (car el)) el)) current-invisibility-spec) current-invisibility-spec)) (set (make-local-variable 'char-property-alias-alist) current-char-property-alias-alist) (let (pixel-width symbol-width) (let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hooks t)) (unwind-protect (progn (erase-buffer) (insert string) (setq pixel-width (org-buffer-text-pixel-width)) (if pixels nil (erase-buffer) (insert (propertize "a" 'face (or default-face 'default))) (setq symbol-width (org-buffer-text-pixel-width)))) (if (memq modified '(nil autosaved)) (progn (restore-buffer-modified-p modified))))) (if pixels pixel-width (ceiling pixel-width symbol-width)))))) org-string-width(#("~:author~" 0 9 (face org-table)) nil org-table) (max max-width (org-string-width cell nil 'org-table)) (setq max-width (max max-width (org-string-width cell nil 'org-table))) (let ((cell (or (nth i row) ""))) (setq max-width (max max-width (org-string-width cell nil 'org-table))) (cond (fixed-align? nil) ((equal cell "") nil) ((string-match "\\`<\\([lrc]\\)[0-9]*>\\'" cell) (setq fixed-align? (match-string 1 cell))) (t (setq non-empty (1+ non-empty)) (if (string-match-p org-table-number-regexp cell) (progn (setq numbers (1+ numbers))))))) (let ((row (car tail))) (let ((cell (or (nth i row) ""))) (setq max-width (max max-width (org-string-width cell nil 'org-table))) (cond (fixed-align? nil) ((equal cell "") nil) ((string-match "\\`<\\([lrc]\\)[0-9]*>\\'" cell) (setq fixed-align? (match-string 1 cell))) (t (setq non-empty (1+ non-empty)) (if (string-match-p org-table-number-regexp cell) (progn (setq numbers (1+ numbers))))))) (setq tail (cdr tail))) (while tail (let ((row (car tail))) (let ((cell (or (nth i row) ""))) (setq max-width (max max-width (org-string-width cell nil 'org-table))) (cond (fixed-align? nil) ((equal cell "") nil) ((string-match "\\`<\\([lrc]\\)[0-9]*>\\'" cell) (setq fixed-align? (match-string 1 cell))) (t (setq non-empty (1+ non-empty)) (if (string-match-p org-table-number-regexp cell) (progn (setq numbers (1+ numbers))))))) (setq tail (cdr tail)))) (let ((tail rows)) (while tail (let ((row (car tail))) (let ((cell (or (nth i row) ""))) (setq max-width (max max-width (org-string-width cell nil 'org-table))) (cond (fixed-align? nil) ((equal cell "") nil) ((string-match "\\`<\\([lrc]\\)[0-9]*>\\'" cell) (setq fixed-align? (match-string 1 cell))) (t (setq non-empty (1+ non-empty)) (if (string-match-p org-table-number-regexp cell) (progn (setq numbers (1+ numbers))))))) (setq tail (cdr tail))))) (let ((max-width 1) (fixed-align? nil) (numbers 0) (non-empty 0)) (let ((tail rows)) (while tail (let ((row (car tail))) (let ((cell (or (nth i row) ""))) (setq max-width (max max-width (org-string-width cell nil 'org-table))) (cond (fixed-align? nil) ((equal cell "") nil) ((string-match "\\`<\\([lrc]\\)[0-9]*>\\'" cell) (setq fixed-align? (match-string 1 cell))) (t (setq non-empty (1+ non-empty)) (if (string-match-p org-table-number-regexp cell) (progn (setq numbers (1+ numbers))))))) (setq tail (cdr tail))))) (setq widths (cons max-width widths)) (setq alignments (cons (cond (fixed-align?) ((>= numbers (* org-table-number-fraction non-empty)) "r") (t "l")) alignments))) (let ((i counter)) (let ((max-width 1) (fixed-align? nil) (numbers 0) (non-empty 0)) (let ((tail rows)) (while tail (let ((row (car tail))) (let ((cell (or (nth i row) ""))) (setq max-width (max max-width (org-string-width cell nil 'org-table))) (cond (fixed-align? nil) ((equal cell "") nil) ((string-match "\\`<\\([lrc]\\)[0-9]*>\\'" cell) (setq fixed-align? (match-string 1 cell))) (t (setq non-empty (1+ non-empty)) (if (string-match-p org-table-number-regexp cell) (progn (setq numbers (1+ numbers))))))) (setq tail (cdr tail))))) (setq widths (cons max-width widths)) (setq alignments (cons (cond (fixed-align?) ((>= numbers (* org-table-number-fraction non-empty)) "r") (t "l")) alignments)))) (while (< counter upper-bound) (let ((i counter)) (let ((max-width 1) (fixed-align? nil) (numbers 0) (non-empty 0)) (let ((tail rows)) (while tail (let ((row (car tail))) (let ((cell (or (nth i row) ""))) (setq max-width (max max-width (org-string-width cell nil 'org-table))) (cond (fixed-align? nil) ((equal cell "") nil) ((string-match "\\`<\\([lrc]\\)[0-9]*>\\'" cell) (setq fixed-align? (match-string 1 cell))) (t (setq non-empty (1+ non-empty)) (if (string-match-p org-table-number-regexp cell) (progn (setq numbers (1+ numbers))))))) (setq tail (cdr tail))))) (setq widths (cons max-width widths)) (setq alignments (cons (cond (fixed-align?) ((>= numbers (* org-table-number-fraction non-empty)) "r") (t "l")) alignments)))) (setq counter (1+ counter))) (let ((upper-bound columns-number) (counter 0)) (while (< counter upper-bound) (let ((i counter)) (let ((max-width 1) (fixed-align? nil) (numbers 0) (non-empty 0)) (let ((tail rows)) (while tail (let ((row (car tail))) (let ((cell (or (nth i row) ""))) (setq max-width (max max-width (org-string-width cell nil 'org-table))) (cond (fixed-align? nil) ((equal cell "") nil) ((string-match "\\`<\\([lrc]\\)[0-9]*>\\'" cell) (setq fixed-align? (match-string 1 cell))) (t (setq non-empty (1+ non-empty)) (if (string-match-p org-table-number-regexp cell) (progn (setq numbers (1+ numbers))))))) (setq tail (cdr tail))))) (setq widths (cons max-width widths)) (setq alignments (cons (cond (fixed-align?) ((>= numbers (* org-table-number-fraction non-empty)) "r") (t "l")) alignments)))) (setq counter (1+ counter)))) (if (null rows) (let ((end (line-end-position))) (save-excursion (while (search-forward "+" end t) (setq columns-number (1+ columns-number)))) (setq widths (make-list columns-number 1)) (setq alignments (make-list columns-number "l"))) (setq columns-number (apply #'max (mapcar #'length rows))) (let ((upper-bound columns-number) (counter 0)) (while (< counter upper-bound) (let ((i counter)) (let ((max-width 1) (fixed-align? nil) (numbers 0) (non-empty 0)) (let ((tail rows)) (while tail (let ((row (car tail))) (let ((cell (or (nth i row) ""))) (setq max-width (max max-width (org-string-width cell nil 'org-table))) (cond (fixed-align? nil) ((equal cell "") nil) ((string-match "\\`<\\([lrc]\\)[0-9]*>\\'" cell) (setq fixed-align? (match-string 1 cell))) (t (setq non-empty (1+ non-empty)) (if (string-match-p org-table-number-regexp cell) (progn (setq numbers (1+ numbers))))))) (setq tail (cdr tail))))) (setq widths (cons max-width widths)) (setq alignments (cons (cond (fixed-align?) ((>= numbers (* org-table-number-fraction non-empty)) "r") (t "l")) alignments)))) (setq counter (1+ counter)))) (setq widths (nreverse widths)) (setq alignments (nreverse alignments))) (let* ((table (org-table-to-lisp)) (rows (remq 'hline table)) (widths nil) (alignments nil) (columns-number 1)) (if (null rows) (let ((end (line-end-position))) (save-excursion (while (search-forward "+" end t) (setq columns-number (1+ columns-number)))) (setq widths (make-list columns-number 1)) (setq alignments (make-list columns-number "l"))) (setq columns-number (apply #'max (mapcar #'length rows))) (let ((upper-bound columns-number) (counter 0)) (while (< counter upper-bound) (let ((i counter)) (let ((max-width 1) (fixed-align? nil) (numbers 0) (non-empty 0)) (let ((tail rows)) (while tail (let ((row (car tail))) (let ((cell (or (nth i row) ""))) (setq max-width (max max-width (org-string-width cell nil 'org-table))) (cond (fixed-align? nil) ((equal cell "") nil) ((string-match "\\`<\\([lrc]\\)[0-9]*>\\'" cell) (setq fixed-align? (match-string 1 cell))) (t (setq non-empty (1+ non-empty)) (if (string-match-p org-table-number-regexp cell) (progn (setq numbers (1+ numbers))))))) (setq tail (cdr tail))))) (setq widths (cons max-width widths)) (setq alignments (cons (cond (fixed-align?) ((>= numbers (* org-table-number-fraction non-empty)) "r") (t "l")) alignments)))) (setq counter (1+ counter)))) (setq widths (nreverse widths)) (setq alignments (nreverse alignments))) (setq org-table-last-alignment alignments) (setq org-table-last-column-widths widths) (let ((rule (and (memq 'hline table) (mapconcat #'(lambda (w) (make-string (+ 2 w) 45)) widths "+"))) (indent (progn (looking-at "[ \11]*|") (match-string 0)))) (let ((tail table)) (while tail (let ((row (car tail))) (let ((previous (buffer-substring (point) (line-end-position))) (new (concat indent (if (eq row 'hline) rule (let* ((offset (- columns-number (length row))) (fields (if (= 0 offset) row (append row (make-list offset ""))))) (mapconcat #'identity (cl-mapcar #'org-table--align-field fields widths alignments) "|"))) "|"))) (if (equal new previous) (forward-line) (insert new "\n") (delete-region (point) (line-beginning-position 2)))) (setq tail (cdr tail)))))) (set-marker end nil) (if org-table-overlay-coordinates (progn (org-table-overlay-coordinates))) (setq org-table-may-need-update nil)) (progn (let* ((table (org-table-to-lisp)) (rows (remq 'hline table)) (widths nil) (alignments nil) (columns-number 1)) (if (null rows) (let ((end (line-end-position))) (save-excursion (while (search-forward "+" end t) (setq columns-number (1+ columns-number)))) (setq widths (make-list columns-number 1)) (setq alignments (make-list columns-number "l"))) (setq columns-number (apply #'max (mapcar #'length rows))) (let ((upper-bound columns-number) (counter 0)) (while (< counter upper-bound) (let ((i counter)) (let ((max-width 1) (fixed-align? nil) (numbers 0) (non-empty 0)) (let ((tail rows)) (while tail (let ((row (car tail))) (let ((cell (or (nth i row) ""))) (setq max-width (max max-width (org-string-width cell nil 'org-table))) (cond (fixed-align? nil) ((equal cell "") nil) ((string-match "\\`<\\([lrc]\\)[0-9]*>\\'" cell) (setq fixed-align? (match-string 1 cell))) (t (setq non-empty (1+ non-empty)) (if (string-match-p org-table-number-regexp cell) (progn (setq numbers (1+ numbers))))))) (setq tail (cdr tail))))) (setq widths (cons max-width widths)) (setq alignments (cons (cond (fixed-align?) ((>= numbers (* org-table-number-fraction non-empty)) "r") (t "l")) alignments)))) (setq counter (1+ counter)))) (setq widths (nreverse widths)) (setq alignments (nreverse alignments))) (setq org-table-last-alignment alignments) (setq org-table-last-column-widths widths) (let ((rule (and (memq 'hline table) (mapconcat #'(lambda (w) (make-string (+ 2 w) 45)) widths "+"))) (indent (progn (looking-at "[ \11]*|") (match-string 0)))) (let ((tail table)) (while tail (let ((row (car tail))) (let ((previous (buffer-substring (point) (line-end-position))) (new (concat indent (if (eq row 'hline) rule (let* ((offset (- columns-number (length row))) (fields (if (= 0 offset) row (append row (make-list offset ""))))) (mapconcat #'identity (cl-mapcar #'org-table--align-field fields widths alignments) "|"))) "|"))) (if (equal new previous) (forward-line) (insert new "\n") (delete-region (point) (line-beginning-position 2)))) (setq tail (cdr tail)))))) (set-marker end nil) (if org-table-overlay-coordinates (progn (org-table-overlay-coordinates))) (setq org-table-may-need-update nil))) (unwind-protect (progn (let* ((table (org-table-to-lisp)) (rows (remq 'hline table)) (widths nil) (alignments nil) (columns-number 1)) (if (null rows) (let ((end (line-end-position))) (save-excursion (while (search-forward "+" end t) (setq columns-number (1+ columns-number)))) (setq widths (make-list columns-number 1)) (setq alignments (make-list columns-number "l"))) (setq columns-number (apply #'max (mapcar #'length rows))) (let ((upper-bound columns-number) (counter 0)) (while (< counter upper-bound) (let ((i counter)) (let ((max-width 1) (fixed-align? nil) (numbers 0) (non-empty 0)) (let ((tail rows)) (while tail (let ((row (car tail))) (let ((cell (or (nth i row) ""))) (setq max-width (max max-width (org-string-width cell nil 'org-table))) (cond (fixed-align? nil) ((equal cell "") nil) ((string-match "\\`<\\([lrc]\\)[0-9]*>\\'" cell) (setq fixed-align? (match-string 1 cell))) (t (setq non-empty (1+ non-empty)) (if (string-match-p org-table-number-regexp cell) (progn (setq numbers (1+ numbers))))))) (setq tail (cdr tail))))) (setq widths (cons max-width widths)) (setq alignments (cons (cond (fixed-align?) ((>= numbers (* org-table-number-fraction non-empty)) "r") (t "l")) alignments)))) (setq counter (1+ counter)))) (setq widths (nreverse widths)) (setq alignments (nreverse alignments))) (setq org-table-last-alignment alignments) (setq org-table-last-column-widths widths) (let ((rule (and (memq 'hline table) (mapconcat #'(lambda (w) (make-string (+ 2 w) 45)) widths "+"))) (indent (progn (looking-at "[ \11]*|") (match-string 0)))) (let ((tail table)) (while tail (let ((row (car tail))) (let ((previous (buffer-substring (point) (line-end-position))) (new (concat indent (if (eq row 'hline) rule (let* ((offset (- columns-number (length row))) (fields (if (= 0 offset) row (append row (make-list offset ""))))) (mapconcat #'identity (cl-mapcar #'org-table--align-field fields widths alignments) "|"))) "|"))) (if (equal new previous) (forward-line) (insert new "\n") (delete-region (point) (line-beginning-position 2)))) (setq tail (cdr tail)))))) (set-marker end nil) (if org-table-overlay-coordinates (progn (org-table-overlay-coordinates))) (setq org-table-may-need-update nil))) (org-table--shrink-columns --shrunk-columns --begin --end) (set-marker --begin nil) (set-marker --end nil)) (let ((--begin (copy-marker (org-table-begin))) (--end (copy-marker (org-table-end) t)) (--shrunk-columns (org-table--list-shrunk-columns))) (let ((--mepom --begin)) (save-excursion (cond ((markerp --mepom) (set-buffer (marker-buffer --mepom))) ((numberp --mepom)) (t (if (let ((idx (or 14 14))) (let* ((parray (and t (and idx (let* ((val (org-element-type --mepom))) (cond ((null val) 'nil) ((eq val 'plain-text) 'nil) (t (let nil (if (eq :standard-properties (car (nth 1 --mepom))) (car (cdr (nth 1 --mepom))) (plist-get (nth 1 --mepom) :standard-properties)))))))))) (if parray (let* ((val (aref parray idx))) (if (eq val 'org-element-ast--nil) 'nil (let ((val val)) val))) (let* ((val (org-element-type --mepom))) (cond ((null val) 'nil) ((eq val 'plain-text) (let nil (or (get-text-property 0 :buffer --mepom) (if nil (progn (if (with-no-warnings (plist-member (text-properties-at 0 --mepom) :buffer)) nil nil)))))) (t (let nil (or (plist-get (nth 1 --mepom) :buffer) (if nil (progn (if (with-no-warnings (plist-member (nth 1 --mepom) :buffer)) nil nil))))))))))) (progn (set-buffer (let ((idx (or 14 14))) (let* ((parray (and t (and idx (let* ((val (org-element-type --mepom))) (cond ((null val) 'nil) ((eq val 'plain-text) 'nil) (t (let nil (if (eq :standard-properties (car (nth 1 --mepom))) (car (cdr (nth 1 --mepom))) (plist-get (nth 1 --mepom) :standard-properties)))))))))) (if parray (let* ((val (aref parray idx))) (if (eq val 'org-element-ast--nil) 'nil (let ((val val)) val))) (let* ((val (org-element-type --mepom))) (cond ((null val) 'nil) ((eq val 'plain-text) (let nil (or (get-text-property 0 :buffer --mepom) (if nil (progn (if (with-no-warnings (plist-member (text-properties-at 0 --mepom) :buffer)) nil nil)))))) (t (let nil (or (plist-get (nth 1 --mepom) :buffer) (if nil (progn (if (with-no-warnings (plist-member (nth 1 --mepom) :buffer)) nil nil)))))))))))))) (setq --mepom (let ((idx (or 0 0))) (let* ((parray (and t (and idx (let* ((val (org-element-type --mepom))) (cond ((null val) 'nil) ((eq val 'plain-text) 'nil) (t (let nil (if (eq :standard-properties (car (nth 1 --mepom))) (car (cdr (nth 1 --mepom))) (plist-get (nth 1 --mepom) :standard-properties)))))))))) (if parray (let* ((val (aref parray idx))) (if (eq val 'org-element-ast--nil) 'nil (let ((val val)) val))) (let* ((val (org-element-type --mepom))) (cond ((null val) 'nil) ((eq val 'plain-text) (let nil (or (get-text-property 0 :begin --mepom) (if nil (progn (if (with-no-warnings (plist-member (text-properties-at 0 --mepom) :begin)) nil nil)))))) (t (let nil (or (plist-get (nth 1 --mepom) :begin) (if nil (progn (if (with-no-warnings (plist-member (nth 1 --mepom) :begin)) nil nil)))))))))))))) (save-excursion (save-restriction (widen) (goto-char (or --mepom (point))) (org-table-expand --begin --end))))) (unwind-protect (progn (let* ((table (org-table-to-lisp)) (rows (remq 'hline table)) (widths nil) (alignments nil) (columns-number 1)) (if (null rows) (let ((end (line-end-position))) (save-excursion (while (search-forward "+" end t) (setq columns-number (1+ columns-number)))) (setq widths (make-list columns-number 1)) (setq alignments (make-list columns-number "l"))) (setq columns-number (apply #'max (mapcar #'length rows))) (let ((upper-bound columns-number) (counter 0)) (while (< counter upper-bound) (let ((i counter)) (let ((max-width 1) (fixed-align? nil) (numbers 0) (non-empty 0)) (let ((tail rows)) (while tail (let ((row (car tail))) (let ((cell (or (nth i row) ""))) (setq max-width (max max-width (org-string-width cell nil 'org-table))) (cond (fixed-align? nil) ((equal cell "") nil) ((string-match "\\`<\\([lrc]\\)[0-9]*>\\'" cell) (setq fixed-align? (match-string 1 cell))) (t (setq non-empty (1+ non-empty)) (if (string-match-p org-table-number-regexp cell) (progn (setq numbers (1+ numbers))))))) (setq tail (cdr tail))))) (setq widths (cons max-width widths)) (setq alignments (cons (cond (fixed-align?) ((>= numbers (* org-table-number-fraction non-empty)) "r") (t "l")) alignments)))) (setq counter (1+ counter)))) (setq widths (nreverse widths)) (setq alignments (nreverse alignments))) (setq org-table-last-alignment alignments) (setq org-table-last-column-widths widths) (let ((rule (and (memq 'hline table) (mapconcat #'(lambda (w) (make-string (+ 2 w) 45)) widths "+"))) (indent (progn (looking-at "[ \11]*|") (match-string 0)))) (let ((tail table)) (while tail (let ((row (car tail))) (let ((previous (buffer-substring (point) (line-end-position))) (new (concat indent (if (eq row 'hline) rule (let* ((offset (- columns-number (length row))) (fields (if (= 0 offset) row (append row (make-list offset ""))))) (mapconcat #'identity (cl-mapcar #'org-table--align-field fields widths alignments) "|"))) "|"))) (if (equal new previous) (forward-line) (insert new "\n") (delete-region (point) (line-beginning-position 2)))) (setq tail (cdr tail)))))) (set-marker end nil) (if org-table-overlay-coordinates (progn (org-table-overlay-coordinates))) (setq org-table-may-need-update nil))) (org-table--shrink-columns --shrunk-columns --begin --end) (set-marker --begin nil) (set-marker --end nil))) (progn (font-lock-ensure beg end) (move-marker org-table-aligned-begin-marker beg) (move-marker org-table-aligned-end-marker end) (goto-char beg) (let ((--begin (copy-marker (org-table-begin))) (--end (copy-marker (org-table-end) t)) (--shrunk-columns (org-table--list-shrunk-columns))) (let ((--mepom --begin)) (save-excursion (cond ((markerp --mepom) (set-buffer (marker-buffer --mepom))) ((numberp --mepom)) (t (if (let ((idx (or 14 14))) (let* ((parray (and t (and idx (let* ((val (org-element-type --mepom))) (cond ((null val) 'nil) ((eq val 'plain-text) 'nil) (t (let nil (if (eq :standard-properties (car (nth 1 --mepom))) (car (cdr (nth 1 --mepom))) (plist-get (nth 1 --mepom) :standard-properties)))))))))) (if parray (let* ((val (aref parray idx))) (if (eq val 'org-element-ast--nil) 'nil (let ((val val)) val))) (let* ((val (org-element-type --mepom))) (cond ((null val) 'nil) ((eq val 'plain-text) (let nil (or (get-text-property 0 :buffer --mepom) (if nil (progn (if (with-no-warnings (plist-member (text-properties-at 0 --mepom) :buffer)) nil nil)))))) (t (let nil (or (plist-get (nth 1 --mepom) :buffer) (if nil (progn (if (with-no-warnings (plist-member (nth 1 --mepom) :buffer)) nil nil))))))))))) (progn (set-buffer (let ((idx (or 14 14))) (let* ((parray (and t (and idx (let* ((val (org-element-type --mepom))) (cond ((null val) 'nil) ((eq val 'plain-text) 'nil) (t (let nil (if (eq :standard-properties (car (nth 1 --mepom))) (car (cdr (nth 1 --mepom))) (plist-get (nth 1 --mepom) :standard-properties)))))))))) (if parray (let* ((val (aref parray idx))) (if (eq val 'org-element-ast--nil) 'nil (let ((val val)) val))) (let* ((val (org-element-type --mepom))) (cond ((null val) 'nil) ((eq val 'plain-text) (let nil (or (get-text-property 0 :buffer --mepom) (if nil (progn (if (with-no-warnings (plist-member (text-properties-at 0 --mepom) :buffer)) nil nil)))))) (t (let nil (or (plist-get (nth 1 --mepom) :buffer) (if nil (progn (if (with-no-warnings (plist-member (nth 1 --mepom) :buffer)) nil nil)))))))))))))) (setq --mepom (let ((idx (or 0 0))) (let* ((parray (and t (and idx (let* ((val (org-element-type --mepom))) (cond ((null val) 'nil) ((eq val 'plain-text) 'nil) (t (let nil (if (eq :standard-properties (car (nth 1 --mepom))) (car (cdr (nth 1 --mepom))) (plist-get (nth 1 --mepom) :standard-properties)))))))))) (if parray (let* ((val (aref parray idx))) (if (eq val 'org-element-ast--nil) 'nil (let ((val val)) val))) (let* ((val (org-element-type --mepom))) (cond ((null val) 'nil) ((eq val 'plain-text) (let nil (or (get-text-property 0 :begin --mepom) (if nil (progn (if (with-no-warnings (plist-member (text-properties-at 0 --mepom) :begin)) nil nil)))))) (t (let nil (or (plist-get (nth 1 --mepom) :begin) (if nil (progn (if (with-no-warnings (plist-member (nth 1 --mepom) :begin)) nil nil)))))))))))))) (save-excursion (save-restriction (widen) (goto-char (or --mepom (point))) (org-table-expand --begin --end))))) (unwind-protect (progn (let* ((table (org-table-to-lisp)) (rows (remq 'hline table)) (widths nil) (alignments nil) (columns-number 1)) (if (null rows) (let ((end (line-end-position))) (save-excursion (while (search-forward "+" end t) (setq columns-number (1+ columns-number)))) (setq widths (make-list columns-number 1)) (setq alignments (make-list columns-number "l"))) (setq columns-number (apply #'max (mapcar #'length rows))) (let ((upper-bound columns-number) (counter 0)) (while (< counter upper-bound) (let ((i counter)) (let ((max-width 1) (fixed-align? nil) (numbers 0) (non-empty 0)) (let ((tail rows)) (while tail (let ((row (car tail))) (let ((cell (or (nth i row) ""))) (setq max-width (max max-width (org-string-width cell nil 'org-table))) (cond (fixed-align? nil) ((equal cell "") nil) ((string-match "\\`<\\([lrc]\\)[0-9]*>\\'" cell) (setq fixed-align? (match-string 1 cell))) (t (setq non-empty (1+ non-empty)) (if (string-match-p org-table-number-regexp cell) (progn (setq numbers (1+ numbers))))))) (setq tail (cdr tail))))) (setq widths (cons max-width widths)) (setq alignments (cons (cond (fixed-align?) ((>= numbers (* org-table-number-fraction non-empty)) "r") (t "l")) alignments)))) (setq counter (1+ counter)))) (setq widths (nreverse widths)) (setq alignments (nreverse alignments))) (setq org-table-last-alignment alignments) (setq org-table-last-column-widths widths) (let ((rule (and (memq 'hline table) (mapconcat #'(lambda (w) (make-string (+ 2 w) 45)) widths "+"))) (indent (progn (looking-at "[ \11]*|") (match-string 0)))) (let ((tail table)) (while tail (let ((row (car tail))) (let ((previous (buffer-substring (point) (line-end-position))) (new (concat indent (if (eq row 'hline) rule (let* ((offset (- columns-number (length row))) (fields (if (= 0 offset) row (append row (make-list offset ""))))) (mapconcat #'identity (cl-mapcar #'org-table--align-field fields widths alignments) "|"))) "|"))) (if (equal new previous) (forward-line) (insert new "\n") (delete-region (point) (line-beginning-position 2)))) (setq tail (cdr tail)))))) (set-marker end nil) (if org-table-overlay-coordinates (progn (org-table-overlay-coordinates))) (setq org-table-may-need-update nil))) (org-table--shrink-columns --shrunk-columns --begin --end) (set-marker --begin nil) (set-marker --end nil)))) (unwind-protect (progn (font-lock-ensure beg end) (move-marker org-table-aligned-begin-marker beg) (move-marker org-table-aligned-end-marker end) (goto-char beg) (let ((--begin (copy-marker (org-table-begin))) (--end (copy-marker (org-table-end) t)) (--shrunk-columns (org-table--list-shrunk-columns))) (let ((--mepom --begin)) (save-excursion (cond ((markerp --mepom) (set-buffer (marker-buffer --mepom))) ((numberp --mepom)) (t (if (let ((idx (or 14 14))) (let* ((parray (and t (and idx (let* ((val (org-element-type --mepom))) (cond ((null val) 'nil) ((eq val 'plain-text) 'nil) (t (let nil (if (eq :standard-properties (car (nth 1 --mepom))) (car (cdr (nth 1 --mepom))) (plist-get (nth 1 --mepom) :standard-properties)))))))))) (if parray (let* ((val (aref parray idx))) (if (eq val 'org-element-ast--nil) 'nil (let ((val val)) val))) (let* ((val (org-element-type --mepom))) (cond ((null val) 'nil) ((eq val 'plain-text) (let nil (or (get-text-property 0 :buffer --mepom) (if nil (progn (if (with-no-warnings (plist-member (text-properties-at 0 --mepom) :buffer)) nil nil)))))) (t (let nil (or (plist-get (nth 1 --mepom) :buffer) (if nil (progn (if (with-no-warnings (plist-member (nth 1 --mepom) :buffer)) nil nil))))))))))) (progn (set-buffer (let ((idx (or 14 14))) (let* ((parray (and t (and idx (let* ((val (org-element-type --mepom))) (cond ((null val) 'nil) ((eq val 'plain-text) 'nil) (t (let nil (if (eq :standard-properties (car (nth 1 --mepom))) (car (cdr (nth 1 --mepom))) (plist-get (nth 1 --mepom) :standard-properties)))))))))) (if parray (let* ((val (aref parray idx))) (if (eq val 'org-element-ast--nil) 'nil (let ((val val)) val))) (let* ((val (org-element-type --mepom))) (cond ((null val) 'nil) ((eq val 'plain-text) (let nil (or (get-text-property 0 :buffer --mepom) (if nil (progn (if (with-no-warnings (plist-member (text-properties-at 0 --mepom) :buffer)) nil nil)))))) (t (let nil (or (plist-get (nth 1 --mepom) :buffer) (if nil (progn (if (with-no-warnings (plist-member (nth 1 --mepom) :buffer)) nil nil)))))))))))))) (setq --mepom (let ((idx (or 0 0))) (let* ((parray (and t (and idx (let* ((val (org-element-type --mepom))) (cond ((null val) 'nil) ((eq val 'plain-text) 'nil) (t (let nil (if (eq :standard-properties (car (nth 1 --mepom))) (car (cdr (nth 1 --mepom))) (plist-get (nth 1 --mepom) :standard-properties)))))))))) (if parray (let* ((val (aref parray idx))) (if (eq val 'org-element-ast--nil) 'nil (let ((val val)) val))) (let* ((val (org-element-type --mepom))) (cond ((null val) 'nil) ((eq val 'plain-text) (let nil (or (get-text-property 0 :begin --mepom) (if nil (progn (if (with-no-warnings (plist-member (text-properties-at 0 --mepom) :begin)) nil nil)))))) (t (let nil (or (plist-get (nth 1 --mepom) :begin) (if nil (progn (if (with-no-warnings (plist-member (nth 1 --mepom) :begin)) nil nil)))))))))))))) (save-excursion (save-restriction (widen) (goto-char (or --mepom (point))) (org-table-expand --begin --end))))) (unwind-protect (progn (let* ((table (org-table-to-lisp)) (rows (remq 'hline table)) (widths nil) (alignments nil) (columns-number 1)) (if (null rows) (let ((end (line-end-position))) (save-excursion (while (search-forward "+" end t) (setq columns-number (1+ columns-number)))) (setq widths (make-list columns-number 1)) (setq alignments (make-list columns-number "l"))) (setq columns-number (apply #'max (mapcar #'length rows))) (let ((upper-bound columns-number) (counter 0)) (while (< counter upper-bound) (let ((i counter)) (let ((max-width 1) (fixed-align? nil) (numbers 0) (non-empty 0)) (let ((tail rows)) (while tail (let ((row (car tail))) (let ((cell (or (nth i row) ""))) (setq max-width (max max-width (org-string-width cell nil 'org-table))) (cond (fixed-align? nil) ((equal cell "") nil) ((string-match "\\`<\\([lrc]\\)[0-9]*>\\'" cell) (setq fixed-align? (match-string 1 cell))) (t (setq non-empty (1+ non-empty)) (if (string-match-p org-table-number-regexp cell) (progn (setq numbers (1+ numbers))))))) (setq tail (cdr tail))))) (setq widths (cons max-width widths)) (setq alignments (cons (cond (fixed-align?) ((>= numbers (* org-table-number-fraction non-empty)) "r") (t "l")) alignments)))) (setq counter (1+ counter)))) (setq widths (nreverse widths)) (setq alignments (nreverse alignments))) (setq org-table-last-alignment alignments) (setq org-table-last-column-widths widths) (let ((rule (and (memq 'hline table) (mapconcat #'(lambda (w) (make-string (+ 2 w) 45)) widths "+"))) (indent (progn (looking-at "[ \11]*|") (match-string 0)))) (let ((tail table)) (while tail (let ((row (car tail))) (let ((previous (buffer-substring (point) (line-end-position))) (new (concat indent (if (eq row 'hline) rule (let* ((offset (- columns-number (length row))) (fields (if (= 0 offset) row (append row (make-list offset ""))))) (mapconcat #'identity (cl-mapcar #'org-table--align-field fields widths alignments) "|"))) "|"))) (if (equal new previous) (forward-line) (insert new "\n") (delete-region (point) (line-beginning-position 2)))) (setq tail (cdr tail)))))) (set-marker end nil) (if org-table-overlay-coordinates (progn (org-table-overlay-coordinates))) (setq org-table-may-need-update nil))) (org-table--shrink-columns --shrunk-columns --begin --end) (set-marker --begin nil) (set-marker --end nil)))) (goto-char --line) (org-table-goto-column --column) (set-marker --line nil)) (let ((--line (copy-marker (line-beginning-position))) (--column (org-table-current-column))) (unwind-protect (progn (font-lock-ensure beg end) (move-marker org-table-aligned-begin-marker beg) (move-marker org-table-aligned-end-marker end) (goto-char beg) (let ((--begin (copy-marker (org-table-begin))) (--end (copy-marker (org-table-end) t)) (--shrunk-columns (org-table--list-shrunk-columns))) (let ((--mepom --begin)) (save-excursion (cond ((markerp --mepom) (set-buffer (marker-buffer --mepom))) ((numberp --mepom)) (t (if (let ((idx (or 14 14))) (let* ((parray (and t (and idx (let* ((val (org-element-type --mepom))) (cond ((null val) 'nil) ((eq val 'plain-text) 'nil) (t (let nil (if (eq :standard-properties (car (nth 1 --mepom))) (car (cdr (nth 1 --mepom))) (plist-get (nth 1 --mepom) :standard-properties)))))))))) (if parray (let* ((val (aref parray idx))) (if (eq val 'org-element-ast--nil) 'nil (let ((val val)) val))) (let* ((val (org-element-type --mepom))) (cond ((null val) 'nil) ((eq val 'plain-text) (let nil (or (get-text-property 0 :buffer --mepom) (if nil (progn (if (with-no-warnings (plist-member (text-properties-at 0 --mepom) :buffer)) nil nil)))))) (t (let nil (or (plist-get (nth 1 --mepom) :buffer) (if nil (progn (if (with-no-warnings (plist-member (nth 1 --mepom) :buffer)) nil nil))))))))))) (progn (set-buffer (let ((idx (or 14 14))) (let* ((parray (and t (and idx (let* ((val (org-element-type --mepom))) (cond ((null val) 'nil) ((eq val 'plain-text) 'nil) (t (let nil (if (eq :standard-properties (car (nth 1 --mepom))) (car (cdr (nth 1 --mepom))) (plist-get (nth 1 --mepom) :standard-properties)))))))))) (if parray (let* ((val (aref parray idx))) (if (eq val 'org-element-ast--nil) 'nil (let ((val val)) val))) (let* ((val (org-element-type --mepom))) (cond ((null val) 'nil) ((eq val 'plain-text) (let nil (or (get-text-property 0 :buffer --mepom) (if nil (progn (if (with-no-warnings (plist-member (text-properties-at 0 --mepom) :buffer)) nil nil)))))) (t (let nil (or (plist-get (nth 1 --mepom) :buffer) (if nil (progn (if (with-no-warnings (plist-member (nth 1 --mepom) :buffer)) nil nil)))))))))))))) (setq --mepom (let ((idx (or 0 0))) (let* ((parray (and t (and idx (let* ((val (org-element-type --mepom))) (cond ((null val) 'nil) ((eq val 'plain-text) 'nil) (t (let nil (if (eq :standard-properties (car (nth 1 --mepom))) (car (cdr (nth 1 --mepom))) (plist-get (nth 1 --mepom) :standard-properties)))))))))) (if parray (let* ((val (aref parray idx))) (if (eq val 'org-element-ast--nil) 'nil (let ((val val)) val))) (let* ((val (org-element-type --mepom))) (cond ((null val) 'nil) ((eq val 'plain-text) (let nil (or (get-text-property 0 :begin --mepom) (if nil (progn (if (with-no-warnings (plist-member (text-properties-at 0 --mepom) :begin)) nil nil)))))) (t (let nil (or (plist-get (nth 1 --mepom) :begin) (if nil (progn (if (with-no-warnings (plist-member (nth 1 --mepom) :begin)) nil nil)))))))))))))) (save-excursion (save-restriction (widen) (goto-char (or --mepom (point))) (org-table-expand --begin --end))))) (unwind-protect (progn (let* ((table (org-table-to-lisp)) (rows (remq 'hline table)) (widths nil) (alignments nil) (columns-number 1)) (if (null rows) (let ((end (line-end-position))) (save-excursion (while (search-forward "+" end t) (setq columns-number (1+ columns-number)))) (setq widths (make-list columns-number 1)) (setq alignments (make-list columns-number "l"))) (setq columns-number (apply #'max (mapcar #'length rows))) (let ((upper-bound columns-number) (counter 0)) (while (< counter upper-bound) (let ((i counter)) (let ((max-width 1) (fixed-align? nil) (numbers 0) (non-empty 0)) (let ((tail rows)) (while tail (let ((row (car tail))) (let ((cell (or (nth i row) ""))) (setq max-width (max max-width (org-string-width cell nil 'org-table))) (cond (fixed-align? nil) ((equal cell "") nil) ((string-match "\\`<\\([lrc]\\)[0-9]*>\\'" cell) (setq fixed-align? (match-string 1 cell))) (t (setq non-empty (1+ non-empty)) (if (string-match-p org-table-number-regexp cell) (progn (setq numbers (1+ numbers))))))) (setq tail (cdr tail))))) (setq widths (cons max-width widths)) (setq alignments (cons (cond (fixed-align?) ((>= numbers (* org-table-number-fraction non-empty)) "r") (t "l")) alignments)))) (setq counter (1+ counter)))) (setq widths (nreverse widths)) (setq alignments (nreverse alignments))) (setq org-table-last-alignment alignments) (setq org-table-last-column-widths widths) (let ((rule (and (memq 'hline table) (mapconcat #'(lambda (w) (make-string (+ 2 w) 45)) widths "+"))) (indent (progn (looking-at "[ \11]*|") (match-string 0)))) (let ((tail table)) (while tail (let ((row (car tail))) (let ((previous (buffer-substring (point) (line-end-position))) (new (concat indent (if (eq row 'hline) rule (let* ((offset (- columns-number (length row))) (fields (if (= 0 offset) row (append row (make-list offset ""))))) (mapconcat #'identity (cl-mapcar #'org-table--align-field fields widths alignments) "|"))) "|"))) (if (equal new previous) (forward-line) (insert new "\n") (delete-region (point) (line-beginning-position 2)))) (setq tail (cdr tail)))))) (set-marker end nil) (if org-table-overlay-coordinates (progn (org-table-overlay-coordinates))) (setq org-table-may-need-update nil))) (org-table--shrink-columns --shrunk-columns --begin --end) (set-marker --begin nil) (set-marker --end nil)))) (goto-char --line) (org-table-goto-column --column) (set-marker --line nil))) (let ((beg (org-table-begin)) (end (copy-marker (org-table-end)))) (let ((--line (copy-marker (line-beginning-position))) (--column (org-table-current-column))) (unwind-protect (progn (font-lock-ensure beg end) (move-marker org-table-aligned-begin-marker beg) (move-marker org-table-aligned-end-marker end) (goto-char beg) (let ((--begin (copy-marker (org-table-begin))) (--end (copy-marker (org-table-end) t)) (--shrunk-columns (org-table--list-shrunk-columns))) (let ((--mepom --begin)) (save-excursion (cond ((markerp --mepom) (set-buffer (marker-buffer --mepom))) ((numberp --mepom)) (t (if (let ((idx (or 14 14))) (let* ((parray (and t (and idx (let* ((val (org-element-type --mepom))) (cond ((null val) 'nil) ((eq val 'plain-text) 'nil) (t (let nil (if (eq :standard-properties (car (nth 1 --mepom))) (car (cdr (nth 1 --mepom))) (plist-get (nth 1 --mepom) :standard-properties)))))))))) (if parray (let* ((val (aref parray idx))) (if (eq val 'org-element-ast--nil) 'nil (let ((val val)) val))) (let* ((val (org-element-type --mepom))) (cond ((null val) 'nil) ((eq val 'plain-text) (let nil (or (get-text-property 0 :buffer --mepom) (if nil (progn (if (with-no-warnings (plist-member (text-properties-at 0 --mepom) :buffer)) nil nil)))))) (t (let nil (or (plist-get (nth 1 --mepom) :buffer) (if nil (progn (if (with-no-warnings (plist-member (nth 1 --mepom) :buffer)) nil nil))))))))))) (progn (set-buffer (let ((idx (or 14 14))) (let* ((parray (and t (and idx (let* ((val (org-element-type --mepom))) (cond ((null val) 'nil) ((eq val 'plain-text) 'nil) (t (let nil (if (eq :standard-properties (car (nth 1 --mepom))) (car (cdr (nth 1 --mepom))) (plist-get (nth 1 --mepom) :standard-properties)))))))))) (if parray (let* ((val (aref parray idx))) (if (eq val 'org-element-ast--nil) 'nil (let ((val val)) val))) (let* ((val (org-element-type --mepom))) (cond ((null val) 'nil) ((eq val 'plain-text) (let nil (or (get-text-property 0 :buffer --mepom) (if nil (progn (if (with-no-warnings (plist-member (text-properties-at 0 --mepom) :buffer)) nil nil)))))) (t (let nil (or (plist-get (nth 1 --mepom) :buffer) (if nil (progn (if (with-no-warnings (plist-member (nth 1 --mepom) :buffer)) nil nil)))))))))))))) (setq --mepom (let ((idx (or 0 0))) (let* ((parray (and t (and idx (let* ((val (org-element-type --mepom))) (cond ((null val) 'nil) ((eq val 'plain-text) 'nil) (t (let nil (if (eq :standard-properties (car (nth 1 --mepom))) (car (cdr (nth 1 --mepom))) (plist-get (nth 1 --mepom) :standard-properties)))))))))) (if parray (let* ((val (aref parray idx))) (if (eq val 'org-element-ast--nil) 'nil (let ((val val)) val))) (let* ((val (org-element-type --mepom))) (cond ((null val) 'nil) ((eq val 'plain-text) (let nil (or (get-text-property 0 :begin --mepom) (if nil (progn (if (with-no-warnings (plist-member (text-properties-at 0 --mepom) :begin)) nil nil)))))) (t (let nil (or (plist-get (nth 1 --mepom) :begin) (if nil (progn (if (with-no-warnings (plist-member (nth 1 --mepom) :begin)) nil nil)))))))))))))) (save-excursion (save-restriction (widen) (goto-char (or --mepom (point))) (org-table-expand --begin --end))))) (unwind-protect (progn (let* ((table (org-table-to-lisp)) (rows (remq 'hline table)) (widths nil) (alignments nil) (columns-number 1)) (if (null rows) (let ((end (line-end-position))) (save-excursion (while (search-forward "+" end t) (setq columns-number (1+ columns-number)))) (setq widths (make-list columns-number 1)) (setq alignments (make-list columns-number "l"))) (setq columns-number (apply #'max (mapcar #'length rows))) (let ((upper-bound columns-number) (counter 0)) (while (< counter upper-bound) (let ((i counter)) (let ((max-width 1) (fixed-align? nil) (numbers 0) (non-empty 0)) (let ((tail rows)) (while tail (let ((row (car tail))) (let ((cell (or (nth i row) ""))) (setq max-width (max max-width (org-string-width cell nil 'org-table))) (cond (fixed-align? nil) ((equal cell "") nil) ((string-match "\\`<\\([lrc]\\)[0-9]*>\\'" cell) (setq fixed-align? (match-string 1 cell))) (t (setq non-empty (1+ non-empty)) (if (string-match-p org-table-number-regexp cell) (progn (setq numbers (1+ numbers))))))) (setq tail (cdr tail))))) (setq widths (cons max-width widths)) (setq alignments (cons (cond (fixed-align?) ((>= numbers (* org-table-number-fraction non-empty)) "r") (t "l")) alignments)))) (setq counter (1+ counter)))) (setq widths (nreverse widths)) (setq alignments (nreverse alignments))) (setq org-table-last-alignment alignments) (setq org-table-last-column-widths widths) (let ((rule (and (memq 'hline table) (mapconcat #'(lambda (w) (make-string (+ 2 w) 45)) widths "+"))) (indent (progn (looking-at "[ \11]*|") (match-string 0)))) (let ((tail table)) (while tail (let ((row (car tail))) (let ((previous (buffer-substring (point) (line-end-position))) (new (concat indent (if (eq row 'hline) rule (let* ((offset (- columns-number (length row))) (fields (if (= 0 offset) row (append row (make-list offset ""))))) (mapconcat #'identity (cl-mapcar #'org-table--align-field fields widths alignments) "|"))) "|"))) (if (equal new previous) (forward-line) (insert new "\n") (delete-region (point) (line-beginning-position 2)))) (setq tail (cdr tail)))))) (set-marker end nil) (if org-table-overlay-coordinates (progn (org-table-overlay-coordinates))) (setq org-table-may-need-update nil))) (org-table--shrink-columns --shrunk-columns --begin --end) (set-marker --begin nil) (set-marker --end nil)))) (goto-char --line) (org-table-goto-column --column) (set-marker --line nil)))) org-table-align() (progn (insert contents) (org-table-align) (buffer-string)) (unwind-protect (progn (insert contents) (org-table-align) (buffer-string)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert contents) (org-table-align) (buffer-string)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert contents) (org-table-align) (buffer-string)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (concat (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert contents) (org-table-align) (buffer-string)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (mapconcat #'(lambda (fm) (concat "#+TBLFM: " fm)) (reverse (org-element--property :tblfm table nil nil)) "\n")) (if (eq (org-element--property :type table nil nil) 'table.el) (org-remove-indentation (org-element--property :value table nil nil)) (concat (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert contents) (org-table-align) (buffer-string)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (mapconcat #'(lambda (fm) (concat "#+TBLFM: " fm)) (reverse (org-element--property :tblfm table nil nil)) "\n"))) org-element-table-interpreter((table (:standard-properties [1 1 1 2039 2039 0 nil top-comment nil nil nil nil nil nil #<killed buffer> nil nil (section (:standard-properties [1 1 1 2039 2039 0 nil first-section nil nil nil 1 2039 nil #<killed buffer> nil nil (org-data (:standard-properties [1 1 1 2039 2039 0 nil org-data nil nil nil 3 2039 nil #<killed buffer> nil nil nil] :path nil :CATEGORY nil) #5)]) #0)] :type org :tblfm nil :value nil) (table-row (:standard-properties [1 1 2 32 33 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [2 nil 3 12 14 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #3]) (code (:standard-properties [3 nil nil nil 12 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #6] :value ":author"))) (table-cell (:standard-properties [14 nil 14 30 32 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #3]) (code (:standard-properties [14 nil nil nil 30 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7] :value "user-full-name")))) (table-row (:standard-properties [33 33 34 66 67 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [34 nil 35 43 45 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #4]) (code (:standard-properties [35 nil nil nil 43 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7] :value ":email"))) (table-cell (:standard-properties [45 nil 45 64 66 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #4]) (code (:standard-properties [45 nil nil nil 64 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8] :value "user-mail-address")))) (table-row (:standard-properties [67 67 68 113 114 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [68 nil 69 80 82 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #5]) (code (:standard-properties [69 nil nil nil 80 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8] :value ":language"))) (table-cell (:standard-properties [82 nil 82 111 113 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #5]) (code (:standard-properties [82 nil nil nil 111 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9] :value "org-export-default-language")))) (table-row (:standard-properties [114 114 115 158 159 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [115 nil 116 130 132 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #6]) (code (:standard-properties [116 nil nil nil 130 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9] :value ":select-tags"))) (table-cell (:standard-properties [132 nil 132 156 158 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #6]) (code (:standard-properties [132 nil nil nil 156 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10] :value "org-export-select-tags")))) (table-row (:standard-properties [159 159 160 205 206 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [160 nil 161 176 178 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7]) (code (:standard-properties [161 nil nil nil 176 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10] :value ":exclude-tags"))) (table-cell (:standard-properties [178 nil 178 203 205 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7]) (code (:standard-properties [178 nil nil nil 203 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11] :value "org-export-exclude-tags")))) (table-row (:standard-properties [206 206 207 249 250 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [207 nil 208 218 220 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8]) (code (:standard-properties [208 nil nil nil 218 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11] :value ":creator"))) (table-cell (:standard-properties [220 nil 220 247 249 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8]) (code (:standard-properties [220 nil nil nil 247 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12] :value "org-export-creator-string")))) (table-row (:standard-properties [250 250 251 302 303 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [251 nil 252 270 272 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9]) (code (:standard-properties [252 nil nil nil 270 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12] :value ":headline-levels"))) (table-cell (:standard-properties [272 nil 272 300 302 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9]) (code (:standard-properties [272 nil nil nil 300 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13] :value "org-export-headline-levels")))) (table-row (:standard-properties [303 303 304 355 356 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [304 nil 305 323 325 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10]) (code (:standard-properties [305 nil nil nil 323 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13] :value ":preserve-breaks"))) (table-cell (:standard-properties [325 nil 325 353 355 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10]) (code (:standard-properties [325 nil nil nil 353 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14] :value "org-export-preserve-breaks")))) (table-row (:standard-properties [356 356 357 413 414 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [357 nil 358 376 378 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11]) (code (:standard-properties [358 nil nil nil 376 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14] :value ":section-numbers"))) (table-cell (:standard-properties [378 nil 378 411 413 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11]) (code (:standard-properties [378 nil nil nil 411 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15] :value "org-export-with-section-numbers")))) (table-row (:standard-properties [414 414 415 465 466 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [415 nil 416 434 436 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12]) (code (:standard-properties [416 nil nil nil 434 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15] :value ":time-stamp-file"))) (table-cell (:standard-properties [436 nil 436 463 465 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12]) (code (:standard-properties [436 nil nil nil 463 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16] :value "org-export-timestamp-file")))) (table-row (:standard-properties [466 466 467 526 527 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [467 nil 468 490 492 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13]) (code (:standard-properties [468 nil nil nil 490 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16] :value ":with-archived-trees"))) (table-cell (:standard-properties [492 nil 492 524 526 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13]) (code (:standard-properties [492 nil nil nil 524 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17] :value "org-export-with-archived-trees")))) (table-row (:standard-properties [527 527 528 571 572 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [528 nil 529 543 545 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14]) (code (:standard-properties [529 nil nil nil 543 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17] :value ":with-author"))) (table-cell (:standard-properties [545 nil 545 569 571 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14]) (code (:standard-properties [545 nil nil nil 569 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18] :value "org-export-with-author")))) (table-row (:standard-properties [572 572 573 618 619 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [573 nil 574 589 591 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15]) (code (:standard-properties [574 nil nil nil 589 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18] :value ":expand-links"))) (table-cell (:standard-properties [591 nil 591 616 618 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15]) (code (:standard-properties [591 nil nil nil 616 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19] :value "org-export-expand-links")))) (table-row (:standard-properties [619 619 620 675 676 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [620 nil 621 641 643 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16]) (code (:standard-properties [621 nil nil nil 641 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19] :value ":with-broken-links"))) (table-cell (:standard-properties [643 nil 643 673 675 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16]) (code (:standard-properties [643 nil nil nil 673 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20] :value "org-export-with-broken-links")))) (table-row (:standard-properties [676 676 677 720 721 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [677 nil 678 692 694 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17]) (code (:standard-properties [678 nil nil nil 692 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20] :value ":with-clocks"))) (table-cell (:standard-properties [694 nil 694 718 720 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17]) (code (:standard-properties [694 nil nil nil 718 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21] :value "org-export-with-clocks")))) (table-row (:standard-properties [721 721 722 767 768 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [722 nil 723 738 740 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18]) (code (:standard-properties [723 nil nil nil 738 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21] :value ":with-creator"))) (table-cell (:standard-properties [740 nil 740 765 767 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18]) (code (:standard-properties [740 nil nil nil 765 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22] :value "org-export-with-creator")))) (table-row (:standard-properties [768 768 769 808 809 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [769 nil 770 782 784 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19]) (code (:standard-properties [770 nil nil nil 782 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22] :value ":with-date"))) (table-cell (:standard-properties [784 nil 784 806 808 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19]) (code (:standard-properties [784 nil nil nil 806 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23] :value "org-export-with-date")))) (table-row (:standard-properties [809 809 810 855 856 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [810 nil 811 826 828 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20]) (code (:standard-properties [811 nil nil nil 826 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23] :value ":with-drawers"))) (table-cell (:standard-properties [828 nil 828 853 855 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20]) (code (:standard-properties [828 nil nil nil 853 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24] :value "org-export-with-drawers")))) (table-row (:standard-properties [856 856 857 898 899 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [857 nil 858 871 873 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21]) (code (:standard-properties [858 nil nil nil 871 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24] :value ":with-email"))) (table-cell (:standard-properties [873 nil 873 896 898 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21]) (code (:standard-properties [873 nil nil nil 896 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25] :value "org-export-with-email")))) (table-row (:standard-properties [899 899 900 949 950 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [900 nil 901 918 920 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22]) (code (:standard-properties [901 nil nil nil 918 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25] :value ":with-emphasize"))) (table-cell (:standard-properties [920 nil 920 947 949 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22]) (code (:standard-properties [920 nil nil nil 947 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26] :value "org-export-with-emphasize")))) (table-row (:standard-properties [950 950 951 998 999 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [951 nil 952 968 970 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23]) (code (:standard-properties [952 nil nil nil 968 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26] :value ":with-entities"))) (table-cell (:standard-properties [970 nil 970 996 998 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23]) (code (:standard-properties [970 nil nil nil 996 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27] :value "org-export-with-entities")))) (table-row (:standard-properties [999 999 1000 1053 1054 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1000 nil 1001 1020 1022 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24]) (code (:standard-properties [1001 nil nil nil 1020 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27] :value ":with-fixed-width"))) (table-cell (:standard-properties [1022 nil 1022 1051 1053 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24]) (code (:standard-properties [1022 nil nil nil 1051 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28] :value "org-export-with-fixed-width")))) (table-row (:standard-properties [1054 1054 1055 1104 1105 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1055 nil 1056 1073 1075 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25]) (code (:standard-properties [1056 nil nil nil 1073 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28] :value ":with-footnotes"))) (table-cell (:standard-properties [1075 nil 1075 1102 1104 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25]) (code (:standard-properties [1075 nil nil nil 1102 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29] :value "org-export-with-footnotes")))) (table-row (:standard-properties [1105 1105 1106 1159 1160 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1106 nil 1107 1126 1128 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26]) (code (:standard-properties [1107 nil nil nil 1126 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29] :value ":with-inlinetasks"))) (table-cell (:standard-properties [1128 nil 1128 1157 1159 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26]) (code (:standard-properties [1128 nil nil nil 1157 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30] :value "org-export-with-inlinetasks")))) (table-row (:standard-properties [1160 1160 1161 1202 1203 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1161 nil 1162 1175 1177 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27]) (code (:standard-properties [1162 nil nil nil 1175 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30] :value ":with-latex"))) (table-cell (:standard-properties [1177 nil 1177 1200 1202 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27]) (code (:standard-properties [1177 nil nil nil 1200 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31] :value "org-export-with-latex")))) (table-row (:standard-properties [1203 1203 1204 1251 1252 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1204 nil 1205 1221 1223 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28]) (code (:standard-properties [1205 nil nil nil 1221 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31] :value ":with-planning"))) (table-cell (:standard-properties [1223 nil 1223 1249 1251 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28]) (code (:standard-properties [1223 nil nil nil 1249 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32] :value "org-export-with-planning")))) (table-row (:standard-properties [1252 1252 1253 1300 1301 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1253 nil 1254 1270 1272 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29]) (code (:standard-properties [1254 nil nil nil 1270 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32] :value ":with-priority"))) (table-cell (:standard-properties [1272 nil 1272 1298 1300 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29]) (code (:standard-properties [1272 nil nil nil 1298 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33] :value "org-export-with-priority")))) (table-row (:standard-properties [1301 1301 1302 1353 1354 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1302 nil 1303 1321 1323 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30]) (code (:standard-properties [1303 nil nil nil 1321 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33] :value ":with-properties"))) (table-cell (:standard-properties [1323 nil 1323 1351 1353 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30]) (code (:standard-properties [1323 nil nil nil 1351 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34] :value "org-export-with-properties")))) (table-row (:standard-properties [1354 1354 1355 1410 1411 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1355 nil 1356 1376 1378 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31]) (code (:standard-properties [1356 nil nil nil 1376 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34] :value ":with-smart-quotes"))) (table-cell (:standard-properties [1378 nil 1378 1408 1410 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31]) (code (:standard-properties [1378 nil nil nil 1408 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35] :value "org-export-with-smart-quotes")))) (table-row (:standard-properties [1411 1411 1412 1473 1474 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1412 nil 1413 1436 1438 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32]) (code (:standard-properties [1413 nil nil nil 1436 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35] :value ":with-special-strings"))) (table-cell (:standard-properties [1438 nil 1438 1471 1473 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32]) (code (:standard-properties [1438 nil nil nil 1471 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36] :value "org-export-with-special-strings")))) (table-row (:standard-properties [1474 1474 1475 1542 1543 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1475 nil 1476 1502 1504 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33]) (code (:standard-properties [1476 nil nil nil 1502 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36] :value ":with-statistics-cookies"))) (table-cell (:standard-properties [1504 nil 1504 1540 1542 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33]) (code (:standard-properties [1504 nil nil nil 1540 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37] :value "org-export-with-statistics-cookies")))) (table-row (:standard-properties [1543 1543 1544 1606 1607 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1544 nil 1545 1568 1570 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34]) (code (:standard-properties [1545 nil nil nil 1568 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37] :value ":with-sub-superscript"))) (table-cell (:standard-properties [1570 nil 1570 1604 1606 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34]) (code (:standard-properties [1570 nil nil nil 1604 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38] :value "org-export-with-sub-superscripts")))) (table-row (:standard-properties [1607 1607 1608 1645 1646 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1608 nil 1609 1620 1622 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35]) (code (:standard-properties [1609 nil nil nil 1620 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38] :value ":with-toc"))) (table-cell (:standard-properties [1622 nil 1622 1643 1645 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35]) (code (:standard-properties [1622 nil nil nil 1643 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39] :value "org-export-with-toc")))) (table-row (:standard-properties [1646 1646 1647 1690 1691 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1647 nil 1648 1662 1664 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36]) (code (:standard-properties [1648 nil nil nil 1662 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39] :value ":with-tables"))) (table-cell (:standard-properties [1664 nil 1664 1688 1690 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36]) (code (:standard-properties [1664 nil nil nil 1688 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40] :value "org-export-with-tables")))) (table-row (:standard-properties [1691 1691 1692 1731 1732 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1692 nil 1693 1705 1707 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37]) (code (:standard-properties [1693 nil nil nil 1705 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40] :value ":with-tags"))) (table-cell (:standard-properties [1707 nil 1707 1729 1731 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37]) (code (:standard-properties [1707 nil nil nil 1729 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41] :value "org-export-with-tags")))) (table-row (:standard-properties [1732 1732 1733 1774 1775 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1733 nil 1734 1747 1749 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38]) (code (:standard-properties [1734 nil nil nil 1747 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41] :value ":with-tasks"))) (table-cell (:standard-properties [1749 nil 1749 1772 1774 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38]) (code (:standard-properties [1749 nil nil nil 1772 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42] :value "org-export-with-tasks")))) (table-row (:standard-properties [1775 1775 1776 1827 1828 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1776 nil 1777 1795 1797 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39]) (code (:standard-properties [1777 nil nil nil 1795 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42] :value ":with-timestamps"))) (table-cell (:standard-properties [1797 nil 1797 1825 1827 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39]) (code (:standard-properties [1797 nil nil nil 1825 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43] :value "org-export-with-timestamps")))) (table-row (:standard-properties [1828 1828 1829 1870 1871 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1829 nil 1830 1843 1845 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40]) (code (:standard-properties [1830 nil nil nil 1843 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43] :value ":with-title"))) (table-cell (:standard-properties [1845 nil 1845 1868 1870 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40]) (code (:standard-properties [1845 nil nil nil 1868 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #44] :value "org-export-with-title")))) (table-row (:standard-properties [1871 1871 1872 1929 1930 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1872 nil 1873 1894 1896 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41]) (code (:standard-properties [1873 nil nil nil 1894 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #44] :value ":with-todo-keywords"))) (table-cell (:standard-properties [1896 nil 1896 1927 1929 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41]) (code (:standard-properties [1896 nil nil nil 1927 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #45] :value "org-export-with-todo-keywords")))) (table-row (:standard-properties [1930 1930 1931 1989 1990 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1931 nil 1932 1955 1957 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42]) (code (:standard-properties [1932 nil nil nil 1955 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #45] :value ":with-cite-processors"))) (table-cell (:standard-properties [1957 nil 1957 1987 1989 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42]) (code (:standard-properties [1957 nil nil nil 1987 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #46] :value "org-export-process-citations")))) (table-row (:standard-properties [1990 1990 1991 2038 2039 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1991 nil 1992 2006 2008 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43]) (code (:standard-properties [1992 nil nil nil 2006 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #46] :value ":cite-export"))) (table-cell (:standard-properties [2008 nil 2008 2036 2038 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43]) (code (:standard-properties [2008 nil nil nil 2036 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #47] :value "org-cite-export-processors"))))) "| ~:author~ | ~user-full-name~ |\n| ~:email~ | ~user-mail-address~ |\n| ~:language~ | ~org-export-default-language~ |\n| ~:select-tags~ | ~org-export-select-tags~ |\n| ~:exclude-tags~ | ~org-export-exclude-tags~ |\n| ~:creator~ | ~org-export-creator-string~ |\n| ~:headline-levels~ | ~org-export-headline-levels~ |\n| ~:preserve-breaks~ | ~org-export-preserve-breaks~ |\n| ~:section-numbers~ | ~org-export-with-section-numbers~ |\n| ~:time-stamp-file~ | ~org-export-timestamp-file~ |\n| ~:with-archived-trees~ | ~org-export-with-archived-trees~ |\n| ~:with-author~ | ~org-export-with-author~ |\n| ~:expand-links~ | ~org-export-expand-links~ |\n| ~:with-broken-links~ | ~org-export-with-broken-links~ |\n| ~:with-clocks~ | ~org-export-with-clocks~ |\n| ~:with-creator~ | ~org-export-with-creator~ |\n| ~:with-date~ | ~org-export-with-date~ |\n| ~:with-drawers~ | ~org-export-with-drawers~ |\n| ~:with-email~ | ~org-export-with-email~ |\n| ~:with-emphasize~ | ~org-export-with-emphasize~ |\n| ~:with-entities~ | ~org-export-with-entities~ |\n| ~:with-fixed-width~ | ~org-export-with-fixed-width~ |\n| ~:with-footnotes~ | ~org-export-with-footnotes~ |\n| ~:with-inlinetasks~ | ~org-export-with-inlinetasks~ |\n| ~:with-latex~ | ~org-export-with-latex~ |\n| ~:with-planning~ | ~org-export-with-planning~ |\n| ~:with-priority~ | ~org-export-with-priority~ |\n| ~:with-properties~ | ~org-export-with-properties~ |\n| ~:with-smart-quotes~ | ~org-export-with-smart-quotes~ |\n| ~:with-special-strings~ | ~org-export-with-special-strings~ |\n| ~:with-statistics-cookies~ | ~org-export-with-statistics-cookies~ |\n| ~:with-sub-superscript~ | ~org-export-with-sub-superscripts~ |\n| ~:with-toc~ | ~org-export-with-toc~ |\n| ~:with-tables~ | ~org-export-with-tables~ |\n| ~:with-tags~ | ~org-export-with-tags~ |\n| ~:with-tasks~ | ~org-export-with-tasks~ |\n| ~:with-timestamps~ | ~org-export-with-timestamps~ |\n| ~:with-title~ | ~org-export-with-title~ |\n| ~:with-todo-keywords~ | ~org-export-with-todo-keywords~ |\n| ~:with-cite-processors~ | ~org-export-process-citations~ |\n| ~:cite-export~ | ~org-cite-export-processors~ |\n") funcall(org-element-table-interpreter (table (:standard-properties [1 1 1 2039 2039 0 nil top-comment nil nil nil nil nil nil #<killed buffer> nil nil (section (:standard-properties [1 1 1 2039 2039 0 nil first-section nil nil nil 1 2039 nil #<killed buffer> nil nil (org-data (:standard-properties [1 1 1 2039 2039 0 nil org-data nil nil nil 3 2039 nil #<killed buffer> nil nil nil] :path nil :CATEGORY nil) #5)]) #0)] :type org :tblfm nil :value nil) (table-row (:standard-properties [1 1 2 32 33 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [2 nil 3 12 14 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #3]) (code (:standard-properties [3 nil nil nil 12 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #6] :value ":author"))) (table-cell (:standard-properties [14 nil 14 30 32 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #3]) (code (:standard-properties [14 nil nil nil 30 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7] :value "user-full-name")))) (table-row (:standard-properties [33 33 34 66 67 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [34 nil 35 43 45 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #4]) (code (:standard-properties [35 nil nil nil 43 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7] :value ":email"))) (table-cell (:standard-properties [45 nil 45 64 66 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #4]) (code (:standard-properties [45 nil nil nil 64 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8] :value "user-mail-address")))) (table-row (:standard-properties [67 67 68 113 114 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [68 nil 69 80 82 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #5]) (code (:standard-properties [69 nil nil nil 80 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8] :value ":language"))) (table-cell (:standard-properties [82 nil 82 111 113 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #5]) (code (:standard-properties [82 nil nil nil 111 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9] :value "org-export-default-language")))) (table-row (:standard-properties [114 114 115 158 159 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [115 nil 116 130 132 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #6]) (code (:standard-properties [116 nil nil nil 130 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9] :value ":select-tags"))) (table-cell (:standard-properties [132 nil 132 156 158 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #6]) (code (:standard-properties [132 nil nil nil 156 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10] :value "org-export-select-tags")))) (table-row (:standard-properties [159 159 160 205 206 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [160 nil 161 176 178 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7]) (code (:standard-properties [161 nil nil nil 176 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10] :value ":exclude-tags"))) (table-cell (:standard-properties [178 nil 178 203 205 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7]) (code (:standard-properties [178 nil nil nil 203 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11] :value "org-export-exclude-tags")))) (table-row (:standard-properties [206 206 207 249 250 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [207 nil 208 218 220 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8]) (code (:standard-properties [208 nil nil nil 218 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11] :value ":creator"))) (table-cell (:standard-properties [220 nil 220 247 249 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8]) (code (:standard-properties [220 nil nil nil 247 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12] :value "org-export-creator-string")))) (table-row (:standard-properties [250 250 251 302 303 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [251 nil 252 270 272 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9]) (code (:standard-properties [252 nil nil nil 270 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12] :value ":headline-levels"))) (table-cell (:standard-properties [272 nil 272 300 302 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9]) (code (:standard-properties [272 nil nil nil 300 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13] :value "org-export-headline-levels")))) (table-row (:standard-properties [303 303 304 355 356 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [304 nil 305 323 325 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10]) (code (:standard-properties [305 nil nil nil 323 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13] :value ":preserve-breaks"))) (table-cell (:standard-properties [325 nil 325 353 355 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10]) (code (:standard-properties [325 nil nil nil 353 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14] :value "org-export-preserve-breaks")))) (table-row (:standard-properties [356 356 357 413 414 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [357 nil 358 376 378 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11]) (code (:standard-properties [358 nil nil nil 376 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14] :value ":section-numbers"))) (table-cell (:standard-properties [378 nil 378 411 413 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11]) (code (:standard-properties [378 nil nil nil 411 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15] :value "org-export-with-section-numbers")))) (table-row (:standard-properties [414 414 415 465 466 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [415 nil 416 434 436 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12]) (code (:standard-properties [416 nil nil nil 434 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15] :value ":time-stamp-file"))) (table-cell (:standard-properties [436 nil 436 463 465 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12]) (code (:standard-properties [436 nil nil nil 463 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16] :value "org-export-timestamp-file")))) (table-row (:standard-properties [466 466 467 526 527 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [467 nil 468 490 492 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13]) (code (:standard-properties [468 nil nil nil 490 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16] :value ":with-archived-trees"))) (table-cell (:standard-properties [492 nil 492 524 526 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13]) (code (:standard-properties [492 nil nil nil 524 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17] :value "org-export-with-archived-trees")))) (table-row (:standard-properties [527 527 528 571 572 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [528 nil 529 543 545 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14]) (code (:standard-properties [529 nil nil nil 543 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17] :value ":with-author"))) (table-cell (:standard-properties [545 nil 545 569 571 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14]) (code (:standard-properties [545 nil nil nil 569 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18] :value "org-export-with-author")))) (table-row (:standard-properties [572 572 573 618 619 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [573 nil 574 589 591 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15]) (code (:standard-properties [574 nil nil nil 589 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18] :value ":expand-links"))) (table-cell (:standard-properties [591 nil 591 616 618 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15]) (code (:standard-properties [591 nil nil nil 616 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19] :value "org-export-expand-links")))) (table-row (:standard-properties [619 619 620 675 676 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [620 nil 621 641 643 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16]) (code (:standard-properties [621 nil nil nil 641 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19] :value ":with-broken-links"))) (table-cell (:standard-properties [643 nil 643 673 675 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16]) (code (:standard-properties [643 nil nil nil 673 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20] :value "org-export-with-broken-links")))) (table-row (:standard-properties [676 676 677 720 721 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [677 nil 678 692 694 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17]) (code (:standard-properties [678 nil nil nil 692 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20] :value ":with-clocks"))) (table-cell (:standard-properties [694 nil 694 718 720 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17]) (code (:standard-properties [694 nil nil nil 718 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21] :value "org-export-with-clocks")))) (table-row (:standard-properties [721 721 722 767 768 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [722 nil 723 738 740 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18]) (code (:standard-properties [723 nil nil nil 738 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21] :value ":with-creator"))) (table-cell (:standard-properties [740 nil 740 765 767 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18]) (code (:standard-properties [740 nil nil nil 765 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22] :value "org-export-with-creator")))) (table-row (:standard-properties [768 768 769 808 809 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [769 nil 770 782 784 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19]) (code (:standard-properties [770 nil nil nil 782 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22] :value ":with-date"))) (table-cell (:standard-properties [784 nil 784 806 808 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19]) (code (:standard-properties [784 nil nil nil 806 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23] :value "org-export-with-date")))) (table-row (:standard-properties [809 809 810 855 856 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [810 nil 811 826 828 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20]) (code (:standard-properties [811 nil nil nil 826 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23] :value ":with-drawers"))) (table-cell (:standard-properties [828 nil 828 853 855 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20]) (code (:standard-properties [828 nil nil nil 853 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24] :value "org-export-with-drawers")))) (table-row (:standard-properties [856 856 857 898 899 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [857 nil 858 871 873 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21]) (code (:standard-properties [858 nil nil nil 871 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24] :value ":with-email"))) (table-cell (:standard-properties [873 nil 873 896 898 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21]) (code (:standard-properties [873 nil nil nil 896 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25] :value "org-export-with-email")))) (table-row (:standard-properties [899 899 900 949 950 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [900 nil 901 918 920 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22]) (code (:standard-properties [901 nil nil nil 918 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25] :value ":with-emphasize"))) (table-cell (:standard-properties [920 nil 920 947 949 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22]) (code (:standard-properties [920 nil nil nil 947 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26] :value "org-export-with-emphasize")))) (table-row (:standard-properties [950 950 951 998 999 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [951 nil 952 968 970 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23]) (code (:standard-properties [952 nil nil nil 968 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26] :value ":with-entities"))) (table-cell (:standard-properties [970 nil 970 996 998 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23]) (code (:standard-properties [970 nil nil nil 996 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27] :value "org-export-with-entities")))) (table-row (:standard-properties [999 999 1000 1053 1054 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1000 nil 1001 1020 1022 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24]) (code (:standard-properties [1001 nil nil nil 1020 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27] :value ":with-fixed-width"))) (table-cell (:standard-properties [1022 nil 1022 1051 1053 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24]) (code (:standard-properties [1022 nil nil nil 1051 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28] :value "org-export-with-fixed-width")))) (table-row (:standard-properties [1054 1054 1055 1104 1105 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1055 nil 1056 1073 1075 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25]) (code (:standard-properties [1056 nil nil nil 1073 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28] :value ":with-footnotes"))) (table-cell (:standard-properties [1075 nil 1075 1102 1104 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25]) (code (:standard-properties [1075 nil nil nil 1102 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29] :value "org-export-with-footnotes")))) (table-row (:standard-properties [1105 1105 1106 1159 1160 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1106 nil 1107 1126 1128 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26]) (code (:standard-properties [1107 nil nil nil 1126 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29] :value ":with-inlinetasks"))) (table-cell (:standard-properties [1128 nil 1128 1157 1159 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26]) (code (:standard-properties [1128 nil nil nil 1157 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30] :value "org-export-with-inlinetasks")))) (table-row (:standard-properties [1160 1160 1161 1202 1203 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1161 nil 1162 1175 1177 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27]) (code (:standard-properties [1162 nil nil nil 1175 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30] :value ":with-latex"))) (table-cell (:standard-properties [1177 nil 1177 1200 1202 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27]) (code (:standard-properties [1177 nil nil nil 1200 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31] :value "org-export-with-latex")))) (table-row (:standard-properties [1203 1203 1204 1251 1252 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1204 nil 1205 1221 1223 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28]) (code (:standard-properties [1205 nil nil nil 1221 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31] :value ":with-planning"))) (table-cell (:standard-properties [1223 nil 1223 1249 1251 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28]) (code (:standard-properties [1223 nil nil nil 1249 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32] :value "org-export-with-planning")))) (table-row (:standard-properties [1252 1252 1253 1300 1301 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1253 nil 1254 1270 1272 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29]) (code (:standard-properties [1254 nil nil nil 1270 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32] :value ":with-priority"))) (table-cell (:standard-properties [1272 nil 1272 1298 1300 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29]) (code (:standard-properties [1272 nil nil nil 1298 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33] :value "org-export-with-priority")))) (table-row (:standard-properties [1301 1301 1302 1353 1354 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1302 nil 1303 1321 1323 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30]) (code (:standard-properties [1303 nil nil nil 1321 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33] :value ":with-properties"))) (table-cell (:standard-properties [1323 nil 1323 1351 1353 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30]) (code (:standard-properties [1323 nil nil nil 1351 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34] :value "org-export-with-properties")))) (table-row (:standard-properties [1354 1354 1355 1410 1411 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1355 nil 1356 1376 1378 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31]) (code (:standard-properties [1356 nil nil nil 1376 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34] :value ":with-smart-quotes"))) (table-cell (:standard-properties [1378 nil 1378 1408 1410 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31]) (code (:standard-properties [1378 nil nil nil 1408 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35] :value "org-export-with-smart-quotes")))) (table-row (:standard-properties [1411 1411 1412 1473 1474 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1412 nil 1413 1436 1438 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32]) (code (:standard-properties [1413 nil nil nil 1436 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35] :value ":with-special-strings"))) (table-cell (:standard-properties [1438 nil 1438 1471 1473 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32]) (code (:standard-properties [1438 nil nil nil 1471 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36] :value "org-export-with-special-strings")))) (table-row (:standard-properties [1474 1474 1475 1542 1543 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1475 nil 1476 1502 1504 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33]) (code (:standard-properties [1476 nil nil nil 1502 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36] :value ":with-statistics-cookies"))) (table-cell (:standard-properties [1504 nil 1504 1540 1542 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33]) (code (:standard-properties [1504 nil nil nil 1540 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37] :value "org-export-with-statistics-cookies")))) (table-row (:standard-properties [1543 1543 1544 1606 1607 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1544 nil 1545 1568 1570 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34]) (code (:standard-properties [1545 nil nil nil 1568 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37] :value ":with-sub-superscript"))) (table-cell (:standard-properties [1570 nil 1570 1604 1606 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34]) (code (:standard-properties [1570 nil nil nil 1604 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38] :value "org-export-with-sub-superscripts")))) (table-row (:standard-properties [1607 1607 1608 1645 1646 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1608 nil 1609 1620 1622 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35]) (code (:standard-properties [1609 nil nil nil 1620 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38] :value ":with-toc"))) (table-cell (:standard-properties [1622 nil 1622 1643 1645 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35]) (code (:standard-properties [1622 nil nil nil 1643 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39] :value "org-export-with-toc")))) (table-row (:standard-properties [1646 1646 1647 1690 1691 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1647 nil 1648 1662 1664 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36]) (code (:standard-properties [1648 nil nil nil 1662 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39] :value ":with-tables"))) (table-cell (:standard-properties [1664 nil 1664 1688 1690 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36]) (code (:standard-properties [1664 nil nil nil 1688 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40] :value "org-export-with-tables")))) (table-row (:standard-properties [1691 1691 1692 1731 1732 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1692 nil 1693 1705 1707 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37]) (code (:standard-properties [1693 nil nil nil 1705 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40] :value ":with-tags"))) (table-cell (:standard-properties [1707 nil 1707 1729 1731 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37]) (code (:standard-properties [1707 nil nil nil 1729 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41] :value "org-export-with-tags")))) (table-row (:standard-properties [1732 1732 1733 1774 1775 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1733 nil 1734 1747 1749 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38]) (code (:standard-properties [1734 nil nil nil 1747 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41] :value ":with-tasks"))) (table-cell (:standard-properties [1749 nil 1749 1772 1774 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38]) (code (:standard-properties [1749 nil nil nil 1772 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42] :value "org-export-with-tasks")))) (table-row (:standard-properties [1775 1775 1776 1827 1828 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1776 nil 1777 1795 1797 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39]) (code (:standard-properties [1777 nil nil nil 1795 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42] :value ":with-timestamps"))) (table-cell (:standard-properties [1797 nil 1797 1825 1827 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39]) (code (:standard-properties [1797 nil nil nil 1825 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43] :value "org-export-with-timestamps")))) (table-row (:standard-properties [1828 1828 1829 1870 1871 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1829 nil 1830 1843 1845 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40]) (code (:standard-properties [1830 nil nil nil 1843 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43] :value ":with-title"))) (table-cell (:standard-properties [1845 nil 1845 1868 1870 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40]) (code (:standard-properties [1845 nil nil nil 1868 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #44] :value "org-export-with-title")))) (table-row (:standard-properties [1871 1871 1872 1929 1930 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1872 nil 1873 1894 1896 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41]) (code (:standard-properties [1873 nil nil nil 1894 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #44] :value ":with-todo-keywords"))) (table-cell (:standard-properties [1896 nil 1896 1927 1929 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41]) (code (:standard-properties [1896 nil nil nil 1927 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #45] :value "org-export-with-todo-keywords")))) (table-row (:standard-properties [1930 1930 1931 1989 1990 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1931 nil 1932 1955 1957 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42]) (code (:standard-properties [1932 nil nil nil 1955 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #45] :value ":with-cite-processors"))) (table-cell (:standard-properties [1957 nil 1957 1987 1989 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42]) (code (:standard-properties [1957 nil nil nil 1987 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #46] :value "org-export-process-citations")))) (table-row (:standard-properties [1990 1990 1991 2038 2039 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1991 nil 1992 2006 2008 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43]) (code (:standard-properties [1992 nil nil nil 2006 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #46] :value ":cite-export"))) (table-cell (:standard-properties [2008 nil 2008 2036 2038 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43]) (code (:standard-properties [2008 nil nil nil 2036 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #47] :value "org-cite-export-processors"))))) "| ~:author~ | ~user-full-name~ |\n| ~:email~ | ~user-mail-address~ |\n| ~:language~ | ~org-export-default-language~ |\n| ~:select-tags~ | ~org-export-select-tags~ |\n| ~:exclude-tags~ | ~org-export-exclude-tags~ |\n| ~:creator~ | ~org-export-creator-string~ |\n| ~:headline-levels~ | ~org-export-headline-levels~ |\n| ~:preserve-breaks~ | ~org-export-preserve-breaks~ |\n| ~:section-numbers~ | ~org-export-with-section-numbers~ |\n| ~:time-stamp-file~ | ~org-export-timestamp-file~ |\n| ~:with-archived-trees~ | ~org-export-with-archived-trees~ |\n| ~:with-author~ | ~org-export-with-author~ |\n| ~:expand-links~ | ~org-export-expand-links~ |\n| ~:with-broken-links~ | ~org-export-with-broken-links~ |\n| ~:with-clocks~ | ~org-export-with-clocks~ |\n| ~:with-creator~ | ~org-export-with-creator~ |\n| ~:with-date~ | ~org-export-with-date~ |\n| ~:with-drawers~ | ~org-export-with-drawers~ |\n| ~:with-email~ | ~org-export-with-email~ |\n| ~:with-emphasize~ | ~org-export-with-emphasize~ |\n| ~:with-entities~ | ~org-export-with-entities~ |\n| ~:with-fixed-width~ | ~org-export-with-fixed-width~ |\n| ~:with-footnotes~ | ~org-export-with-footnotes~ |\n| ~:with-inlinetasks~ | ~org-export-with-inlinetasks~ |\n| ~:with-latex~ | ~org-export-with-latex~ |\n| ~:with-planning~ | ~org-export-with-planning~ |\n| ~:with-priority~ | ~org-export-with-priority~ |\n| ~:with-properties~ | ~org-export-with-properties~ |\n| ~:with-smart-quotes~ | ~org-export-with-smart-quotes~ |\n| ~:with-special-strings~ | ~org-export-with-special-strings~ |\n| ~:with-statistics-cookies~ | ~org-export-with-statistics-cookies~ |\n| ~:with-sub-superscript~ | ~org-export-with-sub-superscripts~ |\n| ~:with-toc~ | ~org-export-with-toc~ |\n| ~:with-tables~ | ~org-export-with-tables~ |\n| ~:with-tags~ | ~org-export-with-tags~ |\n| ~:with-tasks~ | ~org-export-with-tasks~ |\n| ~:with-timestamps~ | ~org-export-with-timestamps~ |\n| ~:with-title~ | ~org-export-with-title~ |\n| ~:with-todo-keywords~ | ~org-export-with-todo-keywords~ |\n| ~:with-cite-processors~ | ~org-export-process-citations~ |\n| ~:cite-export~ | ~org-cite-export-processors~ |\n") (concat (and with-affiliated (eq (org-element-class blob) 'element) (org-element--interpret-affiliated-keywords blob)) (funcall (intern (format "org-element-%s-interpreter" type)) blob contents)) (let ((type (org-element-type blob))) (concat (and with-affiliated (eq (org-element-class blob) 'element) (org-element--interpret-affiliated-keywords blob)) (funcall (intern (format "org-element-%s-interpreter" type)) blob contents))) org-export-expand((table (:standard-properties [1 1 1 2039 2039 0 nil top-comment nil nil nil nil nil nil #<killed buffer> nil nil (section (:standard-properties [1 1 1 2039 2039 0 nil first-section nil nil nil 1 2039 nil #<killed buffer> nil nil (org-data (:standard-properties [1 1 1 2039 2039 0 nil org-data nil nil nil 3 2039 nil #<killed buffer> nil nil nil] :path nil :CATEGORY nil) #5)]) #0)] :type org :tblfm nil :value nil) (table-row (:standard-properties [1 1 2 32 33 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [2 nil 3 12 14 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #3]) (code (:standard-properties [3 nil nil nil 12 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #6] :value ":author"))) (table-cell (:standard-properties [14 nil 14 30 32 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #3]) (code (:standard-properties [14 nil nil nil 30 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7] :value "user-full-name")))) (table-row (:standard-properties [33 33 34 66 67 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [34 nil 35 43 45 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #4]) (code (:standard-properties [35 nil nil nil 43 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7] :value ":email"))) (table-cell (:standard-properties [45 nil 45 64 66 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #4]) (code (:standard-properties [45 nil nil nil 64 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8] :value "user-mail-address")))) (table-row (:standard-properties [67 67 68 113 114 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [68 nil 69 80 82 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #5]) (code (:standard-properties [69 nil nil nil 80 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8] :value ":language"))) (table-cell (:standard-properties [82 nil 82 111 113 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #5]) (code (:standard-properties [82 nil nil nil 111 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9] :value "org-export-default-language")))) (table-row (:standard-properties [114 114 115 158 159 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [115 nil 116 130 132 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #6]) (code (:standard-properties [116 nil nil nil 130 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9] :value ":select-tags"))) (table-cell (:standard-properties [132 nil 132 156 158 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #6]) (code (:standard-properties [132 nil nil nil 156 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10] :value "org-export-select-tags")))) (table-row (:standard-properties [159 159 160 205 206 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [160 nil 161 176 178 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7]) (code (:standard-properties [161 nil nil nil 176 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10] :value ":exclude-tags"))) (table-cell (:standard-properties [178 nil 178 203 205 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7]) (code (:standard-properties [178 nil nil nil 203 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11] :value "org-export-exclude-tags")))) (table-row (:standard-properties [206 206 207 249 250 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [207 nil 208 218 220 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8]) (code (:standard-properties [208 nil nil nil 218 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11] :value ":creator"))) (table-cell (:standard-properties [220 nil 220 247 249 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8]) (code (:standard-properties [220 nil nil nil 247 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12] :value "org-export-creator-string")))) (table-row (:standard-properties [250 250 251 302 303 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [251 nil 252 270 272 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9]) (code (:standard-properties [252 nil nil nil 270 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12] :value ":headline-levels"))) (table-cell (:standard-properties [272 nil 272 300 302 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9]) (code (:standard-properties [272 nil nil nil 300 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13] :value "org-export-headline-levels")))) (table-row (:standard-properties [303 303 304 355 356 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [304 nil 305 323 325 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10]) (code (:standard-properties [305 nil nil nil 323 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13] :value ":preserve-breaks"))) (table-cell (:standard-properties [325 nil 325 353 355 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10]) (code (:standard-properties [325 nil nil nil 353 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14] :value "org-export-preserve-breaks")))) (table-row (:standard-properties [356 356 357 413 414 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [357 nil 358 376 378 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11]) (code (:standard-properties [358 nil nil nil 376 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14] :value ":section-numbers"))) (table-cell (:standard-properties [378 nil 378 411 413 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11]) (code (:standard-properties [378 nil nil nil 411 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15] :value "org-export-with-section-numbers")))) (table-row (:standard-properties [414 414 415 465 466 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [415 nil 416 434 436 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12]) (code (:standard-properties [416 nil nil nil 434 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15] :value ":time-stamp-file"))) (table-cell (:standard-properties [436 nil 436 463 465 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12]) (code (:standard-properties [436 nil nil nil 463 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16] :value "org-export-timestamp-file")))) (table-row (:standard-properties [466 466 467 526 527 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [467 nil 468 490 492 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13]) (code (:standard-properties [468 nil nil nil 490 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16] :value ":with-archived-trees"))) (table-cell (:standard-properties [492 nil 492 524 526 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13]) (code (:standard-properties [492 nil nil nil 524 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17] :value "org-export-with-archived-trees")))) (table-row (:standard-properties [527 527 528 571 572 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [528 nil 529 543 545 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14]) (code (:standard-properties [529 nil nil nil 543 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17] :value ":with-author"))) (table-cell (:standard-properties [545 nil 545 569 571 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14]) (code (:standard-properties [545 nil nil nil 569 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18] :value "org-export-with-author")))) (table-row (:standard-properties [572 572 573 618 619 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [573 nil 574 589 591 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15]) (code (:standard-properties [574 nil nil nil 589 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18] :value ":expand-links"))) (table-cell (:standard-properties [591 nil 591 616 618 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15]) (code (:standard-properties [591 nil nil nil 616 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19] :value "org-export-expand-links")))) (table-row (:standard-properties [619 619 620 675 676 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [620 nil 621 641 643 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16]) (code (:standard-properties [621 nil nil nil 641 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19] :value ":with-broken-links"))) (table-cell (:standard-properties [643 nil 643 673 675 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16]) (code (:standard-properties [643 nil nil nil 673 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20] :value "org-export-with-broken-links")))) (table-row (:standard-properties [676 676 677 720 721 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [677 nil 678 692 694 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17]) (code (:standard-properties [678 nil nil nil 692 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20] :value ":with-clocks"))) (table-cell (:standard-properties [694 nil 694 718 720 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17]) (code (:standard-properties [694 nil nil nil 718 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21] :value "org-export-with-clocks")))) (table-row (:standard-properties [721 721 722 767 768 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [722 nil 723 738 740 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18]) (code (:standard-properties [723 nil nil nil 738 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21] :value ":with-creator"))) (table-cell (:standard-properties [740 nil 740 765 767 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18]) (code (:standard-properties [740 nil nil nil 765 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22] :value "org-export-with-creator")))) (table-row (:standard-properties [768 768 769 808 809 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [769 nil 770 782 784 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19]) (code (:standard-properties [770 nil nil nil 782 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22] :value ":with-date"))) (table-cell (:standard-properties [784 nil 784 806 808 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19]) (code (:standard-properties [784 nil nil nil 806 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23] :value "org-export-with-date")))) (table-row (:standard-properties [809 809 810 855 856 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [810 nil 811 826 828 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20]) (code (:standard-properties [811 nil nil nil 826 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23] :value ":with-drawers"))) (table-cell (:standard-properties [828 nil 828 853 855 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20]) (code (:standard-properties [828 nil nil nil 853 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24] :value "org-export-with-drawers")))) (table-row (:standard-properties [856 856 857 898 899 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [857 nil 858 871 873 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21]) (code (:standard-properties [858 nil nil nil 871 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24] :value ":with-email"))) (table-cell (:standard-properties [873 nil 873 896 898 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21]) (code (:standard-properties [873 nil nil nil 896 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25] :value "org-export-with-email")))) (table-row (:standard-properties [899 899 900 949 950 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [900 nil 901 918 920 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22]) (code (:standard-properties [901 nil nil nil 918 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25] :value ":with-emphasize"))) (table-cell (:standard-properties [920 nil 920 947 949 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22]) (code (:standard-properties [920 nil nil nil 947 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26] :value "org-export-with-emphasize")))) (table-row (:standard-properties [950 950 951 998 999 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [951 nil 952 968 970 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23]) (code (:standard-properties [952 nil nil nil 968 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26] :value ":with-entities"))) (table-cell (:standard-properties [970 nil 970 996 998 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23]) (code (:standard-properties [970 nil nil nil 996 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27] :value "org-export-with-entities")))) (table-row (:standard-properties [999 999 1000 1053 1054 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1000 nil 1001 1020 1022 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24]) (code (:standard-properties [1001 nil nil nil 1020 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27] :value ":with-fixed-width"))) (table-cell (:standard-properties [1022 nil 1022 1051 1053 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24]) (code (:standard-properties [1022 nil nil nil 1051 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28] :value "org-export-with-fixed-width")))) (table-row (:standard-properties [1054 1054 1055 1104 1105 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1055 nil 1056 1073 1075 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25]) (code (:standard-properties [1056 nil nil nil 1073 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28] :value ":with-footnotes"))) (table-cell (:standard-properties [1075 nil 1075 1102 1104 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25]) (code (:standard-properties [1075 nil nil nil 1102 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29] :value "org-export-with-footnotes")))) (table-row (:standard-properties [1105 1105 1106 1159 1160 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1106 nil 1107 1126 1128 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26]) (code (:standard-properties [1107 nil nil nil 1126 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29] :value ":with-inlinetasks"))) (table-cell (:standard-properties [1128 nil 1128 1157 1159 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26]) (code (:standard-properties [1128 nil nil nil 1157 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30] :value "org-export-with-inlinetasks")))) (table-row (:standard-properties [1160 1160 1161 1202 1203 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1161 nil 1162 1175 1177 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27]) (code (:standard-properties [1162 nil nil nil 1175 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30] :value ":with-latex"))) (table-cell (:standard-properties [1177 nil 1177 1200 1202 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27]) (code (:standard-properties [1177 nil nil nil 1200 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31] :value "org-export-with-latex")))) (table-row (:standard-properties [1203 1203 1204 1251 1252 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1204 nil 1205 1221 1223 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28]) (code (:standard-properties [1205 nil nil nil 1221 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31] :value ":with-planning"))) (table-cell (:standard-properties [1223 nil 1223 1249 1251 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28]) (code (:standard-properties [1223 nil nil nil 1249 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32] :value "org-export-with-planning")))) (table-row (:standard-properties [1252 1252 1253 1300 1301 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1253 nil 1254 1270 1272 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29]) (code (:standard-properties [1254 nil nil nil 1270 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32] :value ":with-priority"))) (table-cell (:standard-properties [1272 nil 1272 1298 1300 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29]) (code (:standard-properties [1272 nil nil nil 1298 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33] :value "org-export-with-priority")))) (table-row (:standard-properties [1301 1301 1302 1353 1354 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1302 nil 1303 1321 1323 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30]) (code (:standard-properties [1303 nil nil nil 1321 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33] :value ":with-properties"))) (table-cell (:standard-properties [1323 nil 1323 1351 1353 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30]) (code (:standard-properties [1323 nil nil nil 1351 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34] :value "org-export-with-properties")))) (table-row (:standard-properties [1354 1354 1355 1410 1411 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1355 nil 1356 1376 1378 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31]) (code (:standard-properties [1356 nil nil nil 1376 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34] :value ":with-smart-quotes"))) (table-cell (:standard-properties [1378 nil 1378 1408 1410 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31]) (code (:standard-properties [1378 nil nil nil 1408 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35] :value "org-export-with-smart-quotes")))) (table-row (:standard-properties [1411 1411 1412 1473 1474 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1412 nil 1413 1436 1438 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32]) (code (:standard-properties [1413 nil nil nil 1436 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35] :value ":with-special-strings"))) (table-cell (:standard-properties [1438 nil 1438 1471 1473 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32]) (code (:standard-properties [1438 nil nil nil 1471 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36] :value "org-export-with-special-strings")))) (table-row (:standard-properties [1474 1474 1475 1542 1543 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1475 nil 1476 1502 1504 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33]) (code (:standard-properties [1476 nil nil nil 1502 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36] :value ":with-statistics-cookies"))) (table-cell (:standard-properties [1504 nil 1504 1540 1542 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33]) (code (:standard-properties [1504 nil nil nil 1540 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37] :value "org-export-with-statistics-cookies")))) (table-row (:standard-properties [1543 1543 1544 1606 1607 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1544 nil 1545 1568 1570 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34]) (code (:standard-properties [1545 nil nil nil 1568 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37] :value ":with-sub-superscript"))) (table-cell (:standard-properties [1570 nil 1570 1604 1606 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34]) (code (:standard-properties [1570 nil nil nil 1604 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38] :value "org-export-with-sub-superscripts")))) (table-row (:standard-properties [1607 1607 1608 1645 1646 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1608 nil 1609 1620 1622 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35]) (code (:standard-properties [1609 nil nil nil 1620 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38] :value ":with-toc"))) (table-cell (:standard-properties [1622 nil 1622 1643 1645 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35]) (code (:standard-properties [1622 nil nil nil 1643 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39] :value "org-export-with-toc")))) (table-row (:standard-properties [1646 1646 1647 1690 1691 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1647 nil 1648 1662 1664 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36]) (code (:standard-properties [1648 nil nil nil 1662 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39] :value ":with-tables"))) (table-cell (:standard-properties [1664 nil 1664 1688 1690 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36]) (code (:standard-properties [1664 nil nil nil 1688 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40] :value "org-export-with-tables")))) (table-row (:standard-properties [1691 1691 1692 1731 1732 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1692 nil 1693 1705 1707 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37]) (code (:standard-properties [1693 nil nil nil 1705 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40] :value ":with-tags"))) (table-cell (:standard-properties [1707 nil 1707 1729 1731 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37]) (code (:standard-properties [1707 nil nil nil 1729 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41] :value "org-export-with-tags")))) (table-row (:standard-properties [1732 1732 1733 1774 1775 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1733 nil 1734 1747 1749 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38]) (code (:standard-properties [1734 nil nil nil 1747 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41] :value ":with-tasks"))) (table-cell (:standard-properties [1749 nil 1749 1772 1774 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38]) (code (:standard-properties [1749 nil nil nil 1772 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42] :value "org-export-with-tasks")))) (table-row (:standard-properties [1775 1775 1776 1827 1828 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1776 nil 1777 1795 1797 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39]) (code (:standard-properties [1777 nil nil nil 1795 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42] :value ":with-timestamps"))) (table-cell (:standard-properties [1797 nil 1797 1825 1827 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39]) (code (:standard-properties [1797 nil nil nil 1825 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43] :value "org-export-with-timestamps")))) (table-row (:standard-properties [1828 1828 1829 1870 1871 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1829 nil 1830 1843 1845 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40]) (code (:standard-properties [1830 nil nil nil 1843 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43] :value ":with-title"))) (table-cell (:standard-properties [1845 nil 1845 1868 1870 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40]) (code (:standard-properties [1845 nil nil nil 1868 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #44] :value "org-export-with-title")))) (table-row (:standard-properties [1871 1871 1872 1929 1930 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1872 nil 1873 1894 1896 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41]) (code (:standard-properties [1873 nil nil nil 1894 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #44] :value ":with-todo-keywords"))) (table-cell (:standard-properties [1896 nil 1896 1927 1929 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41]) (code (:standard-properties [1896 nil nil nil 1927 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #45] :value "org-export-with-todo-keywords")))) (table-row (:standard-properties [1930 1930 1931 1989 1990 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1931 nil 1932 1955 1957 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42]) (code (:standard-properties [1932 nil nil nil 1955 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #45] :value ":with-cite-processors"))) (table-cell (:standard-properties [1957 nil 1957 1987 1989 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42]) (code (:standard-properties [1957 nil nil nil 1987 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #46] :value "org-export-process-citations")))) (table-row (:standard-properties [1990 1990 1991 2038 2039 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1991 nil 1992 2006 2008 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43]) (code (:standard-properties [1992 nil nil nil 2006 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #46] :value ":cite-export"))) (table-cell (:standard-properties [2008 nil 2008 2036 2038 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43]) (code (:standard-properties [2008 nil nil nil 2036 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #47] :value "org-cite-export-processors"))))) "| ~:author~ | ~user-full-name~ |\n| ~:email~ | ~user-mail-address~ |\n| ~:language~ | ~org-export-default-language~ |\n| ~:select-tags~ | ~org-export-select-tags~ |\n| ~:exclude-tags~ | ~org-export-exclude-tags~ |\n| ~:creator~ | ~org-export-creator-string~ |\n| ~:headline-levels~ | ~org-export-headline-levels~ |\n| ~:preserve-breaks~ | ~org-export-preserve-breaks~ |\n| ~:section-numbers~ | ~org-export-with-section-numbers~ |\n| ~:time-stamp-file~ | ~org-export-timestamp-file~ |\n| ~:with-archived-trees~ | ~org-export-with-archived-trees~ |\n| ~:with-author~ | ~org-export-with-author~ |\n| ~:expand-links~ | ~org-export-expand-links~ |\n| ~:with-broken-links~ | ~org-export-with-broken-links~ |\n| ~:with-clocks~ | ~org-export-with-clocks~ |\n| ~:with-creator~ | ~org-export-with-creator~ |\n| ~:with-date~ | ~org-export-with-date~ |\n| ~:with-drawers~ | ~org-export-with-drawers~ |\n| ~:with-email~ | ~org-export-with-email~ |\n| ~:with-emphasize~ | ~org-export-with-emphasize~ |\n| ~:with-entities~ | ~org-export-with-entities~ |\n| ~:with-fixed-width~ | ~org-export-with-fixed-width~ |\n| ~:with-footnotes~ | ~org-export-with-footnotes~ |\n| ~:with-inlinetasks~ | ~org-export-with-inlinetasks~ |\n| ~:with-latex~ | ~org-export-with-latex~ |\n| ~:with-planning~ | ~org-export-with-planning~ |\n| ~:with-priority~ | ~org-export-with-priority~ |\n| ~:with-properties~ | ~org-export-with-properties~ |\n| ~:with-smart-quotes~ | ~org-export-with-smart-quotes~ |\n| ~:with-special-strings~ | ~org-export-with-special-strings~ |\n| ~:with-statistics-cookies~ | ~org-export-with-statistics-cookies~ |\n| ~:with-sub-superscript~ | ~org-export-with-sub-superscripts~ |\n| ~:with-toc~ | ~org-export-with-toc~ |\n| ~:with-tables~ | ~org-export-with-tables~ |\n| ~:with-tags~ | ~org-export-with-tags~ |\n| ~:with-tasks~ | ~org-export-with-tasks~ |\n| ~:with-timestamps~ | ~org-export-with-timestamps~ |\n| ~:with-title~ | ~org-export-with-title~ |\n| ~:with-todo-keywords~ | ~org-export-with-todo-keywords~ |\n| ~:with-cite-processors~ | ~org-export-process-citations~ |\n| ~:cite-export~ | ~org-cite-export-processors~ |\n" t) (replace-regexp-in-string "^[ \11]*#\\+attr_[-_a-z0-9]+:\\(?: .*\\)?\n" "" (org-export-expand blob contents t)) (let ((case-fold-search t)) (replace-regexp-in-string "^[ \11]*#\\+attr_[-_a-z0-9]+:\\(?: .*\\)?\n" "" (org-export-expand blob contents t))) org-org-identity((table (:standard-properties [1 1 1 2039 2039 0 nil top-comment nil nil nil nil nil nil #<killed buffer> nil nil (section (:standard-properties [1 1 1 2039 2039 0 nil first-section nil nil nil 1 2039 nil #<killed buffer> nil nil (org-data (:standard-properties [1 1 1 2039 2039 0 nil org-data nil nil nil 3 2039 nil #<killed buffer> nil nil nil] :path nil :CATEGORY nil) #5)]) #0)] :type org :tblfm nil :value nil) (table-row (:standard-properties [1 1 2 32 33 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [2 nil 3 12 14 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #3]) (code (:standard-properties [3 nil nil nil 12 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #6] :value ":author"))) (table-cell (:standard-properties [14 nil 14 30 32 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #3]) (code (:standard-properties [14 nil nil nil 30 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7] :value "user-full-name")))) (table-row (:standard-properties [33 33 34 66 67 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [34 nil 35 43 45 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #4]) (code (:standard-properties [35 nil nil nil 43 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7] :value ":email"))) (table-cell (:standard-properties [45 nil 45 64 66 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #4]) (code (:standard-properties [45 nil nil nil 64 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8] :value "user-mail-address")))) (table-row (:standard-properties [67 67 68 113 114 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [68 nil 69 80 82 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #5]) (code (:standard-properties [69 nil nil nil 80 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8] :value ":language"))) (table-cell (:standard-properties [82 nil 82 111 113 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #5]) (code (:standard-properties [82 nil nil nil 111 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9] :value "org-export-default-language")))) (table-row (:standard-properties [114 114 115 158 159 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [115 nil 116 130 132 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #6]) (code (:standard-properties [116 nil nil nil 130 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9] :value ":select-tags"))) (table-cell (:standard-properties [132 nil 132 156 158 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #6]) (code (:standard-properties [132 nil nil nil 156 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10] :value "org-export-select-tags")))) (table-row (:standard-properties [159 159 160 205 206 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [160 nil 161 176 178 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7]) (code (:standard-properties [161 nil nil nil 176 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10] :value ":exclude-tags"))) (table-cell (:standard-properties [178 nil 178 203 205 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7]) (code (:standard-properties [178 nil nil nil 203 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11] :value "org-export-exclude-tags")))) (table-row (:standard-properties [206 206 207 249 250 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [207 nil 208 218 220 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8]) (code (:standard-properties [208 nil nil nil 218 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11] :value ":creator"))) (table-cell (:standard-properties [220 nil 220 247 249 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8]) (code (:standard-properties [220 nil nil nil 247 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12] :value "org-export-creator-string")))) (table-row (:standard-properties [250 250 251 302 303 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [251 nil 252 270 272 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9]) (code (:standard-properties [252 nil nil nil 270 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12] :value ":headline-levels"))) (table-cell (:standard-properties [272 nil 272 300 302 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9]) (code (:standard-properties [272 nil nil nil 300 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13] :value "org-export-headline-levels")))) (table-row (:standard-properties [303 303 304 355 356 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [304 nil 305 323 325 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10]) (code (:standard-properties [305 nil nil nil 323 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13] :value ":preserve-breaks"))) (table-cell (:standard-properties [325 nil 325 353 355 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10]) (code (:standard-properties [325 nil nil nil 353 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14] :value "org-export-preserve-breaks")))) (table-row (:standard-properties [356 356 357 413 414 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [357 nil 358 376 378 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11]) (code (:standard-properties [358 nil nil nil 376 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14] :value ":section-numbers"))) (table-cell (:standard-properties [378 nil 378 411 413 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11]) (code (:standard-properties [378 nil nil nil 411 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15] :value "org-export-with-section-numbers")))) (table-row (:standard-properties [414 414 415 465 466 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [415 nil 416 434 436 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12]) (code (:standard-properties [416 nil nil nil 434 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15] :value ":time-stamp-file"))) (table-cell (:standard-properties [436 nil 436 463 465 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12]) (code (:standard-properties [436 nil nil nil 463 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16] :value "org-export-timestamp-file")))) (table-row (:standard-properties [466 466 467 526 527 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [467 nil 468 490 492 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13]) (code (:standard-properties [468 nil nil nil 490 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16] :value ":with-archived-trees"))) (table-cell (:standard-properties [492 nil 492 524 526 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13]) (code (:standard-properties [492 nil nil nil 524 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17] :value "org-export-with-archived-trees")))) (table-row (:standard-properties [527 527 528 571 572 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [528 nil 529 543 545 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14]) (code (:standard-properties [529 nil nil nil 543 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17] :value ":with-author"))) (table-cell (:standard-properties [545 nil 545 569 571 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14]) (code (:standard-properties [545 nil nil nil 569 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18] :value "org-export-with-author")))) (table-row (:standard-properties [572 572 573 618 619 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [573 nil 574 589 591 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15]) (code (:standard-properties [574 nil nil nil 589 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18] :value ":expand-links"))) (table-cell (:standard-properties [591 nil 591 616 618 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15]) (code (:standard-properties [591 nil nil nil 616 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19] :value "org-export-expand-links")))) (table-row (:standard-properties [619 619 620 675 676 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [620 nil 621 641 643 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16]) (code (:standard-properties [621 nil nil nil 641 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19] :value ":with-broken-links"))) (table-cell (:standard-properties [643 nil 643 673 675 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16]) (code (:standard-properties [643 nil nil nil 673 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20] :value "org-export-with-broken-links")))) (table-row (:standard-properties [676 676 677 720 721 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [677 nil 678 692 694 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17]) (code (:standard-properties [678 nil nil nil 692 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20] :value ":with-clocks"))) (table-cell (:standard-properties [694 nil 694 718 720 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17]) (code (:standard-properties [694 nil nil nil 718 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21] :value "org-export-with-clocks")))) (table-row (:standard-properties [721 721 722 767 768 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [722 nil 723 738 740 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18]) (code (:standard-properties [723 nil nil nil 738 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21] :value ":with-creator"))) (table-cell (:standard-properties [740 nil 740 765 767 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18]) (code (:standard-properties [740 nil nil nil 765 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22] :value "org-export-with-creator")))) (table-row (:standard-properties [768 768 769 808 809 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [769 nil 770 782 784 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19]) (code (:standard-properties [770 nil nil nil 782 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22] :value ":with-date"))) (table-cell (:standard-properties [784 nil 784 806 808 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19]) (code (:standard-properties [784 nil nil nil 806 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23] :value "org-export-with-date")))) (table-row (:standard-properties [809 809 810 855 856 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [810 nil 811 826 828 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20]) (code (:standard-properties [811 nil nil nil 826 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23] :value ":with-drawers"))) (table-cell (:standard-properties [828 nil 828 853 855 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20]) (code (:standard-properties [828 nil nil nil 853 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24] :value "org-export-with-drawers")))) (table-row (:standard-properties [856 856 857 898 899 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [857 nil 858 871 873 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21]) (code (:standard-properties [858 nil nil nil 871 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24] :value ":with-email"))) (table-cell (:standard-properties [873 nil 873 896 898 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21]) (code (:standard-properties [873 nil nil nil 896 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25] :value "org-export-with-email")))) (table-row (:standard-properties [899 899 900 949 950 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [900 nil 901 918 920 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22]) (code (:standard-properties [901 nil nil nil 918 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25] :value ":with-emphasize"))) (table-cell (:standard-properties [920 nil 920 947 949 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22]) (code (:standard-properties [920 nil nil nil 947 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26] :value "org-export-with-emphasize")))) (table-row (:standard-properties [950 950 951 998 999 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [951 nil 952 968 970 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23]) (code (:standard-properties [952 nil nil nil 968 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26] :value ":with-entities"))) (table-cell (:standard-properties [970 nil 970 996 998 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23]) (code (:standard-properties [970 nil nil nil 996 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27] :value "org-export-with-entities")))) (table-row (:standard-properties [999 999 1000 1053 1054 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1000 nil 1001 1020 1022 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24]) (code (:standard-properties [1001 nil nil nil 1020 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27] :value ":with-fixed-width"))) (table-cell (:standard-properties [1022 nil 1022 1051 1053 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24]) (code (:standard-properties [1022 nil nil nil 1051 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28] :value "org-export-with-fixed-width")))) (table-row (:standard-properties [1054 1054 1055 1104 1105 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1055 nil 1056 1073 1075 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25]) (code (:standard-properties [1056 nil nil nil 1073 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28] :value ":with-footnotes"))) (table-cell (:standard-properties [1075 nil 1075 1102 1104 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25]) (code (:standard-properties [1075 nil nil nil 1102 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29] :value "org-export-with-footnotes")))) (table-row (:standard-properties [1105 1105 1106 1159 1160 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1106 nil 1107 1126 1128 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26]) (code (:standard-properties [1107 nil nil nil 1126 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29] :value ":with-inlinetasks"))) (table-cell (:standard-properties [1128 nil 1128 1157 1159 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26]) (code (:standard-properties [1128 nil nil nil 1157 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30] :value "org-export-with-inlinetasks")))) (table-row (:standard-properties [1160 1160 1161 1202 1203 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1161 nil 1162 1175 1177 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27]) (code (:standard-properties [1162 nil nil nil 1175 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30] :value ":with-latex"))) (table-cell (:standard-properties [1177 nil 1177 1200 1202 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27]) (code (:standard-properties [1177 nil nil nil 1200 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31] :value "org-export-with-latex")))) (table-row (:standard-properties [1203 1203 1204 1251 1252 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1204 nil 1205 1221 1223 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28]) (code (:standard-properties [1205 nil nil nil 1221 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31] :value ":with-planning"))) (table-cell (:standard-properties [1223 nil 1223 1249 1251 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28]) (code (:standard-properties [1223 nil nil nil 1249 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32] :value "org-export-with-planning")))) (table-row (:standard-properties [1252 1252 1253 1300 1301 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1253 nil 1254 1270 1272 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29]) (code (:standard-properties [1254 nil nil nil 1270 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32] :value ":with-priority"))) (table-cell (:standard-properties [1272 nil 1272 1298 1300 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29]) (code (:standard-properties [1272 nil nil nil 1298 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33] :value "org-export-with-priority")))) (table-row (:standard-properties [1301 1301 1302 1353 1354 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1302 nil 1303 1321 1323 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30]) (code (:standard-properties [1303 nil nil nil 1321 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33] :value ":with-properties"))) (table-cell (:standard-properties [1323 nil 1323 1351 1353 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30]) (code (:standard-properties [1323 nil nil nil 1351 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34] :value "org-export-with-properties")))) (table-row (:standard-properties [1354 1354 1355 1410 1411 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1355 nil 1356 1376 1378 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31]) (code (:standard-properties [1356 nil nil nil 1376 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34] :value ":with-smart-quotes"))) (table-cell (:standard-properties [1378 nil 1378 1408 1410 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31]) (code (:standard-properties [1378 nil nil nil 1408 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35] :value "org-export-with-smart-quotes")))) (table-row (:standard-properties [1411 1411 1412 1473 1474 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1412 nil 1413 1436 1438 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32]) (code (:standard-properties [1413 nil nil nil 1436 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35] :value ":with-special-strings"))) (table-cell (:standard-properties [1438 nil 1438 1471 1473 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32]) (code (:standard-properties [1438 nil nil nil 1471 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36] :value "org-export-with-special-strings")))) (table-row (:standard-properties [1474 1474 1475 1542 1543 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1475 nil 1476 1502 1504 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33]) (code (:standard-properties [1476 nil nil nil 1502 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36] :value ":with-statistics-cookies"))) (table-cell (:standard-properties [1504 nil 1504 1540 1542 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33]) (code (:standard-properties [1504 nil nil nil 1540 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37] :value "org-export-with-statistics-cookies")))) (table-row (:standard-properties [1543 1543 1544 1606 1607 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1544 nil 1545 1568 1570 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34]) (code (:standard-properties [1545 nil nil nil 1568 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37] :value ":with-sub-superscript"))) (table-cell (:standard-properties [1570 nil 1570 1604 1606 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34]) (code (:standard-properties [1570 nil nil nil 1604 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38] :value "org-export-with-sub-superscripts")))) (table-row (:standard-properties [1607 1607 1608 1645 1646 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1608 nil 1609 1620 1622 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35]) (code (:standard-properties [1609 nil nil nil 1620 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38] :value ":with-toc"))) (table-cell (:standard-properties [1622 nil 1622 1643 1645 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35]) (code (:standard-properties [1622 nil nil nil 1643 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39] :value "org-export-with-toc")))) (table-row (:standard-properties [1646 1646 1647 1690 1691 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1647 nil 1648 1662 1664 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36]) (code (:standard-properties [1648 nil nil nil 1662 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39] :value ":with-tables"))) (table-cell (:standard-properties [1664 nil 1664 1688 1690 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36]) (code (:standard-properties [1664 nil nil nil 1688 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40] :value "org-export-with-tables")))) (table-row (:standard-properties [1691 1691 1692 1731 1732 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1692 nil 1693 1705 1707 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37]) (code (:standard-properties [1693 nil nil nil 1705 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40] :value ":with-tags"))) (table-cell (:standard-properties [1707 nil 1707 1729 1731 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37]) (code (:standard-properties [1707 nil nil nil 1729 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41] :value "org-export-with-tags")))) (table-row (:standard-properties [1732 1732 1733 1774 1775 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1733 nil 1734 1747 1749 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38]) (code (:standard-properties [1734 nil nil nil 1747 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41] :value ":with-tasks"))) (table-cell (:standard-properties [1749 nil 1749 1772 1774 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38]) (code (:standard-properties [1749 nil nil nil 1772 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42] :value "org-export-with-tasks")))) (table-row (:standard-properties [1775 1775 1776 1827 1828 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1776 nil 1777 1795 1797 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39]) (code (:standard-properties [1777 nil nil nil 1795 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42] :value ":with-timestamps"))) (table-cell (:standard-properties [1797 nil 1797 1825 1827 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39]) (code (:standard-properties [1797 nil nil nil 1825 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43] :value "org-export-with-timestamps")))) (table-row (:standard-properties [1828 1828 1829 1870 1871 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1829 nil 1830 1843 1845 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40]) (code (:standard-properties [1830 nil nil nil 1843 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43] :value ":with-title"))) (table-cell (:standard-properties [1845 nil 1845 1868 1870 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40]) (code (:standard-properties [1845 nil nil nil 1868 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #44] :value "org-export-with-title")))) (table-row (:standard-properties [1871 1871 1872 1929 1930 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1872 nil 1873 1894 1896 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41]) (code (:standard-properties [1873 nil nil nil 1894 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #44] :value ":with-todo-keywords"))) (table-cell (:standard-properties [1896 nil 1896 1927 1929 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41]) (code (:standard-properties [1896 nil nil nil 1927 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #45] :value "org-export-with-todo-keywords")))) (table-row (:standard-properties [1930 1930 1931 1989 1990 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1931 nil 1932 1955 1957 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42]) (code (:standard-properties [1932 nil nil nil 1955 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #45] :value ":with-cite-processors"))) (table-cell (:standard-properties [1957 nil 1957 1987 1989 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42]) (code (:standard-properties [1957 nil nil nil 1987 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #46] :value "org-export-process-citations")))) (table-row (:standard-properties [1990 1990 1991 2038 2039 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1991 nil 1992 2006 2008 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43]) (code (:standard-properties [1992 nil nil nil 2006 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #46] :value ":cite-export"))) (table-cell (:standard-properties [2008 nil 2008 2036 2038 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43]) (code (:standard-properties [2008 nil nil nil 2036 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #47] :value "org-cite-export-processors"))))) "| ~:author~ | ~user-full-name~ |\n| ~:email~ | ~user-mail-address~ |\n| ~:language~ | ~org-export-default-language~ |\n| ~:select-tags~ | ~org-export-select-tags~ |\n| ~:exclude-tags~ | ~org-export-exclude-tags~ |\n| ~:creator~ | ~org-export-creator-string~ |\n| ~:headline-levels~ | ~org-export-headline-levels~ |\n| ~:preserve-breaks~ | ~org-export-preserve-breaks~ |\n| ~:section-numbers~ | ~org-export-with-section-numbers~ |\n| ~:time-stamp-file~ | ~org-export-timestamp-file~ |\n| ~:with-archived-trees~ | ~org-export-with-archived-trees~ |\n| ~:with-author~ | ~org-export-with-author~ |\n| ~:expand-links~ | ~org-export-expand-links~ |\n| ~:with-broken-links~ | ~org-export-with-broken-links~ |\n| ~:with-clocks~ | ~org-export-with-clocks~ |\n| ~:with-creator~ | ~org-export-with-creator~ |\n| ~:with-date~ | ~org-export-with-date~ |\n| ~:with-drawers~ | ~org-export-with-drawers~ |\n| ~:with-email~ | ~org-export-with-email~ |\n| ~:with-emphasize~ | ~org-export-with-emphasize~ |\n| ~:with-entities~ | ~org-export-with-entities~ |\n| ~:with-fixed-width~ | ~org-export-with-fixed-width~ |\n| ~:with-footnotes~ | ~org-export-with-footnotes~ |\n| ~:with-inlinetasks~ | ~org-export-with-inlinetasks~ |\n| ~:with-latex~ | ~org-export-with-latex~ |\n| ~:with-planning~ | ~org-export-with-planning~ |\n| ~:with-priority~ | ~org-export-with-priority~ |\n| ~:with-properties~ | ~org-export-with-properties~ |\n| ~:with-smart-quotes~ | ~org-export-with-smart-quotes~ |\n| ~:with-special-strings~ | ~org-export-with-special-strings~ |\n| ~:with-statistics-cookies~ | ~org-export-with-statistics-cookies~ |\n| ~:with-sub-superscript~ | ~org-export-with-sub-superscripts~ |\n| ~:with-toc~ | ~org-export-with-toc~ |\n| ~:with-tables~ | ~org-export-with-tables~ |\n| ~:with-tags~ | ~org-export-with-tags~ |\n| ~:with-tasks~ | ~org-export-with-tasks~ |\n| ~:with-timestamps~ | ~org-export-with-timestamps~ |\n| ~:with-title~ | ~org-export-with-title~ |\n| ~:with-todo-keywords~ | ~org-export-with-todo-keywords~ |\n| ~:with-cite-processors~ | ~org-export-process-citations~ |\n| ~:cite-export~ | ~org-cite-export-processors~ |\n" (:with-special-rows t :with-cite-processors nil :title nil :date nil :author (#("Po Lu" 0 5 (:parent #10))) :email "staff@trinity" :language "en" :select-tags ("export") :exclude-tags ("noexport") :creator "Emacs 30.0.50 (Org mode 9.7.3)" :headline-levels 3 :preserve-breaks nil :section-numbers t :time-stamp-file t :with-archived-trees headline :with-author t :expand-links t :with-broken-links nil :with-clocks nil :with-creator nil :with-date t :with-drawers (not "LOGBOOK") :with-email nil :with-emphasize t :with-entities t :with-fixed-width t :with-footnotes t :with-inlinetasks t :with-latex t :with-planning nil :with-priority nil :with-properties nil :with-smart-quotes nil :with-special-strings t :with-statistics-cookies t :with-sub-superscript t :with-toc t :with-tables t :with-tags t :with-tasks t :with-timestamps t :with-title t :with-todo-keywords t :cite-export ((t basic)) :backend org :back-end #s(org-export-backend :name org :parent nil :transcoders ((babel-call . org-org-identity) (bold . org-org-identity) (center-block . org-org-identity) (clock . org-org-identity) (code . org-org-identity) (diary-sexp . org-org-identity) (drawer . org-org-identity) (dynamic-block . org-org-identity) (entity . org-org-identity) (example-block . org-org-identity) (export-block . org-org-export-block) (fixed-width . org-org-identity) (footnote-definition . ignore) (footnote-reference . org-org-identity) (headline . org-org-headline) (horizontal-rule . org-org-identity) (inline-babel-call . org-org-identity) (inline-src-block . org-org-identity) (inlinetask . org-org-identity) (italic . org-org-identity) (citation . org-org-identity) (citation-reference . org-org-identity) (item . org-org-identity) (keyword . org-org-keyword) (latex-environment . org-org-identity) (latex-fragment . org-org-identity) (line-break . org-org-identity) (link . org-org-link) (node-property . org-org-identity) (template . org-org-template) (paragraph . org-org-identity) (plain-list . org-org-identity) (planning . org-org-identity) (property-drawer . org-org-identity) (quote-block . org-org-identity) (radio-target . org-org-identity) (section . org-org-section) (special-block . org-org-identity) (src-block . org-org-identity) (statistics-cookie . org-org-identity) (strike-through . org-org-identity) (subscript . org-org-identity) (superscript . org-org-identity) (table . org-org-identity) (table-cell . org-org-identity) (table-row . org-org-identity) (target . org-org-identity) (timestamp . org-org-timestamp) (underline . org-org-identity) (verbatim . org-org-identity) (verse-block . org-org-identity)) :options ((:with-special-rows nil nil org-org-with-special-rows) (:with-cite-processors nil nil org-org-with-cite-processors)) :filters ((:filter-parse-tree . org-org--add-missing-sections)) :blocks nil :menu (79 "Export to Org" ((79 "As Org buffer" org-org-export-as-org) (111 "As Org file" org-org-export-to-org) (118 "As Org file and open" (lambda (a s v b) (if a (org-org-export-to-org t s v b) (org-open-file (org-org-export-to-org nil s v b)))))))) :filter-parse-tree (org-org--add-missing-sections) :ignore-list nil :translate-alist ((babel-call . org-org-identity) (bold . org-org-identity) (center-block . org-org-identity) (clock . org-org-identity) (code . org-org-identity) (diary-sexp . org-org-identity) (drawer . org-org-identity) (dynamic-block . org-org-identity) (entity . org-org-identity) (example-block . org-org-identity) (export-block . org-org-export-block) (fixed-width . org-org-identity) (footnote-definition . ignore) (footnote-reference . org-org-identity) (headline . org-org-headline) (horizontal-rule . org-org-identity) (inline-babel-call . org-org-identity) (inline-src-block . org-org-identity) (inlinetask . org-org-identity) (italic . org-org-identity) (citation . org-org-identity) (citation-reference . org-org-identity) (item . org-org-identity) (keyword . org-org-keyword) (latex-environment . org-org-identity) (latex-fragment . org-org-identity) (line-break . org-org-identity) (link . org-org-link) (node-property . org-org-identity) (template . org-org-template) (paragraph . org-org-identity) (plain-list . org-org-identity) (planning . org-org-identity) (property-drawer . org-org-identity) (quote-block . org-org-identity) (radio-target . org-org-identity) (section . org-org-section) (special-block . org-org-identity) (src-block . org-org-identity) (statistics-cookie . org-org-identity) (strike-through . org-org-identity) (subscript . org-org-identity) (superscript . org-org-identity) (table . org-org-identity) (table-cell . org-org-identity) (table-row . org-org-identity) (target . org-org-identity) (timestamp . org-org-timestamp) (underline . org-org-identity) (verbatim . org-org-identity) (verse-block . org-org-identity)) :exported-data #<hash-table eq 0/401 0x1659ef9 ...> :internal-references nil)) funcall(org-org-identity (table (:standard-properties [1 1 1 2039 2039 0 nil top-comment nil nil nil nil nil nil #<killed buffer> nil nil (section (:standard-properties [1 1 1 2039 2039 0 nil first-section nil nil nil 1 2039 nil #<killed buffer> nil nil (org-data (:standard-properties [1 1 1 2039 2039 0 nil org-data nil nil nil 3 2039 nil #<killed buffer> nil nil nil] :path nil :CATEGORY nil) #5)]) #0)] :type org :tblfm nil :value nil) (table-row (:standard-properties [1 1 2 32 33 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [2 nil 3 12 14 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #3]) (code (:standard-properties [3 nil nil nil 12 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #6] :value ":author"))) (table-cell (:standard-properties [14 nil 14 30 32 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #3]) (code (:standard-properties [14 nil nil nil 30 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7] :value "user-full-name")))) (table-row (:standard-properties [33 33 34 66 67 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [34 nil 35 43 45 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #4]) (code (:standard-properties [35 nil nil nil 43 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7] :value ":email"))) (table-cell (:standard-properties [45 nil 45 64 66 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #4]) (code (:standard-properties [45 nil nil nil 64 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8] :value "user-mail-address")))) (table-row (:standard-properties [67 67 68 113 114 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [68 nil 69 80 82 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #5]) (code (:standard-properties [69 nil nil nil 80 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8] :value ":language"))) (table-cell (:standard-properties [82 nil 82 111 113 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #5]) (code (:standard-properties [82 nil nil nil 111 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9] :value "org-export-default-language")))) (table-row (:standard-properties [114 114 115 158 159 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [115 nil 116 130 132 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #6]) (code (:standard-properties [116 nil nil nil 130 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9] :value ":select-tags"))) (table-cell (:standard-properties [132 nil 132 156 158 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #6]) (code (:standard-properties [132 nil nil nil 156 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10] :value "org-export-select-tags")))) (table-row (:standard-properties [159 159 160 205 206 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [160 nil 161 176 178 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7]) (code (:standard-properties [161 nil nil nil 176 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10] :value ":exclude-tags"))) (table-cell (:standard-properties [178 nil 178 203 205 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7]) (code (:standard-properties [178 nil nil nil 203 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11] :value "org-export-exclude-tags")))) (table-row (:standard-properties [206 206 207 249 250 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [207 nil 208 218 220 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8]) (code (:standard-properties [208 nil nil nil 218 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11] :value ":creator"))) (table-cell (:standard-properties [220 nil 220 247 249 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8]) (code (:standard-properties [220 nil nil nil 247 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12] :value "org-export-creator-string")))) (table-row (:standard-properties [250 250 251 302 303 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [251 nil 252 270 272 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9]) (code (:standard-properties [252 nil nil nil 270 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12] :value ":headline-levels"))) (table-cell (:standard-properties [272 nil 272 300 302 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9]) (code (:standard-properties [272 nil nil nil 300 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13] :value "org-export-headline-levels")))) (table-row (:standard-properties [303 303 304 355 356 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [304 nil 305 323 325 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10]) (code (:standard-properties [305 nil nil nil 323 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13] :value ":preserve-breaks"))) (table-cell (:standard-properties [325 nil 325 353 355 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10]) (code (:standard-properties [325 nil nil nil 353 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14] :value "org-export-preserve-breaks")))) (table-row (:standard-properties [356 356 357 413 414 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [357 nil 358 376 378 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11]) (code (:standard-properties [358 nil nil nil 376 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14] :value ":section-numbers"))) (table-cell (:standard-properties [378 nil 378 411 413 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11]) (code (:standard-properties [378 nil nil nil 411 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15] :value "org-export-with-section-numbers")))) (table-row (:standard-properties [414 414 415 465 466 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [415 nil 416 434 436 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12]) (code (:standard-properties [416 nil nil nil 434 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15] :value ":time-stamp-file"))) (table-cell (:standard-properties [436 nil 436 463 465 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12]) (code (:standard-properties [436 nil nil nil 463 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16] :value "org-export-timestamp-file")))) (table-row (:standard-properties [466 466 467 526 527 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [467 nil 468 490 492 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13]) (code (:standard-properties [468 nil nil nil 490 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16] :value ":with-archived-trees"))) (table-cell (:standard-properties [492 nil 492 524 526 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13]) (code (:standard-properties [492 nil nil nil 524 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17] :value "org-export-with-archived-trees")))) (table-row (:standard-properties [527 527 528 571 572 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [528 nil 529 543 545 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14]) (code (:standard-properties [529 nil nil nil 543 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17] :value ":with-author"))) (table-cell (:standard-properties [545 nil 545 569 571 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14]) (code (:standard-properties [545 nil nil nil 569 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18] :value "org-export-with-author")))) (table-row (:standard-properties [572 572 573 618 619 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [573 nil 574 589 591 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15]) (code (:standard-properties [574 nil nil nil 589 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18] :value ":expand-links"))) (table-cell (:standard-properties [591 nil 591 616 618 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15]) (code (:standard-properties [591 nil nil nil 616 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19] :value "org-export-expand-links")))) (table-row (:standard-properties [619 619 620 675 676 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [620 nil 621 641 643 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16]) (code (:standard-properties [621 nil nil nil 641 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19] :value ":with-broken-links"))) (table-cell (:standard-properties [643 nil 643 673 675 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16]) (code (:standard-properties [643 nil nil nil 673 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20] :value "org-export-with-broken-links")))) (table-row (:standard-properties [676 676 677 720 721 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [677 nil 678 692 694 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17]) (code (:standard-properties [678 nil nil nil 692 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20] :value ":with-clocks"))) (table-cell (:standard-properties [694 nil 694 718 720 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17]) (code (:standard-properties [694 nil nil nil 718 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21] :value "org-export-with-clocks")))) (table-row (:standard-properties [721 721 722 767 768 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [722 nil 723 738 740 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18]) (code (:standard-properties [723 nil nil nil 738 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21] :value ":with-creator"))) (table-cell (:standard-properties [740 nil 740 765 767 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18]) (code (:standard-properties [740 nil nil nil 765 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22] :value "org-export-with-creator")))) (table-row (:standard-properties [768 768 769 808 809 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [769 nil 770 782 784 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19]) (code (:standard-properties [770 nil nil nil 782 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22] :value ":with-date"))) (table-cell (:standard-properties [784 nil 784 806 808 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19]) (code (:standard-properties [784 nil nil nil 806 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23] :value "org-export-with-date")))) (table-row (:standard-properties [809 809 810 855 856 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [810 nil 811 826 828 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20]) (code (:standard-properties [811 nil nil nil 826 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23] :value ":with-drawers"))) (table-cell (:standard-properties [828 nil 828 853 855 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20]) (code (:standard-properties [828 nil nil nil 853 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24] :value "org-export-with-drawers")))) (table-row (:standard-properties [856 856 857 898 899 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [857 nil 858 871 873 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21]) (code (:standard-properties [858 nil nil nil 871 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24] :value ":with-email"))) (table-cell (:standard-properties [873 nil 873 896 898 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21]) (code (:standard-properties [873 nil nil nil 896 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25] :value "org-export-with-email")))) (table-row (:standard-properties [899 899 900 949 950 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [900 nil 901 918 920 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22]) (code (:standard-properties [901 nil nil nil 918 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25] :value ":with-emphasize"))) (table-cell (:standard-properties [920 nil 920 947 949 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22]) (code (:standard-properties [920 nil nil nil 947 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26] :value "org-export-with-emphasize")))) (table-row (:standard-properties [950 950 951 998 999 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [951 nil 952 968 970 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23]) (code (:standard-properties [952 nil nil nil 968 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26] :value ":with-entities"))) (table-cell (:standard-properties [970 nil 970 996 998 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23]) (code (:standard-properties [970 nil nil nil 996 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27] :value "org-export-with-entities")))) (table-row (:standard-properties [999 999 1000 1053 1054 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1000 nil 1001 1020 1022 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24]) (code (:standard-properties [1001 nil nil nil 1020 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27] :value ":with-fixed-width"))) (table-cell (:standard-properties [1022 nil 1022 1051 1053 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24]) (code (:standard-properties [1022 nil nil nil 1051 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28] :value "org-export-with-fixed-width")))) (table-row (:standard-properties [1054 1054 1055 1104 1105 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1055 nil 1056 1073 1075 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25]) (code (:standard-properties [1056 nil nil nil 1073 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28] :value ":with-footnotes"))) (table-cell (:standard-properties [1075 nil 1075 1102 1104 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25]) (code (:standard-properties [1075 nil nil nil 1102 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29] :value "org-export-with-footnotes")))) (table-row (:standard-properties [1105 1105 1106 1159 1160 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1106 nil 1107 1126 1128 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26]) (code (:standard-properties [1107 nil nil nil 1126 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29] :value ":with-inlinetasks"))) (table-cell (:standard-properties [1128 nil 1128 1157 1159 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26]) (code (:standard-properties [1128 nil nil nil 1157 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30] :value "org-export-with-inlinetasks")))) (table-row (:standard-properties [1160 1160 1161 1202 1203 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1161 nil 1162 1175 1177 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27]) (code (:standard-properties [1162 nil nil nil 1175 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30] :value ":with-latex"))) (table-cell (:standard-properties [1177 nil 1177 1200 1202 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27]) (code (:standard-properties [1177 nil nil nil 1200 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31] :value "org-export-with-latex")))) (table-row (:standard-properties [1203 1203 1204 1251 1252 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1204 nil 1205 1221 1223 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28]) (code (:standard-properties [1205 nil nil nil 1221 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31] :value ":with-planning"))) (table-cell (:standard-properties [1223 nil 1223 1249 1251 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28]) (code (:standard-properties [1223 nil nil nil 1249 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32] :value "org-export-with-planning")))) (table-row (:standard-properties [1252 1252 1253 1300 1301 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1253 nil 1254 1270 1272 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29]) (code (:standard-properties [1254 nil nil nil 1270 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32] :value ":with-priority"))) (table-cell (:standard-properties [1272 nil 1272 1298 1300 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29]) (code (:standard-properties [1272 nil nil nil 1298 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33] :value "org-export-with-priority")))) (table-row (:standard-properties [1301 1301 1302 1353 1354 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1302 nil 1303 1321 1323 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30]) (code (:standard-properties [1303 nil nil nil 1321 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33] :value ":with-properties"))) (table-cell (:standard-properties [1323 nil 1323 1351 1353 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30]) (code (:standard-properties [1323 nil nil nil 1351 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34] :value "org-export-with-properties")))) (table-row (:standard-properties [1354 1354 1355 1410 1411 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1355 nil 1356 1376 1378 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31]) (code (:standard-properties [1356 nil nil nil 1376 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34] :value ":with-smart-quotes"))) (table-cell (:standard-properties [1378 nil 1378 1408 1410 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31]) (code (:standard-properties [1378 nil nil nil 1408 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35] :value "org-export-with-smart-quotes")))) (table-row (:standard-properties [1411 1411 1412 1473 1474 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1412 nil 1413 1436 1438 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32]) (code (:standard-properties [1413 nil nil nil 1436 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35] :value ":with-special-strings"))) (table-cell (:standard-properties [1438 nil 1438 1471 1473 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32]) (code (:standard-properties [1438 nil nil nil 1471 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36] :value "org-export-with-special-strings")))) (table-row (:standard-properties [1474 1474 1475 1542 1543 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1475 nil 1476 1502 1504 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33]) (code (:standard-properties [1476 nil nil nil 1502 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36] :value ":with-statistics-cookies"))) (table-cell (:standard-properties [1504 nil 1504 1540 1542 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33]) (code (:standard-properties [1504 nil nil nil 1540 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37] :value "org-export-with-statistics-cookies")))) (table-row (:standard-properties [1543 1543 1544 1606 1607 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1544 nil 1545 1568 1570 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34]) (code (:standard-properties [1545 nil nil nil 1568 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37] :value ":with-sub-superscript"))) (table-cell (:standard-properties [1570 nil 1570 1604 1606 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34]) (code (:standard-properties [1570 nil nil nil 1604 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38] :value "org-export-with-sub-superscripts")))) (table-row (:standard-properties [1607 1607 1608 1645 1646 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1608 nil 1609 1620 1622 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35]) (code (:standard-properties [1609 nil nil nil 1620 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38] :value ":with-toc"))) (table-cell (:standard-properties [1622 nil 1622 1643 1645 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35]) (code (:standard-properties [1622 nil nil nil 1643 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39] :value "org-export-with-toc")))) (table-row (:standard-properties [1646 1646 1647 1690 1691 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1647 nil 1648 1662 1664 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36]) (code (:standard-properties [1648 nil nil nil 1662 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39] :value ":with-tables"))) (table-cell (:standard-properties [1664 nil 1664 1688 1690 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36]) (code (:standard-properties [1664 nil nil nil 1688 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40] :value "org-export-with-tables")))) (table-row (:standard-properties [1691 1691 1692 1731 1732 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1692 nil 1693 1705 1707 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37]) (code (:standard-properties [1693 nil nil nil 1705 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40] :value ":with-tags"))) (table-cell (:standard-properties [1707 nil 1707 1729 1731 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37]) (code (:standard-properties [1707 nil nil nil 1729 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41] :value "org-export-with-tags")))) (table-row (:standard-properties [1732 1732 1733 1774 1775 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1733 nil 1734 1747 1749 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38]) (code (:standard-properties [1734 nil nil nil 1747 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41] :value ":with-tasks"))) (table-cell (:standard-properties [1749 nil 1749 1772 1774 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38]) (code (:standard-properties [1749 nil nil nil 1772 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42] :value "org-export-with-tasks")))) (table-row (:standard-properties [1775 1775 1776 1827 1828 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1776 nil 1777 1795 1797 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39]) (code (:standard-properties [1777 nil nil nil 1795 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42] :value ":with-timestamps"))) (table-cell (:standard-properties [1797 nil 1797 1825 1827 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39]) (code (:standard-properties [1797 nil nil nil 1825 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43] :value "org-export-with-timestamps")))) (table-row (:standard-properties [1828 1828 1829 1870 1871 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1829 nil 1830 1843 1845 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40]) (code (:standard-properties [1830 nil nil nil 1843 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43] :value ":with-title"))) (table-cell (:standard-properties [1845 nil 1845 1868 1870 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40]) (code (:standard-properties [1845 nil nil nil 1868 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #44] :value "org-export-with-title")))) (table-row (:standard-properties [1871 1871 1872 1929 1930 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1872 nil 1873 1894 1896 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41]) (code (:standard-properties [1873 nil nil nil 1894 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #44] :value ":with-todo-keywords"))) (table-cell (:standard-properties [1896 nil 1896 1927 1929 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41]) (code (:standard-properties [1896 nil nil nil 1927 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #45] :value "org-export-with-todo-keywords")))) (table-row (:standard-properties [1930 1930 1931 1989 1990 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1931 nil 1932 1955 1957 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42]) (code (:standard-properties [1932 nil nil nil 1955 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #45] :value ":with-cite-processors"))) (table-cell (:standard-properties [1957 nil 1957 1987 1989 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42]) (code (:standard-properties [1957 nil nil nil 1987 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #46] :value "org-export-process-citations")))) (table-row (:standard-properties [1990 1990 1991 2038 2039 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1991 nil 1992 2006 2008 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43]) (code (:standard-properties [1992 nil nil nil 2006 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #46] :value ":cite-export"))) (table-cell (:standard-properties [2008 nil 2008 2036 2038 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43]) (code (:standard-properties [2008 nil nil nil 2036 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #47] :value "org-cite-export-processors"))))) "| ~:author~ | ~user-full-name~ |\n| ~:email~ | ~user-mail-address~ |\n| ~:language~ | ~org-export-default-language~ |\n| ~:select-tags~ | ~org-export-select-tags~ |\n| ~:exclude-tags~ | ~org-export-exclude-tags~ |\n| ~:creator~ | ~org-export-creator-string~ |\n| ~:headline-levels~ | ~org-export-headline-levels~ |\n| ~:preserve-breaks~ | ~org-export-preserve-breaks~ |\n| ~:section-numbers~ | ~org-export-with-section-numbers~ |\n| ~:time-stamp-file~ | ~org-export-timestamp-file~ |\n| ~:with-archived-trees~ | ~org-export-with-archived-trees~ |\n| ~:with-author~ | ~org-export-with-author~ |\n| ~:expand-links~ | ~org-export-expand-links~ |\n| ~:with-broken-links~ | ~org-export-with-broken-links~ |\n| ~:with-clocks~ | ~org-export-with-clocks~ |\n| ~:with-creator~ | ~org-export-with-creator~ |\n| ~:with-date~ | ~org-export-with-date~ |\n| ~:with-drawers~ | ~org-export-with-drawers~ |\n| ~:with-email~ | ~org-export-with-email~ |\n| ~:with-emphasize~ | ~org-export-with-emphasize~ |\n| ~:with-entities~ | ~org-export-with-entities~ |\n| ~:with-fixed-width~ | ~org-export-with-fixed-width~ |\n| ~:with-footnotes~ | ~org-export-with-footnotes~ |\n| ~:with-inlinetasks~ | ~org-export-with-inlinetasks~ |\n| ~:with-latex~ | ~org-export-with-latex~ |\n| ~:with-planning~ | ~org-export-with-planning~ |\n| ~:with-priority~ | ~org-export-with-priority~ |\n| ~:with-properties~ | ~org-export-with-properties~ |\n| ~:with-smart-quotes~ | ~org-export-with-smart-quotes~ |\n| ~:with-special-strings~ | ~org-export-with-special-strings~ |\n| ~:with-statistics-cookies~ | ~org-export-with-statistics-cookies~ |\n| ~:with-sub-superscript~ | ~org-export-with-sub-superscripts~ |\n| ~:with-toc~ | ~org-export-with-toc~ |\n| ~:with-tables~ | ~org-export-with-tables~ |\n| ~:with-tags~ | ~org-export-with-tags~ |\n| ~:with-tasks~ | ~org-export-with-tasks~ |\n| ~:with-timestamps~ | ~org-export-with-timestamps~ |\n| ~:with-title~ | ~org-export-with-title~ |\n| ~:with-todo-keywords~ | ~org-export-with-todo-keywords~ |\n| ~:with-cite-processors~ | ~org-export-process-citations~ |\n| ~:cite-export~ | ~org-cite-export-processors~ |\n" (:with-special-rows t :with-cite-processors nil :title nil :date nil :author (#("Po Lu" 0 5 (:parent #10))) :email "staff@trinity" :language "en" :select-tags ("export") :exclude-tags ("noexport") :creator "Emacs 30.0.50 (Org mode 9.7.3)" :headline-levels 3 :preserve-breaks nil :section-numbers t :time-stamp-file t :with-archived-trees headline :with-author t :expand-links t :with-broken-links nil :with-clocks nil :with-creator nil :with-date t :with-drawers (not "LOGBOOK") :with-email nil :with-emphasize t :with-entities t :with-fixed-width t :with-footnotes t :with-inlinetasks t :with-latex t :with-planning nil :with-priority nil :with-properties nil :with-smart-quotes nil :with-special-strings t :with-statistics-cookies t :with-sub-superscript t :with-toc t :with-tables t :with-tags t :with-tasks t :with-timestamps t :with-title t :with-todo-keywords t :cite-export ((t basic)) :backend org :back-end #s(org-export-backend :name org :parent nil :transcoders ((babel-call . org-org-identity) (bold . org-org-identity) (center-block . org-org-identity) (clock . org-org-identity) (code . org-org-identity) (diary-sexp . org-org-identity) (drawer . org-org-identity) (dynamic-block . org-org-identity) (entity . org-org-identity) (example-block . org-org-identity) (export-block . org-org-export-block) (fixed-width . org-org-identity) (footnote-definition . ignore) (footnote-reference . org-org-identity) (headline . org-org-headline) (horizontal-rule . org-org-identity) (inline-babel-call . org-org-identity) (inline-src-block . org-org-identity) (inlinetask . org-org-identity) (italic . org-org-identity) (citation . org-org-identity) (citation-reference . org-org-identity) (item . org-org-identity) (keyword . org-org-keyword) (latex-environment . org-org-identity) (latex-fragment . org-org-identity) (line-break . org-org-identity) (link . org-org-link) (node-property . org-org-identity) (template . org-org-template) (paragraph . org-org-identity) (plain-list . org-org-identity) (planning . org-org-identity) (property-drawer . org-org-identity) (quote-block . org-org-identity) (radio-target . org-org-identity) (section . org-org-section) (special-block . org-org-identity) (src-block . org-org-identity) (statistics-cookie . org-org-identity) (strike-through . org-org-identity) (subscript . org-org-identity) (superscript . org-org-identity) (table . org-org-identity) (table-cell . org-org-identity) (table-row . org-org-identity) (target . org-org-identity) (timestamp . org-org-timestamp) (underline . org-org-identity) (verbatim . org-org-identity) (verse-block . org-org-identity)) :options ((:with-special-rows nil nil org-org-with-special-rows) (:with-cite-processors nil nil org-org-with-cite-processors)) :filters ((:filter-parse-tree . org-org--add-missing-sections)) :blocks nil :menu (79 "Export to Org" ((79 "As Org buffer" org-org-export-as-org) (111 "As Org file" org-org-export-to-org) (118 "As Org file and open" (lambda (a s v b) (if a (org-org-export-to-org t s v b) (org-open-file (org-org-export-to-org nil s v b)))))))) :filter-parse-tree (org-org--add-missing-sections) :ignore-list nil :translate-alist ((babel-call . org-org-identity) (bold . org-org-identity) (center-block . org-org-identity) (clock . org-org-identity) (code . org-org-identity) (diary-sexp . org-org-identity) (drawer . org-org-identity) (dynamic-block . org-org-identity) (entity . org-org-identity) (example-block . org-org-identity) (export-block . org-org-export-block) (fixed-width . org-org-identity) (footnote-definition . ignore) (footnote-reference . org-org-identity) (headline . org-org-headline) (horizontal-rule . org-org-identity) (inline-babel-call . org-org-identity) (inline-src-block . org-org-identity) (inlinetask . org-org-identity) (italic . org-org-identity) (citation . org-org-identity) (citation-reference . org-org-identity) (item . org-org-identity) (keyword . org-org-keyword) (latex-environment . org-org-identity) (latex-fragment . org-org-identity) (line-break . org-org-identity) (link . org-org-link) (node-property . org-org-identity) (template . org-org-template) (paragraph . org-org-identity) (plain-list . org-org-identity) (planning . org-org-identity) (property-drawer . org-org-identity) (quote-block . org-org-identity) (radio-target . org-org-identity) (section . org-org-section) (special-block . org-org-identity) (src-block . org-org-identity) (statistics-cookie . org-org-identity) (strike-through . org-org-identity) (subscript . org-org-identity) (superscript . org-org-identity) (table . org-org-identity) (table-cell . org-org-identity) (table-row . org-org-identity) (target . org-org-identity) (timestamp . org-org-timestamp) (underline . org-org-identity) (verbatim . org-org-identity) (verse-block . org-org-identity)) :exported-data #<hash-table eq 0/401 0x1659ef9 ...> :internal-references nil)) (if (eq type 'plain-text) (funcall transcoder data new-info) (funcall transcoder data contents new-info)) (prog1 (if (eq type 'plain-text) (funcall transcoder data new-info) (funcall transcoder data contents new-info)) (plist-put info :internal-references (plist-get new-info :internal-references))) (let ((new-info (org-combine-plists info (list :back-end backend :translate-alist all-transcoders :exported-data (make-hash-table :test #'eq :size 401))))) (prog1 (if (eq type 'plain-text) (funcall transcoder data new-info) (funcall transcoder data contents new-info)) (plist-put info :internal-references (plist-get new-info :internal-references)))) (let* ((all-transcoders (org-export-get-all-transcoders backend)) (transcoder (cdr (assq type all-transcoders)))) (if (functionp transcoder) nil (error "No foreign transcoder available")) (let ((new-info (org-combine-plists info (list :back-end backend :translate-alist all-transcoders :exported-data (make-hash-table :test #'eq :size 401))))) (prog1 (if (eq type 'plain-text) (funcall transcoder data new-info) (funcall transcoder data contents new-info)) (plist-put info :internal-references (plist-get new-info :internal-references))))) (let ((type (org-element-type data))) (if (memq type '(nil org-data raw)) (progn (error "No foreign transcoder available"))) (let* ((all-transcoders (org-export-get-all-transcoders backend)) (transcoder (cdr (assq type all-transcoders)))) (if (functionp transcoder) nil (error "No foreign transcoder available")) (let ((new-info (org-combine-plists info (list :back-end backend :translate-alist all-transcoders :exported-data (make-hash-table :test #'eq :size 401))))) (prog1 (if (eq type 'plain-text) (funcall transcoder data new-info) (funcall transcoder data contents new-info)) (plist-put info :internal-references (plist-get new-info :internal-references)))))) org-export-with-backend(org (table (:standard-properties [1 1 1 2039 2039 0 nil top-comment nil nil nil nil nil nil #<killed buffer> nil nil (section (:standard-properties [1 1 1 2039 2039 0 nil first-section nil nil nil 1 2039 nil #<killed buffer> nil nil (org-data (:standard-properties [1 1 1 2039 2039 0 nil org-data nil nil nil 3 2039 nil #<killed buffer> nil nil nil] :path nil :CATEGORY nil) #5)]) #0)] :type org :tblfm nil :value nil) (table-row (:standard-properties [1 1 2 32 33 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [2 nil 3 12 14 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #3]) (code (:standard-properties [3 nil nil nil 12 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #6] :value ":author"))) (table-cell (:standard-properties [14 nil 14 30 32 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #3]) (code (:standard-properties [14 nil nil nil 30 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7] :value "user-full-name")))) (table-row (:standard-properties [33 33 34 66 67 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [34 nil 35 43 45 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #4]) (code (:standard-properties [35 nil nil nil 43 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7] :value ":email"))) (table-cell (:standard-properties [45 nil 45 64 66 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #4]) (code (:standard-properties [45 nil nil nil 64 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8] :value "user-mail-address")))) (table-row (:standard-properties [67 67 68 113 114 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [68 nil 69 80 82 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #5]) (code (:standard-properties [69 nil nil nil 80 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8] :value ":language"))) (table-cell (:standard-properties [82 nil 82 111 113 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #5]) (code (:standard-properties [82 nil nil nil 111 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9] :value "org-export-default-language")))) (table-row (:standard-properties [114 114 115 158 159 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [115 nil 116 130 132 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #6]) (code (:standard-properties [116 nil nil nil 130 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9] :value ":select-tags"))) (table-cell (:standard-properties [132 nil 132 156 158 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #6]) (code (:standard-properties [132 nil nil nil 156 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10] :value "org-export-select-tags")))) (table-row (:standard-properties [159 159 160 205 206 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [160 nil 161 176 178 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7]) (code (:standard-properties [161 nil nil nil 176 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10] :value ":exclude-tags"))) (table-cell (:standard-properties [178 nil 178 203 205 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7]) (code (:standard-properties [178 nil nil nil 203 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11] :value "org-export-exclude-tags")))) (table-row (:standard-properties [206 206 207 249 250 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [207 nil 208 218 220 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8]) (code (:standard-properties [208 nil nil nil 218 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11] :value ":creator"))) (table-cell (:standard-properties [220 nil 220 247 249 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8]) (code (:standard-properties [220 nil nil nil 247 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12] :value "org-export-creator-string")))) (table-row (:standard-properties [250 250 251 302 303 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [251 nil 252 270 272 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9]) (code (:standard-properties [252 nil nil nil 270 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12] :value ":headline-levels"))) (table-cell (:standard-properties [272 nil 272 300 302 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9]) (code (:standard-properties [272 nil nil nil 300 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13] :value "org-export-headline-levels")))) (table-row (:standard-properties [303 303 304 355 356 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [304 nil 305 323 325 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10]) (code (:standard-properties [305 nil nil nil 323 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13] :value ":preserve-breaks"))) (table-cell (:standard-properties [325 nil 325 353 355 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10]) (code (:standard-properties [325 nil nil nil 353 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14] :value "org-export-preserve-breaks")))) (table-row (:standard-properties [356 356 357 413 414 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [357 nil 358 376 378 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11]) (code (:standard-properties [358 nil nil nil 376 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14] :value ":section-numbers"))) (table-cell (:standard-properties [378 nil 378 411 413 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11]) (code (:standard-properties [378 nil nil nil 411 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15] :value "org-export-with-section-numbers")))) (table-row (:standard-properties [414 414 415 465 466 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [415 nil 416 434 436 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12]) (code (:standard-properties [416 nil nil nil 434 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15] :value ":time-stamp-file"))) (table-cell (:standard-properties [436 nil 436 463 465 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12]) (code (:standard-properties [436 nil nil nil 463 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16] :value "org-export-timestamp-file")))) (table-row (:standard-properties [466 466 467 526 527 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [467 nil 468 490 492 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13]) (code (:standard-properties [468 nil nil nil 490 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16] :value ":with-archived-trees"))) (table-cell (:standard-properties [492 nil 492 524 526 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13]) (code (:standard-properties [492 nil nil nil 524 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17] :value "org-export-with-archived-trees")))) (table-row (:standard-properties [527 527 528 571 572 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [528 nil 529 543 545 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14]) (code (:standard-properties [529 nil nil nil 543 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17] :value ":with-author"))) (table-cell (:standard-properties [545 nil 545 569 571 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14]) (code (:standard-properties [545 nil nil nil 569 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18] :value "org-export-with-author")))) (table-row (:standard-properties [572 572 573 618 619 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [573 nil 574 589 591 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15]) (code (:standard-properties [574 nil nil nil 589 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18] :value ":expand-links"))) (table-cell (:standard-properties [591 nil 591 616 618 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15]) (code (:standard-properties [591 nil nil nil 616 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19] :value "org-export-expand-links")))) (table-row (:standard-properties [619 619 620 675 676 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [620 nil 621 641 643 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16]) (code (:standard-properties [621 nil nil nil 641 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19] :value ":with-broken-links"))) (table-cell (:standard-properties [643 nil 643 673 675 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16]) (code (:standard-properties [643 nil nil nil 673 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20] :value "org-export-with-broken-links")))) (table-row (:standard-properties [676 676 677 720 721 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [677 nil 678 692 694 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17]) (code (:standard-properties [678 nil nil nil 692 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20] :value ":with-clocks"))) (table-cell (:standard-properties [694 nil 694 718 720 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17]) (code (:standard-properties [694 nil nil nil 718 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21] :value "org-export-with-clocks")))) (table-row (:standard-properties [721 721 722 767 768 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [722 nil 723 738 740 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18]) (code (:standard-properties [723 nil nil nil 738 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21] :value ":with-creator"))) (table-cell (:standard-properties [740 nil 740 765 767 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18]) (code (:standard-properties [740 nil nil nil 765 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22] :value "org-export-with-creator")))) (table-row (:standard-properties [768 768 769 808 809 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [769 nil 770 782 784 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19]) (code (:standard-properties [770 nil nil nil 782 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22] :value ":with-date"))) (table-cell (:standard-properties [784 nil 784 806 808 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19]) (code (:standard-properties [784 nil nil nil 806 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23] :value "org-export-with-date")))) (table-row (:standard-properties [809 809 810 855 856 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [810 nil 811 826 828 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20]) (code (:standard-properties [811 nil nil nil 826 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23] :value ":with-drawers"))) (table-cell (:standard-properties [828 nil 828 853 855 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20]) (code (:standard-properties [828 nil nil nil 853 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24] :value "org-export-with-drawers")))) (table-row (:standard-properties [856 856 857 898 899 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [857 nil 858 871 873 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21]) (code (:standard-properties [858 nil nil nil 871 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24] :value ":with-email"))) (table-cell (:standard-properties [873 nil 873 896 898 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21]) (code (:standard-properties [873 nil nil nil 896 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25] :value "org-export-with-email")))) (table-row (:standard-properties [899 899 900 949 950 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [900 nil 901 918 920 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22]) (code (:standard-properties [901 nil nil nil 918 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25] :value ":with-emphasize"))) (table-cell (:standard-properties [920 nil 920 947 949 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22]) (code (:standard-properties [920 nil nil nil 947 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26] :value "org-export-with-emphasize")))) (table-row (:standard-properties [950 950 951 998 999 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [951 nil 952 968 970 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23]) (code (:standard-properties [952 nil nil nil 968 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26] :value ":with-entities"))) (table-cell (:standard-properties [970 nil 970 996 998 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23]) (code (:standard-properties [970 nil nil nil 996 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27] :value "org-export-with-entities")))) (table-row (:standard-properties [999 999 1000 1053 1054 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1000 nil 1001 1020 1022 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24]) (code (:standard-properties [1001 nil nil nil 1020 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27] :value ":with-fixed-width"))) (table-cell (:standard-properties [1022 nil 1022 1051 1053 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24]) (code (:standard-properties [1022 nil nil nil 1051 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28] :value "org-export-with-fixed-width")))) (table-row (:standard-properties [1054 1054 1055 1104 1105 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1055 nil 1056 1073 1075 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25]) (code (:standard-properties [1056 nil nil nil 1073 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28] :value ":with-footnotes"))) (table-cell (:standard-properties [1075 nil 1075 1102 1104 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25]) (code (:standard-properties [1075 nil nil nil 1102 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29] :value "org-export-with-footnotes")))) (table-row (:standard-properties [1105 1105 1106 1159 1160 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1106 nil 1107 1126 1128 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26]) (code (:standard-properties [1107 nil nil nil 1126 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29] :value ":with-inlinetasks"))) (table-cell (:standard-properties [1128 nil 1128 1157 1159 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26]) (code (:standard-properties [1128 nil nil nil 1157 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30] :value "org-export-with-inlinetasks")))) (table-row (:standard-properties [1160 1160 1161 1202 1203 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1161 nil 1162 1175 1177 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27]) (code (:standard-properties [1162 nil nil nil 1175 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30] :value ":with-latex"))) (table-cell (:standard-properties [1177 nil 1177 1200 1202 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27]) (code (:standard-properties [1177 nil nil nil 1200 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31] :value "org-export-with-latex")))) (table-row (:standard-properties [1203 1203 1204 1251 1252 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1204 nil 1205 1221 1223 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28]) (code (:standard-properties [1205 nil nil nil 1221 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31] :value ":with-planning"))) (table-cell (:standard-properties [1223 nil 1223 1249 1251 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28]) (code (:standard-properties [1223 nil nil nil 1249 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32] :value "org-export-with-planning")))) (table-row (:standard-properties [1252 1252 1253 1300 1301 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1253 nil 1254 1270 1272 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29]) (code (:standard-properties [1254 nil nil nil 1270 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32] :value ":with-priority"))) (table-cell (:standard-properties [1272 nil 1272 1298 1300 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29]) (code (:standard-properties [1272 nil nil nil 1298 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33] :value "org-export-with-priority")))) (table-row (:standard-properties [1301 1301 1302 1353 1354 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1302 nil 1303 1321 1323 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30]) (code (:standard-properties [1303 nil nil nil 1321 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33] :value ":with-properties"))) (table-cell (:standard-properties [1323 nil 1323 1351 1353 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30]) (code (:standard-properties [1323 nil nil nil 1351 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34] :value "org-export-with-properties")))) (table-row (:standard-properties [1354 1354 1355 1410 1411 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1355 nil 1356 1376 1378 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31]) (code (:standard-properties [1356 nil nil nil 1376 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34] :value ":with-smart-quotes"))) (table-cell (:standard-properties [1378 nil 1378 1408 1410 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31]) (code (:standard-properties [1378 nil nil nil 1408 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35] :value "org-export-with-smart-quotes")))) (table-row (:standard-properties [1411 1411 1412 1473 1474 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1412 nil 1413 1436 1438 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32]) (code (:standard-properties [1413 nil nil nil 1436 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35] :value ":with-special-strings"))) (table-cell (:standard-properties [1438 nil 1438 1471 1473 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32]) (code (:standard-properties [1438 nil nil nil 1471 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36] :value "org-export-with-special-strings")))) (table-row (:standard-properties [1474 1474 1475 1542 1543 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1475 nil 1476 1502 1504 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33]) (code (:standard-properties [1476 nil nil nil 1502 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36] :value ":with-statistics-cookies"))) (table-cell (:standard-properties [1504 nil 1504 1540 1542 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33]) (code (:standard-properties [1504 nil nil nil 1540 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37] :value "org-export-with-statistics-cookies")))) (table-row (:standard-properties [1543 1543 1544 1606 1607 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1544 nil 1545 1568 1570 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34]) (code (:standard-properties [1545 nil nil nil 1568 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37] :value ":with-sub-superscript"))) (table-cell (:standard-properties [1570 nil 1570 1604 1606 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34]) (code (:standard-properties [1570 nil nil nil 1604 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38] :value "org-export-with-sub-superscripts")))) (table-row (:standard-properties [1607 1607 1608 1645 1646 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1608 nil 1609 1620 1622 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35]) (code (:standard-properties [1609 nil nil nil 1620 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38] :value ":with-toc"))) (table-cell (:standard-properties [1622 nil 1622 1643 1645 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35]) (code (:standard-properties [1622 nil nil nil 1643 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39] :value "org-export-with-toc")))) (table-row (:standard-properties [1646 1646 1647 1690 1691 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1647 nil 1648 1662 1664 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36]) (code (:standard-properties [1648 nil nil nil 1662 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39] :value ":with-tables"))) (table-cell (:standard-properties [1664 nil 1664 1688 1690 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36]) (code (:standard-properties [1664 nil nil nil 1688 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40] :value "org-export-with-tables")))) (table-row (:standard-properties [1691 1691 1692 1731 1732 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1692 nil 1693 1705 1707 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37]) (code (:standard-properties [1693 nil nil nil 1705 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40] :value ":with-tags"))) (table-cell (:standard-properties [1707 nil 1707 1729 1731 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37]) (code (:standard-properties [1707 nil nil nil 1729 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41] :value "org-export-with-tags")))) (table-row (:standard-properties [1732 1732 1733 1774 1775 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1733 nil 1734 1747 1749 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38]) (code (:standard-properties [1734 nil nil nil 1747 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41] :value ":with-tasks"))) (table-cell (:standard-properties [1749 nil 1749 1772 1774 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38]) (code (:standard-properties [1749 nil nil nil 1772 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42] :value "org-export-with-tasks")))) (table-row (:standard-properties [1775 1775 1776 1827 1828 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1776 nil 1777 1795 1797 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39]) (code (:standard-properties [1777 nil nil nil 1795 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42] :value ":with-timestamps"))) (table-cell (:standard-properties [1797 nil 1797 1825 1827 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39]) (code (:standard-properties [1797 nil nil nil 1825 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43] :value "org-export-with-timestamps")))) (table-row (:standard-properties [1828 1828 1829 1870 1871 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1829 nil 1830 1843 1845 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40]) (code (:standard-properties [1830 nil nil nil 1843 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43] :value ":with-title"))) (table-cell (:standard-properties [1845 nil 1845 1868 1870 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40]) (code (:standard-properties [1845 nil nil nil 1868 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #44] :value "org-export-with-title")))) (table-row (:standard-properties [1871 1871 1872 1929 1930 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1872 nil 1873 1894 1896 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41]) (code (:standard-properties [1873 nil nil nil 1894 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #44] :value ":with-todo-keywords"))) (table-cell (:standard-properties [1896 nil 1896 1927 1929 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41]) (code (:standard-properties [1896 nil nil nil 1927 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #45] :value "org-export-with-todo-keywords")))) (table-row (:standard-properties [1930 1930 1931 1989 1990 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1931 nil 1932 1955 1957 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42]) (code (:standard-properties [1932 nil nil nil 1955 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #45] :value ":with-cite-processors"))) (table-cell (:standard-properties [1957 nil 1957 1987 1989 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42]) (code (:standard-properties [1957 nil nil nil 1987 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #46] :value "org-export-process-citations")))) (table-row (:standard-properties [1990 1990 1991 2038 2039 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1991 nil 1992 2006 2008 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43]) (code (:standard-properties [1992 nil nil nil 2006 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #46] :value ":cite-export"))) (table-cell (:standard-properties [2008 nil 2008 2036 2038 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43]) (code (:standard-properties [2008 nil nil nil 2036 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #47] :value "org-cite-export-processors"))))) "| ~:author~ | ~user-full-name~ |\n| ~:email~ | ~user-mail-address~ |\n| ~:language~ | ~org-export-default-language~ |\n| ~:select-tags~ | ~org-export-select-tags~ |\n| ~:exclude-tags~ | ~org-export-exclude-tags~ |\n| ~:creator~ | ~org-export-creator-string~ |\n| ~:headline-levels~ | ~org-export-headline-levels~ |\n| ~:preserve-breaks~ | ~org-export-preserve-breaks~ |\n| ~:section-numbers~ | ~org-export-with-section-numbers~ |\n| ~:time-stamp-file~ | ~org-export-timestamp-file~ |\n| ~:with-archived-trees~ | ~org-export-with-archived-trees~ |\n| ~:with-author~ | ~org-export-with-author~ |\n| ~:expand-links~ | ~org-export-expand-links~ |\n| ~:with-broken-links~ | ~org-export-with-broken-links~ |\n| ~:with-clocks~ | ~org-export-with-clocks~ |\n| ~:with-creator~ | ~org-export-with-creator~ |\n| ~:with-date~ | ~org-export-with-date~ |\n| ~:with-drawers~ | ~org-export-with-drawers~ |\n| ~:with-email~ | ~org-export-with-email~ |\n| ~:with-emphasize~ | ~org-export-with-emphasize~ |\n| ~:with-entities~ | ~org-export-with-entities~ |\n| ~:with-fixed-width~ | ~org-export-with-fixed-width~ |\n| ~:with-footnotes~ | ~org-export-with-footnotes~ |\n| ~:with-inlinetasks~ | ~org-export-with-inlinetasks~ |\n| ~:with-latex~ | ~org-export-with-latex~ |\n| ~:with-planning~ | ~org-export-with-planning~ |\n| ~:with-priority~ | ~org-export-with-priority~ |\n| ~:with-properties~ | ~org-export-with-properties~ |\n| ~:with-smart-quotes~ | ~org-export-with-smart-quotes~ |\n| ~:with-special-strings~ | ~org-export-with-special-strings~ |\n| ~:with-statistics-cookies~ | ~org-export-with-statistics-cookies~ |\n| ~:with-sub-superscript~ | ~org-export-with-sub-superscripts~ |\n| ~:with-toc~ | ~org-export-with-toc~ |\n| ~:with-tables~ | ~org-export-with-tables~ |\n| ~:with-tags~ | ~org-export-with-tags~ |\n| ~:with-tasks~ | ~org-export-with-tasks~ |\n| ~:with-timestamps~ | ~org-export-with-timestamps~ |\n| ~:with-title~ | ~org-export-with-title~ |\n| ~:with-todo-keywords~ | ~org-export-with-todo-keywords~ |\n| ~:with-cite-processors~ | ~org-export-process-citations~ |\n| ~:cite-export~ | ~org-cite-export-processors~ |\n" (:with-special-rows t :with-cite-processors nil :title nil :date nil :author (#("Po Lu" 0 5 (:parent #10))) :email "staff@trinity" :language "en" :select-tags ("export") :exclude-tags ("noexport") :creator "Emacs 30.0.50 (Org mode 9.7.3)" :headline-levels 3 :preserve-breaks nil :section-numbers t :time-stamp-file t :with-archived-trees headline :with-author t :expand-links t :with-broken-links nil :with-clocks nil :with-creator nil :with-date t :with-drawers (not "LOGBOOK") :with-email nil :with-emphasize t :with-entities t :with-fixed-width t :with-footnotes t :with-inlinetasks t :with-latex t :with-planning nil :with-priority nil :with-properties nil :with-smart-quotes nil :with-special-strings t :with-statistics-cookies t :with-sub-superscript t :with-toc t :with-tables t :with-tags t :with-tasks t :with-timestamps t :with-title t :with-todo-keywords t :cite-export ((t basic)) :backend org :back-end #s(org-export-backend :name nil :parent org :transcoders ((table lambda (table contents info) (concat nil (org-export-with-backend 'org table contents info) nil)) (table-row lambda (row contents info) (if (eq (org-element-property :type row) 'rule) (org-export-with-backend 'org row nil info) (let ((headerp nil) (last-header-p nil) (lastp (not (org-export-get-next-element row info)))) (when contents (cond nil nil nil (t (concat (cond nil nil nil (t (org-export-with-backend 'org row contents info)))))))))) (table-cell lambda (cell contents info) nil (let ((headerp nil) (column nil)) (when contents nil (cond nil nil)) (org-export-with-backend 'org cell contents info))) (macro lambda (m c i) (org-element-macro-interpreter m nil))) :options nil :filters nil :blocks nil :menu nil) :filter-parse-tree (org-org--add-missing-sections) :ignore-list nil :translate-alist ((table lambda (table contents info) (concat nil (org-export-with-backend 'org table contents info) nil)) (table-row lambda (row contents info) (if (eq (org-element-property :type row) 'rule) (org-export-with-backend 'org row nil info) (let ((headerp nil) (last-header-p nil) (lastp (not (org-export-get-next-element row info)))) (when contents (cond nil nil nil (t (concat (cond nil nil nil (t (org-export-with-backend 'org row contents info)))))))))) (table-cell lambda (cell contents info) nil (let ((headerp nil) (column nil)) (when contents nil (cond nil nil)) (org-export-with-backend 'org cell contents info))) (macro lambda (m c i) (org-element-macro-interpreter m nil)) (babel-call . org-org-identity) (bold . org-org-identity) (center-block . org-org-identity) (clock . org-org-identity) (code . org-org-identity) (diary-sexp . org-org-identity) (drawer . org-org-identity) (dynamic-block . org-org-identity) (entity . org-org-identity) (example-block . org-org-identity) (export-block . org-org-export-block) (fixed-width . org-org-identity) (footnote-definition . ignore) (footnote-reference . org-org-identity) (headline . org-org-headline) (horizontal-rule . org-org-identity) (inline-babel-call . org-org-identity) (inline-src-block . org-org-identity) (inlinetask . org-org-identity) (italic . org-org-identity) (citation . org-org-identity) (citation-reference . org-org-identity) (item . org-org-identity) (keyword . org-org-keyword) (latex-environment . org-org-identity) (latex-fragment . org-org-identity) (line-break . org-org-identity) (link . org-org-link) (node-property . org-org-identity) (template . org-org-template) (paragraph . org-org-identity) (plain-list . org-org-identity) (planning . org-org-identity) (property-drawer . org-org-identity) (quote-block . org-org-identity) (radio-target . org-org-identity) (section . org-org-section) (special-block . org-org-identity) (src-block . org-org-identity) (statistics-cookie . org-org-identity) (strike-through . org-org-identity) (subscript . org-org-identity) (superscript . org-org-identity) (table . org-org-identity) (table-cell . org-org-identity) (table-row . org-org-identity) (target . org-org-identity) (timestamp . org-org-timestamp) (underline . org-org-identity) (verbatim . org-org-identity) (verse-block . org-org-identity)) :exported-data #<hash-table eq 205/401 0x98e84d ...> :internal-references nil)) (concat nil (org-export-with-backend 'org table contents info) nil) (lambda (table contents info) (concat nil (org-export-with-backend 'org table contents info) nil))((table (:standard-properties [1 1 1 2039 2039 0 nil top-comment nil nil nil nil nil nil #<killed buffer> nil nil (section (:standard-properties [1 1 1 2039 2039 0 nil first-section nil nil nil 1 2039 nil #<killed buffer> nil nil (org-data (:standard-properties [1 1 1 2039 2039 0 nil org-data nil nil nil 3 2039 nil #<killed buffer> nil nil nil] :path nil :CATEGORY nil) #5)]) #0)] :type org :tblfm nil :value nil) (table-row (:standard-properties [1 1 2 32 33 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [2 nil 3 12 14 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #3]) (code (:standard-properties [3 nil nil nil 12 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #6] :value ":author"))) (table-cell (:standard-properties [14 nil 14 30 32 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #3]) (code (:standard-properties [14 nil nil nil 30 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7] :value "user-full-name")))) (table-row (:standard-properties [33 33 34 66 67 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [34 nil 35 43 45 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #4]) (code (:standard-properties [35 nil nil nil 43 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7] :value ":email"))) (table-cell (:standard-properties [45 nil 45 64 66 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #4]) (code (:standard-properties [45 nil nil nil 64 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8] :value "user-mail-address")))) (table-row (:standard-properties [67 67 68 113 114 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [68 nil 69 80 82 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #5]) (code (:standard-properties [69 nil nil nil 80 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8] :value ":language"))) (table-cell (:standard-properties [82 nil 82 111 113 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #5]) (code (:standard-properties [82 nil nil nil 111 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9] :value "org-export-default-language")))) (table-row (:standard-properties [114 114 115 158 159 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [115 nil 116 130 132 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #6]) (code (:standard-properties [116 nil nil nil 130 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9] :value ":select-tags"))) (table-cell (:standard-properties [132 nil 132 156 158 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #6]) (code (:standard-properties [132 nil nil nil 156 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10] :value "org-export-select-tags")))) (table-row (:standard-properties [159 159 160 205 206 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [160 nil 161 176 178 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7]) (code (:standard-properties [161 nil nil nil 176 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10] :value ":exclude-tags"))) (table-cell (:standard-properties [178 nil 178 203 205 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7]) (code (:standard-properties [178 nil nil nil 203 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11] :value "org-export-exclude-tags")))) (table-row (:standard-properties [206 206 207 249 250 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [207 nil 208 218 220 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8]) (code (:standard-properties [208 nil nil nil 218 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11] :value ":creator"))) (table-cell (:standard-properties [220 nil 220 247 249 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8]) (code (:standard-properties [220 nil nil nil 247 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12] :value "org-export-creator-string")))) (table-row (:standard-properties [250 250 251 302 303 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [251 nil 252 270 272 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9]) (code (:standard-properties [252 nil nil nil 270 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12] :value ":headline-levels"))) (table-cell (:standard-properties [272 nil 272 300 302 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9]) (code (:standard-properties [272 nil nil nil 300 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13] :value "org-export-headline-levels")))) (table-row (:standard-properties [303 303 304 355 356 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [304 nil 305 323 325 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10]) (code (:standard-properties [305 nil nil nil 323 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13] :value ":preserve-breaks"))) (table-cell (:standard-properties [325 nil 325 353 355 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10]) (code (:standard-properties [325 nil nil nil 353 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14] :value "org-export-preserve-breaks")))) (table-row (:standard-properties [356 356 357 413 414 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [357 nil 358 376 378 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11]) (code (:standard-properties [358 nil nil nil 376 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14] :value ":section-numbers"))) (table-cell (:standard-properties [378 nil 378 411 413 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11]) (code (:standard-properties [378 nil nil nil 411 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15] :value "org-export-with-section-numbers")))) (table-row (:standard-properties [414 414 415 465 466 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [415 nil 416 434 436 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12]) (code (:standard-properties [416 nil nil nil 434 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15] :value ":time-stamp-file"))) (table-cell (:standard-properties [436 nil 436 463 465 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12]) (code (:standard-properties [436 nil nil nil 463 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16] :value "org-export-timestamp-file")))) (table-row (:standard-properties [466 466 467 526 527 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [467 nil 468 490 492 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13]) (code (:standard-properties [468 nil nil nil 490 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16] :value ":with-archived-trees"))) (table-cell (:standard-properties [492 nil 492 524 526 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13]) (code (:standard-properties [492 nil nil nil 524 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17] :value "org-export-with-archived-trees")))) (table-row (:standard-properties [527 527 528 571 572 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [528 nil 529 543 545 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14]) (code (:standard-properties [529 nil nil nil 543 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17] :value ":with-author"))) (table-cell (:standard-properties [545 nil 545 569 571 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14]) (code (:standard-properties [545 nil nil nil 569 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18] :value "org-export-with-author")))) (table-row (:standard-properties [572 572 573 618 619 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [573 nil 574 589 591 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15]) (code (:standard-properties [574 nil nil nil 589 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18] :value ":expand-links"))) (table-cell (:standard-properties [591 nil 591 616 618 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15]) (code (:standard-properties [591 nil nil nil 616 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19] :value "org-export-expand-links")))) (table-row (:standard-properties [619 619 620 675 676 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [620 nil 621 641 643 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16]) (code (:standard-properties [621 nil nil nil 641 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19] :value ":with-broken-links"))) (table-cell (:standard-properties [643 nil 643 673 675 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16]) (code (:standard-properties [643 nil nil nil 673 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20] :value "org-export-with-broken-links")))) (table-row (:standard-properties [676 676 677 720 721 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [677 nil 678 692 694 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17]) (code (:standard-properties [678 nil nil nil 692 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20] :value ":with-clocks"))) (table-cell (:standard-properties [694 nil 694 718 720 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17]) (code (:standard-properties [694 nil nil nil 718 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21] :value "org-export-with-clocks")))) (table-row (:standard-properties [721 721 722 767 768 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [722 nil 723 738 740 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18]) (code (:standard-properties [723 nil nil nil 738 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21] :value ":with-creator"))) (table-cell (:standard-properties [740 nil 740 765 767 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18]) (code (:standard-properties [740 nil nil nil 765 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22] :value "org-export-with-creator")))) (table-row (:standard-properties [768 768 769 808 809 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [769 nil 770 782 784 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19]) (code (:standard-properties [770 nil nil nil 782 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22] :value ":with-date"))) (table-cell (:standard-properties [784 nil 784 806 808 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19]) (code (:standard-properties [784 nil nil nil 806 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23] :value "org-export-with-date")))) (table-row (:standard-properties [809 809 810 855 856 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [810 nil 811 826 828 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20]) (code (:standard-properties [811 nil nil nil 826 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23] :value ":with-drawers"))) (table-cell (:standard-properties [828 nil 828 853 855 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20]) (code (:standard-properties [828 nil nil nil 853 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24] :value "org-export-with-drawers")))) (table-row (:standard-properties [856 856 857 898 899 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [857 nil 858 871 873 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21]) (code (:standard-properties [858 nil nil nil 871 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24] :value ":with-email"))) (table-cell (:standard-properties [873 nil 873 896 898 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21]) (code (:standard-properties [873 nil nil nil 896 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25] :value "org-export-with-email")))) (table-row (:standard-properties [899 899 900 949 950 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [900 nil 901 918 920 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22]) (code (:standard-properties [901 nil nil nil 918 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25] :value ":with-emphasize"))) (table-cell (:standard-properties [920 nil 920 947 949 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22]) (code (:standard-properties [920 nil nil nil 947 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26] :value "org-export-with-emphasize")))) (table-row (:standard-properties [950 950 951 998 999 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [951 nil 952 968 970 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23]) (code (:standard-properties [952 nil nil nil 968 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26] :value ":with-entities"))) (table-cell (:standard-properties [970 nil 970 996 998 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23]) (code (:standard-properties [970 nil nil nil 996 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27] :value "org-export-with-entities")))) (table-row (:standard-properties [999 999 1000 1053 1054 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1000 nil 1001 1020 1022 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24]) (code (:standard-properties [1001 nil nil nil 1020 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27] :value ":with-fixed-width"))) (table-cell (:standard-properties [1022 nil 1022 1051 1053 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24]) (code (:standard-properties [1022 nil nil nil 1051 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28] :value "org-export-with-fixed-width")))) (table-row (:standard-properties [1054 1054 1055 1104 1105 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1055 nil 1056 1073 1075 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25]) (code (:standard-properties [1056 nil nil nil 1073 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28] :value ":with-footnotes"))) (table-cell (:standard-properties [1075 nil 1075 1102 1104 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25]) (code (:standard-properties [1075 nil nil nil 1102 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29] :value "org-export-with-footnotes")))) (table-row (:standard-properties [1105 1105 1106 1159 1160 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1106 nil 1107 1126 1128 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26]) (code (:standard-properties [1107 nil nil nil 1126 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29] :value ":with-inlinetasks"))) (table-cell (:standard-properties [1128 nil 1128 1157 1159 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26]) (code (:standard-properties [1128 nil nil nil 1157 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30] :value "org-export-with-inlinetasks")))) (table-row (:standard-properties [1160 1160 1161 1202 1203 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1161 nil 1162 1175 1177 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27]) (code (:standard-properties [1162 nil nil nil 1175 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30] :value ":with-latex"))) (table-cell (:standard-properties [1177 nil 1177 1200 1202 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27]) (code (:standard-properties [1177 nil nil nil 1200 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31] :value "org-export-with-latex")))) (table-row (:standard-properties [1203 1203 1204 1251 1252 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1204 nil 1205 1221 1223 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28]) (code (:standard-properties [1205 nil nil nil 1221 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31] :value ":with-planning"))) (table-cell (:standard-properties [1223 nil 1223 1249 1251 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28]) (code (:standard-properties [1223 nil nil nil 1249 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32] :value "org-export-with-planning")))) (table-row (:standard-properties [1252 1252 1253 1300 1301 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1253 nil 1254 1270 1272 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29]) (code (:standard-properties [1254 nil nil nil 1270 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32] :value ":with-priority"))) (table-cell (:standard-properties [1272 nil 1272 1298 1300 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29]) (code (:standard-properties [1272 nil nil nil 1298 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33] :value "org-export-with-priority")))) (table-row (:standard-properties [1301 1301 1302 1353 1354 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1302 nil 1303 1321 1323 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30]) (code (:standard-properties [1303 nil nil nil 1321 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33] :value ":with-properties"))) (table-cell (:standard-properties [1323 nil 1323 1351 1353 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30]) (code (:standard-properties [1323 nil nil nil 1351 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34] :value "org-export-with-properties")))) (table-row (:standard-properties [1354 1354 1355 1410 1411 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1355 nil 1356 1376 1378 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31]) (code (:standard-properties [1356 nil nil nil 1376 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34] :value ":with-smart-quotes"))) (table-cell (:standard-properties [1378 nil 1378 1408 1410 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31]) (code (:standard-properties [1378 nil nil nil 1408 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35] :value "org-export-with-smart-quotes")))) (table-row (:standard-properties [1411 1411 1412 1473 1474 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1412 nil 1413 1436 1438 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32]) (code (:standard-properties [1413 nil nil nil 1436 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35] :value ":with-special-strings"))) (table-cell (:standard-properties [1438 nil 1438 1471 1473 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32]) (code (:standard-properties [1438 nil nil nil 1471 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36] :value "org-export-with-special-strings")))) (table-row (:standard-properties [1474 1474 1475 1542 1543 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1475 nil 1476 1502 1504 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33]) (code (:standard-properties [1476 nil nil nil 1502 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36] :value ":with-statistics-cookies"))) (table-cell (:standard-properties [1504 nil 1504 1540 1542 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33]) (code (:standard-properties [1504 nil nil nil 1540 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37] :value "org-export-with-statistics-cookies")))) (table-row (:standard-properties [1543 1543 1544 1606 1607 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1544 nil 1545 1568 1570 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34]) (code (:standard-properties [1545 nil nil nil 1568 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37] :value ":with-sub-superscript"))) (table-cell (:standard-properties [1570 nil 1570 1604 1606 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34]) (code (:standard-properties [1570 nil nil nil 1604 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38] :value "org-export-with-sub-superscripts")))) (table-row (:standard-properties [1607 1607 1608 1645 1646 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1608 nil 1609 1620 1622 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35]) (code (:standard-properties [1609 nil nil nil 1620 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38] :value ":with-toc"))) (table-cell (:standard-properties [1622 nil 1622 1643 1645 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35]) (code (:standard-properties [1622 nil nil nil 1643 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39] :value "org-export-with-toc")))) (table-row (:standard-properties [1646 1646 1647 1690 1691 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1647 nil 1648 1662 1664 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36]) (code (:standard-properties [1648 nil nil nil 1662 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39] :value ":with-tables"))) (table-cell (:standard-properties [1664 nil 1664 1688 1690 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36]) (code (:standard-properties [1664 nil nil nil 1688 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40] :value "org-export-with-tables")))) (table-row (:standard-properties [1691 1691 1692 1731 1732 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1692 nil 1693 1705 1707 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37]) (code (:standard-properties [1693 nil nil nil 1705 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40] :value ":with-tags"))) (table-cell (:standard-properties [1707 nil 1707 1729 1731 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37]) (code (:standard-properties [1707 nil nil nil 1729 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41] :value "org-export-with-tags")))) (table-row (:standard-properties [1732 1732 1733 1774 1775 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1733 nil 1734 1747 1749 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38]) (code (:standard-properties [1734 nil nil nil 1747 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41] :value ":with-tasks"))) (table-cell (:standard-properties [1749 nil 1749 1772 1774 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38]) (code (:standard-properties [1749 nil nil nil 1772 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42] :value "org-export-with-tasks")))) (table-row (:standard-properties [1775 1775 1776 1827 1828 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1776 nil 1777 1795 1797 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39]) (code (:standard-properties [1777 nil nil nil 1795 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42] :value ":with-timestamps"))) (table-cell (:standard-properties [1797 nil 1797 1825 1827 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39]) (code (:standard-properties [1797 nil nil nil 1825 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43] :value "org-export-with-timestamps")))) (table-row (:standard-properties [1828 1828 1829 1870 1871 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1829 nil 1830 1843 1845 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40]) (code (:standard-properties [1830 nil nil nil 1843 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43] :value ":with-title"))) (table-cell (:standard-properties [1845 nil 1845 1868 1870 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40]) (code (:standard-properties [1845 nil nil nil 1868 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #44] :value "org-export-with-title")))) (table-row (:standard-properties [1871 1871 1872 1929 1930 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1872 nil 1873 1894 1896 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41]) (code (:standard-properties [1873 nil nil nil 1894 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #44] :value ":with-todo-keywords"))) (table-cell (:standard-properties [1896 nil 1896 1927 1929 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41]) (code (:standard-properties [1896 nil nil nil 1927 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #45] :value "org-export-with-todo-keywords")))) (table-row (:standard-properties [1930 1930 1931 1989 1990 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1931 nil 1932 1955 1957 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42]) (code (:standard-properties [1932 nil nil nil 1955 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #45] :value ":with-cite-processors"))) (table-cell (:standard-properties [1957 nil 1957 1987 1989 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42]) (code (:standard-properties [1957 nil nil nil 1987 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #46] :value "org-export-process-citations")))) (table-row (:standard-properties [1990 1990 1991 2038 2039 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1991 nil 1992 2006 2008 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43]) (code (:standard-properties [1992 nil nil nil 2006 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #46] :value ":cite-export"))) (table-cell (:standard-properties [2008 nil 2008 2036 2038 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43]) (code (:standard-properties [2008 nil nil nil 2036 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #47] :value "org-cite-export-processors"))))) "| ~:author~ | ~user-full-name~ |\n| ~:email~ | ~user-mail-address~ |\n| ~:language~ | ~org-export-default-language~ |\n| ~:select-tags~ | ~org-export-select-tags~ |\n| ~:exclude-tags~ | ~org-export-exclude-tags~ |\n| ~:creator~ | ~org-export-creator-string~ |\n| ~:headline-levels~ | ~org-export-headline-levels~ |\n| ~:preserve-breaks~ | ~org-export-preserve-breaks~ |\n| ~:section-numbers~ | ~org-export-with-section-numbers~ |\n| ~:time-stamp-file~ | ~org-export-timestamp-file~ |\n| ~:with-archived-trees~ | ~org-export-with-archived-trees~ |\n| ~:with-author~ | ~org-export-with-author~ |\n| ~:expand-links~ | ~org-export-expand-links~ |\n| ~:with-broken-links~ | ~org-export-with-broken-links~ |\n| ~:with-clocks~ | ~org-export-with-clocks~ |\n| ~:with-creator~ | ~org-export-with-creator~ |\n| ~:with-date~ | ~org-export-with-date~ |\n| ~:with-drawers~ | ~org-export-with-drawers~ |\n| ~:with-email~ | ~org-export-with-email~ |\n| ~:with-emphasize~ | ~org-export-with-emphasize~ |\n| ~:with-entities~ | ~org-export-with-entities~ |\n| ~:with-fixed-width~ | ~org-export-with-fixed-width~ |\n| ~:with-footnotes~ | ~org-export-with-footnotes~ |\n| ~:with-inlinetasks~ | ~org-export-with-inlinetasks~ |\n| ~:with-latex~ | ~org-export-with-latex~ |\n| ~:with-planning~ | ~org-export-with-planning~ |\n| ~:with-priority~ | ~org-export-with-priority~ |\n| ~:with-properties~ | ~org-export-with-properties~ |\n| ~:with-smart-quotes~ | ~org-export-with-smart-quotes~ |\n| ~:with-special-strings~ | ~org-export-with-special-strings~ |\n| ~:with-statistics-cookies~ | ~org-export-with-statistics-cookies~ |\n| ~:with-sub-superscript~ | ~org-export-with-sub-superscripts~ |\n| ~:with-toc~ | ~org-export-with-toc~ |\n| ~:with-tables~ | ~org-export-with-tables~ |\n| ~:with-tags~ | ~org-export-with-tags~ |\n| ~:with-tasks~ | ~org-export-with-tasks~ |\n| ~:with-timestamps~ | ~org-export-with-timestamps~ |\n| ~:with-title~ | ~org-export-with-title~ |\n| ~:with-todo-keywords~ | ~org-export-with-todo-keywords~ |\n| ~:with-cite-processors~ | ~org-export-process-citations~ |\n| ~:cite-export~ | ~org-cite-export-processors~ |\n" (:with-special-rows t :with-cite-processors nil :title nil :date nil :author (#("Po Lu" 0 5 (:parent #10))) :email "staff@trinity" :language "en" :select-tags ("export") :exclude-tags ("noexport") :creator "Emacs 30.0.50 (Org mode 9.7.3)" :headline-levels 3 :preserve-breaks nil :section-numbers t :time-stamp-file t :with-archived-trees headline :with-author t :expand-links t :with-broken-links nil :with-clocks nil :with-creator nil :with-date t :with-drawers (not "LOGBOOK") :with-email nil :with-emphasize t :with-entities t :with-fixed-width t :with-footnotes t :with-inlinetasks t :with-latex t :with-planning nil :with-priority nil :with-properties nil :with-smart-quotes nil :with-special-strings t :with-statistics-cookies t :with-sub-superscript t :with-toc t :with-tables t :with-tags t :with-tasks t :with-timestamps t :with-title t :with-todo-keywords t :cite-export ((t basic)) :backend org :back-end #s(org-export-backend :name nil :parent org :transcoders ((table lambda (table contents info) (concat nil (org-export-with-backend 'org table contents info) nil)) (table-row lambda (row contents info) (if (eq (org-element-property :type row) 'rule) (org-export-with-backend 'org row nil info) (let ((headerp nil) (last-header-p nil) (lastp (not (org-export-get-next-element row info)))) (when contents (cond nil nil nil (t (concat (cond nil nil nil (t (org-export-with-backend 'org row contents info)))))))))) (table-cell lambda (cell contents info) nil (let ((headerp nil) (column nil)) (when contents nil (cond nil nil)) (org-export-with-backend 'org cell contents info))) (macro lambda (m c i) (org-element-macro-interpreter m nil))) :options nil :filters nil :blocks nil :menu nil) :filter-parse-tree (org-org--add-missing-sections) :ignore-list nil :translate-alist ((table lambda (table contents info) (concat nil (org-export-with-backend 'org table contents info) nil)) (table-row lambda (row contents info) (if (eq (org-element-property :type row) 'rule) (org-export-with-backend 'org row nil info) (let ((headerp nil) (last-header-p nil) (lastp (not (org-export-get-next-element row info)))) (when contents (cond nil nil nil (t (concat (cond nil nil nil (t (org-export-with-backend 'org row contents info)))))))))) (table-cell lambda (cell contents info) nil (let ((headerp nil) (column nil)) (when contents nil (cond nil nil)) (org-export-with-backend 'org cell contents info))) (macro lambda (m c i) (org-element-macro-interpreter m nil)) (babel-call . org-org-identity) (bold . org-org-identity) (center-block . org-org-identity) (clock . org-org-identity) (code . org-org-identity) (diary-sexp . org-org-identity) (drawer . org-org-identity) (dynamic-block . org-org-identity) (entity . org-org-identity) (example-block . org-org-identity) (export-block . org-org-export-block) (fixed-width . org-org-identity) (footnote-definition . ignore) (footnote-reference . org-org-identity) (headline . org-org-headline) (horizontal-rule . org-org-identity) (inline-babel-call . org-org-identity) (inline-src-block . org-org-identity) (inlinetask . org-org-identity) (italic . org-org-identity) (citation . org-org-identity) (citation-reference . org-org-identity) (item . org-org-identity) (keyword . org-org-keyword) (latex-environment . org-org-identity) (latex-fragment . org-org-identity) (line-break . org-org-identity) (link . org-org-link) (node-property . org-org-identity) (template . org-org-template) (paragraph . org-org-identity) (plain-list . org-org-identity) (planning . org-org-identity) (property-drawer . org-org-identity) (quote-block . org-org-identity) (radio-target . org-org-identity) (section . org-org-section) (special-block . org-org-identity) (src-block . org-org-identity) (statistics-cookie . org-org-identity) (strike-through . org-org-identity) (subscript . org-org-identity) (superscript . org-org-identity) (table . org-org-identity) (table-cell . org-org-identity) (table-row . org-org-identity) (target . org-org-identity) (timestamp . org-org-timestamp) (underline . org-org-identity) (verbatim . org-org-identity) (verse-block . org-org-identity)) :exported-data #<hash-table eq 205/401 0x98e84d ...> :internal-references nil)) funcall((lambda (table contents info) (concat nil (org-export-with-backend 'org table contents info) nil)) (table (:standard-properties [1 1 1 2039 2039 0 nil top-comment nil nil nil nil nil nil #<killed buffer> nil nil (section (:standard-properties [1 1 1 2039 2039 0 nil first-section nil nil nil 1 2039 nil #<killed buffer> nil nil (org-data (:standard-properties [1 1 1 2039 2039 0 nil org-data nil nil nil 3 2039 nil #<killed buffer> nil nil nil] :path nil :CATEGORY nil) #5)]) #0)] :type org :tblfm nil :value nil) (table-row (:standard-properties [1 1 2 32 33 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [2 nil 3 12 14 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #3]) (code (:standard-properties [3 nil nil nil 12 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #6] :value ":author"))) (table-cell (:standard-properties [14 nil 14 30 32 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #3]) (code (:standard-properties [14 nil nil nil 30 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7] :value "user-full-name")))) (table-row (:standard-properties [33 33 34 66 67 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [34 nil 35 43 45 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #4]) (code (:standard-properties [35 nil nil nil 43 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7] :value ":email"))) (table-cell (:standard-properties [45 nil 45 64 66 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #4]) (code (:standard-properties [45 nil nil nil 64 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8] :value "user-mail-address")))) (table-row (:standard-properties [67 67 68 113 114 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [68 nil 69 80 82 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #5]) (code (:standard-properties [69 nil nil nil 80 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8] :value ":language"))) (table-cell (:standard-properties [82 nil 82 111 113 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #5]) (code (:standard-properties [82 nil nil nil 111 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9] :value "org-export-default-language")))) (table-row (:standard-properties [114 114 115 158 159 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [115 nil 116 130 132 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #6]) (code (:standard-properties [116 nil nil nil 130 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9] :value ":select-tags"))) (table-cell (:standard-properties [132 nil 132 156 158 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #6]) (code (:standard-properties [132 nil nil nil 156 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10] :value "org-export-select-tags")))) (table-row (:standard-properties [159 159 160 205 206 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [160 nil 161 176 178 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7]) (code (:standard-properties [161 nil nil nil 176 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10] :value ":exclude-tags"))) (table-cell (:standard-properties [178 nil 178 203 205 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7]) (code (:standard-properties [178 nil nil nil 203 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11] :value "org-export-exclude-tags")))) (table-row (:standard-properties [206 206 207 249 250 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [207 nil 208 218 220 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8]) (code (:standard-properties [208 nil nil nil 218 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11] :value ":creator"))) (table-cell (:standard-properties [220 nil 220 247 249 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8]) (code (:standard-properties [220 nil nil nil 247 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12] :value "org-export-creator-string")))) (table-row (:standard-properties [250 250 251 302 303 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [251 nil 252 270 272 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9]) (code (:standard-properties [252 nil nil nil 270 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12] :value ":headline-levels"))) (table-cell (:standard-properties [272 nil 272 300 302 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9]) (code (:standard-properties [272 nil nil nil 300 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13] :value "org-export-headline-levels")))) (table-row (:standard-properties [303 303 304 355 356 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [304 nil 305 323 325 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10]) (code (:standard-properties [305 nil nil nil 323 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13] :value ":preserve-breaks"))) (table-cell (:standard-properties [325 nil 325 353 355 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10]) (code (:standard-properties [325 nil nil nil 353 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14] :value "org-export-preserve-breaks")))) (table-row (:standard-properties [356 356 357 413 414 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [357 nil 358 376 378 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11]) (code (:standard-properties [358 nil nil nil 376 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14] :value ":section-numbers"))) (table-cell (:standard-properties [378 nil 378 411 413 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11]) (code (:standard-properties [378 nil nil nil 411 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15] :value "org-export-with-section-numbers")))) (table-row (:standard-properties [414 414 415 465 466 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [415 nil 416 434 436 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12]) (code (:standard-properties [416 nil nil nil 434 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15] :value ":time-stamp-file"))) (table-cell (:standard-properties [436 nil 436 463 465 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12]) (code (:standard-properties [436 nil nil nil 463 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16] :value "org-export-timestamp-file")))) (table-row (:standard-properties [466 466 467 526 527 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [467 nil 468 490 492 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13]) (code (:standard-properties [468 nil nil nil 490 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16] :value ":with-archived-trees"))) (table-cell (:standard-properties [492 nil 492 524 526 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13]) (code (:standard-properties [492 nil nil nil 524 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17] :value "org-export-with-archived-trees")))) (table-row (:standard-properties [527 527 528 571 572 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [528 nil 529 543 545 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14]) (code (:standard-properties [529 nil nil nil 543 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17] :value ":with-author"))) (table-cell (:standard-properties [545 nil 545 569 571 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14]) (code (:standard-properties [545 nil nil nil 569 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18] :value "org-export-with-author")))) (table-row (:standard-properties [572 572 573 618 619 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [573 nil 574 589 591 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15]) (code (:standard-properties [574 nil nil nil 589 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18] :value ":expand-links"))) (table-cell (:standard-properties [591 nil 591 616 618 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15]) (code (:standard-properties [591 nil nil nil 616 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19] :value "org-export-expand-links")))) (table-row (:standard-properties [619 619 620 675 676 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [620 nil 621 641 643 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16]) (code (:standard-properties [621 nil nil nil 641 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19] :value ":with-broken-links"))) (table-cell (:standard-properties [643 nil 643 673 675 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16]) (code (:standard-properties [643 nil nil nil 673 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20] :value "org-export-with-broken-links")))) (table-row (:standard-properties [676 676 677 720 721 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [677 nil 678 692 694 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17]) (code (:standard-properties [678 nil nil nil 692 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20] :value ":with-clocks"))) (table-cell (:standard-properties [694 nil 694 718 720 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17]) (code (:standard-properties [694 nil nil nil 718 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21] :value "org-export-with-clocks")))) (table-row (:standard-properties [721 721 722 767 768 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [722 nil 723 738 740 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18]) (code (:standard-properties [723 nil nil nil 738 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21] :value ":with-creator"))) (table-cell (:standard-properties [740 nil 740 765 767 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18]) (code (:standard-properties [740 nil nil nil 765 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22] :value "org-export-with-creator")))) (table-row (:standard-properties [768 768 769 808 809 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [769 nil 770 782 784 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19]) (code (:standard-properties [770 nil nil nil 782 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22] :value ":with-date"))) (table-cell (:standard-properties [784 nil 784 806 808 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19]) (code (:standard-properties [784 nil nil nil 806 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23] :value "org-export-with-date")))) (table-row (:standard-properties [809 809 810 855 856 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [810 nil 811 826 828 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20]) (code (:standard-properties [811 nil nil nil 826 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23] :value ":with-drawers"))) (table-cell (:standard-properties [828 nil 828 853 855 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20]) (code (:standard-properties [828 nil nil nil 853 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24] :value "org-export-with-drawers")))) (table-row (:standard-properties [856 856 857 898 899 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [857 nil 858 871 873 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21]) (code (:standard-properties [858 nil nil nil 871 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24] :value ":with-email"))) (table-cell (:standard-properties [873 nil 873 896 898 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21]) (code (:standard-properties [873 nil nil nil 896 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25] :value "org-export-with-email")))) (table-row (:standard-properties [899 899 900 949 950 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [900 nil 901 918 920 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22]) (code (:standard-properties [901 nil nil nil 918 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25] :value ":with-emphasize"))) (table-cell (:standard-properties [920 nil 920 947 949 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22]) (code (:standard-properties [920 nil nil nil 947 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26] :value "org-export-with-emphasize")))) (table-row (:standard-properties [950 950 951 998 999 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [951 nil 952 968 970 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23]) (code (:standard-properties [952 nil nil nil 968 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26] :value ":with-entities"))) (table-cell (:standard-properties [970 nil 970 996 998 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23]) (code (:standard-properties [970 nil nil nil 996 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27] :value "org-export-with-entities")))) (table-row (:standard-properties [999 999 1000 1053 1054 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1000 nil 1001 1020 1022 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24]) (code (:standard-properties [1001 nil nil nil 1020 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27] :value ":with-fixed-width"))) (table-cell (:standard-properties [1022 nil 1022 1051 1053 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24]) (code (:standard-properties [1022 nil nil nil 1051 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28] :value "org-export-with-fixed-width")))) (table-row (:standard-properties [1054 1054 1055 1104 1105 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1055 nil 1056 1073 1075 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25]) (code (:standard-properties [1056 nil nil nil 1073 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28] :value ":with-footnotes"))) (table-cell (:standard-properties [1075 nil 1075 1102 1104 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25]) (code (:standard-properties [1075 nil nil nil 1102 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29] :value "org-export-with-footnotes")))) (table-row (:standard-properties [1105 1105 1106 1159 1160 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1106 nil 1107 1126 1128 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26]) (code (:standard-properties [1107 nil nil nil 1126 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29] :value ":with-inlinetasks"))) (table-cell (:standard-properties [1128 nil 1128 1157 1159 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26]) (code (:standard-properties [1128 nil nil nil 1157 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30] :value "org-export-with-inlinetasks")))) (table-row (:standard-properties [1160 1160 1161 1202 1203 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1161 nil 1162 1175 1177 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27]) (code (:standard-properties [1162 nil nil nil 1175 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30] :value ":with-latex"))) (table-cell (:standard-properties [1177 nil 1177 1200 1202 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27]) (code (:standard-properties [1177 nil nil nil 1200 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31] :value "org-export-with-latex")))) (table-row (:standard-properties [1203 1203 1204 1251 1252 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1204 nil 1205 1221 1223 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28]) (code (:standard-properties [1205 nil nil nil 1221 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31] :value ":with-planning"))) (table-cell (:standard-properties [1223 nil 1223 1249 1251 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28]) (code (:standard-properties [1223 nil nil nil 1249 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32] :value "org-export-with-planning")))) (table-row (:standard-properties [1252 1252 1253 1300 1301 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1253 nil 1254 1270 1272 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29]) (code (:standard-properties [1254 nil nil nil 1270 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32] :value ":with-priority"))) (table-cell (:standard-properties [1272 nil 1272 1298 1300 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29]) (code (:standard-properties [1272 nil nil nil 1298 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33] :value "org-export-with-priority")))) (table-row (:standard-properties [1301 1301 1302 1353 1354 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1302 nil 1303 1321 1323 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30]) (code (:standard-properties [1303 nil nil nil 1321 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33] :value ":with-properties"))) (table-cell (:standard-properties [1323 nil 1323 1351 1353 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30]) (code (:standard-properties [1323 nil nil nil 1351 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34] :value "org-export-with-properties")))) (table-row (:standard-properties [1354 1354 1355 1410 1411 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1355 nil 1356 1376 1378 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31]) (code (:standard-properties [1356 nil nil nil 1376 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34] :value ":with-smart-quotes"))) (table-cell (:standard-properties [1378 nil 1378 1408 1410 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31]) (code (:standard-properties [1378 nil nil nil 1408 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35] :value "org-export-with-smart-quotes")))) (table-row (:standard-properties [1411 1411 1412 1473 1474 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1412 nil 1413 1436 1438 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32]) (code (:standard-properties [1413 nil nil nil 1436 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35] :value ":with-special-strings"))) (table-cell (:standard-properties [1438 nil 1438 1471 1473 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32]) (code (:standard-properties [1438 nil nil nil 1471 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36] :value "org-export-with-special-strings")))) (table-row (:standard-properties [1474 1474 1475 1542 1543 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1475 nil 1476 1502 1504 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33]) (code (:standard-properties [1476 nil nil nil 1502 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36] :value ":with-statistics-cookies"))) (table-cell (:standard-properties [1504 nil 1504 1540 1542 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33]) (code (:standard-properties [1504 nil nil nil 1540 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37] :value "org-export-with-statistics-cookies")))) (table-row (:standard-properties [1543 1543 1544 1606 1607 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1544 nil 1545 1568 1570 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34]) (code (:standard-properties [1545 nil nil nil 1568 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37] :value ":with-sub-superscript"))) (table-cell (:standard-properties [1570 nil 1570 1604 1606 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34]) (code (:standard-properties [1570 nil nil nil 1604 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38] :value "org-export-with-sub-superscripts")))) (table-row (:standard-properties [1607 1607 1608 1645 1646 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1608 nil 1609 1620 1622 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35]) (code (:standard-properties [1609 nil nil nil 1620 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38] :value ":with-toc"))) (table-cell (:standard-properties [1622 nil 1622 1643 1645 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35]) (code (:standard-properties [1622 nil nil nil 1643 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39] :value "org-export-with-toc")))) (table-row (:standard-properties [1646 1646 1647 1690 1691 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1647 nil 1648 1662 1664 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36]) (code (:standard-properties [1648 nil nil nil 1662 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39] :value ":with-tables"))) (table-cell (:standard-properties [1664 nil 1664 1688 1690 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36]) (code (:standard-properties [1664 nil nil nil 1688 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40] :value "org-export-with-tables")))) (table-row (:standard-properties [1691 1691 1692 1731 1732 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1692 nil 1693 1705 1707 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37]) (code (:standard-properties [1693 nil nil nil 1705 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40] :value ":with-tags"))) (table-cell (:standard-properties [1707 nil 1707 1729 1731 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37]) (code (:standard-properties [1707 nil nil nil 1729 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41] :value "org-export-with-tags")))) (table-row (:standard-properties [1732 1732 1733 1774 1775 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1733 nil 1734 1747 1749 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38]) (code (:standard-properties [1734 nil nil nil 1747 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41] :value ":with-tasks"))) (table-cell (:standard-properties [1749 nil 1749 1772 1774 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38]) (code (:standard-properties [1749 nil nil nil 1772 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42] :value "org-export-with-tasks")))) (table-row (:standard-properties [1775 1775 1776 1827 1828 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1776 nil 1777 1795 1797 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39]) (code (:standard-properties [1777 nil nil nil 1795 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42] :value ":with-timestamps"))) (table-cell (:standard-properties [1797 nil 1797 1825 1827 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39]) (code (:standard-properties [1797 nil nil nil 1825 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43] :value "org-export-with-timestamps")))) (table-row (:standard-properties [1828 1828 1829 1870 1871 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1829 nil 1830 1843 1845 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40]) (code (:standard-properties [1830 nil nil nil 1843 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43] :value ":with-title"))) (table-cell (:standard-properties [1845 nil 1845 1868 1870 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40]) (code (:standard-properties [1845 nil nil nil 1868 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #44] :value "org-export-with-title")))) (table-row (:standard-properties [1871 1871 1872 1929 1930 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1872 nil 1873 1894 1896 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41]) (code (:standard-properties [1873 nil nil nil 1894 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #44] :value ":with-todo-keywords"))) (table-cell (:standard-properties [1896 nil 1896 1927 1929 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41]) (code (:standard-properties [1896 nil nil nil 1927 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #45] :value "org-export-with-todo-keywords")))) (table-row (:standard-properties [1930 1930 1931 1989 1990 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1931 nil 1932 1955 1957 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42]) (code (:standard-properties [1932 nil nil nil 1955 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #45] :value ":with-cite-processors"))) (table-cell (:standard-properties [1957 nil 1957 1987 1989 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42]) (code (:standard-properties [1957 nil nil nil 1987 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #46] :value "org-export-process-citations")))) (table-row (:standard-properties [1990 1990 1991 2038 2039 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1991 nil 1992 2006 2008 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43]) (code (:standard-properties [1992 nil nil nil 2006 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #46] :value ":cite-export"))) (table-cell (:standard-properties [2008 nil 2008 2036 2038 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43]) (code (:standard-properties [2008 nil nil nil 2036 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #47] :value "org-cite-export-processors"))))) "| ~:author~ | ~user-full-name~ |\n| ~:email~ | ~user-mail-address~ |\n| ~:language~ | ~org-export-default-language~ |\n| ~:select-tags~ | ~org-export-select-tags~ |\n| ~:exclude-tags~ | ~org-export-exclude-tags~ |\n| ~:creator~ | ~org-export-creator-string~ |\n| ~:headline-levels~ | ~org-export-headline-levels~ |\n| ~:preserve-breaks~ | ~org-export-preserve-breaks~ |\n| ~:section-numbers~ | ~org-export-with-section-numbers~ |\n| ~:time-stamp-file~ | ~org-export-timestamp-file~ |\n| ~:with-archived-trees~ | ~org-export-with-archived-trees~ |\n| ~:with-author~ | ~org-export-with-author~ |\n| ~:expand-links~ | ~org-export-expand-links~ |\n| ~:with-broken-links~ | ~org-export-with-broken-links~ |\n| ~:with-clocks~ | ~org-export-with-clocks~ |\n| ~:with-creator~ | ~org-export-with-creator~ |\n| ~:with-date~ | ~org-export-with-date~ |\n| ~:with-drawers~ | ~org-export-with-drawers~ |\n| ~:with-email~ | ~org-export-with-email~ |\n| ~:with-emphasize~ | ~org-export-with-emphasize~ |\n| ~:with-entities~ | ~org-export-with-entities~ |\n| ~:with-fixed-width~ | ~org-export-with-fixed-width~ |\n| ~:with-footnotes~ | ~org-export-with-footnotes~ |\n| ~:with-inlinetasks~ | ~org-export-with-inlinetasks~ |\n| ~:with-latex~ | ~org-export-with-latex~ |\n| ~:with-planning~ | ~org-export-with-planning~ |\n| ~:with-priority~ | ~org-export-with-priority~ |\n| ~:with-properties~ | ~org-export-with-properties~ |\n| ~:with-smart-quotes~ | ~org-export-with-smart-quotes~ |\n| ~:with-special-strings~ | ~org-export-with-special-strings~ |\n| ~:with-statistics-cookies~ | ~org-export-with-statistics-cookies~ |\n| ~:with-sub-superscript~ | ~org-export-with-sub-superscripts~ |\n| ~:with-toc~ | ~org-export-with-toc~ |\n| ~:with-tables~ | ~org-export-with-tables~ |\n| ~:with-tags~ | ~org-export-with-tags~ |\n| ~:with-tasks~ | ~org-export-with-tasks~ |\n| ~:with-timestamps~ | ~org-export-with-timestamps~ |\n| ~:with-title~ | ~org-export-with-title~ |\n| ~:with-todo-keywords~ | ~org-export-with-todo-keywords~ |\n| ~:with-cite-processors~ | ~org-export-process-citations~ |\n| ~:cite-export~ | ~org-cite-export-processors~ |\n" (:with-special-rows t :with-cite-processors nil :title nil :date nil :author (#("Po Lu" 0 5 (:parent #10))) :email "staff@trinity" :language "en" :select-tags ("export") :exclude-tags ("noexport") :creator "Emacs 30.0.50 (Org mode 9.7.3)" :headline-levels 3 :preserve-breaks nil :section-numbers t :time-stamp-file t :with-archived-trees headline :with-author t :expand-links t :with-broken-links nil :with-clocks nil :with-creator nil :with-date t :with-drawers (not "LOGBOOK") :with-email nil :with-emphasize t :with-entities t :with-fixed-width t :with-footnotes t :with-inlinetasks t :with-latex t :with-planning nil :with-priority nil :with-properties nil :with-smart-quotes nil :with-special-strings t :with-statistics-cookies t :with-sub-superscript t :with-toc t :with-tables t :with-tags t :with-tasks t :with-timestamps t :with-title t :with-todo-keywords t :cite-export ((t basic)) :backend org :back-end #s(org-export-backend :name nil :parent org :transcoders ((table lambda (table contents info) (concat nil (org-export-with-backend 'org table contents info) nil)) (table-row lambda (row contents info) (if (eq (org-element-property :type row) 'rule) (org-export-with-backend 'org row nil info) (let ((headerp nil) (last-header-p nil) (lastp (not (org-export-get-next-element row info)))) (when contents (cond nil nil nil (t (concat (cond nil nil nil (t (org-export-with-backend 'org row contents info)))))))))) (table-cell lambda (cell contents info) nil (let ((headerp nil) (column nil)) (when contents nil (cond nil nil)) (org-export-with-backend 'org cell contents info))) (macro lambda (m c i) (org-element-macro-interpreter m nil))) :options nil :filters nil :blocks nil :menu nil) :filter-parse-tree (org-org--add-missing-sections) :ignore-list nil :translate-alist ((table lambda (table contents info) (concat nil (org-export-with-backend 'org table contents info) nil)) (table-row lambda (row contents info) (if (eq (org-element-property :type row) 'rule) (org-export-with-backend 'org row nil info) (let ((headerp nil) (last-header-p nil) (lastp (not (org-export-get-next-element row info)))) (when contents (cond nil nil nil (t (concat (cond nil nil nil (t (org-export-with-backend 'org row contents info)))))))))) (table-cell lambda (cell contents info) nil (let ((headerp nil) (column nil)) (when contents nil (cond nil nil)) (org-export-with-backend 'org cell contents info))) (macro lambda (m c i) (org-element-macro-interpreter m nil)) (babel-call . org-org-identity) (bold . org-org-identity) (center-block . org-org-identity) (clock . org-org-identity) (code . org-org-identity) (diary-sexp . org-org-identity) (drawer . org-org-identity) (dynamic-block . org-org-identity) (entity . org-org-identity) (example-block . org-org-identity) (export-block . org-org-export-block) (fixed-width . org-org-identity) (footnote-definition . ignore) (footnote-reference . org-org-identity) (headline . org-org-headline) (horizontal-rule . org-org-identity) (inline-babel-call . org-org-identity) (inline-src-block . org-org-identity) (inlinetask . org-org-identity) (italic . org-org-identity) (citation . org-org-identity) (citation-reference . org-org-identity) (item . org-org-identity) (keyword . org-org-keyword) (latex-environment . org-org-identity) (latex-fragment . org-org-identity) (line-break . org-org-identity) (link . org-org-link) (node-property . org-org-identity) (template . org-org-template) (paragraph . org-org-identity) (plain-list . org-org-identity) (planning . org-org-identity) (property-drawer . org-org-identity) (quote-block . org-org-identity) (radio-target . org-org-identity) (section . org-org-section) (special-block . org-org-identity) (src-block . org-org-identity) (statistics-cookie . org-org-identity) (strike-through . org-org-identity) (subscript . org-org-identity) (superscript . org-org-identity) (table . org-org-identity) (table-cell . org-org-identity) (table-row . org-org-identity) (target . org-org-identity) (timestamp . org-org-timestamp) (underline . org-org-identity) (verbatim . org-org-identity) (verse-block . org-org-identity)) :exported-data #<hash-table eq 205/401 0x98e84d ...> :internal-references nil)) (progn (funcall transcoder data (if (not greaterp) contents (org-element-normalize-string contents)) info)) (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 "Org export aborted. Unable to resolve link: %S\nSee `org-export-with-broken-links'." (nth 1 err)))) ((eq val 'mark) (let nil (org-export-data (format "[BROKEN LINK: %s]" (nth 1 err)) info))) (t 'nil))))) (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 (eq type 'paragraph) (memq (org-element-type parent t) '(footnote-definition item)) (eq (car (org-element-contents parent)) data) (eq (org-element--property :pre-blank parent nil nil) 0))))) ""))) (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 "Org export aborted. Unable to resolve link: %S\nSee `org-export-with-broken-links'." (nth 1 err)))) ((eq val 'mark) (let nil (org-export-data (format "[BROKEN LINK: %s]" (nth 1 err)) 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 (and (eq type 'paragraph) (memq (org-element-type parent t) '(footnote-definition item)) (eq (car (org-element-contents parent)) data) (eq (org-element--property :pre-blank parent nil nil) 0))))) ""))) (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 "Org export aborted. Unable to resolve link: %S\nSee `org-export-with-broken-links'." (nth 1 err)))) ((eq val 'mark) (let nil (org-export-data (format "[BROKEN LINK: %s]" (nth 1 err)) info))) (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 (element) (org-export-data element info)) (org-element-contents (if (or greaterp objectp) data (org-element-normalize-contents data (and (eq type 'paragraph) (memq (org-element-type parent t) '(footnote-definition item)) (eq (car (org-element-contents parent)) data) (eq (org-element--property :pre-blank parent nil nil) 0))))) ""))) (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 "Org export aborted. Unable to resolve link: %S\nSee `org-export-with-broken-links'." (nth 1 err)))) ((eq val 'mark) (let nil (org-export-data (format "[BROKEN LINK: %s]" (nth 1 err)) info))) (t 'nil)))))))) (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 #'(lambda (element) (org-export-data element info)) (org-element-contents (if (or greaterp objectp) data (org-element-normalize-contents data (and (eq type 'paragraph) (memq (org-element-type parent t) '(footnote-definition item)) (eq (car (org-element-contents parent)) data) (eq (org-element--property :pre-blank parent nil nil) 0))))) ""))) (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 "Org export aborted. Unable to resolve link: %S\nSee `org-export-with-broken-links'." (nth 1 err)))) ((eq val 'mark) (let nil (org-export-data (format "[BROKEN LINK: %s]" (nth 1 err)) info))) (t 'nil))))))))) (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 nil nil))) (let ((transcoder (org-export-transcoder data 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 (user-error "Org export aborted. Unable to resolve link: %S\nSee `org-export-with-broken-links'." (nth 1 err)))) ((eq val 'mark) (let nil (org-export-data (format "[BROKEN LINK: %s]" (nth 1 err)) info))) (t 'nil))))) (funcall transcoder data nil info))))) (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 #'(lambda (element) (org-export-data element info)) (org-element-contents (if (or greaterp objectp) data (org-element-normalize-contents data (and (eq type 'paragraph) (memq (org-element-type parent t) '(footnote-definition item)) (eq (car (org-element-contents parent)) data) (eq (org-element--property :pre-blank parent nil nil) 0))))) ""))) (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 "Org export aborted. Unable to resolve link: %S\nSee `org-export-with-broken-links'." (nth 1 err)))) ((eq val 'mark) (let nil (org-export-data (format "[BROKEN LINK: %s]" (nth 1 err)) info))) (t 'nil))))))))))) (let* ((type (org-element-type data)) (parent (org-element-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 ((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 nil nil))) (let ((transcoder (org-export-transcoder data 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 (user-error "Org export aborted. Unable to resolve link: %S\nSee `org-export-with-broken-links'." (nth 1 err)))) ((eq val 'mark) (let nil (org-export-data (format "[BROKEN LINK: %s]" (nth 1 err)) info))) (t 'nil))))) (funcall transcoder data nil info))))) (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 #'(lambda (element) (org-export-data element info)) (org-element-contents (if (or greaterp objectp) data (org-element-normalize-contents data (and (eq type 'paragraph) (memq (org-element-type parent t) '(footnote-definition item)) (eq (car (org-element-contents parent)) data) (eq (org-element--property :pre-blank parent nil nil) 0))))) ""))) (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 "Org export aborted. Unable to resolve link: %S\nSee `org-export-with-broken-links'." (nth 1 err)))) ((eq val 'mark) (let nil (org-export-data (format "[BROKEN LINK: %s]" (nth 1 err)) info))) (t 'nil))))))))))))) (puthash data (cond ((not results) (or (org-export--keep-spaces data info) "")) ((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 (or (org-element-post-blank data) 0))) (if (eq (org-element-class data parent) 'object) (concat results (make-string blank 32)) (concat (org-element-normalize-string results) (make-string blank 10)))) info))) (plist-get info :exported-data))) (or (gethash data (plist-get info :exported-data)) (let* ((type (org-element-type data)) (parent (org-element-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 ((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 nil nil))) (let ((transcoder (org-export-transcoder data 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 (user-error "Org export aborted. Unable to resolve link: %S\nSee `org-export-with-broken-links'." (nth 1 err)))) ((eq val 'mark) (let nil (org-export-data (format "[BROKEN LINK: %s]" (nth 1 err)) info))) (t 'nil))))) (funcall transcoder data nil info))))) (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 #'(lambda (element) (org-export-data element info)) (org-element-contents (if (or greaterp objectp) data (org-element-normalize-contents data (and (eq type 'paragraph) (memq (org-element-type parent t) '(footnote-definition item)) (eq (car (org-element-contents parent)) data) (eq (org-element--property :pre-blank parent nil nil) 0))))) ""))) (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 "Org export aborted. Unable to resolve link: %S\nSee `org-export-with-broken-links'." (nth 1 err)))) ((eq val 'mark) (let nil (org-export-data (format "[BROKEN LINK: %s]" (nth 1 err)) info))) (t 'nil))))))))))))) (puthash data (cond ((not results) (or (org-export--keep-spaces data info) "")) ((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 (or (org-element-post-blank data) 0))) (if (eq (org-element-class data parent) 'object) (concat results (make-string blank 32)) (concat (org-element-normalize-string results) (make-string blank 10)))) info))) (plist-get info :exported-data)))) org-export-data((table (:standard-properties [1 1 1 2039 2039 0 nil top-comment nil nil nil nil nil nil #<killed buffer> nil nil (section (:standard-properties [1 1 1 2039 2039 0 nil first-section nil nil nil 1 2039 nil #<killed buffer> nil nil (org-data (:standard-properties [1 1 1 2039 2039 0 nil org-data nil nil nil 3 2039 nil #<killed buffer> nil nil nil] :path nil :CATEGORY nil) #5)]) #0)] :type org :tblfm nil :value nil) (table-row (:standard-properties [1 1 2 32 33 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [2 nil 3 12 14 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #3]) (code (:standard-properties [3 nil nil nil 12 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #6] :value ":author"))) (table-cell (:standard-properties [14 nil 14 30 32 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #3]) (code (:standard-properties [14 nil nil nil 30 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7] :value "user-full-name")))) (table-row (:standard-properties [33 33 34 66 67 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [34 nil 35 43 45 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #4]) (code (:standard-properties [35 nil nil nil 43 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7] :value ":email"))) (table-cell (:standard-properties [45 nil 45 64 66 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #4]) (code (:standard-properties [45 nil nil nil 64 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8] :value "user-mail-address")))) (table-row (:standard-properties [67 67 68 113 114 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [68 nil 69 80 82 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #5]) (code (:standard-properties [69 nil nil nil 80 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8] :value ":language"))) (table-cell (:standard-properties [82 nil 82 111 113 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #5]) (code (:standard-properties [82 nil nil nil 111 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9] :value "org-export-default-language")))) (table-row (:standard-properties [114 114 115 158 159 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [115 nil 116 130 132 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #6]) (code (:standard-properties [116 nil nil nil 130 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9] :value ":select-tags"))) (table-cell (:standard-properties [132 nil 132 156 158 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #6]) (code (:standard-properties [132 nil nil nil 156 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10] :value "org-export-select-tags")))) (table-row (:standard-properties [159 159 160 205 206 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [160 nil 161 176 178 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7]) (code (:standard-properties [161 nil nil nil 176 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10] :value ":exclude-tags"))) (table-cell (:standard-properties [178 nil 178 203 205 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7]) (code (:standard-properties [178 nil nil nil 203 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11] :value "org-export-exclude-tags")))) (table-row (:standard-properties [206 206 207 249 250 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [207 nil 208 218 220 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8]) (code (:standard-properties [208 nil nil nil 218 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11] :value ":creator"))) (table-cell (:standard-properties [220 nil 220 247 249 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8]) (code (:standard-properties [220 nil nil nil 247 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12] :value "org-export-creator-string")))) (table-row (:standard-properties [250 250 251 302 303 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [251 nil 252 270 272 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9]) (code (:standard-properties [252 nil nil nil 270 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12] :value ":headline-levels"))) (table-cell (:standard-properties [272 nil 272 300 302 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9]) (code (:standard-properties [272 nil nil nil 300 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13] :value "org-export-headline-levels")))) (table-row (:standard-properties [303 303 304 355 356 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [304 nil 305 323 325 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10]) (code (:standard-properties [305 nil nil nil 323 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13] :value ":preserve-breaks"))) (table-cell (:standard-properties [325 nil 325 353 355 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10]) (code (:standard-properties [325 nil nil nil 353 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14] :value "org-export-preserve-breaks")))) (table-row (:standard-properties [356 356 357 413 414 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [357 nil 358 376 378 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11]) (code (:standard-properties [358 nil nil nil 376 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14] :value ":section-numbers"))) (table-cell (:standard-properties [378 nil 378 411 413 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11]) (code (:standard-properties [378 nil nil nil 411 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15] :value "org-export-with-section-numbers")))) (table-row (:standard-properties [414 414 415 465 466 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [415 nil 416 434 436 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12]) (code (:standard-properties [416 nil nil nil 434 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15] :value ":time-stamp-file"))) (table-cell (:standard-properties [436 nil 436 463 465 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12]) (code (:standard-properties [436 nil nil nil 463 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16] :value "org-export-timestamp-file")))) (table-row (:standard-properties [466 466 467 526 527 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [467 nil 468 490 492 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13]) (code (:standard-properties [468 nil nil nil 490 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16] :value ":with-archived-trees"))) (table-cell (:standard-properties [492 nil 492 524 526 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13]) (code (:standard-properties [492 nil nil nil 524 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17] :value "org-export-with-archived-trees")))) (table-row (:standard-properties [527 527 528 571 572 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [528 nil 529 543 545 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14]) (code (:standard-properties [529 nil nil nil 543 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17] :value ":with-author"))) (table-cell (:standard-properties [545 nil 545 569 571 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14]) (code (:standard-properties [545 nil nil nil 569 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18] :value "org-export-with-author")))) (table-row (:standard-properties [572 572 573 618 619 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [573 nil 574 589 591 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15]) (code (:standard-properties [574 nil nil nil 589 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18] :value ":expand-links"))) (table-cell (:standard-properties [591 nil 591 616 618 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15]) (code (:standard-properties [591 nil nil nil 616 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19] :value "org-export-expand-links")))) (table-row (:standard-properties [619 619 620 675 676 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [620 nil 621 641 643 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16]) (code (:standard-properties [621 nil nil nil 641 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19] :value ":with-broken-links"))) (table-cell (:standard-properties [643 nil 643 673 675 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16]) (code (:standard-properties [643 nil nil nil 673 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20] :value "org-export-with-broken-links")))) (table-row (:standard-properties [676 676 677 720 721 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [677 nil 678 692 694 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17]) (code (:standard-properties [678 nil nil nil 692 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20] :value ":with-clocks"))) (table-cell (:standard-properties [694 nil 694 718 720 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17]) (code (:standard-properties [694 nil nil nil 718 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21] :value "org-export-with-clocks")))) (table-row (:standard-properties [721 721 722 767 768 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [722 nil 723 738 740 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18]) (code (:standard-properties [723 nil nil nil 738 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21] :value ":with-creator"))) (table-cell (:standard-properties [740 nil 740 765 767 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18]) (code (:standard-properties [740 nil nil nil 765 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22] :value "org-export-with-creator")))) (table-row (:standard-properties [768 768 769 808 809 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [769 nil 770 782 784 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19]) (code (:standard-properties [770 nil nil nil 782 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22] :value ":with-date"))) (table-cell (:standard-properties [784 nil 784 806 808 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19]) (code (:standard-properties [784 nil nil nil 806 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23] :value "org-export-with-date")))) (table-row (:standard-properties [809 809 810 855 856 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [810 nil 811 826 828 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20]) (code (:standard-properties [811 nil nil nil 826 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23] :value ":with-drawers"))) (table-cell (:standard-properties [828 nil 828 853 855 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20]) (code (:standard-properties [828 nil nil nil 853 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24] :value "org-export-with-drawers")))) (table-row (:standard-properties [856 856 857 898 899 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [857 nil 858 871 873 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21]) (code (:standard-properties [858 nil nil nil 871 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24] :value ":with-email"))) (table-cell (:standard-properties [873 nil 873 896 898 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21]) (code (:standard-properties [873 nil nil nil 896 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25] :value "org-export-with-email")))) (table-row (:standard-properties [899 899 900 949 950 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [900 nil 901 918 920 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22]) (code (:standard-properties [901 nil nil nil 918 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25] :value ":with-emphasize"))) (table-cell (:standard-properties [920 nil 920 947 949 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22]) (code (:standard-properties [920 nil nil nil 947 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26] :value "org-export-with-emphasize")))) (table-row (:standard-properties [950 950 951 998 999 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [951 nil 952 968 970 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23]) (code (:standard-properties [952 nil nil nil 968 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26] :value ":with-entities"))) (table-cell (:standard-properties [970 nil 970 996 998 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23]) (code (:standard-properties [970 nil nil nil 996 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27] :value "org-export-with-entities")))) (table-row (:standard-properties [999 999 1000 1053 1054 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1000 nil 1001 1020 1022 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24]) (code (:standard-properties [1001 nil nil nil 1020 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27] :value ":with-fixed-width"))) (table-cell (:standard-properties [1022 nil 1022 1051 1053 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24]) (code (:standard-properties [1022 nil nil nil 1051 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28] :value "org-export-with-fixed-width")))) (table-row (:standard-properties [1054 1054 1055 1104 1105 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1055 nil 1056 1073 1075 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25]) (code (:standard-properties [1056 nil nil nil 1073 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28] :value ":with-footnotes"))) (table-cell (:standard-properties [1075 nil 1075 1102 1104 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25]) (code (:standard-properties [1075 nil nil nil 1102 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29] :value "org-export-with-footnotes")))) (table-row (:standard-properties [1105 1105 1106 1159 1160 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1106 nil 1107 1126 1128 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26]) (code (:standard-properties [1107 nil nil nil 1126 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29] :value ":with-inlinetasks"))) (table-cell (:standard-properties [1128 nil 1128 1157 1159 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26]) (code (:standard-properties [1128 nil nil nil 1157 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30] :value "org-export-with-inlinetasks")))) (table-row (:standard-properties [1160 1160 1161 1202 1203 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1161 nil 1162 1175 1177 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27]) (code (:standard-properties [1162 nil nil nil 1175 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30] :value ":with-latex"))) (table-cell (:standard-properties [1177 nil 1177 1200 1202 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27]) (code (:standard-properties [1177 nil nil nil 1200 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31] :value "org-export-with-latex")))) (table-row (:standard-properties [1203 1203 1204 1251 1252 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1204 nil 1205 1221 1223 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28]) (code (:standard-properties [1205 nil nil nil 1221 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31] :value ":with-planning"))) (table-cell (:standard-properties [1223 nil 1223 1249 1251 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28]) (code (:standard-properties [1223 nil nil nil 1249 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32] :value "org-export-with-planning")))) (table-row (:standard-properties [1252 1252 1253 1300 1301 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1253 nil 1254 1270 1272 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29]) (code (:standard-properties [1254 nil nil nil 1270 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32] :value ":with-priority"))) (table-cell (:standard-properties [1272 nil 1272 1298 1300 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29]) (code (:standard-properties [1272 nil nil nil 1298 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33] :value "org-export-with-priority")))) (table-row (:standard-properties [1301 1301 1302 1353 1354 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1302 nil 1303 1321 1323 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30]) (code (:standard-properties [1303 nil nil nil 1321 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33] :value ":with-properties"))) (table-cell (:standard-properties [1323 nil 1323 1351 1353 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30]) (code (:standard-properties [1323 nil nil nil 1351 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34] :value "org-export-with-properties")))) (table-row (:standard-properties [1354 1354 1355 1410 1411 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1355 nil 1356 1376 1378 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31]) (code (:standard-properties [1356 nil nil nil 1376 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34] :value ":with-smart-quotes"))) (table-cell (:standard-properties [1378 nil 1378 1408 1410 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31]) (code (:standard-properties [1378 nil nil nil 1408 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35] :value "org-export-with-smart-quotes")))) (table-row (:standard-properties [1411 1411 1412 1473 1474 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1412 nil 1413 1436 1438 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32]) (code (:standard-properties [1413 nil nil nil 1436 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35] :value ":with-special-strings"))) (table-cell (:standard-properties [1438 nil 1438 1471 1473 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32]) (code (:standard-properties [1438 nil nil nil 1471 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36] :value "org-export-with-special-strings")))) (table-row (:standard-properties [1474 1474 1475 1542 1543 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1475 nil 1476 1502 1504 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33]) (code (:standard-properties [1476 nil nil nil 1502 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36] :value ":with-statistics-cookies"))) (table-cell (:standard-properties [1504 nil 1504 1540 1542 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33]) (code (:standard-properties [1504 nil nil nil 1540 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37] :value "org-export-with-statistics-cookies")))) (table-row (:standard-properties [1543 1543 1544 1606 1607 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1544 nil 1545 1568 1570 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34]) (code (:standard-properties [1545 nil nil nil 1568 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37] :value ":with-sub-superscript"))) (table-cell (:standard-properties [1570 nil 1570 1604 1606 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34]) (code (:standard-properties [1570 nil nil nil 1604 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38] :value "org-export-with-sub-superscripts")))) (table-row (:standard-properties [1607 1607 1608 1645 1646 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1608 nil 1609 1620 1622 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35]) (code (:standard-properties [1609 nil nil nil 1620 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38] :value ":with-toc"))) (table-cell (:standard-properties [1622 nil 1622 1643 1645 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35]) (code (:standard-properties [1622 nil nil nil 1643 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39] :value "org-export-with-toc")))) (table-row (:standard-properties [1646 1646 1647 1690 1691 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1647 nil 1648 1662 1664 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36]) (code (:standard-properties [1648 nil nil nil 1662 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39] :value ":with-tables"))) (table-cell (:standard-properties [1664 nil 1664 1688 1690 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36]) (code (:standard-properties [1664 nil nil nil 1688 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40] :value "org-export-with-tables")))) (table-row (:standard-properties [1691 1691 1692 1731 1732 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1692 nil 1693 1705 1707 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37]) (code (:standard-properties [1693 nil nil nil 1705 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40] :value ":with-tags"))) (table-cell (:standard-properties [1707 nil 1707 1729 1731 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37]) (code (:standard-properties [1707 nil nil nil 1729 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41] :value "org-export-with-tags")))) (table-row (:standard-properties [1732 1732 1733 1774 1775 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1733 nil 1734 1747 1749 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38]) (code (:standard-properties [1734 nil nil nil 1747 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41] :value ":with-tasks"))) (table-cell (:standard-properties [1749 nil 1749 1772 1774 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38]) (code (:standard-properties [1749 nil nil nil 1772 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42] :value "org-export-with-tasks")))) (table-row (:standard-properties [1775 1775 1776 1827 1828 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1776 nil 1777 1795 1797 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39]) (code (:standard-properties [1777 nil nil nil 1795 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42] :value ":with-timestamps"))) (table-cell (:standard-properties [1797 nil 1797 1825 1827 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39]) (code (:standard-properties [1797 nil nil nil 1825 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43] :value "org-export-with-timestamps")))) (table-row (:standard-properties [1828 1828 1829 1870 1871 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1829 nil 1830 1843 1845 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40]) (code (:standard-properties [1830 nil nil nil 1843 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43] :value ":with-title"))) (table-cell (:standard-properties [1845 nil 1845 1868 1870 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40]) (code (:standard-properties [1845 nil nil nil 1868 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #44] :value "org-export-with-title")))) (table-row (:standard-properties [1871 1871 1872 1929 1930 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1872 nil 1873 1894 1896 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41]) (code (:standard-properties [1873 nil nil nil 1894 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #44] :value ":with-todo-keywords"))) (table-cell (:standard-properties [1896 nil 1896 1927 1929 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41]) (code (:standard-properties [1896 nil nil nil 1927 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #45] :value "org-export-with-todo-keywords")))) (table-row (:standard-properties [1930 1930 1931 1989 1990 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1931 nil 1932 1955 1957 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42]) (code (:standard-properties [1932 nil nil nil 1955 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #45] :value ":with-cite-processors"))) (table-cell (:standard-properties [1957 nil 1957 1987 1989 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42]) (code (:standard-properties [1957 nil nil nil 1987 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #46] :value "org-export-process-citations")))) (table-row (:standard-properties [1990 1990 1991 2038 2039 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1991 nil 1992 2006 2008 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43]) (code (:standard-properties [1992 nil nil nil 2006 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #46] :value ":cite-export"))) (table-cell (:standard-properties [2008 nil 2008 2036 2038 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43]) (code (:standard-properties [2008 nil nil nil 2036 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #47] :value "org-cite-export-processors"))))) (:with-special-rows t :with-cite-processors nil :title nil :date nil :author (#("Po Lu" 0 5 (:parent #10))) :email "staff@trinity" :language "en" :select-tags ("export") :exclude-tags ("noexport") :creator "Emacs 30.0.50 (Org mode 9.7.3)" :headline-levels 3 :preserve-breaks nil :section-numbers t :time-stamp-file t :with-archived-trees headline :with-author t :expand-links t :with-broken-links nil :with-clocks nil :with-creator nil :with-date t :with-drawers (not "LOGBOOK") :with-email nil :with-emphasize t :with-entities t :with-fixed-width t :with-footnotes t :with-inlinetasks t :with-latex t :with-planning nil :with-priority nil :with-properties nil :with-smart-quotes nil :with-special-strings t :with-statistics-cookies t :with-sub-superscript t :with-toc t :with-tables t :with-tags t :with-tasks t :with-timestamps t :with-title t :with-todo-keywords t :cite-export ((t basic)) :backend org :back-end #s(org-export-backend :name nil :parent org :transcoders ((table lambda (table contents info) (concat nil (org-export-with-backend 'org table contents info) nil)) (table-row lambda (row contents info) (if (eq (org-element-property :type row) 'rule) (org-export-with-backend 'org row nil info) (let ((headerp nil) (last-header-p nil) (lastp (not (org-export-get-next-element row info)))) (when contents (cond nil nil nil (t (concat (cond nil nil nil (t (org-export-with-backend 'org row contents info)))))))))) (table-cell lambda (cell contents info) nil (let ((headerp nil) (column nil)) (when contents nil (cond nil nil)) (org-export-with-backend 'org cell contents info))) (macro lambda (m c i) (org-element-macro-interpreter m nil))) :options nil :filters nil :blocks nil :menu nil) :filter-parse-tree (org-org--add-missing-sections) :ignore-list nil :translate-alist ((table lambda (table contents info) (concat nil (org-export-with-backend 'org table contents info) nil)) (table-row lambda (row contents info) (if (eq (org-element-property :type row) 'rule) (org-export-with-backend 'org row nil info) (let ((headerp nil) (last-header-p nil) (lastp (not (org-export-get-next-element row info)))) (when contents (cond nil nil nil (t (concat (cond nil nil nil (t (org-export-with-backend 'org row contents info)))))))))) (table-cell lambda (cell contents info) nil (let ((headerp nil) (column nil)) (when contents nil (cond nil nil)) (org-export-with-backend 'org cell contents info))) (macro lambda (m c i) (org-element-macro-interpreter m nil)) (babel-call . org-org-identity) (bold . org-org-identity) (center-block . org-org-identity) (clock . org-org-identity) (code . org-org-identity) (diary-sexp . org-org-identity) (drawer . org-org-identity) (dynamic-block . org-org-identity) (entity . org-org-identity) (example-block . org-org-identity) (export-block . org-org-export-block) (fixed-width . org-org-identity) (footnote-definition . ignore) (footnote-reference . org-org-identity) (headline . org-org-headline) (horizontal-rule . org-org-identity) (inline-babel-call . org-org-identity) (inline-src-block . org-org-identity) (inlinetask . org-org-identity) (italic . org-org-identity) (citation . org-org-identity) (citation-reference . org-org-identity) (item . org-org-identity) (keyword . org-org-keyword) (latex-environment . org-org-identity) (latex-fragment . org-org-identity) (line-break . org-org-identity) (link . org-org-link) (node-property . org-org-identity) (template . org-org-template) (paragraph . org-org-identity) (plain-list . org-org-identity) (planning . org-org-identity) (property-drawer . org-org-identity) (quote-block . org-org-identity) (radio-target . org-org-identity) (section . org-org-section) (special-block . org-org-identity) (src-block . org-org-identity) (statistics-cookie . org-org-identity) (strike-through . org-org-identity) (subscript . org-org-identity) (superscript . org-org-identity) (table . org-org-identity) (table-cell . org-org-identity) (table-row . org-org-identity) (target . org-org-identity) (timestamp . org-org-timestamp) (underline . org-org-identity) (verbatim . org-org-identity) (verse-block . org-org-identity)) :exported-data #<hash-table eq 205/401 0x98e84d ...> :internal-references nil)) (prog1 (org-export-data data new-info) (plist-put info :internal-references (plist-get new-info :internal-references))) (let ((new-info (org-combine-plists info (list :back-end backend :translate-alist (org-export-get-all-transcoders backend) :exported-data (make-hash-table :test 'eq :size 401))))) (prog1 (org-export-data data new-info) (plist-put info :internal-references (plist-get new-info :internal-references)))) org-export-data-with-backend((table (:standard-properties [1 1 1 2039 2039 0 nil top-comment nil nil nil nil nil nil #<killed buffer> nil nil (section (:standard-properties [1 1 1 2039 2039 0 nil first-section nil nil nil 1 2039 nil #<killed buffer> nil nil (org-data (:standard-properties [1 1 1 2039 2039 0 nil org-data nil nil nil 3 2039 nil #<killed buffer> nil nil nil] :path nil :CATEGORY nil) #5)]) #0)] :type org :tblfm nil :value nil) (table-row (:standard-properties [1 1 2 32 33 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [2 nil 3 12 14 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #3]) (code (:standard-properties [3 nil nil nil 12 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #6] :value ":author"))) (table-cell (:standard-properties [14 nil 14 30 32 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #3]) (code (:standard-properties [14 nil nil nil 30 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7] :value "user-full-name")))) (table-row (:standard-properties [33 33 34 66 67 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [34 nil 35 43 45 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #4]) (code (:standard-properties [35 nil nil nil 43 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7] :value ":email"))) (table-cell (:standard-properties [45 nil 45 64 66 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #4]) (code (:standard-properties [45 nil nil nil 64 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8] :value "user-mail-address")))) (table-row (:standard-properties [67 67 68 113 114 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [68 nil 69 80 82 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #5]) (code (:standard-properties [69 nil nil nil 80 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8] :value ":language"))) (table-cell (:standard-properties [82 nil 82 111 113 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #5]) (code (:standard-properties [82 nil nil nil 111 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9] :value "org-export-default-language")))) (table-row (:standard-properties [114 114 115 158 159 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [115 nil 116 130 132 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #6]) (code (:standard-properties [116 nil nil nil 130 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9] :value ":select-tags"))) (table-cell (:standard-properties [132 nil 132 156 158 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #6]) (code (:standard-properties [132 nil nil nil 156 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10] :value "org-export-select-tags")))) (table-row (:standard-properties [159 159 160 205 206 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [160 nil 161 176 178 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7]) (code (:standard-properties [161 nil nil nil 176 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10] :value ":exclude-tags"))) (table-cell (:standard-properties [178 nil 178 203 205 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #7]) (code (:standard-properties [178 nil nil nil 203 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11] :value "org-export-exclude-tags")))) (table-row (:standard-properties [206 206 207 249 250 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [207 nil 208 218 220 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8]) (code (:standard-properties [208 nil nil nil 218 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11] :value ":creator"))) (table-cell (:standard-properties [220 nil 220 247 249 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #8]) (code (:standard-properties [220 nil nil nil 247 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12] :value "org-export-creator-string")))) (table-row (:standard-properties [250 250 251 302 303 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [251 nil 252 270 272 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9]) (code (:standard-properties [252 nil nil nil 270 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12] :value ":headline-levels"))) (table-cell (:standard-properties [272 nil 272 300 302 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #9]) (code (:standard-properties [272 nil nil nil 300 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13] :value "org-export-headline-levels")))) (table-row (:standard-properties [303 303 304 355 356 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [304 nil 305 323 325 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10]) (code (:standard-properties [305 nil nil nil 323 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13] :value ":preserve-breaks"))) (table-cell (:standard-properties [325 nil 325 353 355 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #10]) (code (:standard-properties [325 nil nil nil 353 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14] :value "org-export-preserve-breaks")))) (table-row (:standard-properties [356 356 357 413 414 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [357 nil 358 376 378 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11]) (code (:standard-properties [358 nil nil nil 376 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14] :value ":section-numbers"))) (table-cell (:standard-properties [378 nil 378 411 413 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #11]) (code (:standard-properties [378 nil nil nil 411 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15] :value "org-export-with-section-numbers")))) (table-row (:standard-properties [414 414 415 465 466 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [415 nil 416 434 436 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12]) (code (:standard-properties [416 nil nil nil 434 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15] :value ":time-stamp-file"))) (table-cell (:standard-properties [436 nil 436 463 465 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #12]) (code (:standard-properties [436 nil nil nil 463 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16] :value "org-export-timestamp-file")))) (table-row (:standard-properties [466 466 467 526 527 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [467 nil 468 490 492 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13]) (code (:standard-properties [468 nil nil nil 490 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16] :value ":with-archived-trees"))) (table-cell (:standard-properties [492 nil 492 524 526 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #13]) (code (:standard-properties [492 nil nil nil 524 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17] :value "org-export-with-archived-trees")))) (table-row (:standard-properties [527 527 528 571 572 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [528 nil 529 543 545 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14]) (code (:standard-properties [529 nil nil nil 543 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17] :value ":with-author"))) (table-cell (:standard-properties [545 nil 545 569 571 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #14]) (code (:standard-properties [545 nil nil nil 569 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18] :value "org-export-with-author")))) (table-row (:standard-properties [572 572 573 618 619 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [573 nil 574 589 591 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15]) (code (:standard-properties [574 nil nil nil 589 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18] :value ":expand-links"))) (table-cell (:standard-properties [591 nil 591 616 618 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #15]) (code (:standard-properties [591 nil nil nil 616 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19] :value "org-export-expand-links")))) (table-row (:standard-properties [619 619 620 675 676 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [620 nil 621 641 643 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16]) (code (:standard-properties [621 nil nil nil 641 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19] :value ":with-broken-links"))) (table-cell (:standard-properties [643 nil 643 673 675 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #16]) (code (:standard-properties [643 nil nil nil 673 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20] :value "org-export-with-broken-links")))) (table-row (:standard-properties [676 676 677 720 721 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [677 nil 678 692 694 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17]) (code (:standard-properties [678 nil nil nil 692 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20] :value ":with-clocks"))) (table-cell (:standard-properties [694 nil 694 718 720 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #17]) (code (:standard-properties [694 nil nil nil 718 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21] :value "org-export-with-clocks")))) (table-row (:standard-properties [721 721 722 767 768 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [722 nil 723 738 740 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18]) (code (:standard-properties [723 nil nil nil 738 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21] :value ":with-creator"))) (table-cell (:standard-properties [740 nil 740 765 767 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #18]) (code (:standard-properties [740 nil nil nil 765 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22] :value "org-export-with-creator")))) (table-row (:standard-properties [768 768 769 808 809 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [769 nil 770 782 784 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19]) (code (:standard-properties [770 nil nil nil 782 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22] :value ":with-date"))) (table-cell (:standard-properties [784 nil 784 806 808 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #19]) (code (:standard-properties [784 nil nil nil 806 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23] :value "org-export-with-date")))) (table-row (:standard-properties [809 809 810 855 856 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [810 nil 811 826 828 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20]) (code (:standard-properties [811 nil nil nil 826 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23] :value ":with-drawers"))) (table-cell (:standard-properties [828 nil 828 853 855 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #20]) (code (:standard-properties [828 nil nil nil 853 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24] :value "org-export-with-drawers")))) (table-row (:standard-properties [856 856 857 898 899 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [857 nil 858 871 873 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21]) (code (:standard-properties [858 nil nil nil 871 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24] :value ":with-email"))) (table-cell (:standard-properties [873 nil 873 896 898 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #21]) (code (:standard-properties [873 nil nil nil 896 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25] :value "org-export-with-email")))) (table-row (:standard-properties [899 899 900 949 950 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [900 nil 901 918 920 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22]) (code (:standard-properties [901 nil nil nil 918 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25] :value ":with-emphasize"))) (table-cell (:standard-properties [920 nil 920 947 949 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #22]) (code (:standard-properties [920 nil nil nil 947 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26] :value "org-export-with-emphasize")))) (table-row (:standard-properties [950 950 951 998 999 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [951 nil 952 968 970 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23]) (code (:standard-properties [952 nil nil nil 968 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26] :value ":with-entities"))) (table-cell (:standard-properties [970 nil 970 996 998 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #23]) (code (:standard-properties [970 nil nil nil 996 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27] :value "org-export-with-entities")))) (table-row (:standard-properties [999 999 1000 1053 1054 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1000 nil 1001 1020 1022 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24]) (code (:standard-properties [1001 nil nil nil 1020 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27] :value ":with-fixed-width"))) (table-cell (:standard-properties [1022 nil 1022 1051 1053 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #24]) (code (:standard-properties [1022 nil nil nil 1051 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28] :value "org-export-with-fixed-width")))) (table-row (:standard-properties [1054 1054 1055 1104 1105 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1055 nil 1056 1073 1075 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25]) (code (:standard-properties [1056 nil nil nil 1073 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28] :value ":with-footnotes"))) (table-cell (:standard-properties [1075 nil 1075 1102 1104 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #25]) (code (:standard-properties [1075 nil nil nil 1102 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29] :value "org-export-with-footnotes")))) (table-row (:standard-properties [1105 1105 1106 1159 1160 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1106 nil 1107 1126 1128 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26]) (code (:standard-properties [1107 nil nil nil 1126 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29] :value ":with-inlinetasks"))) (table-cell (:standard-properties [1128 nil 1128 1157 1159 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #26]) (code (:standard-properties [1128 nil nil nil 1157 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30] :value "org-export-with-inlinetasks")))) (table-row (:standard-properties [1160 1160 1161 1202 1203 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1161 nil 1162 1175 1177 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27]) (code (:standard-properties [1162 nil nil nil 1175 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30] :value ":with-latex"))) (table-cell (:standard-properties [1177 nil 1177 1200 1202 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #27]) (code (:standard-properties [1177 nil nil nil 1200 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31] :value "org-export-with-latex")))) (table-row (:standard-properties [1203 1203 1204 1251 1252 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1204 nil 1205 1221 1223 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28]) (code (:standard-properties [1205 nil nil nil 1221 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31] :value ":with-planning"))) (table-cell (:standard-properties [1223 nil 1223 1249 1251 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #28]) (code (:standard-properties [1223 nil nil nil 1249 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32] :value "org-export-with-planning")))) (table-row (:standard-properties [1252 1252 1253 1300 1301 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1253 nil 1254 1270 1272 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29]) (code (:standard-properties [1254 nil nil nil 1270 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32] :value ":with-priority"))) (table-cell (:standard-properties [1272 nil 1272 1298 1300 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #29]) (code (:standard-properties [1272 nil nil nil 1298 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33] :value "org-export-with-priority")))) (table-row (:standard-properties [1301 1301 1302 1353 1354 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1302 nil 1303 1321 1323 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30]) (code (:standard-properties [1303 nil nil nil 1321 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33] :value ":with-properties"))) (table-cell (:standard-properties [1323 nil 1323 1351 1353 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #30]) (code (:standard-properties [1323 nil nil nil 1351 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34] :value "org-export-with-properties")))) (table-row (:standard-properties [1354 1354 1355 1410 1411 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1355 nil 1356 1376 1378 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31]) (code (:standard-properties [1356 nil nil nil 1376 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34] :value ":with-smart-quotes"))) (table-cell (:standard-properties [1378 nil 1378 1408 1410 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #31]) (code (:standard-properties [1378 nil nil nil 1408 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35] :value "org-export-with-smart-quotes")))) (table-row (:standard-properties [1411 1411 1412 1473 1474 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1412 nil 1413 1436 1438 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32]) (code (:standard-properties [1413 nil nil nil 1436 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35] :value ":with-special-strings"))) (table-cell (:standard-properties [1438 nil 1438 1471 1473 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #32]) (code (:standard-properties [1438 nil nil nil 1471 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36] :value "org-export-with-special-strings")))) (table-row (:standard-properties [1474 1474 1475 1542 1543 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1475 nil 1476 1502 1504 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33]) (code (:standard-properties [1476 nil nil nil 1502 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36] :value ":with-statistics-cookies"))) (table-cell (:standard-properties [1504 nil 1504 1540 1542 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #33]) (code (:standard-properties [1504 nil nil nil 1540 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37] :value "org-export-with-statistics-cookies")))) (table-row (:standard-properties [1543 1543 1544 1606 1607 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1544 nil 1545 1568 1570 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34]) (code (:standard-properties [1545 nil nil nil 1568 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37] :value ":with-sub-superscript"))) (table-cell (:standard-properties [1570 nil 1570 1604 1606 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #34]) (code (:standard-properties [1570 nil nil nil 1604 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38] :value "org-export-with-sub-superscripts")))) (table-row (:standard-properties [1607 1607 1608 1645 1646 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1608 nil 1609 1620 1622 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35]) (code (:standard-properties [1609 nil nil nil 1620 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38] :value ":with-toc"))) (table-cell (:standard-properties [1622 nil 1622 1643 1645 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #35]) (code (:standard-properties [1622 nil nil nil 1643 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39] :value "org-export-with-toc")))) (table-row (:standard-properties [1646 1646 1647 1690 1691 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1647 nil 1648 1662 1664 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36]) (code (:standard-properties [1648 nil nil nil 1662 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39] :value ":with-tables"))) (table-cell (:standard-properties [1664 nil 1664 1688 1690 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #36]) (code (:standard-properties [1664 nil nil nil 1688 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40] :value "org-export-with-tables")))) (table-row (:standard-properties [1691 1691 1692 1731 1732 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1692 nil 1693 1705 1707 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37]) (code (:standard-properties [1693 nil nil nil 1705 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40] :value ":with-tags"))) (table-cell (:standard-properties [1707 nil 1707 1729 1731 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #37]) (code (:standard-properties [1707 nil nil nil 1729 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41] :value "org-export-with-tags")))) (table-row (:standard-properties [1732 1732 1733 1774 1775 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1733 nil 1734 1747 1749 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38]) (code (:standard-properties [1734 nil nil nil 1747 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41] :value ":with-tasks"))) (table-cell (:standard-properties [1749 nil 1749 1772 1774 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #38]) (code (:standard-properties [1749 nil nil nil 1772 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42] :value "org-export-with-tasks")))) (table-row (:standard-properties [1775 1775 1776 1827 1828 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1776 nil 1777 1795 1797 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39]) (code (:standard-properties [1777 nil nil nil 1795 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42] :value ":with-timestamps"))) (table-cell (:standard-properties [1797 nil 1797 1825 1827 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #39]) (code (:standard-properties [1797 nil nil nil 1825 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43] :value "org-export-with-timestamps")))) (table-row (:standard-properties [1828 1828 1829 1870 1871 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1829 nil 1830 1843 1845 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40]) (code (:standard-properties [1830 nil nil nil 1843 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43] :value ":with-title"))) (table-cell (:standard-properties [1845 nil 1845 1868 1870 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #40]) (code (:standard-properties [1845 nil nil nil 1868 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #44] :value "org-export-with-title")))) (table-row (:standard-properties [1871 1871 1872 1929 1930 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1872 nil 1873 1894 1896 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41]) (code (:standard-properties [1873 nil nil nil 1894 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #44] :value ":with-todo-keywords"))) (table-cell (:standard-properties [1896 nil 1896 1927 1929 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #41]) (code (:standard-properties [1896 nil nil nil 1927 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #45] :value "org-export-with-todo-keywords")))) (table-row (:standard-properties [1930 1930 1931 1989 1990 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1931 nil 1932 1955 1957 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42]) (code (:standard-properties [1932 nil nil nil 1955 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #45] :value ":with-cite-processors"))) (table-cell (:standard-properties [1957 nil 1957 1987 1989 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #42]) (code (:standard-properties [1957 nil nil nil 1987 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #46] :value "org-export-process-citations")))) (table-row (:standard-properties [1990 1990 1991 2038 2039 0 nil table-row nil nil nil nil nil nil #<killed buffer> nil nil #0] :type standard) (table-cell (:standard-properties [1991 nil 1992 2006 2008 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43]) (code (:standard-properties [1992 nil nil nil 2006 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #46] :value ":cite-export"))) (table-cell (:standard-properties [2008 nil 2008 2036 2038 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #43]) (code (:standard-properties [2008 nil nil nil 2036 0 nil nil nil nil nil nil nil nil #<killed buffer> nil nil #47] :value "org-cite-export-processors"))))) #s(org-export-backend :name nil :parent org :transcoders ((table lambda (table contents info) (concat nil (org-export-with-backend 'org table contents info) nil)) (table-row lambda (row contents info) (if (eq (org-element-property :type row) 'rule) (org-export-with-backend 'org row nil info) (let ((headerp nil) (last-header-p nil) (lastp (not (org-export-get-next-element row info)))) (when contents (cond nil nil nil (t (concat (cond nil nil nil (t (org-export-with-backend 'org row contents info)))))))))) (table-cell lambda (cell contents info) nil (let ((headerp nil) (column nil)) (when contents nil (cond nil nil)) (org-export-with-backend 'org cell contents info))) (macro lambda (m c i) (org-element-macro-interpreter m nil))) :options nil :filters nil :blocks nil :menu nil) (:with-special-rows t :with-cite-processors nil :title nil :date nil :author (#("Po Lu" 0 5 (:parent #10))) :email "staff@trinity" :language "en" :select-tags ("export") :exclude-tags ("noexport") :creator "Emacs 30.0.50 (Org mode 9.7.3)" :headline-levels 3 :preserve-breaks nil :section-numbers t :time-stamp-file t :with-archived-trees headline :with-author t :expand-links t :with-broken-links nil :with-clocks nil :with-creator nil :with-date t :with-drawers (not "LOGBOOK") :with-email nil :with-emphasize t :with-entities t :with-fixed-width t :with-footnotes t :with-inlinetasks t :with-latex t :with-planning nil :with-priority nil :with-properties nil :with-smart-quotes nil :with-special-strings t :with-statistics-cookies t :with-sub-superscript t :with-toc t :with-tables t :with-tags t :with-tasks t :with-timestamps t :with-title t :with-todo-keywords t :cite-export ((t basic)) :backend org :back-end #s(org-export-backend :name org :parent nil :transcoders ((babel-call . org-org-identity) (bold . org-org-identity) (center-block . org-org-identity) (clock . org-org-identity) (code . org-org-identity) (diary-sexp . org-org-identity) (drawer . org-org-identity) (dynamic-block . org-org-identity) (entity . org-org-identity) (example-block . org-org-identity) (export-block . org-org-export-block) (fixed-width . org-org-identity) (footnote-definition . ignore) (footnote-reference . org-org-identity) (headline . org-org-headline) (horizontal-rule . org-org-identity) (inline-babel-call . org-org-identity) (inline-src-block . org-org-identity) (inlinetask . org-org-identity) (italic . org-org-identity) (citation . org-org-identity) (citation-reference . org-org-identity) (item . org-org-identity) (keyword . org-org-keyword) (latex-environment . org-org-identity) (latex-fragment . org-org-identity) (line-break . org-org-identity) (link . org-org-link) (node-property . org-org-identity) (template . org-org-template) (paragraph . org-org-identity) (plain-list . org-org-identity) (planning . org-org-identity) (property-drawer . org-org-identity) (quote-block . org-org-identity) (radio-target . org-org-identity) (section . org-org-section) (special-block . org-org-identity) (src-block . org-org-identity) (statistics-cookie . org-org-identity) (strike-through . org-org-identity) (subscript . org-org-identity) (superscript . org-org-identity) (table . org-org-identity) (table-cell . org-org-identity) (table-row . org-org-identity) (target . org-org-identity) (timestamp . org-org-timestamp) (underline . org-org-identity) (verbatim . org-org-identity) (verse-block . org-org-identity)) :options ((:with-special-rows nil nil org-org-with-special-rows) (:with-cite-processors nil nil org-org-with-cite-processors)) :filters ((:filter-parse-tree . org-org--add-missing-sections)) :blocks nil :menu (79 "Export to Org" ((79 "As Org buffer" org-org-export-as-org) (111 "As Org file" org-org-export-to-org) (118 "As Org file and open" (lambda (a s v b) (if a (org-org-export-to-org t s v b) (org-open-file (org-org-export-to-org nil s v b)))))))) :filter-parse-tree (org-org--add-missing-sections) :ignore-list nil)) (let ((output (org-export-data-with-backend data custom-backend info))) (if (org-string-nw-p output) (substring-no-properties output 0 -1) "")) (let* ((backend (plist-get params :backend)) (custom-backend (org-export-create-backend :parent (or backend 'org) :transcoders (cons (cons 'table (org-table--to-generic-table params)) (cons (cons 'table-row (org-table--to-generic-row params)) (cons (cons 'table-cell (org-table--to-generic-cell params)) '((macro lambda (m c i) (org-element-macro-interpreter m nil)))))))) data info) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (let ((org-inhibit-startup t)) (org-mode)) (let ((org-fold-core--ignore-modifications t)) (unwind-protect (progn (let ((standard-output (current-buffer)) (org-element-use-cache nil)) (let ((tail table)) (while tail (let ((e (car tail))) (cond ((eq e 'hline) (princ "|--\n")) ((consp e) (princ "| ") (let ((tail e)) (while tail (let ((c (car tail))) (princ c) (princ " |") (setq tail (cdr tail))))) (princ "\n"))) (setq tail (cdr tail)))))) (org-element-cache-reset) (setq info (let ((org-export-filters-alist nil)) (org-export-install-filters (org-combine-plists (org-export-get-environment backend nil params) (list ':back-end (org-export-get-backend backend)))))) (setq data (org-export-filter-apply-functions (plist-get info :filter-parse-tree) (org-element-map (org-element-parse-buffer) 'table #'identity nil t) info)) (if (and backend (symbolp backend) (not (org-export-get-backend backend))) (progn (user-error "Unknown :backend value")))) (setq org-fold-core--last-buffer-chars-modified-tick (buffer-chars-modified-tick))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (if (or (not backend) (plist-get info :raw)) (progn (require 'ox-org))) (let ((skip (plist-get info :skip))) (if skip (progn (if (wholenump skip) nil (user-error "Wrong :skip value")) (let ((n 0)) (org-element-map data 'table-row #'(lambda (row) (if (>= n skip) t (org-element-extract row) (setq n (1+ n)) nil)) nil t))))) (let ((skipcols (plist-get info :skipcols))) (if skipcols (progn (if (consp skipcols) nil (user-error "Wrong :skipcols value")) (org-element-map data 'table #'(lambda (table) (let ((specialp (org-export-table-has-special-column-p table))) (let ((tail (org-element-contents table))) (while tail (let ((row (car tail))) (if (eq (org-element--property :type row nil nil) 'standard) (progn (let ((c 1)) (let ((tail (nthcdr (if specialp 1 0) (org-element-contents row)))) (while tail (let ((cell (car tail))) (if (memq c skipcols) (progn (org-element-extract cell))) (setq c (1+ c)) (setq tail (cdr tail)))))))) (setq tail (cdr tail))))))))))) (let ((special? (org-export-table-has-special-column-p data)) ignore) (org-element-map data (if special? '(table-cell table-row) 'table-row) #'(lambda (datum) (if (if (eq (org-element-type datum t) 'table-row) (org-export-table-row-is-special-p datum nil) (org-export-first-sibling-p datum nil)) (progn (setq ignore (cons datum ignore)))))) (setq info (plist-put info :ignore-list ignore))) (let ((output (org-export-data-with-backend data custom-backend info))) (if (org-string-nw-p output) (substring-no-properties output 0 -1) ""))) orgtbl-to-generic((("~:author~" "~user-full-name~") ("~:email~" "~user-mail-address~") ("~:language~" "~org-export-default-language~") ("~:select-tags~" "~org-export-select-tags~") ("~:exclude-tags~" "~org-export-exclude-tags~") ("~:creator~" "~org-export-creator-string~") ("~:headline-levels~" "~org-export-headline-levels~") ("~:preserve-breaks~" "~org-export-preserve-breaks~") ("~:section-numbers~" "~org-export-with-section-numbers~") ("~:time-stamp-file~" "~org-export-timestamp-file~") ("~:with-archived-trees~" "~org-export-with-archived-trees~") ("~:with-author~" "~org-export-with-author~") ("~:expand-links~" "~org-export-expand-links~") ("~:with-broken-links~" "~org-export-with-broken-links~") ("~:with-clocks~" "~org-export-with-clocks~") ("~:with-creator~" "~org-export-with-creator~") ("~:with-date~" "~org-export-with-date~") ("~:with-drawers~" "~org-export-with-drawers~") ("~:with-email~" "~org-export-with-email~") ("~:with-emphasize~" "~org-export-with-emphasize~") ("~:with-entities~" "~org-export-with-entities~") ("~:with-fixed-width~" "~org-export-with-fixed-width~") ("~:with-footnotes~" "~org-export-with-footnotes~") ("~:with-inlinetasks~" "~org-export-with-inlinetasks~") ("~:with-latex~" "~org-export-with-latex~") ("~:with-planning~" "~org-export-with-planning~") ("~:with-priority~" "~org-export-with-priority~") ("~:with-properties~" "~org-export-with-properties~") ("~:with-smart-quotes~" "~org-export-with-smart-quotes~") ("~:with-special-strings~" "~org-export-with-special-strings~") ("~:with-statistics-cookies~" "~org-export-with-statistics-cookies~") ("~:with-sub-superscript~" "~org-export-with-sub-superscripts~") ("~:with-toc~" "~org-export-with-toc~") ("~:with-tables~" "~org-export-with-tables~") ("~:with-tags~" "~org-export-with-tags~") ("~:with-tasks~" "~org-export-with-tasks~") ("~:with-timestamps~" "~org-export-with-timestamps~") ("~:with-title~" "~org-export-with-title~") ("~:with-todo-keywords~" "~org-export-with-todo-keywords~") ("~:with-cite-processors~" "~org-export-process-citations~") ("~:cite-export~" "~org-cite-export-processors~")) (:backend org)) orgtbl-to-orgtbl((("~:author~" "~user-full-name~") ("~:email~" "~user-mail-address~") ("~:language~" "~org-export-default-language~") ("~:select-tags~" "~org-export-select-tags~") ("~:exclude-tags~" "~org-export-exclude-tags~") ("~:creator~" "~org-export-creator-string~") ("~:headline-levels~" "~org-export-headline-levels~") ("~:preserve-breaks~" "~org-export-preserve-breaks~") ("~:section-numbers~" "~org-export-with-section-numbers~") ("~:time-stamp-file~" "~org-export-timestamp-file~") ("~:with-archived-trees~" "~org-export-with-archived-trees~") ("~:with-author~" "~org-export-with-author~") ("~:expand-links~" "~org-export-expand-links~") ("~:with-broken-links~" "~org-export-with-broken-links~") ("~:with-clocks~" "~org-export-with-clocks~") ("~:with-creator~" "~org-export-with-creator~") ("~:with-date~" "~org-export-with-date~") ("~:with-drawers~" "~org-export-with-drawers~") ("~:with-email~" "~org-export-with-email~") ("~:with-emphasize~" "~org-export-with-emphasize~") ("~:with-entities~" "~org-export-with-entities~") ("~:with-fixed-width~" "~org-export-with-fixed-width~") ("~:with-footnotes~" "~org-export-with-footnotes~") ("~:with-inlinetasks~" "~org-export-with-inlinetasks~") ("~:with-latex~" "~org-export-with-latex~") ("~:with-planning~" "~org-export-with-planning~") ("~:with-priority~" "~org-export-with-priority~") ("~:with-properties~" "~org-export-with-properties~") ("~:with-smart-quotes~" "~org-export-with-smart-quotes~") ("~:with-special-strings~" "~org-export-with-special-strings~") ("~:with-statistics-cookies~" "~org-export-with-statistics-cookies~") ("~:with-sub-superscript~" "~org-export-with-sub-superscripts~") ("~:with-toc~" "~org-export-with-toc~") ("~:with-tables~" "~org-export-with-tables~") ("~:with-tags~" "~org-export-with-tags~") ("~:with-tasks~" "~org-export-with-tasks~") ("~:with-timestamps~" "~org-export-with-timestamps~") ("~:with-title~" "~org-export-with-title~") ("~:with-todo-keywords~" "~org-export-with-todo-keywords~") ("~:with-cite-processors~" "~org-export-process-citations~") ("~:cite-export~" "~org-cite-export-processors~")) nil) (concat (orgtbl-to-orgtbl (if (cl-every #'(lambda (e) (or (eq e 'hline) (listp e))) result) result (list result)) nil) "\n") (insert (concat (orgtbl-to-orgtbl (if (cl-every #'(lambda (e) (or (eq e 'hline) (listp e))) result) result (list result)) nil) "\n")) (cond ((null result)) ((member "list" result-params) (insert (org-trim (org-list-to-org (cons 'unordered (mapcar #'(lambda (e) (cond ((stringp e) (list e)) ((listp e) (mapcar #'(lambda (x) (if (stringp x) x (format "%S" x))) e)) (t (list (format "%S" e))))) (if (listp result) result (split-string result "\n" t)))) '(:splicep nil :istart "- " :iend "\n"))) "\n")) ((funcall tabulablep result) (goto-char beg) (insert (concat (orgtbl-to-orgtbl (if (cl-every #'(lambda (e) (or (eq e 'hline) (listp e))) result) result (list result)) nil) "\n")) (goto-char beg) (if (org-at-table-p) (progn (org-table-align))) (goto-char (org-table-end))) ((listp result) (insert (format "%s\n" result))) ((member "file" result-params) (if inline (progn (setq result (org-macro-escape-arguments result)))) (insert result)) ((and inline (not (member "raw" result-params))) (insert (org-macro-escape-arguments (org-babel-chomp result "\n")))) (t (goto-char beg) (insert result))) (let ((wrap #'(lambda (start finish &optional no-escape no-newlines inline-start inline-finish) (if inline (progn (setq start inline-start) (setq finish inline-finish) (setq no-newlines t))) (let ((before-finish (copy-marker end))) (goto-char end) (insert (concat finish (if no-newlines nil "\n"))) (goto-char beg) (insert (concat start (if no-newlines nil "\n"))) (if no-escape nil (org-escape-code-in-region (min (point) before-finish) before-finish)) (goto-char end)))) (tabulablep #'(lambda (r) (and (proper-list-p r) (cl-every #'(lambda (e) (or (atom e) (proper-list-p e))) result))))) (cond ((null result)) ((member "list" result-params) (insert (org-trim (org-list-to-org (cons 'unordered (mapcar #'(lambda (e) (cond ((stringp e) (list e)) ((listp e) (mapcar #'(lambda (x) (if (stringp x) x (format "%S" x))) e)) (t (list (format "%S" e))))) (if (listp result) result (split-string result "\n" t)))) '(:splicep nil :istart "- " :iend "\n"))) "\n")) ((funcall tabulablep result) (goto-char beg) (insert (concat (orgtbl-to-orgtbl (if (cl-every #'(lambda (e) (or (eq e 'hline) (listp e))) result) result (list result)) nil) "\n")) (goto-char beg) (if (org-at-table-p) (progn (org-table-align))) (goto-char (org-table-end))) ((listp result) (insert (format "%s\n" result))) ((member "file" result-params) (if inline (progn (setq result (org-macro-escape-arguments result)))) (insert result)) ((and inline (not (member "raw" result-params))) (insert (org-macro-escape-arguments (org-babel-chomp result "\n")))) (t (goto-char beg) (insert result))) (setq end (copy-marker (point) t)) (cond ((assq :wrap (nth 2 info)) (let* ((full (or (cdr (assq :wrap (nth 2 info))) "results")) (split (split-string full)) (type (car split)) (opening-line (concat "#+begin_" full)) (closing-line (concat "#+end_" type))) (cond ((org-string-equal-ignore-case type "export") (let ((backend (if (consp split) (let* ((x43 (cdr-safe split))) (cond ((null x43) (let nil "none")) ((consp x43) (let* ((x44 (car-safe x43))) (let ((b x44)) b)))))))) (funcall wrap opening-line closing-line nil nil (format "{{{results(@@%s:" backend) "@@)}}}"))) ((org-string-equal-ignore-case type "example") (funcall wrap opening-line closing-line nil nil "{{{results(=" "=)}}}")) ((org-string-equal-ignore-case type "src") (let ((inline-open (if (consp split) (let* ((x47 (cdr-safe split))) (cond ((null x47) (let nil "{{{results(src_none{")) ((consp x47) (let* ((x48 (car-safe x47)) (x49 (cdr-safe x47))) (if (null x49) (let ((language x48)) (format "{{{results(src_%s{" language)) (let ((language x48) (rest x49)) (let ((r (mapconcat #'identity rest " "))) (format "{{{results(src_%s[%s]{" language r))))))))))) (funcall wrap opening-line closing-line nil nil inline-open "})}}}"))) (t (funcall wrap opening-line closing-line t nil "{{{results(" ")}}}"))))) ((member "html" result-params) (funcall wrap "#+begin_export html" "#+end_export" nil nil "{{{results(@@html:" "@@)}}}")) ((member "latex" result-params) (funcall wrap "#+begin_export latex" "#+end_export" nil nil "{{{results(@@latex:" "@@)}}}")) ((member "org" result-params) (goto-char beg) (if (org-at-table-p) (progn (org-cycle))) (funcall wrap "#+begin_src org" "#+end_src" nil nil "{{{results(src_org{" "})}}}")) ((member "code" result-params) (let ((lang (or lang "none"))) (funcall wrap (format "#+begin_src %s%s" lang results-switches) "#+end_src" nil nil (format "{{{results(src_%s[%s]{" lang results-switches) "})}}}"))) ((member "raw" result-params) (goto-char beg) (if (org-at-table-p) (progn (org-cycle)))) ((or (member "drawer" result-params) (member "wrap" result-params)) (goto-char beg) (if (org-at-table-p) (progn (org-cycle))) (funcall wrap ":results:" ":end:" 'no-escape nil "{{{results(" ")}}}")) ((and inline (member "file" result-params)) (funcall wrap nil nil nil nil "{{{results(" ")}}}")) ((and (not (funcall tabulablep result)) (not (member "file" result-params))) (let ((org-babel-inline-result-wrap (format "{{{results(%s)}}}" org-babel-inline-result-wrap))) (org-babel-examplify-region beg end results-switches inline))))) (progn (if outside-scope (progn (widen))) (if existing-result (goto-char existing-result) (goto-char (org-element-end inline)) (skip-chars-backward " \11")) (if inline nil (setq indent (current-indentation)) (forward-line 1)) (setq beg (point)) (cond (inline (if existing-result nil (insert " ") (setq beg (point)))) ((member "replace" result-params) (delete-region (point) (org-babel-result-end))) ((member "append" result-params) (goto-char (org-babel-result-end)) (setq beg (point-marker)))) (setq results-switches (if results-switches (concat " " results-switches) "")) (let ((wrap #'(lambda (start finish &optional no-escape no-newlines inline-start inline-finish) (if inline (progn (setq start inline-start) (setq finish inline-finish) (setq no-newlines t))) (let ((before-finish (copy-marker end))) (goto-char end) (insert (concat finish (if no-newlines nil "\n"))) (goto-char beg) (insert (concat start (if no-newlines nil "\n"))) (if no-escape nil (org-escape-code-in-region (min (point) before-finish) before-finish)) (goto-char end)))) (tabulablep #'(lambda (r) (and (proper-list-p r) (cl-every #'(lambda (e) (or (atom e) (proper-list-p e))) result))))) (cond ((null result)) ((member "list" result-params) (insert (org-trim (org-list-to-org (cons 'unordered (mapcar #'(lambda (e) (cond ((stringp e) (list e)) ((listp e) (mapcar #'(lambda (x) (if (stringp x) x (format "%S" x))) e)) (t (list (format "%S" e))))) (if (listp result) result (split-string result "\n" t)))) '(:splicep nil :istart "- " :iend "\n"))) "\n")) ((funcall tabulablep result) (goto-char beg) (insert (concat (orgtbl-to-orgtbl (if (cl-every #'(lambda (e) (or (eq e 'hline) (listp e))) result) result (list result)) nil) "\n")) (goto-char beg) (if (org-at-table-p) (progn (org-table-align))) (goto-char (org-table-end))) ((listp result) (insert (format "%s\n" result))) ((member "file" result-params) (if inline (progn (setq result (org-macro-escape-arguments result)))) (insert result)) ((and inline (not (member "raw" result-params))) (insert (org-macro-escape-arguments (org-babel-chomp result "\n")))) (t (goto-char beg) (insert result))) (setq end (copy-marker (point) t)) (cond ((assq :wrap (nth 2 info)) (let* ((full (or (cdr (assq :wrap (nth 2 info))) "results")) (split (split-string full)) (type (car split)) (opening-line (concat "#+begin_" full)) (closing-line (concat "#+end_" type))) (cond ((org-string-equal-ignore-case type "export") (let ((backend (if (consp split) (let* ((x43 (cdr-safe split))) (cond ((null x43) (let nil "none")) ((consp x43) (let* ((x44 (car-safe x43))) (let ((b x44)) b)))))))) (funcall wrap opening-line closing-line nil nil (format "{{{results(@@%s:" backend) "@@)}}}"))) ((org-string-equal-ignore-case type "example") (funcall wrap opening-line closing-line nil nil "{{{results(=" "=)}}}")) ((org-string-equal-ignore-case type "src") (let ((inline-open (if (consp split) (let* ((x47 (cdr-safe split))) (cond ((null x47) (let nil "{{{results(src_none{")) ((consp x47) (let* ((x48 (car-safe x47)) (x49 (cdr-safe x47))) (if (null x49) (let ((language x48)) (format "{{{results(src_%s{" language)) (let ((language x48) (rest x49)) (let ((r (mapconcat #'identity rest " "))) (format "{{{results(src_%s[%s]{" language r))))))))))) (funcall wrap opening-line closing-line nil nil inline-open "})}}}"))) (t (funcall wrap opening-line closing-line t nil "{{{results(" ")}}}"))))) ((member "html" result-params) (funcall wrap "#+begin_export html" "#+end_export" nil nil "{{{results(@@html:" "@@)}}}")) ((member "latex" result-params) (funcall wrap "#+begin_export latex" "#+end_export" nil nil "{{{results(@@latex:" "@@)}}}")) ((member "org" result-params) (goto-char beg) (if (org-at-table-p) (progn (org-cycle))) (funcall wrap "#+begin_src org" "#+end_src" nil nil "{{{results(src_org{" "})}}}")) ((member "code" result-params) (let ((lang (or lang "none"))) (funcall wrap (format "#+begin_src %s%s" lang results-switches) "#+end_src" nil nil (format "{{{results(src_%s[%s]{" lang results-switches) "})}}}"))) ((member "raw" result-params) (goto-char beg) (if (org-at-table-p) (progn (org-cycle)))) ((or (member "drawer" result-params) (member "wrap" result-params)) (goto-char beg) (if (org-at-table-p) (progn (org-cycle))) (funcall wrap ":results:" ":end:" 'no-escape nil "{{{results(" ")}}}")) ((and inline (member "file" result-params)) (funcall wrap nil nil nil nil "{{{results(" ")}}}")) ((and (not (funcall tabulablep result)) (not (member "file" result-params))) (let ((org-babel-inline-result-wrap (format "{{{results(%s)}}}" org-babel-inline-result-wrap))) (org-babel-examplify-region beg end results-switches inline))))) (if (and (not inline) (numberp indent) (> indent 0) (not (and (listp result) (member "append" result-params)))) (progn (indent-rigidly beg end indent))) (let ((time-info (if (and exec-time (> (float-time exec-time) 0.05)) (format " (took %.1fs)" (float-time exec-time)) ""))) (if (null result) (if (member "value" result-params) (message "Code block returned no value%s." time-info) (message "Code block produced no output%s." time-info)) (message "Code block evaluation complete%s." time-info)))) (unwind-protect (progn (if outside-scope (progn (widen))) (if existing-result (goto-char existing-result) (goto-char (org-element-end inline)) (skip-chars-backward " \11")) (if inline nil (setq indent (current-indentation)) (forward-line 1)) (setq beg (point)) (cond (inline (if existing-result nil (insert " ") (setq beg (point)))) ((member "replace" result-params) (delete-region (point) (org-babel-result-end))) ((member "append" result-params) (goto-char (org-babel-result-end)) (setq beg (point-marker)))) (setq results-switches (if results-switches (concat " " results-switches) "")) (let ((wrap #'(lambda (start finish &optional no-escape no-newlines inline-start inline-finish) (if inline (progn (setq start inline-start) (setq finish inline-finish) (setq no-newlines t))) (let ((before-finish (copy-marker end))) (goto-char end) (insert (concat finish (if no-newlines nil "\n"))) (goto-char beg) (insert (concat start (if no-newlines nil "\n"))) (if no-escape nil (org-escape-code-in-region (min (point) before-finish) before-finish)) (goto-char end)))) (tabulablep #'(lambda (r) (and (proper-list-p r) (cl-every #'(lambda (e) (or (atom e) (proper-list-p e))) result))))) (cond ((null result)) ((member "list" result-params) (insert (org-trim (org-list-to-org (cons 'unordered (mapcar #'(lambda (e) (cond ((stringp e) (list e)) ((listp e) (mapcar #'(lambda (x) (if (stringp x) x (format "%S" x))) e)) (t (list (format "%S" e))))) (if (listp result) result (split-string result "\n" t)))) '(:splicep nil :istart "- " :iend "\n"))) "\n")) ((funcall tabulablep result) (goto-char beg) (insert (concat (orgtbl-to-orgtbl (if (cl-every #'(lambda (e) (or (eq e 'hline) (listp e))) result) result (list result)) nil) "\n")) (goto-char beg) (if (org-at-table-p) (progn (org-table-align))) (goto-char (org-table-end))) ((listp result) (insert (format "%s\n" result))) ((member "file" result-params) (if inline (progn (setq result (org-macro-escape-arguments result)))) (insert result)) ((and inline (not (member "raw" result-params))) (insert (org-macro-escape-arguments (org-babel-chomp result "\n")))) (t (goto-char beg) (insert result))) (setq end (copy-marker (point) t)) (cond ((assq :wrap (nth 2 info)) (let* ((full (or (cdr (assq :wrap (nth 2 info))) "results")) (split (split-string full)) (type (car split)) (opening-line (concat "#+begin_" full)) (closing-line (concat "#+end_" type))) (cond ((org-string-equal-ignore-case type "export") (let ((backend (if (consp split) (let* ((x43 (cdr-safe split))) (cond ((null x43) (let nil "none")) ((consp x43) (let* ((x44 (car-safe x43))) (let ((b x44)) b)))))))) (funcall wrap opening-line closing-line nil nil (format "{{{results(@@%s:" backend) "@@)}}}"))) ((org-string-equal-ignore-case type "example") (funcall wrap opening-line closing-line nil nil "{{{results(=" "=)}}}")) ((org-string-equal-ignore-case type "src") (let ((inline-open (if (consp split) (let* ((x47 (cdr-safe split))) (cond ((null x47) (let nil "{{{results(src_none{")) ((consp x47) (let* ((x48 (car-safe x47)) (x49 (cdr-safe x47))) (if (null x49) (let ((language x48)) (format "{{{results(src_%s{" language)) (let ((language x48) (rest x49)) (let ((r (mapconcat #'identity rest " "))) (format "{{{results(src_%s[%s]{" language r))))))))))) (funcall wrap opening-line closing-line nil nil inline-open "})}}}"))) (t (funcall wrap opening-line closing-line t nil "{{{results(" ")}}}"))))) ((member "html" result-params) (funcall wrap "#+begin_export html" "#+end_export" nil nil "{{{results(@@html:" "@@)}}}")) ((member "latex" result-params) (funcall wrap "#+begin_export latex" "#+end_export" nil nil "{{{results(@@latex:" "@@)}}}")) ((member "org" result-params) (goto-char beg) (if (org-at-table-p) (progn (org-cycle))) (funcall wrap "#+begin_src org" "#+end_src" nil nil "{{{results(src_org{" "})}}}")) ((member "code" result-params) (let ((lang (or lang "none"))) (funcall wrap (format "#+begin_src %s%s" lang results-switches) "#+end_src" nil nil (format "{{{results(src_%s[%s]{" lang results-switches) "})}}}"))) ((member "raw" result-params) (goto-char beg) (if (org-at-table-p) (progn (org-cycle)))) ((or (member "drawer" result-params) (member "wrap" result-params)) (goto-char beg) (if (org-at-table-p) (progn (org-cycle))) (funcall wrap ":results:" ":end:" 'no-escape nil "{{{results(" ")}}}")) ((and inline (member "file" result-params)) (funcall wrap nil nil nil nil "{{{results(" ")}}}")) ((and (not (funcall tabulablep result)) (not (member "file" result-params))) (let ((org-babel-inline-result-wrap (format "{{{results(%s)}}}" org-babel-inline-result-wrap))) (org-babel-examplify-region beg end results-switches inline))))) (if (and (not inline) (numberp indent) (> indent 0) (not (and (listp result) (member "append" result-params)))) (progn (indent-rigidly beg end indent))) (let ((time-info (if (and exec-time (> (float-time exec-time) 0.05)) (format " (took %.1fs)" (float-time exec-time)) ""))) (if (null result) (if (member "value" result-params) (message "Code block returned no value%s." time-info) (message "Code block produced no output%s." time-info)) (message "Code block evaluation complete%s." time-info)))) (if end (progn (set-marker end nil))) (if outside-scope (progn (narrow-to-region visible-beg visible-end))) (set-marker visible-beg nil) (set-marker visible-end nil)) (let* ((visible-beg (point-min-marker)) (visible-end (copy-marker (point-max) t)) (existing-result (org-babel-where-is-src-block-result t nil hash)) (results-switches (cdr (assq :results_switches (nth 2 info)))) (outside-scope (and existing-result (buffer-narrowed-p) (or (> visible-beg existing-result) (<= visible-end existing-result)))) beg end indent) (if (and (org-string-nw-p result) (not inline) (not (string-equal (substring result -1) "\n"))) (progn (setq result (concat result "\n")))) (unwind-protect (progn (if outside-scope (progn (widen))) (if existing-result (goto-char existing-result) (goto-char (org-element-end inline)) (skip-chars-backward " \11")) (if inline nil (setq indent (current-indentation)) (forward-line 1)) (setq beg (point)) (cond (inline (if existing-result nil (insert " ") (setq beg (point)))) ((member "replace" result-params) (delete-region (point) (org-babel-result-end))) ((member "append" result-params) (goto-char (org-babel-result-end)) (setq beg (point-marker)))) (setq results-switches (if results-switches (concat " " results-switches) "")) (let ((wrap #'(lambda (start finish &optional no-escape no-newlines inline-start inline-finish) (if inline (progn (setq start inline-start) (setq finish inline-finish) (setq no-newlines t))) (let ((before-finish (copy-marker end))) (goto-char end) (insert (concat finish (if no-newlines nil "\n"))) (goto-char beg) (insert (concat start (if no-newlines nil "\n"))) (if no-escape nil (org-escape-code-in-region (min (point) before-finish) before-finish)) (goto-char end)))) (tabulablep #'(lambda (r) (and (proper-list-p r) (cl-every #'(lambda (e) (or (atom e) (proper-list-p e))) result))))) (cond ((null result)) ((member "list" result-params) (insert (org-trim (org-list-to-org (cons 'unordered (mapcar #'(lambda (e) (cond ((stringp e) (list e)) ((listp e) (mapcar #'(lambda (x) (if (stringp x) x (format "%S" x))) e)) (t (list (format "%S" e))))) (if (listp result) result (split-string result "\n" t)))) '(:splicep nil :istart "- " :iend "\n"))) "\n")) ((funcall tabulablep result) (goto-char beg) (insert (concat (orgtbl-to-orgtbl (if (cl-every #'(lambda (e) (or (eq e 'hline) (listp e))) result) result (list result)) nil) "\n")) (goto-char beg) (if (org-at-table-p) (progn (org-table-align))) (goto-char (org-table-end))) ((listp result) (insert (format "%s\n" result))) ((member "file" result-params) (if inline (progn (setq result (org-macro-escape-arguments result)))) (insert result)) ((and inline (not (member "raw" result-params))) (insert (org-macro-escape-arguments (org-babel-chomp result "\n")))) (t (goto-char beg) (insert result))) (setq end (copy-marker (point) t)) (cond ((assq :wrap (nth 2 info)) (let* ((full (or (cdr (assq :wrap (nth 2 info))) "results")) (split (split-string full)) (type (car split)) (opening-line (concat "#+begin_" full)) (closing-line (concat "#+end_" type))) (cond ((org-string-equal-ignore-case type "export") (let ((backend (if (consp split) (let* ((x43 (cdr-safe split))) (cond ((null x43) (let nil "none")) ((consp x43) (let* ((x44 (car-safe x43))) (let ((b x44)) b)))))))) (funcall wrap opening-line closing-line nil nil (format "{{{results(@@%s:" backend) "@@)}}}"))) ((org-string-equal-ignore-case type "example") (funcall wrap opening-line closing-line nil nil "{{{results(=" "=)}}}")) ((org-string-equal-ignore-case type "src") (let ((inline-open (if (consp split) (let* ((x47 (cdr-safe split))) (cond ((null x47) (let nil "{{{results(src_none{")) ((consp x47) (let* ((x48 (car-safe x47)) (x49 (cdr-safe x47))) (if (null x49) (let ((language x48)) (format "{{{results(src_%s{" language)) (let ((language x48) (rest x49)) (let ((r (mapconcat #'identity rest " "))) (format "{{{results(src_%s[%s]{" language r))))))))))) (funcall wrap opening-line closing-line nil nil inline-open "})}}}"))) (t (funcall wrap opening-line closing-line t nil "{{{results(" ")}}}"))))) ((member "html" result-params) (funcall wrap "#+begin_export html" "#+end_export" nil nil "{{{results(@@html:" "@@)}}}")) ((member "latex" result-params) (funcall wrap "#+begin_export latex" "#+end_export" nil nil "{{{results(@@latex:" "@@)}}}")) ((member "org" result-params) (goto-char beg) (if (org-at-table-p) (progn (org-cycle))) (funcall wrap "#+begin_src org" "#+end_src" nil nil "{{{results(src_org{" "})}}}")) ((member "code" result-params) (let ((lang (or lang "none"))) (funcall wrap (format "#+begin_src %s%s" lang results-switches) "#+end_src" nil nil (format "{{{results(src_%s[%s]{" lang results-switches) "})}}}"))) ((member "raw" result-params) (goto-char beg) (if (org-at-table-p) (progn (org-cycle)))) ((or (member "drawer" result-params) (member "wrap" result-params)) (goto-char beg) (if (org-at-table-p) (progn (org-cycle))) (funcall wrap ":results:" ":end:" 'no-escape nil "{{{results(" ")}}}")) ((and inline (member "file" result-params)) (funcall wrap nil nil nil nil "{{{results(" ")}}}")) ((and (not (funcall tabulablep result)) (not (member "file" result-params))) (let ((org-babel-inline-result-wrap (format "{{{results(%s)}}}" org-babel-inline-result-wrap))) (org-babel-examplify-region beg end results-switches inline))))) (if (and (not inline) (numberp indent) (> indent 0) (not (and (listp result) (member "append" result-params)))) (progn (indent-rigidly beg end indent))) (let ((time-info (if (and exec-time (> (float-time exec-time) 0.05)) (format " (took %.1fs)" (float-time exec-time)) ""))) (if (null result) (if (member "value" result-params) (message "Code block returned no value%s." time-info) (message "Code block produced no output%s." time-info)) (message "Code block evaluation complete%s." time-info)))) (if end (progn (set-marker end nil))) (if outside-scope (progn (narrow-to-region visible-beg visible-end))) (set-marker visible-beg nil) (set-marker visible-end nil))) (save-excursion (let* ((visible-beg (point-min-marker)) (visible-end (copy-marker (point-max) t)) (existing-result (org-babel-where-is-src-block-result t nil hash)) (results-switches (cdr (assq :results_switches (nth 2 info)))) (outside-scope (and existing-result (buffer-narrowed-p) (or (> visible-beg existing-result) (<= visible-end existing-result)))) beg end indent) (if (and (org-string-nw-p result) (not inline) (not (string-equal (substring result -1) "\n"))) (progn (setq result (concat result "\n")))) (unwind-protect (progn (if outside-scope (progn (widen))) (if existing-result (goto-char existing-result) (goto-char (org-element-end inline)) (skip-chars-backward " \11")) (if inline nil (setq indent (current-indentation)) (forward-line 1)) (setq beg (point)) (cond (inline (if existing-result nil (insert " ") (setq beg (point)))) ((member "replace" result-params) (delete-region (point) (org-babel-result-end))) ((member "append" result-params) (goto-char (org-babel-result-end)) (setq beg (point-marker)))) (setq results-switches (if results-switches (concat " " results-switches) "")) (let ((wrap #'(lambda (start finish &optional no-escape no-newlines inline-start inline-finish) (if inline (progn (setq start inline-start) (setq finish inline-finish) (setq no-newlines t))) (let ((before-finish (copy-marker end))) (goto-char end) (insert (concat finish (if no-newlines nil "\n"))) (goto-char beg) (insert (concat start (if no-newlines nil "\n"))) (if no-escape nil (org-escape-code-in-region (min (point) before-finish) before-finish)) (goto-char end)))) (tabulablep #'(lambda (r) (and (proper-list-p r) (cl-every #'(lambda (e) (or (atom e) (proper-list-p e))) result))))) (cond ((null result)) ((member "list" result-params) (insert (org-trim (org-list-to-org (cons 'unordered (mapcar #'(lambda (e) (cond ((stringp e) (list e)) ((listp e) (mapcar #'(lambda (x) (if (stringp x) x (format "%S" x))) e)) (t (list (format "%S" e))))) (if (listp result) result (split-string result "\n" t)))) '(:splicep nil :istart "- " :iend "\n"))) "\n")) ((funcall tabulablep result) (goto-char beg) (insert (concat (orgtbl-to-orgtbl (if (cl-every #'(lambda (e) (or (eq e 'hline) (listp e))) result) result (list result)) nil) "\n")) (goto-char beg) (if (org-at-table-p) (progn (org-table-align))) (goto-char (org-table-end))) ((listp result) (insert (format "%s\n" result))) ((member "file" result-params) (if inline (progn (setq result (org-macro-escape-arguments result)))) (insert result)) ((and inline (not (member "raw" result-params))) (insert (org-macro-escape-arguments (org-babel-chomp result "\n")))) (t (goto-char beg) (insert result))) (setq end (copy-marker (point) t)) (cond ((assq :wrap (nth 2 info)) (let* ((full (or (cdr (assq :wrap (nth 2 info))) "results")) (split (split-string full)) (type (car split)) (opening-line (concat "#+begin_" full)) (closing-line (concat "#+end_" type))) (cond ((org-string-equal-ignore-case type "export") (let ((backend (if (consp split) (let* ((x43 (cdr-safe split))) (cond ((null x43) (let nil "none")) ((consp x43) (let* ((x44 (car-safe x43))) (let ((b x44)) b)))))))) (funcall wrap opening-line closing-line nil nil (format "{{{results(@@%s:" backend) "@@)}}}"))) ((org-string-equal-ignore-case type "example") (funcall wrap opening-line closing-line nil nil "{{{results(=" "=)}}}")) ((org-string-equal-ignore-case type "src") (let ((inline-open (if (consp split) (let* ((x47 (cdr-safe split))) (cond ((null x47) (let nil "{{{results(src_none{")) ((consp x47) (let* ((x48 (car-safe x47)) (x49 (cdr-safe x47))) (if (null x49) (let ((language x48)) (format "{{{results(src_%s{" language)) (let ((language x48) (rest x49)) (let ((r (mapconcat #'identity rest " "))) (format "{{{results(src_%s[%s]{" language r))))))))))) (funcall wrap opening-line closing-line nil nil inline-open "})}}}"))) (t (funcall wrap opening-line closing-line t nil "{{{results(" ")}}}"))))) ((member "html" result-params) (funcall wrap "#+begin_export html" "#+end_export" nil nil "{{{results(@@html:" "@@)}}}")) ((member "latex" result-params) (funcall wrap "#+begin_export latex" "#+end_export" nil nil "{{{results(@@latex:" "@@)}}}")) ((member "org" result-params) (goto-char beg) (if (org-at-table-p) (progn (org-cycle))) (funcall wrap "#+begin_src org" "#+end_src" nil nil "{{{results(src_org{" "})}}}")) ((member "code" result-params) (let ((lang (or lang "none"))) (funcall wrap (format "#+begin_src %s%s" lang results-switches) "#+end_src" nil nil (format "{{{results(src_%s[%s]{" lang results-switches) "})}}}"))) ((member "raw" result-params) (goto-char beg) (if (org-at-table-p) (progn (org-cycle)))) ((or (member "drawer" result-params) (member "wrap" result-params)) (goto-char beg) (if (org-at-table-p) (progn (org-cycle))) (funcall wrap ":results:" ":end:" 'no-escape nil "{{{results(" ")}}}")) ((and inline (member "file" result-params)) (funcall wrap nil nil nil nil "{{{results(" ")}}}")) ((and (not (funcall tabulablep result)) (not (member "file" result-params))) (let ((org-babel-inline-result-wrap (format "{{{results(%s)}}}" org-babel-inline-result-wrap))) (org-babel-examplify-region beg end results-switches inline))))) (if (and (not inline) (numberp indent) (> indent 0) (not (and (listp result) (member "append" result-params)))) (progn (indent-rigidly beg end indent))) (let ((time-info (if (and exec-time (> (float-time exec-time) 0.05)) (format " (took %.1fs)" (float-time exec-time)) ""))) (if (null result) (if (member "value" result-params) (message "Code block returned no value%s." time-info) (message "Code block produced no output%s." time-info)) (message "Code block evaluation complete%s." time-info)))) (if end (progn (set-marker end nil))) (if outside-scope (progn (narrow-to-region visible-beg visible-end))) (set-marker visible-beg nil) (set-marker visible-end nil)))) (let ((inline (let ((context (org-element-context))) (and (memq (org-element-type context t) '(inline-babel-call inline-src-block)) context)))) (if inline (progn (let ((warning (or (and (member "table" result-params) "`:results table'") (and (member "drawer" result-params) "`:results drawer'") (and result (listp result) "list result") (and result (string-match-p "\n." result) "multiline result") (and (member "list" result-params) "`:results list'")))) (if warning (progn (user-error "Inline error: %s cannot be used" warning)))))) (save-excursion (let* ((visible-beg (point-min-marker)) (visible-end (copy-marker (point-max) t)) (existing-result (org-babel-where-is-src-block-result t nil hash)) (results-switches (cdr (assq :results_switches (nth 2 info)))) (outside-scope (and existing-result (buffer-narrowed-p) (or (> visible-beg existing-result) (<= visible-end existing-result)))) beg end indent) (if (and (org-string-nw-p result) (not inline) (not (string-equal (substring result -1) "\n"))) (progn (setq result (concat result "\n")))) (unwind-protect (progn (if outside-scope (progn (widen))) (if existing-result (goto-char existing-result) (goto-char (org-element-end inline)) (skip-chars-backward " \11")) (if inline nil (setq indent (current-indentation)) (forward-line 1)) (setq beg (point)) (cond (inline (if existing-result nil (insert " ") (setq beg (point)))) ((member "replace" result-params) (delete-region (point) (org-babel-result-end))) ((member "append" result-params) (goto-char (org-babel-result-end)) (setq beg (point-marker)))) (setq results-switches (if results-switches (concat " " results-switches) "")) (let ((wrap #'(lambda (start finish &optional no-escape no-newlines inline-start inline-finish) (if inline (progn (setq start inline-start) (setq finish inline-finish) (setq no-newlines t))) (let ((before-finish (copy-marker end))) (goto-char end) (insert (concat finish (if no-newlines nil "\n"))) (goto-char beg) (insert (concat start (if no-newlines nil "\n"))) (if no-escape nil (org-escape-code-in-region (min (point) before-finish) before-finish)) (goto-char end)))) (tabulablep #'(lambda (r) (and (proper-list-p r) (cl-every #'(lambda (e) (or (atom e) (proper-list-p e))) result))))) (cond ((null result)) ((member "list" result-params) (insert (org-trim (org-list-to-org (cons 'unordered (mapcar #'(lambda (e) (cond ((stringp e) (list e)) ((listp e) (mapcar #'(lambda (x) (if (stringp x) x (format "%S" x))) e)) (t (list (format "%S" e))))) (if (listp result) result (split-string result "\n" t)))) '(:splicep nil :istart "- " :iend "\n"))) "\n")) ((funcall tabulablep result) (goto-char beg) (insert (concat (orgtbl-to-orgtbl (if (cl-every #'(lambda (e) (or (eq e 'hline) (listp e))) result) result (list result)) nil) "\n")) (goto-char beg) (if (org-at-table-p) (progn (org-table-align))) (goto-char (org-table-end))) ((listp result) (insert (format "%s\n" result))) ((member "file" result-params) (if inline (progn (setq result (org-macro-escape-arguments result)))) (insert result)) ((and inline (not (member "raw" result-params))) (insert (org-macro-escape-arguments (org-babel-chomp result "\n")))) (t (goto-char beg) (insert result))) (setq end (copy-marker (point) t)) (cond ((assq :wrap (nth 2 info)) (let* ((full (or (cdr (assq :wrap (nth 2 info))) "results")) (split (split-string full)) (type (car split)) (opening-line (concat "#+begin_" full)) (closing-line (concat "#+end_" type))) (cond ((org-string-equal-ignore-case type "export") (let ((backend (if (consp split) (let* ((x43 (cdr-safe split))) (cond ((null x43) (let nil "none")) ((consp x43) (let* ((x44 (car-safe x43))) (let ((b x44)) b)))))))) (funcall wrap opening-line closing-line nil nil (format "{{{results(@@%s:" backend) "@@)}}}"))) ((org-string-equal-ignore-case type "example") (funcall wrap opening-line closing-line nil nil "{{{results(=" "=)}}}")) ((org-string-equal-ignore-case type "src") (let ((inline-open (if (consp split) (let* ((x47 (cdr-safe split))) (cond ((null x47) (let nil "{{{results(src_none{")) ((consp x47) (let* ((x48 (car-safe x47)) (x49 (cdr-safe x47))) (if (null x49) (let ((language x48)) (format "{{{results(src_%s{" language)) (let ((language x48) (rest x49)) (let ((r (mapconcat #'identity rest " "))) (format "{{{results(src_%s[%s]{" language r))))))))))) (funcall wrap opening-line closing-line nil nil inline-open "})}}}"))) (t (funcall wrap opening-line closing-line t nil "{{{results(" ")}}}"))))) ((member "html" result-params) (funcall wrap "#+begin_export html" "#+end_export" nil nil "{{{results(@@html:" "@@)}}}")) ((member "latex" result-params) (funcall wrap "#+begin_export latex" "#+end_export" nil nil "{{{results(@@latex:" "@@)}}}")) ((member "org" result-params) (goto-char beg) (if (org-at-table-p) (progn (org-cycle))) (funcall wrap "#+begin_src org" "#+end_src" nil nil "{{{results(src_org{" "})}}}")) ((member "code" result-params) (let ((lang (or lang "none"))) (funcall wrap (format "#+begin_src %s%s" lang results-switches) "#+end_src" nil nil (format "{{{results(src_%s[%s]{" lang results-switches) "})}}}"))) ((member "raw" result-params) (goto-char beg) (if (org-at-table-p) (progn (org-cycle)))) ((or (member "drawer" result-params) (member "wrap" result-params)) (goto-char beg) (if (org-at-table-p) (progn (org-cycle))) (funcall wrap ":results:" ":end:" 'no-escape nil "{{{results(" ")}}}")) ((and inline (member "file" result-params)) (funcall wrap nil nil nil nil "{{{results(" ")}}}")) ((and (not (funcall tabulablep result)) (not (member "file" result-params))) (let ((org-babel-inline-result-wrap (format "{{{results(%s)}}}" org-babel-inline-result-wrap))) (org-babel-examplify-region beg end results-switches inline))))) (if (and (not inline) (numberp indent) (> indent 0) (not (and (listp result) (member "append" result-params)))) (progn (indent-rigidly beg end indent))) (let ((time-info (if (and exec-time (> (float-time exec-time) 0.05)) (format " (took %.1fs)" (float-time exec-time)) ""))) (if (null result) (if (member "value" result-params) (message "Code block returned no value%s." time-info) (message "Code block produced no output%s." time-info)) (message "Code block evaluation complete%s." time-info)))) (if end (progn (set-marker end nil))) (if outside-scope (progn (narrow-to-region visible-beg visible-end))) (set-marker visible-beg nil) (set-marker visible-end nil))))) (if (and result-params (member "silent" result-params)) (progn (message (replace-regexp-in-string "%" "%%" (format "%S" result))) result) (let ((inline (let ((context (org-element-context))) (and (memq (org-element-type context t) '(inline-babel-call inline-src-block)) context)))) (if inline (progn (let ((warning (or (and (member "table" result-params) "`:results table'") (and (member "drawer" result-params) "`:results drawer'") (and result (listp result) "list result") (and result (string-match-p "\n." result) "multiline result") (and (member "list" result-params) "`:results list'")))) (if warning (progn (user-error "Inline error: %s cannot be used" warning)))))) (save-excursion (let* ((visible-beg (point-min-marker)) (visible-end (copy-marker (point-max) t)) (existing-result (org-babel-where-is-src-block-result t nil hash)) (results-switches (cdr (assq :results_switches (nth 2 info)))) (outside-scope (and existing-result (buffer-narrowed-p) (or (> visible-beg existing-result) (<= visible-end existing-result)))) beg end indent) (if (and (org-string-nw-p result) (not inline) (not (string-equal (substring result -1) "\n"))) (progn (setq result (concat result "\n")))) (unwind-protect (progn (if outside-scope (progn (widen))) (if existing-result (goto-char existing-result) (goto-char (org-element-end inline)) (skip-chars-backward " \11")) (if inline nil (setq indent (current-indentation)) (forward-line 1)) (setq beg (point)) (cond (inline (if existing-result nil (insert " ") (setq beg (point)))) ((member "replace" result-params) (delete-region (point) (org-babel-result-end))) ((member "append" result-params) (goto-char (org-babel-result-end)) (setq beg (point-marker)))) (setq results-switches (if results-switches (concat " " results-switches) "")) (let ((wrap #'(lambda (start finish &optional no-escape no-newlines inline-start inline-finish) (if inline (progn (setq start inline-start) (setq finish inline-finish) (setq no-newlines t))) (let ((before-finish (copy-marker end))) (goto-char end) (insert (concat finish (if no-newlines nil "\n"))) (goto-char beg) (insert (concat start (if no-newlines nil "\n"))) (if no-escape nil (org-escape-code-in-region (min (point) before-finish) before-finish)) (goto-char end)))) (tabulablep #'(lambda (r) (and (proper-list-p r) (cl-every #'(lambda (e) (or (atom e) (proper-list-p e))) result))))) (cond ((null result)) ((member "list" result-params) (insert (org-trim (org-list-to-org (cons 'unordered (mapcar #'(lambda (e) (cond ((stringp e) (list e)) ((listp e) (mapcar #'(lambda (x) (if (stringp x) x (format "%S" x))) e)) (t (list (format "%S" e))))) (if (listp result) result (split-string result "\n" t)))) '(:splicep nil :istart "- " :iend "\n"))) "\n")) ((funcall tabulablep result) (goto-char beg) (insert (concat (orgtbl-to-orgtbl (if (cl-every #'(lambda (e) (or (eq e 'hline) (listp e))) result) result (list result)) nil) "\n")) (goto-char beg) (if (org-at-table-p) (progn (org-table-align))) (goto-char (org-table-end))) ((listp result) (insert (format "%s\n" result))) ((member "file" result-params) (if inline (progn (setq result (org-macro-escape-arguments result)))) (insert result)) ((and inline (not (member "raw" result-params))) (insert (org-macro-escape-arguments (org-babel-chomp result "\n")))) (t (goto-char beg) (insert result))) (setq end (copy-marker (point) t)) (cond ((assq :wrap (nth 2 info)) (let* ((full (or (cdr (assq :wrap (nth 2 info))) "results")) (split (split-string full)) (type (car split)) (opening-line (concat "#+begin_" full)) (closing-line (concat "#+end_" type))) (cond ((org-string-equal-ignore-case type "export") (let ((backend (if (consp split) (let* ((x43 (cdr-safe split))) (cond ((null x43) (let nil "none")) ((consp x43) (let* ((x44 (car-safe x43))) (let ((b x44)) b)))))))) (funcall wrap opening-line closing-line nil nil (format "{{{results(@@%s:" backend) "@@)}}}"))) ((org-string-equal-ignore-case type "example") (funcall wrap opening-line closing-line nil nil "{{{results(=" "=)}}}")) ((org-string-equal-ignore-case type "src") (let ((inline-open (if (consp split) (let* ((x47 (cdr-safe split))) (cond ((null x47) (let nil "{{{results(src_none{")) ((consp x47) (let* ((x48 (car-safe x47)) (x49 (cdr-safe x47))) (if (null x49) (let ((language x48)) (format "{{{results(src_%s{" language)) (let ((language x48) (rest x49)) (let ((r (mapconcat #'identity rest " "))) (format "{{{results(src_%s[%s]{" language r))))))))))) (funcall wrap opening-line closing-line nil nil inline-open "})}}}"))) (t (funcall wrap opening-line closing-line t nil "{{{results(" ")}}}"))))) ((member "html" result-params) (funcall wrap "#+begin_export html" "#+end_export" nil nil "{{{results(@@html:" "@@)}}}")) ((member "latex" result-params) (funcall wrap "#+begin_export latex" "#+end_export" nil nil "{{{results(@@latex:" "@@)}}}")) ((member "org" result-params) (goto-char beg) (if (org-at-table-p) (progn (org-cycle))) (funcall wrap "#+begin_src org" "#+end_src" nil nil "{{{results(src_org{" "})}}}")) ((member "code" result-params) (let ((lang (or lang "none"))) (funcall wrap (format "#+begin_src %s%s" lang results-switches) "#+end_src" nil nil (format "{{{results(src_%s[%s]{" lang results-switches) "})}}}"))) ((member "raw" result-params) (goto-char beg) (if (org-at-table-p) (progn (org-cycle)))) ((or (member "drawer" result-params) (member "wrap" result-params)) (goto-char beg) (if (org-at-table-p) (progn (org-cycle))) (funcall wrap ":results:" ":end:" 'no-escape nil "{{{results(" ")}}}")) ((and inline (member "file" result-params)) (funcall wrap nil nil nil nil "{{{results(" ")}}}")) ((and (not (funcall tabulablep result)) (not (member "file" result-params))) (let ((org-babel-inline-result-wrap (format "{{{results(%s)}}}" org-babel-inline-result-wrap))) (org-babel-examplify-region beg end results-switches inline))))) (if (and (not inline) (numberp indent) (> indent 0) (not (and (listp result) (member "append" result-params)))) (progn (indent-rigidly beg end indent))) (let ((time-info (if (and exec-time (> (float-time exec-time) 0.05)) (format " (took %.1fs)" (float-time exec-time)) ""))) (if (null result) (if (member "value" result-params) (message "Code block returned no value%s." time-info) (message "Code block produced no output%s." time-info)) (message "Code block evaluation complete%s." time-info)))) (if end (progn (set-marker end nil))) (if outside-scope (progn (narrow-to-region visible-beg visible-end))) (set-marker visible-beg nil) (set-marker visible-end nil)))))) org-babel-insert-result((("~:author~" "~user-full-name~") ("~:email~" "~user-mail-address~") ("~:language~" "~org-export-default-language~") ("~:select-tags~" "~org-export-select-tags~") ("~:exclude-tags~" "~org-export-exclude-tags~") ("~:creator~" "~org-export-creator-string~") ("~:headline-levels~" "~org-export-headline-levels~") ("~:preserve-breaks~" "~org-export-preserve-breaks~") ("~:section-numbers~" "~org-export-with-section-numbers~") ("~:time-stamp-file~" "~org-export-timestamp-file~") ("~:with-archived-trees~" "~org-export-with-archived-trees~") ("~:with-author~" "~org-export-with-author~") ("~:expand-links~" "~org-export-expand-links~") ("~:with-broken-links~" "~org-export-with-broken-links~") ("~:with-clocks~" "~org-export-with-clocks~") ("~:with-creator~" "~org-export-with-creator~") ("~:with-date~" "~org-export-with-date~") ("~:with-drawers~" "~org-export-with-drawers~") ("~:with-email~" "~org-export-with-email~") ("~:with-emphasize~" "~org-export-with-emphasize~") ("~:with-entities~" "~org-export-with-entities~") ("~:with-fixed-width~" "~org-export-with-fixed-width~") ("~:with-footnotes~" "~org-export-with-footnotes~") ("~:with-inlinetasks~" "~org-export-with-inlinetasks~") ("~:with-latex~" "~org-export-with-latex~") ("~:with-planning~" "~org-export-with-planning~") ("~:with-priority~" "~org-export-with-priority~") ("~:with-properties~" "~org-export-with-properties~") ("~:with-smart-quotes~" "~org-export-with-smart-quotes~") ("~:with-special-strings~" "~org-export-with-special-strings~") ("~:with-statistics-cookies~" "~org-export-with-statistics-cookies~") ("~:with-sub-superscript~" "~org-export-with-sub-superscripts~") ("~:with-toc~" "~org-export-with-toc~") ("~:with-tables~" "~org-export-with-tables~") ("~:with-tags~" "~org-export-with-tags~") ("~:with-tasks~" "~org-export-with-tasks~") ("~:with-timestamps~" "~org-export-with-timestamps~") ("~:with-title~" "~org-export-with-title~") ("~:with-todo-keywords~" "~org-export-with-todo-keywords~") ("~:with-cite-processors~" "~org-export-process-citations~") ("~:cite-export~" "~org-cite-export-processors~")) ("table" "replace") ("emacs-lisp" "(require 'ox)\n(let ((alist org-export-options-alist))\n(require 'ox)\n(let (result)\n (dolist (spec alist)\n (when (and (nth 3 spec) (symbolp (nth 3 spec))) ; has customization\n (push (list (format \"~%s~\" (car spec)) (format \"~%s~\" (nth 3 spec))) result)))\n (nreverse result))\n)" ((:colname-names) (:rowname-names) (:result-params "table" "replace") (:result-type . value) (:results . "table replace") (:exports . "results") (:cache . "no") (:eval . "yes") (:hlines . "no") (:lexical . "no") (:noweb . "yes") (:session . "none") (:tangle . "no")) "" nil 643527 "(ref:%s)") nil "emacs-lisp" (0 0 205 857000)) (if (member "none" result-params) nil (org-babel-insert-result result result-params info (if (member "replace" result-params) (progn new-hash)) lang (time-subtract (current-time) exec-start-time))) (let ((file (and (member "file" result-params) (cdr (assq :file params))))) (if file (progn (if (and result (not (or (member "link" result-params) (member "graphics" result-params)))) (progn (let ((temp-file file) (temp-buffer (generate-new-buffer " *temp file*" t))) (unwind-protect (prog1 (save-current-buffer (set-buffer temp-buffer) (insert (org-babel-format-result result (cdr (assq :sep params))))) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) (if (assq :file-mode params) (progn (set-file-modes file (cdr (assq :file-mode params))))))) (setq result file))) (let ((post (cdr (assq :post params)))) (if post (progn (let ((*this* (if (not file) result (org-babel-result-to-file file (org-babel--file-desc params result) 'attachment)))) (setq result (org-babel-ref-resolve post)) (if file (progn (setq result-params (remove "file" result-params)))))))) (if (member "none" result-params) nil (org-babel-insert-result result result-params info (if (member "replace" result-params) (progn new-hash)) lang (time-subtract (current-time) exec-start-time)))) (let* ((lang (nth 0 info)) (result-params (cdr (assq :result-params params))) (body (org-babel--expand-body info)) (dir (cdr (assq :dir params))) (mkdirp (cdr (assq :mkdirp params))) (default-directory (cond ((not dir) default-directory) ((let* ((session (and t (org-babel-session-buffer info)))) (if session (buffer-local-value 'default-directory (get-buffer session)) nil))) ((member mkdirp '("no" "nil" nil)) (file-name-as-directory (expand-file-name dir))) (t (let ((d (file-name-as-directory (expand-file-name dir)))) (make-directory d 'parents) d)))) (cmd (intern (concat "org-babel-execute:" lang))) result exec-start-time) (if (fboundp cmd) nil (error "No org-babel-execute function for %s!" lang)) (message "Executing %s %s %s..." (capitalize lang) (cond ((eq executor-type 'src-block) (let nil "code block")) ((eq executor-type 'inline-src-block) (let nil "inline code block")) ((eq executor-type 'babel-call) (let nil "call")) ((eq executor-type 'inline-babel-call) (let nil "inline call")) (t (let ((e executor-type)) (symbol-name e)))) (let ((name (nth 4 info))) (if name (format "(%s)" name) (format "at position %S" (nth 5 info))))) (progn (setq exec-start-time (current-time)) (setq result (let ((r (save-current-buffer (funcall cmd body params)))) (if (and (eq (cdr (assq :result-type params)) 'value) (or (member "vector" result-params) (member "table" result-params)) (not (listp r))) (list (list r)) r)))) (let ((file (and (member "file" result-params) (cdr (assq :file params))))) (if file (progn (if (and result (not (or (member "link" result-params) (member "graphics" result-params)))) (progn (let ((temp-file file) (temp-buffer (generate-new-buffer " *temp file*" t))) (unwind-protect (prog1 (save-current-buffer (set-buffer temp-buffer) (insert (org-babel-format-result result (cdr (assq :sep params))))) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) (if (assq :file-mode params) (progn (set-file-modes file (cdr (assq :file-mode params))))))) (setq result file))) (let ((post (cdr (assq :post params)))) (if post (progn (let ((*this* (if (not file) result (org-babel-result-to-file file (org-babel--file-desc params result) 'attachment)))) (setq result (org-babel-ref-resolve post)) (if file (progn (setq result-params (remove "file" result-params)))))))) (if (member "none" result-params) nil (org-babel-insert-result result result-params info (if (member "replace" result-params) (progn new-hash)) lang (time-subtract (current-time) exec-start-time)))) (run-hooks 'org-babel-after-execute-hook) result) (cond (current-cache (save-excursion (goto-char (org-babel-where-is-src-block-result nil info)) (forward-line) (skip-chars-forward " \11") (let ((result (org-babel-read-result))) (message (format "Cached: %s" (replace-regexp-in-string "%" "%%" (format "%S" result)))) result))) ((org-babel-confirm-evaluate info) (let* ((lang (nth 0 info)) (result-params (cdr (assq :result-params params))) (body (org-babel--expand-body info)) (dir (cdr (assq :dir params))) (mkdirp (cdr (assq :mkdirp params))) (default-directory (cond ((not dir) default-directory) ((let* ((session (and t (org-babel-session-buffer info)))) (if session (buffer-local-value 'default-directory (get-buffer session)) nil))) ((member mkdirp '("no" "nil" nil)) (file-name-as-directory (expand-file-name dir))) (t (let ((d (file-name-as-directory (expand-file-name dir)))) (make-directory d 'parents) d)))) (cmd (intern (concat "org-babel-execute:" lang))) result exec-start-time) (if (fboundp cmd) nil (error "No org-babel-execute function for %s!" lang)) (message "Executing %s %s %s..." (capitalize lang) (cond ((eq executor-type 'src-block) (let nil "code block")) ((eq executor-type 'inline-src-block) (let nil "inline code block")) ((eq executor-type 'babel-call) (let nil "call")) ((eq executor-type 'inline-babel-call) (let nil "inline call")) (t (let ((e executor-type)) (symbol-name e)))) (let ((name (nth 4 info))) (if name (format "(%s)" name) (format "at position %S" (nth 5 info))))) (progn (setq exec-start-time (current-time)) (setq result (let ((r (save-current-buffer (funcall cmd body params)))) (if (and (eq (cdr (assq :result-type params)) 'value) (or (member "vector" result-params) (member "table" result-params)) (not (listp r))) (list (list r)) r)))) (let ((file (and (member "file" result-params) (cdr (assq :file params))))) (if file (progn (if (and result (not (or (member "link" result-params) (member "graphics" result-params)))) (progn (let ((temp-file file) (temp-buffer (generate-new-buffer " *temp file*" t))) (unwind-protect (prog1 (save-current-buffer (set-buffer temp-buffer) (insert (org-babel-format-result result (cdr (assq :sep params))))) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) (if (assq :file-mode params) (progn (set-file-modes file (cdr (assq :file-mode params))))))) (setq result file))) (let ((post (cdr (assq :post params)))) (if post (progn (let ((*this* (if (not file) result (org-babel-result-to-file file (org-babel--file-desc params result) 'attachment)))) (setq result (org-babel-ref-resolve post)) (if file (progn (setq result-params (remove "file" result-params)))))))) (if (member "none" result-params) nil (org-babel-insert-result result result-params info (if (member "replace" result-params) (progn new-hash)) lang (time-subtract (current-time) exec-start-time)))) (run-hooks 'org-babel-after-execute-hook) result))) (let* ((params (nth 2 info)) (cache (let ((c (cdr (assq :cache params)))) (and (not arg) c (string= "yes" c)))) (new-hash (and cache (org-babel-sha1-hash info :eval))) (old-hash (and cache (org-babel-current-result-hash))) (current-cache (and new-hash (equal new-hash old-hash)))) (cond (current-cache (save-excursion (goto-char (org-babel-where-is-src-block-result nil info)) (forward-line) (skip-chars-forward " \11") (let ((result (org-babel-read-result))) (message (format "Cached: %s" (replace-regexp-in-string "%" "%%" (format "%S" result)))) result))) ((org-babel-confirm-evaluate info) (let* ((lang (nth 0 info)) (result-params (cdr (assq :result-params params))) (body (org-babel--expand-body info)) (dir (cdr (assq :dir params))) (mkdirp (cdr (assq :mkdirp params))) (default-directory (cond ((not dir) default-directory) ((let* ((session (and t (org-babel-session-buffer info)))) (if session (buffer-local-value 'default-directory (get-buffer session)) nil))) ((member mkdirp '("no" "nil" nil)) (file-name-as-directory (expand-file-name dir))) (t (let ((d (file-name-as-directory (expand-file-name dir)))) (make-directory d 'parents) d)))) (cmd (intern (concat "org-babel-execute:" lang))) result exec-start-time) (if (fboundp cmd) nil (error "No org-babel-execute function for %s!" lang)) (message "Executing %s %s %s..." (capitalize lang) (cond ((eq executor-type 'src-block) (let nil "code block")) ((eq executor-type 'inline-src-block) (let nil "inline code block")) ((eq executor-type 'babel-call) (let nil "call")) ((eq executor-type 'inline-babel-call) (let nil "inline call")) (t (let ((e executor-type)) (symbol-name e)))) (let ((name (nth 4 info))) (if name (format "(%s)" name) (format "at position %S" (nth 5 info))))) (progn (setq exec-start-time (current-time)) (setq result (let ((r (save-current-buffer (funcall cmd body params)))) (if (and (eq (cdr (assq :result-type params)) 'value) (or (member "vector" result-params) (member "table" result-params)) (not (listp r))) (list (list r)) r)))) (let ((file (and (member "file" result-params) (cdr (assq :file params))))) (if file (progn (if (and result (not (or (member "link" result-params) (member "graphics" result-params)))) (progn (let ((temp-file file) (temp-buffer (generate-new-buffer " *temp file*" t))) (unwind-protect (prog1 (save-current-buffer (set-buffer temp-buffer) (insert (org-babel-format-result result (cdr (assq :sep params))))) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) (if (assq :file-mode params) (progn (set-file-modes file (cdr (assq :file-mode params))))))) (setq result file))) (let ((post (cdr (assq :post params)))) (if post (progn (let ((*this* (if (not file) result (org-babel-result-to-file file (org-babel--file-desc params result) 'attachment)))) (setq result (org-babel-ref-resolve post)) (if file (progn (setq result-params (remove "file" result-params)))))))) (if (member "none" result-params) nil (org-babel-insert-result result result-params info (if (member "replace" result-params) (progn new-hash)) lang (time-subtract (current-time) exec-start-time)))) (run-hooks 'org-babel-after-execute-hook) result)))) (progn (let* ((c (nthcdr 2 info))) (setcar c (org-babel-process-params (car c)))) (let* ((params (nth 2 info)) (cache (let ((c (cdr (assq :cache params)))) (and (not arg) c (string= "yes" c)))) (new-hash (and cache (org-babel-sha1-hash info :eval))) (old-hash (and cache (org-babel-current-result-hash))) (current-cache (and new-hash (equal new-hash old-hash)))) (cond (current-cache (save-excursion (goto-char (org-babel-where-is-src-block-result nil info)) (forward-line) (skip-chars-forward " \11") (let ((result (org-babel-read-result))) (message (format "Cached: %s" (replace-regexp-in-string "%" "%%" (format "%S" result)))) result))) ((org-babel-confirm-evaluate info) (let* ((lang (nth 0 info)) (result-params (cdr (assq :result-params params))) (body (org-babel--expand-body info)) (dir (cdr (assq :dir params))) (mkdirp (cdr (assq :mkdirp params))) (default-directory (cond ((not dir) default-directory) ((let* ((session (and t (org-babel-session-buffer info)))) (if session (buffer-local-value 'default-directory (get-buffer session)) nil))) ((member mkdirp '("no" "nil" nil)) (file-name-as-directory (expand-file-name dir))) (t (let ((d (file-name-as-directory (expand-file-name dir)))) (make-directory d 'parents) d)))) (cmd (intern (concat "org-babel-execute:" lang))) result exec-start-time) (if (fboundp cmd) nil (error "No org-babel-execute function for %s!" lang)) (message "Executing %s %s %s..." (capitalize lang) (cond ((eq executor-type 'src-block) (let nil "code block")) ((eq executor-type 'inline-src-block) (let nil "inline code block")) ((eq executor-type 'babel-call) (let nil "call")) ((eq executor-type 'inline-babel-call) (let nil "inline call")) (t (let ((e executor-type)) (symbol-name e)))) (let ((name (nth 4 info))) (if name (format "(%s)" name) (format "at position %S" (nth 5 info))))) (progn (setq exec-start-time (current-time)) (setq result (let ((r (save-current-buffer (funcall cmd body params)))) (if (and (eq (cdr (assq :result-type params)) 'value) (or (member "vector" result-params) (member "table" result-params)) (not (listp r))) (list (list r)) r)))) (let ((file (and (member "file" result-params) (cdr (assq :file params))))) (if file (progn (if (and result (not (or (member "link" result-params) (member "graphics" result-params)))) (progn (let ((temp-file file) (temp-buffer (generate-new-buffer " *temp file*" t))) (unwind-protect (prog1 (save-current-buffer (set-buffer temp-buffer) (insert (org-babel-format-result result (cdr (assq :sep params))))) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) (if (assq :file-mode params) (progn (set-file-modes file (cdr (assq :file-mode params))))))) (setq result file))) (let ((post (cdr (assq :post params)))) (if post (progn (let ((*this* (if (not file) result (org-babel-result-to-file file (org-babel--file-desc params result) 'attachment)))) (setq result (org-babel-ref-resolve post)) (if file (progn (setq result-params (remove "file" result-params)))))))) (if (member "none" result-params) nil (org-babel-insert-result result result-params info (if (member "replace" result-params) (progn new-hash)) lang (time-subtract (current-time) exec-start-time)))) (run-hooks 'org-babel-after-execute-hook) result))))) (if (org-babel-check-evaluate info) (progn (let* ((c (nthcdr 2 info))) (setcar c (org-babel-process-params (car c)))) (let* ((params (nth 2 info)) (cache (let ((c (cdr (assq :cache params)))) (and (not arg) c (string= "yes" c)))) (new-hash (and cache (org-babel-sha1-hash info :eval))) (old-hash (and cache (org-babel-current-result-hash))) (current-cache (and new-hash (equal new-hash old-hash)))) (cond (current-cache (save-excursion (goto-char (org-babel-where-is-src-block-result nil info)) (forward-line) (skip-chars-forward " \11") (let ((result (org-babel-read-result))) (message (format "Cached: %s" (replace-regexp-in-string "%" "%%" (format "%S" result)))) result))) ((org-babel-confirm-evaluate info) (let* ((lang (nth 0 info)) (result-params (cdr (assq :result-params params))) (body (org-babel--expand-body info)) (dir (cdr (assq :dir params))) (mkdirp (cdr (assq :mkdirp params))) (default-directory (cond ((not dir) default-directory) ((let* ((session (and t (org-babel-session-buffer info)))) (if session (buffer-local-value 'default-directory (get-buffer session)) nil))) ((member mkdirp '("no" "nil" nil)) (file-name-as-directory (expand-file-name dir))) (t (let ((d (file-name-as-directory (expand-file-name dir)))) (make-directory d 'parents) d)))) (cmd (intern (concat "org-babel-execute:" lang))) result exec-start-time) (if (fboundp cmd) nil (error "No org-babel-execute function for %s!" lang)) (message "Executing %s %s %s..." (capitalize lang) (cond ((eq executor-type 'src-block) (let nil "code block")) ((eq executor-type 'inline-src-block) (let nil "inline code block")) ((eq executor-type 'babel-call) (let nil "call")) ((eq executor-type 'inline-babel-call) (let nil "inline call")) (t (let ((e executor-type)) (symbol-name e)))) (let ((name (nth 4 info))) (if name (format "(%s)" name) (format "at position %S" (nth 5 info))))) (progn (setq exec-start-time (current-time)) (setq result (let ((r (save-current-buffer (funcall cmd body params)))) (if (and (eq (cdr (assq :result-type params)) 'value) (or (member "vector" result-params) (member "table" result-params)) (not (listp r))) (list (list r)) r)))) (let ((file (and (member "file" result-params) (cdr (assq :file params))))) (if file (progn (if (and result (not (or (member "link" result-params) (member "graphics" result-params)))) (progn (let ((temp-file file) (temp-buffer (generate-new-buffer " *temp file*" t))) (unwind-protect (prog1 (save-current-buffer (set-buffer temp-buffer) (insert (org-babel-format-result result (cdr (assq :sep params))))) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) (if (assq :file-mode params) (progn (set-file-modes file (cdr (assq :file-mode params))))))) (setq result file))) (let ((post (cdr (assq :post params)))) (if post (progn (let ((*this* (if (not file) result (org-babel-result-to-file file (org-babel--file-desc params result) 'attachment)))) (setq result (org-babel-ref-resolve post)) (if file (progn (setq result-params (remove "file" result-params)))))))) (if (member "none" result-params) nil (org-babel-insert-result result result-params info (if (member "replace" result-params) (progn new-hash)) lang (time-subtract (current-time) exec-start-time)))) (run-hooks 'org-babel-after-execute-hook) result)))))) (let* ((org-babel-current-src-block-location (or org-babel-current-src-block-location (nth 5 info) (org-babel-where-is-src-block-head))) (info (if info (copy-tree info) (org-babel-get-src-block-info))) (executor-type (or executor-type (let* ((val (and org-babel-current-src-block-location (char-after org-babel-current-src-block-location)))) (cond ((eql val 115) (let nil 'inline-src-block)) ((eql val 99) (let nil 'inline-babel-call)) ((eql val 35) (let nil (let* ((val (char-after (+ 2 org-babel-current-src-block-location)))) (cond ((eql val 98) (let nil 'src-block)) ((eql val 99) (let nil 'call-block)) (t (let nil 'unknown)))))) (t (let nil 'unknown))))))) (let* ((c (nthcdr 2 info))) (setcar c (org-babel-merge-params (car c) params))) (if (org-babel-check-evaluate info) (progn (let* ((c (nthcdr 2 info))) (setcar c (org-babel-process-params (car c)))) (let* ((params (nth 2 info)) (cache (let ((c (cdr (assq :cache params)))) (and (not arg) c (string= "yes" c)))) (new-hash (and cache (org-babel-sha1-hash info :eval))) (old-hash (and cache (org-babel-current-result-hash))) (current-cache (and new-hash (equal new-hash old-hash)))) (cond (current-cache (save-excursion (goto-char (org-babel-where-is-src-block-result nil info)) (forward-line) (skip-chars-forward " \11") (let ((result (org-babel-read-result))) (message (format "Cached: %s" (replace-regexp-in-string "%" "%%" (format "%S" result)))) result))) ((org-babel-confirm-evaluate info) (let* ((lang (nth 0 info)) (result-params (cdr (assq :result-params params))) (body (org-babel--expand-body info)) (dir (cdr (assq :dir params))) (mkdirp (cdr (assq :mkdirp params))) (default-directory (cond ((not dir) default-directory) ((let* ((session (and t (org-babel-session-buffer info)))) (if session (buffer-local-value 'default-directory (get-buffer session)) nil))) ((member mkdirp '("no" "nil" nil)) (file-name-as-directory (expand-file-name dir))) (t (let ((d (file-name-as-directory (expand-file-name dir)))) (make-directory d 'parents) d)))) (cmd (intern (concat "org-babel-execute:" lang))) result exec-start-time) (if (fboundp cmd) nil (error "No org-babel-execute function for %s!" lang)) (message "Executing %s %s %s..." (capitalize lang) (cond ((eq executor-type 'src-block) (let nil "code block")) ((eq executor-type 'inline-src-block) (let nil "inline code block")) ((eq executor-type 'babel-call) (let nil "call")) ((eq executor-type 'inline-babel-call) (let nil "inline call")) (t (let ((e executor-type)) (symbol-name e)))) (let ((name (nth 4 info))) (if name (format "(%s)" name) (format "at position %S" (nth 5 info))))) (progn (setq exec-start-time (current-time)) (setq result (let ((r (save-current-buffer (funcall cmd body params)))) (if (and (eq (cdr (assq :result-type params)) 'value) (or (member "vector" result-params) (member "table" result-params)) (not (listp r))) (list (list r)) r)))) (let ((file (and (member "file" result-params) (cdr (assq :file params))))) (if file (progn (if (and result (not (or (member "link" result-params) (member "graphics" result-params)))) (progn (let ((temp-file file) (temp-buffer (generate-new-buffer " *temp file*" t))) (unwind-protect (prog1 (save-current-buffer (set-buffer temp-buffer) (insert (org-babel-format-result result (cdr (assq :sep params))))) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) (if (assq :file-mode params) (progn (set-file-modes file (cdr (assq :file-mode params))))))) (setq result file))) (let ((post (cdr (assq :post params)))) (if post (progn (let ((*this* (if (not file) result (org-babel-result-to-file file (org-babel--file-desc params result) 'attachment)))) (setq result (org-babel-ref-resolve post)) (if file (progn (setq result-params (remove "file" result-params)))))))) (if (member "none" result-params) nil (org-babel-insert-result result result-params info (if (member "replace" result-params) (progn new-hash)) lang (time-subtract (current-time) exec-start-time)))) (run-hooks 'org-babel-after-execute-hook) result))))))) org-babel-execute-src-block(nil ("emacs-lisp" "(require 'ox)\n(let ((alist org-export-options-alist))\n(require 'ox)\n(let (result)\n (dolist (spec alist)\n (when (and (nth 3 spec) (symbolp (nth 3 spec))) ; has customization\n (push (list (format \"~%s~\" (car spec)) (format \"~%s~\" (nth 3 spec))) result)))\n (nreverse result))\n)" ((:colname-names) (:rowname-names) (:result-params "replace" "table") (:result-type . value) (:results . "replace table") (:exports . "results") (:tangle . "no") (:session . "none") (:noweb . "yes") (:lexical . "no") (:hlines . "no") (:eval . "yes") (:cache . "no")) "" nil 643527 "(ref:%s)")) (let nil (org-babel-execute-src-block nil info)) (cond ((eq type 'block) (let nil (org-babel-execute-src-block nil info))) ((eq type 'inline) (let nil (goto-char (nth 5 info)) (org-babel-execute-src-block nil info))) ((eq type 'lob) (let nil (save-excursion (goto-char (nth 5 info)) (org-babel-execute-src-block nil info))))) (if (not (fboundp (intern (concat "org-babel-execute:" lang)))) (warn "org-export: No org-babel-execute function for %s. Not updating exported results." lang) (org-babel-eval-wipe-error-buffer) (let* ((c (nthcdr 1 info))) (setcar c body)) (let* ((c (nthcdr 2 info))) (setcar c (let ((source (get-text-property (point) 'org-reference))) (save-current-buffer (set-buffer (if source org-babel-exp-reference-buffer (current-buffer))) (save-excursion (save-restriction (widen) (if source (progn (goto-char source))) (org-babel-process-params (org-babel-merge-params (nth 2 info) (list (cons ':results (if silent "silent" "replace"))))))))))) (cond ((eq type 'block) (let nil (org-babel-execute-src-block nil info))) ((eq type 'inline) (let nil (goto-char (nth 5 info)) (org-babel-execute-src-block nil info))) ((eq type 'lob) (let nil (save-excursion (goto-char (nth 5 info)) (org-babel-execute-src-block nil info)))))) (let ((lang (nth 0 info)) (body (if (org-babel-noweb-p (nth 2 info) :eval) (org-babel-expand-noweb-references info org-babel-exp-reference-buffer) (nth 1 info))) (info (copy-sequence info)) (org-babel-current-src-block-location (point-marker))) (if (not (fboundp (intern (concat "org-babel-execute:" lang)))) (warn "org-export: No org-babel-execute function for %s. Not updating exported results." lang) (org-babel-eval-wipe-error-buffer) (let* ((c (nthcdr 1 info))) (setcar c body)) (let* ((c (nthcdr 2 info))) (setcar c (let ((source (get-text-property (point) 'org-reference))) (save-current-buffer (set-buffer (if source org-babel-exp-reference-buffer (current-buffer))) (save-excursion (save-restriction (widen) (if source (progn (goto-char source))) (org-babel-process-params (org-babel-merge-params (nth 2 info) (list (cons ':results (if silent "silent" "replace"))))))))))) (cond ((eq type 'block) (let nil (org-babel-execute-src-block nil info))) ((eq type 'inline) (let nil (goto-char (nth 5 info)) (org-babel-execute-src-block nil info))) ((eq type 'lob) (let nil (save-excursion (goto-char (nth 5 info)) (org-babel-execute-src-block nil info))))))) (if (and hash (equal hash (org-babel-current-result-hash))) nil (let ((lang (nth 0 info)) (body (if (org-babel-noweb-p (nth 2 info) :eval) (org-babel-expand-noweb-references info org-babel-exp-reference-buffer) (nth 1 info))) (info (copy-sequence info)) (org-babel-current-src-block-location (point-marker))) (if (not (fboundp (intern (concat "org-babel-execute:" lang)))) (warn "org-export: No org-babel-execute function for %s. Not updating exported results." lang) (org-babel-eval-wipe-error-buffer) (let* ((c (nthcdr 1 info))) (setcar c body)) (let* ((c (nthcdr 2 info))) (setcar c (let ((source (get-text-property (point) 'org-reference))) (save-current-buffer (set-buffer (if source org-babel-exp-reference-buffer (current-buffer))) (save-excursion (save-restriction (widen) (if source (progn (goto-char source))) (org-babel-process-params (org-babel-merge-params (nth 2 info) (list (cons ':results (if silent "silent" "replace"))))))))))) (cond ((eq type 'block) (let nil (org-babel-execute-src-block nil info))) ((eq type 'inline) (let nil (goto-char (nth 5 info)) (org-babel-execute-src-block nil info))) ((eq type 'lob) (let nil (save-excursion (goto-char (nth 5 info)) (org-babel-execute-src-block nil info)))))))) org-babel-exp-results(("emacs-lisp" "(require 'ox)\n(let ((alist org-export-options-alist))\n<<org-manual-get-export-props-customizations>>\n)" ((:cache . "no") (:colname-names) (:eval . "yes") (:exports . "results") (:hlines . "no") (:lexical . "no") (:noweb . "yes") (:result-params "replace" "table") (:result-type . value) (:results . "replace table") (:rowname-names) (:session . "none") (:tangle . "no")) "" nil 643527 "(ref:%s)") block nil "863e2b7ab28e31fc0e059f14418ae94c5683e512") (let nil (org-babel-exp-results info type nil hash) "") (cond ((equal val '"none") (let nil (funcall silently) (funcall clean) "")) ((equal val '"code") (let nil (funcall silently) (funcall clean) (org-babel-exp-code info type))) ((equal val '"results") (let nil (org-babel-exp-results info type nil hash) "")) ((equal val '"both") (let nil (org-babel-exp-results info type nil hash) (org-babel-exp-code info type))) (t (let ((unknown-value val)) (warn "Unknown value of src block parameter :exports %S" unknown-value) nil))) (let* ((val (or (cdr (assq :exports (nth 2 info))) "code"))) (cond ((equal val '"none") (let nil (funcall silently) (funcall clean) "")) ((equal val '"code") (let nil (funcall silently) (funcall clean) (org-babel-exp-code info type))) ((equal val '"results") (let nil (org-babel-exp-results info type nil hash) "")) ((equal val '"both") (let nil (org-babel-exp-results info type nil hash) (org-babel-exp-code info type))) (t (let ((unknown-value val)) (warn "Unknown value of src block parameter :exports %S" unknown-value) nil)))) (let ((silently #'(lambda nil (let ((session (cdr (assq :session (nth 2 info))))) (if (equal "none" session) nil (org-babel-exp-results info type 'silent))))) (clean #'(lambda nil (if (eq type 'inline) (org-babel-remove-inline-result) (org-babel-remove-result info))))) (let* ((val (or (cdr (assq :exports (nth 2 info))) "code"))) (cond ((equal val '"none") (let nil (funcall silently) (funcall clean) "")) ((equal val '"code") (let nil (funcall silently) (funcall clean) (org-babel-exp-code info type))) ((equal val '"results") (let nil (org-babel-exp-results info type nil hash) "")) ((equal val '"both") (let nil (org-babel-exp-results info type nil hash) (org-babel-exp-code info type))) (t (let ((unknown-value val)) (warn "Unknown value of src block parameter :exports %S" unknown-value) nil))))) org-babel-exp-do-export(("emacs-lisp" "(require 'ox)\n(let ((alist org-export-options-alist))\n<<org-manual-get-export-props-customizations>>\n)" ((:cache . "no") (:colname-names) (:eval . "yes") (:exports . "results") (:hlines . "no") (:lexical . "no") (:noweb . "yes") (:result-params "replace" "table") (:result-type . value) (:results . "replace table") (:rowname-names) (:session . "none") (:tangle . "no")) "" nil 643527 "(ref:%s)") block "863e2b7ab28e31fc0e059f14418ae94c5683e512") (progn (if (member (cdr (assq :exports (nth 2 info))) '("both" "results")) (progn (let ((lang-headers (intern (concat "org-babel-default-header-args:" lang)))) (let ((source (get-text-property (point) 'org-reference))) (save-current-buffer (set-buffer (if source org-babel-exp-reference-buffer (current-buffer))) (save-excursion (save-restriction (widen) (if source (progn (goto-char source))) (let* ((c (nthcdr 2 info))) (setcar c (org-babel-process-params (apply #'org-babel-merge-params org-babel-default-header-args (and (boundp lang-headers) (symbol-value lang-headers)) (append (org-babel-params-from-properties lang) (list raw-params))))))))))) (setq hash (org-babel-sha1-hash info :export)))) (org-babel-exp-do-export info 'block hash)) (if info (progn (if (member (cdr (assq :exports (nth 2 info))) '("both" "results")) (progn (let ((lang-headers (intern (concat "org-babel-default-header-args:" lang)))) (let ((source (get-text-property (point) 'org-reference))) (save-current-buffer (set-buffer (if source org-babel-exp-reference-buffer (current-buffer))) (save-excursion (save-restriction (widen) (if source (progn (goto-char source))) (let* ((c (nthcdr 2 info))) (setcar c (org-babel-process-params (apply #'org-babel-merge-params org-babel-default-header-args (and (boundp lang-headers) (symbol-value lang-headers)) (append (org-babel-params-from-properties lang) (list raw-params))))))))))) (setq hash (org-babel-sha1-hash info :export)))) (org-babel-exp-do-export info 'block hash))) (let* ((info (org-babel-get-src-block-info nil element)) (lang (nth 0 info)) (raw-params (nth 2 info)) hash) (if noninteractive nil (message "org-babel-exp process %s at position %d..." lang (line-beginning-position))) (if info (progn (if (member (cdr (assq :exports (nth 2 info))) '("both" "results")) (progn (let ((lang-headers (intern (concat "org-babel-default-header-args:" lang)))) (let ((source (get-text-property (point) 'org-reference))) (save-current-buffer (set-buffer (if source org-babel-exp-reference-buffer (current-buffer))) (save-excursion (save-restriction (widen) (if source (progn (goto-char source))) (let* ((c (nthcdr 2 info))) (setcar c (org-babel-process-params (apply #'org-babel-merge-params org-babel-default-header-args (and (boundp lang-headers) (symbol-value lang-headers)) (append (org-babel-params-from-properties lang) (list raw-params))))))))))) (setq hash (org-babel-sha1-hash info :export)))) (org-babel-exp-do-export info 'block hash)))) (save-excursion (let* ((info (org-babel-get-src-block-info nil element)) (lang (nth 0 info)) (raw-params (nth 2 info)) hash) (if noninteractive nil (message "org-babel-exp process %s at position %d..." lang (line-beginning-position))) (if info (progn (if (member (cdr (assq :exports (nth 2 info))) '("both" "results")) (progn (let ((lang-headers (intern (concat "org-babel-default-header-args:" lang)))) (let ((source (get-text-property (point) 'org-reference))) (save-current-buffer (set-buffer (if source org-babel-exp-reference-buffer (current-buffer))) (save-excursion (save-restriction (widen) (if source (progn (goto-char source))) (let* ((c (nthcdr 2 info))) (setcar c (org-babel-process-params (apply #'org-babel-merge-params org-babel-default-header-args (and (boundp lang-headers) (symbol-value lang-headers)) (append (org-babel-params-from-properties lang) (list raw-params))))))))))) (setq hash (org-babel-sha1-hash info :export)))) (org-babel-exp-do-export info 'block hash))))) org-babel-exp-src-block((src-block (:standard-properties [643527 643527 nil nil 643718 2 nil nil element t (1294 . 643527) nil nil nil #<buffer *temp*-95112> nil nil (section (:standard-properties [643488 643488 643488 643720 643720 0 nil section element t (1294 . 643487) 643488 643720 nil #<buffer *temp*-95112> nil nil (headline (:standard-properties [643464 643464 643488 643730 643730 0 (:title) nil nil t (1294 . 643464) 643490 643730 4 #<buffer *temp*-95112> [org-element-deferred org-element--headline-deferred nil t] nil (headline (:standard-properties [642680 642680 642710 645841 645841 0 (:title) nil element t (1293 . 642680) 642804 645839 3 #<buffer *temp*-95112> nil nil (headline (:standard-properties [637312 637312 637329 650839 650839 0 (:title) nil element t (1293 . 637312) 637380 650837 2 #<buffer *temp*-95112> nil nil (headline (:standard-properties [636693 636693 636706 656697 656697 0 (:title) nil element t nil 636777 656695 1 #<buffer *temp*-95112> nil nil (org-data (:standard-properties [1 1 1 873901 873901 0 nil org-data nil t nil 3 873901 nil #<buffer *temp*-95112> nil nil nil] :path nil :CATEGORY nil :fragile-cache nil))] :pre-blank 0 :raw-value [org-element-deferred org-element--headline-raw-value (2 12) nil] :title [org-element-deferred org-element-property-2 (:raw-value) nil] :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :footnote-section-p [org-element-deferred org-element--headline-footnote-section-p nil nil] :archivedp [org-element-deferred org-element--headline-archivedp nil nil] :commentedp nil :fragile-cache nil :DESCRIPTION [org-element-deferred org-element--substring (40 78) nil]))] :pre-blank 0 :raw-value [org-element-deferred org-element--headline-raw-value (3 16) nil] :title [org-element-deferred org-element-property-2 (:raw-value) nil] :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :footnote-section-p [org-element-deferred org-element--headline-footnote-section-p nil nil] :archivedp [org-element-deferred org-element--headline-archivedp nil nil] :commentedp nil :DESCRIPTION [org-element-deferred org-element--substring (44 62) nil] :fragile-cache nil))] :pre-blank 0 :raw-value [org-element-deferred org-element--headline-raw-value (4 29) nil] :title [org-element-deferred org-element-property-2 (:raw-value) nil] :level 3 :priority nil :tags nil :todo-keyword nil :todo-type nil :footnote-section-p [org-element-deferred org-element--headline-footnote-section-p nil nil] :archivedp [org-element-deferred org-element--headline-archivedp nil nil] :commentedp nil :DESCRIPTION [org-element-deferred org-element--substring (57 87) nil] :ALT_TITLE [org-element-deferred org-element--substring (100 118) nil] :fragile-cache nil))] :pre-blank 0 :raw-value [org-element-deferred org-element--headline-parse-title (t) nil] :title [org-element-deferred org-element--headline-parse-title (t) nil] :level [org-element-deferred org-element--headline-parse-title (t) nil] :priority [org-element-deferred org-element--headline-parse-title (t) nil] :tags [org-element-deferred org-element--headline-parse-title (t) nil] :todo-keyword [org-element-deferred org-element--headline-parse-title (t) nil] :todo-type [org-element-deferred org-element--headline-parse-title (t) nil] :footnote-section-p [org-element-deferred org-element--headline-parse-title (t) nil] :archivedp [org-element-deferred org-element--headline-parse-title (t) nil] :commentedp [org-element-deferred org-element--headline-parse-title (t) nil]))] :fragile-cache nil))] :language "emacs-lisp" :switches nil :parameters ":exports results :results table :eval yes :noweb yes" :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value [org-element-deferred org-element--unescape-substring (76 179) nil]))) (progn (goto-char match-start) (org-babel-exp-src-block element)) (let ((replacement (progn (goto-char match-start) (org-babel-exp-src-block element)))) (cond ((not replacement) (goto-char end)) ((equal replacement "") (goto-char end) (skip-chars-forward " \15\11\n") (forward-line 0) (delete-region begin (point))) (t (if (org-src-preserve-indentation-p element) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (fboundp 'indent-tabs-mode) (progn (indent-tabs-mode -1) (set (make-local-variable 'indent-tabs-mode) nil))) (insert replacement) (skip-chars-backward " \15\11\n") (indent-line-to ind) (goto-char 1) (indent-line-to ind) (setq replacement (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (fboundp 'indent-tabs-mode) (progn (indent-tabs-mode -1) (set (make-local-variable 'indent-tabs-mode) nil))) (insert replacement) (indent-rigidly 1 (point) ind) (setq replacement (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (goto-char match-start) (let ((rend (save-excursion (goto-char end) (line-end-position)))) (if (string-equal replacement (buffer-substring match-start rend)) (goto-char rend) (delete-region match-start (save-excursion (goto-char end) (line-end-position))) (insert replacement)))))) (let ((match-start (copy-marker (match-beginning 0))) (ind (let ((buffer-invisibility-spec nil)) (current-indentation)))) (let ((replacement (progn (goto-char match-start) (org-babel-exp-src-block element)))) (cond ((not replacement) (goto-char end)) ((equal replacement "") (goto-char end) (skip-chars-forward " \15\11\n") (forward-line 0) (delete-region begin (point))) (t (if (org-src-preserve-indentation-p element) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (fboundp 'indent-tabs-mode) (progn (indent-tabs-mode -1) (set (make-local-variable 'indent-tabs-mode) nil))) (insert replacement) (skip-chars-backward " \15\11\n") (indent-line-to ind) (goto-char 1) (indent-line-to ind) (setq replacement (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (fboundp 'indent-tabs-mode) (progn (indent-tabs-mode -1) (set (make-local-variable 'indent-tabs-mode) nil))) (insert replacement) (indent-rigidly 1 (point) ind) (setq replacement (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (goto-char match-start) (let ((rend (save-excursion (goto-char end) (line-end-position)))) (if (string-equal replacement (buffer-substring match-start rend)) (goto-char rend) (delete-region match-start (save-excursion (goto-char end) (line-end-position))) (insert replacement)))))) (set-marker match-start nil)) (let nil (let ((match-start (copy-marker (match-beginning 0))) (ind (let ((buffer-invisibility-spec nil)) (current-indentation)))) (let ((replacement (progn (goto-char match-start) (org-babel-exp-src-block element)))) (cond ((not replacement) (goto-char end)) ((equal replacement "") (goto-char end) (skip-chars-forward " \15\11\n") (forward-line 0) (delete-region begin (point))) (t (if (org-src-preserve-indentation-p element) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (fboundp 'indent-tabs-mode) (progn (indent-tabs-mode -1) (set (make-local-variable 'indent-tabs-mode) nil))) (insert replacement) (skip-chars-backward " \15\11\n") (indent-line-to ind) (goto-char 1) (indent-line-to ind) (setq replacement (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (fboundp 'indent-tabs-mode) (progn (indent-tabs-mode -1) (set (make-local-variable 'indent-tabs-mode) nil))) (insert replacement) (indent-rigidly 1 (point) ind) (setq replacement (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (goto-char match-start) (let ((rend (save-excursion (goto-char end) (line-end-position)))) (if (string-equal replacement (buffer-substring match-start rend)) (goto-char rend) (delete-region match-start (save-excursion (goto-char end) (line-end-position))) (insert replacement)))))) (set-marker match-start nil))) (cond ((eq type 'inline-src-block) (let nil (let* ((info (org-babel-get-src-block-info nil element)) (params (nth 2 info))) (let* ((c (nthcdr 1 info))) (setcar c (if (and (cdr (assq :noweb params)) (string= "yes" (cdr (assq :noweb params)))) (org-babel-expand-noweb-references info org-babel-exp-reference-buffer) (nth 1 info)))) (goto-char begin) (let ((replacement (org-babel-exp-do-export info 'inline))) (cond ((equal replacement "") (delete-region begin (progn (goto-char end) (skip-chars-forward " \11") (point)))) ((not replacement) (goto-char end)) ((not (string= replacement (buffer-substring begin end))) (delete-region begin end) (insert replacement)) (t (goto-char end))))))) ((memq type '(inline-babel-call babel-call)) (let nil (org-babel-exp-do-export (or (org-babel-lob-get-info element) (user-error "Unknown Babel reference: %s" (org-element--property :call element nil nil))) 'lob) (let ((rep (org-fill-template org-babel-exp-call-line-template (list (cons "line" (org-element--property :value element nil nil)))))) (cond ((equal rep "") (delete-region begin (progn (goto-char end) (if (not (eq type 'babel-call)) (progn (skip-chars-forward " \11") (point)) (skip-chars-forward " \15\11\n") (line-beginning-position))))) ((not rep) (goto-char end)) (t (goto-char begin) (delete-region begin end) (insert rep)))))) ((eq type 'src-block) (let nil (let ((match-start (copy-marker (match-beginning 0))) (ind (let ((buffer-invisibility-spec nil)) (current-indentation)))) (let ((replacement (progn (goto-char match-start) (org-babel-exp-src-block element)))) (cond ((not replacement) (goto-char end)) ((equal replacement "") (goto-char end) (skip-chars-forward " \15\11\n") (forward-line 0) (delete-region begin (point))) (t (if (org-src-preserve-indentation-p element) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (fboundp 'indent-tabs-mode) (progn (indent-tabs-mode -1) (set (make-local-variable 'indent-tabs-mode) nil))) (insert replacement) (skip-chars-backward " \15\11\n") (indent-line-to ind) (goto-char 1) (indent-line-to ind) (setq replacement (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (fboundp 'indent-tabs-mode) (progn (indent-tabs-mode -1) (set (make-local-variable 'indent-tabs-mode) nil))) (insert replacement) (indent-rigidly 1 (point) ind) (setq replacement (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (goto-char match-start) (let ((rend (save-excursion (goto-char end) (line-end-position)))) (if (string-equal replacement (buffer-substring match-start rend)) (goto-char rend) (delete-region match-start (save-excursion (goto-char end) (line-end-position))) (insert replacement)))))) (set-marker match-start nil))))) (let* ((object? (match-end 1)) (element (let ((saved-match-data (match-data))) (unwind-protect (progn (if object? (org-element-context element) element)) (set-match-data saved-match-data t)))) (type (let* ((val (org-element-type element))) (cond ((not (memq val '(src-block babel-call))) (let ((type val)) type)) (object? 'nil) (t (let ((type val)) type))))) (begin (copy-marker (org-element-begin element))) (end (copy-marker (save-excursion (goto-char (org-element-end element)) (skip-chars-backward " \15\11\n") (point))))) (cond ((eq type 'inline-src-block) (let nil (let* ((info (org-babel-get-src-block-info nil element)) (params (nth 2 info))) (let* ((c (nthcdr 1 info))) (setcar c (if (and (cdr (assq :noweb params)) (string= "yes" (cdr (assq :noweb params)))) (org-babel-expand-noweb-references info org-babel-exp-reference-buffer) (nth 1 info)))) (goto-char begin) (let ((replacement (org-babel-exp-do-export info 'inline))) (cond ((equal replacement "") (delete-region begin (progn (goto-char end) (skip-chars-forward " \11") (point)))) ((not replacement) (goto-char end)) ((not (string= replacement (buffer-substring begin end))) (delete-region begin end) (insert replacement)) (t (goto-char end))))))) ((memq type '(inline-babel-call babel-call)) (let nil (org-babel-exp-do-export (or (org-babel-lob-get-info element) (user-error "Unknown Babel reference: %s" (org-element--property :call element nil nil))) 'lob) (let ((rep (org-fill-template org-babel-exp-call-line-template (list (cons "line" (org-element--property :value element nil nil)))))) (cond ((equal rep "") (delete-region begin (progn (goto-char end) (if (not (eq type 'babel-call)) (progn (skip-chars-forward " \11") (point)) (skip-chars-forward " \15\11\n") (line-beginning-position))))) ((not rep) (goto-char end)) (t (goto-char begin) (delete-region begin end) (insert rep)))))) ((eq type 'src-block) (let nil (let ((match-start (copy-marker (match-beginning 0))) (ind (let ((buffer-invisibility-spec nil)) (current-indentation)))) (let ((replacement (progn (goto-char match-start) (org-babel-exp-src-block element)))) (cond ((not replacement) (goto-char end)) ((equal replacement "") (goto-char end) (skip-chars-forward " \15\11\n") (forward-line 0) (delete-region begin (point))) (t (if (org-src-preserve-indentation-p element) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (fboundp 'indent-tabs-mode) (progn (indent-tabs-mode -1) (set (make-local-variable 'indent-tabs-mode) nil))) (insert replacement) (skip-chars-backward " \15\11\n") (indent-line-to ind) (goto-char 1) (indent-line-to ind) (setq replacement (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (fboundp 'indent-tabs-mode) (progn (indent-tabs-mode -1) (set (make-local-variable 'indent-tabs-mode) nil))) (insert replacement) (indent-rigidly 1 (point) ind) (setq replacement (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (goto-char match-start) (let ((rend (save-excursion (goto-char end) (line-end-position)))) (if (string-equal replacement (buffer-substring match-start rend)) (goto-char rend) (delete-region match-start (save-excursion (goto-char end) (line-end-position))) (insert replacement)))))) (set-marker match-start nil))))) (set-marker begin nil) (set-marker end nil)) (if (let ((saved-match-data (match-data))) (unwind-protect (progn (or (org-in-commented-heading-p nil element) (org-in-archived-heading-p nil element))) (set-match-data saved-match-data t))) nil (let* ((object? (match-end 1)) (element (let ((saved-match-data (match-data))) (unwind-protect (progn (if object? (org-element-context element) element)) (set-match-data saved-match-data t)))) (type (let* ((val (org-element-type element))) (cond ((not (memq val '(src-block babel-call))) (let ((type val)) type)) (object? 'nil) (t (let ((type val)) type))))) (begin (copy-marker (org-element-begin element))) (end (copy-marker (save-excursion (goto-char (org-element-end element)) (skip-chars-backward " \15\11\n") (point))))) (cond ((eq type 'inline-src-block) (let nil (let* ((info (org-babel-get-src-block-info nil element)) (params (nth 2 info))) (let* ((c (nthcdr 1 info))) (setcar c (if (and (cdr (assq :noweb params)) (string= "yes" (cdr (assq :noweb params)))) (org-babel-expand-noweb-references info org-babel-exp-reference-buffer) (nth 1 info)))) (goto-char begin) (let ((replacement (org-babel-exp-do-export info 'inline))) (cond ((equal replacement "") (delete-region begin (progn (goto-char end) (skip-chars-forward " \11") (point)))) ((not replacement) (goto-char end)) ((not (string= replacement (buffer-substring begin end))) (delete-region begin end) (insert replacement)) (t (goto-char end))))))) ((memq type '(inline-babel-call babel-call)) (let nil (org-babel-exp-do-export (or (org-babel-lob-get-info element) (user-error "Unknown Babel reference: %s" (org-element--property :call element nil nil))) 'lob) (let ((rep (org-fill-template org-babel-exp-call-line-template (list (cons "line" (org-element--property :value element nil nil)))))) (cond ((equal rep "") (delete-region begin (progn (goto-char end) (if (not (eq type 'babel-call)) (progn (skip-chars-forward " \11") (point)) (skip-chars-forward " \15\11\n") (line-beginning-position))))) ((not rep) (goto-char end)) (t (goto-char begin) (delete-region begin end) (insert rep)))))) ((eq type 'src-block) (let nil (let ((match-start (copy-marker (match-beginning 0))) (ind (let ((buffer-invisibility-spec nil)) (current-indentation)))) (let ((replacement (progn (goto-char match-start) (org-babel-exp-src-block element)))) (cond ((not replacement) (goto-char end)) ((equal replacement "") (goto-char end) (skip-chars-forward " \15\11\n") (forward-line 0) (delete-region begin (point))) (t (if (org-src-preserve-indentation-p element) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (fboundp 'indent-tabs-mode) (progn (indent-tabs-mode -1) (set (make-local-variable 'indent-tabs-mode) nil))) (insert replacement) (skip-chars-backward " \15\11\n") (indent-line-to ind) (goto-char 1) (indent-line-to ind) (setq replacement (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (fboundp 'indent-tabs-mode) (progn (indent-tabs-mode -1) (set (make-local-variable 'indent-tabs-mode) nil))) (insert replacement) (indent-rigidly 1 (point) ind) (setq replacement (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (goto-char match-start) (let ((rend (save-excursion (goto-char end) (line-end-position)))) (if (string-equal replacement (buffer-substring match-start rend)) (goto-char rend) (delete-region match-start (save-excursion (goto-char end) (line-end-position))) (insert replacement)))))) (set-marker match-start nil))))) (set-marker begin nil) (set-marker end nil))) (while (re-search-forward regexp nil t) (setq element (let ((saved-match-data (match-data))) (unwind-protect (progn (org-element-at-point)) (set-match-data saved-match-data t)))) (if (let ((saved-match-data (match-data))) (unwind-protect (progn (or (org-in-commented-heading-p nil element) (org-in-archived-heading-p nil element))) (set-match-data saved-match-data t))) nil (let* ((object? (match-end 1)) (element (let ((saved-match-data (match-data))) (unwind-protect (progn (if object? (org-element-context element) element)) (set-match-data saved-match-data t)))) (type (let* ((val (org-element-type element))) (cond ((not (memq val '(src-block babel-call))) (let ((type val)) type)) (object? 'nil) (t (let ((type val)) type))))) (begin (copy-marker (org-element-begin element))) (end (copy-marker (save-excursion (goto-char (org-element-end element)) (skip-chars-backward " \15\11\n") (point))))) (cond ((eq type 'inline-src-block) (let nil (let* ((info (org-babel-get-src-block-info nil element)) (params (nth 2 info))) (let* ((c (nthcdr 1 info))) (setcar c (if (and (cdr (assq :noweb params)) (string= "yes" (cdr (assq :noweb params)))) (org-babel-expand-noweb-references info org-babel-exp-reference-buffer) (nth 1 info)))) (goto-char begin) (let ((replacement (org-babel-exp-do-export info 'inline))) (cond ((equal replacement "") (delete-region begin (progn (goto-char end) (skip-chars-forward " \11") (point)))) ((not replacement) (goto-char end)) ((not (string= replacement (buffer-substring begin end))) (delete-region begin end) (insert replacement)) (t (goto-char end))))))) ((memq type '(inline-babel-call babel-call)) (let nil (org-babel-exp-do-export (or (org-babel-lob-get-info element) (user-error "Unknown Babel reference: %s" (org-element--property :call element nil nil))) 'lob) (let ((rep (org-fill-template org-babel-exp-call-line-template (list (cons "line" (org-element--property :value element nil nil)))))) (cond ((equal rep "") (delete-region begin (progn (goto-char end) (if (not (eq type 'babel-call)) (progn (skip-chars-forward " \11") (point)) (skip-chars-forward " \15\11\n") (line-beginning-position))))) ((not rep) (goto-char end)) (t (goto-char begin) (delete-region begin end) (insert rep)))))) ((eq type 'src-block) (let nil (let ((match-start (copy-marker (match-beginning 0))) (ind (let ((buffer-invisibility-spec nil)) (current-indentation)))) (let ((replacement (progn (goto-char match-start) (org-babel-exp-src-block element)))) (cond ((not replacement) (goto-char end)) ((equal replacement "") (goto-char end) (skip-chars-forward " \15\11\n") (forward-line 0) (delete-region begin (point))) (t (if (org-src-preserve-indentation-p element) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (fboundp 'indent-tabs-mode) (progn (indent-tabs-mode -1) (set (make-local-variable 'indent-tabs-mode) nil))) (insert replacement) (skip-chars-backward " \15\11\n") (indent-line-to ind) (goto-char 1) (indent-line-to ind) (setq replacement (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (fboundp 'indent-tabs-mode) (progn (indent-tabs-mode -1) (set (make-local-variable 'indent-tabs-mode) nil))) (insert replacement) (indent-rigidly 1 (point) ind) (setq replacement (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (goto-char match-start) (let ((rend (save-excursion (goto-char end) (line-end-position)))) (if (string-equal replacement (buffer-substring match-start rend)) (goto-char rend) (delete-region match-start (save-excursion (goto-char end) (line-end-position))) (insert replacement)))))) (set-marker match-start nil))))) (set-marker begin nil) (set-marker end nil)))) (progn (while (re-search-forward regexp nil t) (setq element (let ((saved-match-data (match-data))) (unwind-protect (progn (org-element-at-point)) (set-match-data saved-match-data t)))) (if (let ((saved-match-data (match-data))) (unwind-protect (progn (or (org-in-commented-heading-p nil element) (org-in-archived-heading-p nil element))) (set-match-data saved-match-data t))) nil (let* ((object? (match-end 1)) (element (let ((saved-match-data (match-data))) (unwind-protect (progn (if object? (org-element-context element) element)) (set-match-data saved-match-data t)))) (type (let* ((val (org-element-type element))) (cond ((not (memq val '(src-block babel-call))) (let ((type val)) type)) (object? 'nil) (t (let ((type val)) type))))) (begin (copy-marker (org-element-begin element))) (end (copy-marker (save-excursion (goto-char (org-element-end element)) (skip-chars-backward " \15\11\n") (point))))) (cond ((eq type 'inline-src-block) (let nil (let* ((info (org-babel-get-src-block-info nil element)) (params (nth 2 info))) (let* ((c (nthcdr 1 info))) (setcar c (if (and (cdr (assq :noweb params)) (string= "yes" (cdr (assq :noweb params)))) (org-babel-expand-noweb-references info org-babel-exp-reference-buffer) (nth 1 info)))) (goto-char begin) (let ((replacement (org-babel-exp-do-export info 'inline))) (cond ((equal replacement "") (delete-region begin (progn (goto-char end) (skip-chars-forward " \11") (point)))) ((not replacement) (goto-char end)) ((not (string= replacement (buffer-substring begin end))) (delete-region begin end) (insert replacement)) (t (goto-char end))))))) ((memq type '(inline-babel-call babel-call)) (let nil (org-babel-exp-do-export (or (org-babel-lob-get-info element) (user-error "Unknown Babel reference: %s" (org-element--property :call element nil nil))) 'lob) (let ((rep (org-fill-template org-babel-exp-call-line-template (list (cons "line" (org-element--property :value element nil nil)))))) (cond ((equal rep "") (delete-region begin (progn (goto-char end) (if (not (eq type 'babel-call)) (progn (skip-chars-forward " \11") (point)) (skip-chars-forward " \15\11\n") (line-beginning-position))))) ((not rep) (goto-char end)) (t (goto-char begin) (delete-region begin end) (insert rep)))))) ((eq type 'src-block) (let nil (let ((match-start (copy-marker (match-beginning 0))) (ind (let ((buffer-invisibility-spec nil)) (current-indentation)))) (let ((replacement (progn (goto-char match-start) (org-babel-exp-src-block element)))) (cond ((not replacement) (goto-char end)) ((equal replacement "") (goto-char end) (skip-chars-forward " \15\11\n") (forward-line 0) (delete-region begin (point))) (t (if (org-src-preserve-indentation-p element) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (fboundp 'indent-tabs-mode) (progn (indent-tabs-mode -1) (set (make-local-variable 'indent-tabs-mode) nil))) (insert replacement) (skip-chars-backward " \15\11\n") (indent-line-to ind) (goto-char 1) (indent-line-to ind) (setq replacement (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (fboundp 'indent-tabs-mode) (progn (indent-tabs-mode -1) (set (make-local-variable 'indent-tabs-mode) nil))) (insert replacement) (indent-rigidly 1 (point) ind) (setq replacement (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (goto-char match-start) (let ((rend (save-excursion (goto-char end) (line-end-position)))) (if (string-equal replacement (buffer-substring match-start rend)) (goto-char rend) (delete-region match-start (save-excursion (goto-char end) (line-end-position))) (insert replacement)))))) (set-marker match-start nil))))) (set-marker begin nil) (set-marker end nil))))) (unwind-protect (progn (while (re-search-forward regexp nil t) (setq element (let ((saved-match-data (match-data))) (unwind-protect (progn (org-element-at-point)) (set-match-data saved-match-data t)))) (if (let ((saved-match-data (match-data))) (unwind-protect (progn (or (org-in-commented-heading-p nil element) (org-in-archived-heading-p nil element))) (set-match-data saved-match-data t))) nil (let* ((object? (match-end 1)) (element (let ((saved-match-data (match-data))) (unwind-protect (progn (if object? (org-element-context element) element)) (set-match-data saved-match-data t)))) (type (let* ((val (org-element-type element))) (cond ((not (memq val '(src-block babel-call))) (let ((type val)) type)) (object? 'nil) (t (let ((type val)) type))))) (begin (copy-marker (org-element-begin element))) (end (copy-marker (save-excursion (goto-char (org-element-end element)) (skip-chars-backward " \15\11\n") (point))))) (cond ((eq type 'inline-src-block) (let nil (let* ((info (org-babel-get-src-block-info nil element)) (params (nth 2 info))) (let* ((c (nthcdr 1 info))) (setcar c (if (and (cdr (assq :noweb params)) (string= "yes" (cdr (assq :noweb params)))) (org-babel-expand-noweb-references info org-babel-exp-reference-buffer) (nth 1 info)))) (goto-char begin) (let ((replacement (org-babel-exp-do-export info 'inline))) (cond ((equal replacement "") (delete-region begin (progn (goto-char end) (skip-chars-forward " \11") (point)))) ((not replacement) (goto-char end)) ((not (string= replacement (buffer-substring begin end))) (delete-region begin end) (insert replacement)) (t (goto-char end))))))) ((memq type '(inline-babel-call babel-call)) (let nil (org-babel-exp-do-export (or (org-babel-lob-get-info element) (user-error "Unknown Babel reference: %s" (org-element--property :call element nil nil))) 'lob) (let ((rep (org-fill-template org-babel-exp-call-line-template (list (cons "line" (org-element--property :value element nil nil)))))) (cond ((equal rep "") (delete-region begin (progn (goto-char end) (if (not (eq type 'babel-call)) (progn (skip-chars-forward " \11") (point)) (skip-chars-forward " \15\11\n") (line-beginning-position))))) ((not rep) (goto-char end)) (t (goto-char begin) (delete-region begin end) (insert rep)))))) ((eq type 'src-block) (let nil (let ((match-start (copy-marker (match-beginning 0))) (ind (let ((buffer-invisibility-spec nil)) (current-indentation)))) (let ((replacement (progn (goto-char match-start) (org-babel-exp-src-block element)))) (cond ((not replacement) (goto-char end)) ((equal replacement "") (goto-char end) (skip-chars-forward " \15\11\n") (forward-line 0) (delete-region begin (point))) (t (if (org-src-preserve-indentation-p element) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (fboundp 'indent-tabs-mode) (progn (indent-tabs-mode -1) (set (make-local-variable 'indent-tabs-mode) nil))) (insert replacement) (skip-chars-backward " \15\11\n") (indent-line-to ind) (goto-char 1) (indent-line-to ind) (setq replacement (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (fboundp 'indent-tabs-mode) (progn (indent-tabs-mode -1) (set (make-local-variable 'indent-tabs-mode) nil))) (insert replacement) (indent-rigidly 1 (point) ind) (setq replacement (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (goto-char match-start) (let ((rend (save-excursion (goto-char end) (line-end-position)))) (if (string-equal replacement (buffer-substring match-start rend)) (goto-char rend) (delete-region match-start (save-excursion (goto-char end) (line-end-position))) (insert replacement)))))) (set-marker match-start nil))))) (set-marker begin nil) (set-marker end nil))))) (setq org-fold-core--last-buffer-chars-modified-tick (buffer-chars-modified-tick))) (let ((org-fold-core--ignore-modifications t)) (unwind-protect (progn (while (re-search-forward regexp nil t) (setq element (let ((saved-match-data (match-data))) (unwind-protect (progn (org-element-at-point)) (set-match-data saved-match-data t)))) (if (let ((saved-match-data (match-data))) (unwind-protect (progn (or (org-in-commented-heading-p nil element) (org-in-archived-heading-p nil element))) (set-match-data saved-match-data t))) nil (let* ((object? (match-end 1)) (element (let ((saved-match-data (match-data))) (unwind-protect (progn (if object? (org-element-context element) element)) (set-match-data saved-match-data t)))) (type (let* ((val (org-element-type element))) (cond ((not (memq val '(src-block babel-call))) (let ((type val)) type)) (object? 'nil) (t (let ((type val)) type))))) (begin (copy-marker (org-element-begin element))) (end (copy-marker (save-excursion (goto-char (org-element-end element)) (skip-chars-backward " \15\11\n") (point))))) (cond ((eq type 'inline-src-block) (let nil (let* ((info (org-babel-get-src-block-info nil element)) (params (nth 2 info))) (let* ((c (nthcdr 1 info))) (setcar c (if (and (cdr (assq :noweb params)) (string= "yes" (cdr (assq :noweb params)))) (org-babel-expand-noweb-references info org-babel-exp-reference-buffer) (nth 1 info)))) (goto-char begin) (let ((replacement (org-babel-exp-do-export info 'inline))) (cond ((equal replacement "") (delete-region begin (progn (goto-char end) (skip-chars-forward " \11") (point)))) ((not replacement) (goto-char end)) ((not (string= replacement (buffer-substring begin end))) (delete-region begin end) (insert replacement)) (t (goto-char end))))))) ((memq type '(inline-babel-call babel-call)) (let nil (org-babel-exp-do-export (or (org-babel-lob-get-info element) (user-error "Unknown Babel reference: %s" (org-element--property :call element nil nil))) 'lob) (let ((rep (org-fill-template org-babel-exp-call-line-template (list (cons "line" (org-element--property :value element nil nil)))))) (cond ((equal rep "") (delete-region begin (progn (goto-char end) (if (not (eq type 'babel-call)) (progn (skip-chars-forward " \11") (point)) (skip-chars-forward " \15\11\n") (line-beginning-position))))) ((not rep) (goto-char end)) (t (goto-char begin) (delete-region begin end) (insert rep)))))) ((eq type 'src-block) (let nil (let ((match-start (copy-marker (match-beginning 0))) (ind (let ((buffer-invisibility-spec nil)) (current-indentation)))) (let ((replacement (progn (goto-char match-start) (org-babel-exp-src-block element)))) (cond ((not replacement) (goto-char end)) ((equal replacement "") (goto-char end) (skip-chars-forward " \15\11\n") (forward-line 0) (delete-region begin (point))) (t (if (org-src-preserve-indentation-p element) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (fboundp 'indent-tabs-mode) (progn (indent-tabs-mode -1) (set (make-local-variable 'indent-tabs-mode) nil))) (insert replacement) (skip-chars-backward " \15\11\n") (indent-line-to ind) (goto-char 1) (indent-line-to ind) (setq replacement (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (fboundp 'indent-tabs-mode) (progn (indent-tabs-mode -1) (set (make-local-variable 'indent-tabs-mode) nil))) (insert replacement) (indent-rigidly 1 (point) ind) (setq replacement (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (goto-char match-start) (let ((rend (save-excursion (goto-char end) (line-end-position)))) (if (string-equal replacement (buffer-substring match-start rend)) (goto-char rend) (delete-region match-start (save-excursion (goto-char end) (line-end-position))) (insert replacement)))))) (set-marker match-start nil))))) (set-marker begin nil) (set-marker end nil))))) (setq org-fold-core--last-buffer-chars-modified-tick (buffer-chars-modified-tick)))) (save-excursion (goto-char (point-min)) (while (re-search-forward regexp nil t) (let ((s (match-beginning 0))) (put-text-property s (line-end-position) 'org-reference s))) (goto-char (point-min)) (let ((org-fold-core--ignore-modifications t)) (unwind-protect (progn (while (re-search-forward regexp nil t) (setq element (let ((saved-match-data (match-data))) (unwind-protect (progn (org-element-at-point)) (set-match-data saved-match-data t)))) (if (let ((saved-match-data (match-data))) (unwind-protect (progn (or (org-in-commented-heading-p nil element) (org-in-archived-heading-p nil element))) (set-match-data saved-match-data t))) nil (let* ((object? (match-end 1)) (element (let ((saved-match-data (match-data))) (unwind-protect (progn (if object? (org-element-context element) element)) (set-match-data saved-match-data t)))) (type (let* ((val (org-element-type element))) (cond ((not (memq val '(src-block babel-call))) (let ((type val)) type)) (object? 'nil) (t (let ((type val)) type))))) (begin (copy-marker (org-element-begin element))) (end (copy-marker (save-excursion (goto-char (org-element-end element)) (skip-chars-backward " \15\11\n") (point))))) (cond ((eq type 'inline-src-block) (let nil (let* ((info (org-babel-get-src-block-info nil element)) (params (nth 2 info))) (let* ((c (nthcdr 1 info))) (setcar c (if (and (cdr (assq :noweb params)) (string= "yes" (cdr (assq :noweb params)))) (org-babel-expand-noweb-references info org-babel-exp-reference-buffer) (nth 1 info)))) (goto-char begin) (let ((replacement (org-babel-exp-do-export info 'inline))) (cond ((equal replacement "") (delete-region begin (progn (goto-char end) (skip-chars-forward " \11") (point)))) ((not replacement) (goto-char end)) ((not (string= replacement (buffer-substring begin end))) (delete-region begin end) (insert replacement)) (t (goto-char end))))))) ((memq type '(inline-babel-call babel-call)) (let nil (org-babel-exp-do-export (or (org-babel-lob-get-info element) (user-error "Unknown Babel reference: %s" (org-element--property :call element nil nil))) 'lob) (let ((rep (org-fill-template org-babel-exp-call-line-template (list (cons "line" (org-element--property :value element nil nil)))))) (cond ((equal rep "") (delete-region begin (progn (goto-char end) (if (not (eq type 'babel-call)) (progn (skip-chars-forward " \11") (point)) (skip-chars-forward " \15\11\n") (line-beginning-position))))) ((not rep) (goto-char end)) (t (goto-char begin) (delete-region begin end) (insert rep)))))) ((eq type 'src-block) (let nil (let ((match-start (copy-marker (match-beginning 0))) (ind (let ((buffer-invisibility-spec nil)) (current-indentation)))) (let ((replacement (progn (goto-char match-start) (org-babel-exp-src-block element)))) (cond ((not replacement) (goto-char end)) ((equal replacement "") (goto-char end) (skip-chars-forward " \15\11\n") (forward-line 0) (delete-region begin (point))) (t (if (org-src-preserve-indentation-p element) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (fboundp 'indent-tabs-mode) (progn (indent-tabs-mode -1) (set (make-local-variable 'indent-tabs-mode) nil))) (insert replacement) (skip-chars-backward " \15\11\n") (indent-line-to ind) (goto-char 1) (indent-line-to ind) (setq replacement (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (fboundp 'indent-tabs-mode) (progn (indent-tabs-mode -1) (set (make-local-variable 'indent-tabs-mode) nil))) (insert replacement) (indent-rigidly 1 (point) ind) (setq replacement (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (goto-char match-start) (let ((rend (save-excursion (goto-char end) (line-end-position)))) (if (string-equal replacement (buffer-substring match-start rend)) (goto-char rend) (delete-region match-start (save-excursion (goto-char end) (line-end-position))) (insert replacement)))))) (set-marker match-start nil))))) (set-marker begin nil) (set-marker end nil))))) (setq org-fold-core--last-buffer-chars-modified-tick (buffer-chars-modified-tick))))) (unwind-protect (save-excursion (goto-char (point-min)) (while (re-search-forward regexp nil t) (let ((s (match-beginning 0))) (put-text-property s (line-end-position) 'org-reference s))) (goto-char (point-min)) (let ((org-fold-core--ignore-modifications t)) (unwind-protect (progn (while (re-search-forward regexp nil t) (setq element (let ((saved-match-data (match-data))) (unwind-protect (progn (org-element-at-point)) (set-match-data saved-match-data t)))) (if (let ((saved-match-data (match-data))) (unwind-protect (progn (or (org-in-commented-heading-p nil element) (org-in-archived-heading-p nil element))) (set-match-data saved-match-data t))) nil (let* ((object? (match-end 1)) (element (let ((saved-match-data (match-data))) (unwind-protect (progn (if object? (org-element-context element) element)) (set-match-data saved-match-data t)))) (type (let* ((val (org-element-type element))) (cond ((not (memq val '(src-block babel-call))) (let ((type val)) type)) (object? 'nil) (t (let ((type val)) type))))) (begin (copy-marker (org-element-begin element))) (end (copy-marker (save-excursion (goto-char (org-element-end element)) (skip-chars-backward " \15\11\n") (point))))) (cond ((eq type 'inline-src-block) (let nil (let* ((info (org-babel-get-src-block-info nil element)) (params (nth 2 info))) (let* ((c (nthcdr 1 info))) (setcar c (if (and (cdr (assq :noweb params)) (string= "yes" (cdr (assq :noweb params)))) (org-babel-expand-noweb-references info org-babel-exp-reference-buffer) (nth 1 info)))) (goto-char begin) (let ((replacement (org-babel-exp-do-export info 'inline))) (cond ((equal replacement "") (delete-region begin (progn (goto-char end) (skip-chars-forward " \11") (point)))) ((not replacement) (goto-char end)) ((not (string= replacement (buffer-substring begin end))) (delete-region begin end) (insert replacement)) (t (goto-char end))))))) ((memq type '(inline-babel-call babel-call)) (let nil (org-babel-exp-do-export (or (org-babel-lob-get-info element) (user-error "Unknown Babel reference: %s" (org-element--property :call element nil nil))) 'lob) (let ((rep (org-fill-template org-babel-exp-call-line-template (list (cons "line" (org-element--property :value element nil nil)))))) (cond ((equal rep "") (delete-region begin (progn (goto-char end) (if (not (eq type 'babel-call)) (progn (skip-chars-forward " \11") (point)) (skip-chars-forward " \15\11\n") (line-beginning-position))))) ((not rep) (goto-char end)) (t (goto-char begin) (delete-region begin end) (insert rep)))))) ((eq type 'src-block) (let nil (let ((match-start (copy-marker (match-beginning 0))) (ind (let ((buffer-invisibility-spec nil)) (current-indentation)))) (let ((replacement (progn (goto-char match-start) (org-babel-exp-src-block element)))) (cond ((not replacement) (goto-char end)) ((equal replacement "") (goto-char end) (skip-chars-forward " \15\11\n") (forward-line 0) (delete-region begin (point))) (t (if (org-src-preserve-indentation-p element) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (fboundp 'indent-tabs-mode) (progn (indent-tabs-mode -1) (set (make-local-variable 'indent-tabs-mode) nil))) (insert replacement) (skip-chars-backward " \15\11\n") (indent-line-to ind) (goto-char 1) (indent-line-to ind) (setq replacement (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (fboundp 'indent-tabs-mode) (progn (indent-tabs-mode -1) (set (make-local-variable 'indent-tabs-mode) nil))) (insert replacement) (indent-rigidly 1 (point) ind) (setq replacement (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (goto-char match-start) (let ((rend (save-excursion (goto-char end) (line-end-position)))) (if (string-equal replacement (buffer-substring match-start rend)) (goto-char rend) (delete-region match-start (save-excursion (goto-char end) (line-end-position))) (insert replacement)))))) (set-marker match-start nil))))) (set-marker begin nil) (set-marker end nil))))) (setq org-fold-core--last-buffer-chars-modified-tick (buffer-chars-modified-tick))))) (kill-buffer org-babel-exp-reference-buffer) (remove-text-properties (point-min) (point-max) '(org-reference nil))) (let ((case-fold-search t) (regexp "\\(call\\|src\\)_\\|^[ \11]*#\\+\\(BEGIN_SRC\\|CALL:\\)") (org-babel-exp-reference-buffer (org-export-copy-buffer)) element) (unwind-protect (save-excursion (goto-char (point-min)) (while (re-search-forward regexp nil t) (let ((s (match-beginning 0))) (put-text-property s (line-end-position) 'org-reference s))) (goto-char (point-min)) (let ((org-fold-core--ignore-modifications t)) (unwind-protect (progn (while (re-search-forward regexp nil t) (setq element (let ((saved-match-data (match-data))) (unwind-protect (progn (org-element-at-point)) (set-match-data saved-match-data t)))) (if (let ((saved-match-data (match-data))) (unwind-protect (progn (or (org-in-commented-heading-p nil element) (org-in-archived-heading-p nil element))) (set-match-data saved-match-data t))) nil (let* ((object? (match-end 1)) (element (let ((saved-match-data (match-data))) (unwind-protect (progn (if object? (org-element-context element) element)) (set-match-data saved-match-data t)))) (type (let* ((val (org-element-type element))) (cond ((not (memq val '(src-block babel-call))) (let ((type val)) type)) (object? 'nil) (t (let ((type val)) type))))) (begin (copy-marker (org-element-begin element))) (end (copy-marker (save-excursion (goto-char (org-element-end element)) (skip-chars-backward " \15\11\n") (point))))) (cond ((eq type 'inline-src-block) (let nil (let* ((info (org-babel-get-src-block-info nil element)) (params (nth 2 info))) (let* ((c (nthcdr 1 info))) (setcar c (if (and (cdr (assq :noweb params)) (string= "yes" (cdr (assq :noweb params)))) (org-babel-expand-noweb-references info org-babel-exp-reference-buffer) (nth 1 info)))) (goto-char begin) (let ((replacement (org-babel-exp-do-export info 'inline))) (cond ((equal replacement "") (delete-region begin (progn (goto-char end) (skip-chars-forward " \11") (point)))) ((not replacement) (goto-char end)) ((not (string= replacement (buffer-substring begin end))) (delete-region begin end) (insert replacement)) (t (goto-char end))))))) ((memq type '(inline-babel-call babel-call)) (let nil (org-babel-exp-do-export (or (org-babel-lob-get-info element) (user-error "Unknown Babel reference: %s" (org-element--property :call element nil nil))) 'lob) (let ((rep (org-fill-template org-babel-exp-call-line-template (list (cons "line" (org-element--property :value element nil nil)))))) (cond ((equal rep "") (delete-region begin (progn (goto-char end) (if (not (eq type 'babel-call)) (progn (skip-chars-forward " \11") (point)) (skip-chars-forward " \15\11\n") (line-beginning-position))))) ((not rep) (goto-char end)) (t (goto-char begin) (delete-region begin end) (insert rep)))))) ((eq type 'src-block) (let nil (let ((match-start (copy-marker (match-beginning 0))) (ind (let ((buffer-invisibility-spec nil)) (current-indentation)))) (let ((replacement (progn (goto-char match-start) (org-babel-exp-src-block element)))) (cond ((not replacement) (goto-char end)) ((equal replacement "") (goto-char end) (skip-chars-forward " \15\11\n") (forward-line 0) (delete-region begin (point))) (t (if (org-src-preserve-indentation-p element) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (fboundp 'indent-tabs-mode) (progn (indent-tabs-mode -1) (set (make-local-variable 'indent-tabs-mode) nil))) (insert replacement) (skip-chars-backward " \15\11\n") (indent-line-to ind) (goto-char 1) (indent-line-to ind) (setq replacement (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (fboundp 'indent-tabs-mode) (progn (indent-tabs-mode -1) (set (make-local-variable 'indent-tabs-mode) nil))) (insert replacement) (indent-rigidly 1 (point) ind) (setq replacement (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (goto-char match-start) (let ((rend (save-excursion (goto-char end) (line-end-position)))) (if (string-equal replacement (buffer-substring match-start rend)) (goto-char rend) (delete-region match-start (save-excursion (goto-char end) (line-end-position))) (insert replacement)))))) (set-marker match-start nil))))) (set-marker begin nil) (set-marker end nil))))) (setq org-fold-core--last-buffer-chars-modified-tick (buffer-chars-modified-tick))))) (kill-buffer org-babel-exp-reference-buffer) (remove-text-properties (point-min) (point-max) '(org-reference nil)))) (progn (let ((case-fold-search t) (regexp "\\(call\\|src\\)_\\|^[ \11]*#\\+\\(BEGIN_SRC\\|CALL:\\)") (org-babel-exp-reference-buffer (org-export-copy-buffer)) element) (unwind-protect (save-excursion (goto-char (point-min)) (while (re-search-forward regexp nil t) (let ((s (match-beginning 0))) (put-text-property s (line-end-position) 'org-reference s))) (goto-char (point-min)) (let ((org-fold-core--ignore-modifications t)) (unwind-protect (progn (while (re-search-forward regexp nil t) (setq element (let ((saved-match-data (match-data))) (unwind-protect (progn (org-element-at-point)) (set-match-data saved-match-data t)))) (if (let ((saved-match-data (match-data))) (unwind-protect (progn (or (org-in-commented-heading-p nil element) (org-in-archived-heading-p nil element))) (set-match-data saved-match-data t))) nil (let* ((object? (match-end 1)) (element (let ((saved-match-data (match-data))) (unwind-protect (progn (if object? (org-element-context element) element)) (set-match-data saved-match-data t)))) (type (let* ((val (org-element-type element))) (cond ((not (memq val '(src-block babel-call))) (let ((type val)) type)) (object? 'nil) (t (let ((type val)) type))))) (begin (copy-marker (org-element-begin element))) (end (copy-marker (save-excursion (goto-char (org-element-end element)) (skip-chars-backward " \15\11\n") (point))))) (cond ((eq type 'inline-src-block) (let nil (let* ((info (org-babel-get-src-block-info nil element)) (params (nth 2 info))) (let* ((c (nthcdr 1 info))) (setcar c (if (and (cdr (assq :noweb params)) (string= "yes" (cdr (assq :noweb params)))) (org-babel-expand-noweb-references info org-babel-exp-reference-buffer) (nth 1 info)))) (goto-char begin) (let ((replacement (org-babel-exp-do-export info 'inline))) (cond ((equal replacement "") (delete-region begin (progn (goto-char end) (skip-chars-forward " \11") (point)))) ((not replacement) (goto-char end)) ((not (string= replacement (buffer-substring begin end))) (delete-region begin end) (insert replacement)) (t (goto-char end))))))) ((memq type '(inline-babel-call babel-call)) (let nil (org-babel-exp-do-export (or (org-babel-lob-get-info element) (user-error "Unknown Babel reference: %s" (org-element--property :call element nil nil))) 'lob) (let ((rep (org-fill-template org-babel-exp-call-line-template (list (cons "line" (org-element--property :value element nil nil)))))) (cond ((equal rep "") (delete-region begin (progn (goto-char end) (if (not (eq type 'babel-call)) (progn (skip-chars-forward " \11") (point)) (skip-chars-forward " \15\11\n") (line-beginning-position))))) ((not rep) (goto-char end)) (t (goto-char begin) (delete-region begin end) (insert rep)))))) ((eq type 'src-block) (let nil (let ((match-start (copy-marker (match-beginning 0))) (ind (let ((buffer-invisibility-spec nil)) (current-indentation)))) (let ((replacement (progn (goto-char match-start) (org-babel-exp-src-block element)))) (cond ((not replacement) (goto-char end)) ((equal replacement "") (goto-char end) (skip-chars-forward " \15\11\n") (forward-line 0) (delete-region begin (point))) (t (if (org-src-preserve-indentation-p element) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (fboundp 'indent-tabs-mode) (progn (indent-tabs-mode -1) (set (make-local-variable 'indent-tabs-mode) nil))) (insert replacement) (skip-chars-backward " \15\11\n") (indent-line-to ind) (goto-char 1) (indent-line-to ind) (setq replacement (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (fboundp 'indent-tabs-mode) (progn (indent-tabs-mode -1) (set (make-local-variable 'indent-tabs-mode) nil))) (insert replacement) (indent-rigidly 1 (point) ind) (setq replacement (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (goto-char match-start) (let ((rend (save-excursion (goto-char end) (line-end-position)))) (if (string-equal replacement (buffer-substring match-start rend)) (goto-char rend) (delete-region match-start (save-excursion (goto-char end) (line-end-position))) (insert replacement)))))) (set-marker match-start nil))))) (set-marker begin nil) (set-marker end nil))))) (setq org-fold-core--last-buffer-chars-modified-tick (buffer-chars-modified-tick))))) (kill-buffer org-babel-exp-reference-buffer) (remove-text-properties (point-min) (point-max) '(org-reference nil))))) (if org-export-use-babel (progn (let ((case-fold-search t) (regexp "\\(call\\|src\\)_\\|^[ \11]*#\\+\\(BEGIN_SRC\\|CALL:\\)") (org-babel-exp-reference-buffer (org-export-copy-buffer)) element) (unwind-protect (save-excursion (goto-char (point-min)) (while (re-search-forward regexp nil t) (let ((s (match-beginning 0))) (put-text-property s (line-end-position) 'org-reference s))) (goto-char (point-min)) (let ((org-fold-core--ignore-modifications t)) (unwind-protect (progn (while (re-search-forward regexp nil t) (setq element (let ((saved-match-data (match-data))) (unwind-protect (progn (org-element-at-point)) (set-match-data saved-match-data t)))) (if (let ((saved-match-data (match-data))) (unwind-protect (progn (or (org-in-commented-heading-p nil element) (org-in-archived-heading-p nil element))) (set-match-data saved-match-data t))) nil (let* ((object? (match-end 1)) (element (let ((saved-match-data (match-data))) (unwind-protect (progn (if object? (org-element-context element) element)) (set-match-data saved-match-data t)))) (type (let* ((val (org-element-type element))) (cond ((not (memq val '(src-block babel-call))) (let ((type val)) type)) (object? 'nil) (t (let ((type val)) type))))) (begin (copy-marker (org-element-begin element))) (end (copy-marker (save-excursion (goto-char (org-element-end element)) (skip-chars-backward " \15\11\n") (point))))) (cond ((eq type 'inline-src-block) (let nil (let* ((info (org-babel-get-src-block-info nil element)) (params (nth 2 info))) (let* ((c (nthcdr 1 info))) (setcar c (if (and (cdr (assq :noweb params)) (string= "yes" (cdr (assq :noweb params)))) (org-babel-expand-noweb-references info org-babel-exp-reference-buffer) (nth 1 info)))) (goto-char begin) (let ((replacement (org-babel-exp-do-export info 'inline))) (cond ((equal replacement "") (delete-region begin (progn (goto-char end) (skip-chars-forward " \11") (point)))) ((not replacement) (goto-char end)) ((not (string= replacement (buffer-substring begin end))) (delete-region begin end) (insert replacement)) (t (goto-char end))))))) ((memq type '(inline-babel-call babel-call)) (let nil (org-babel-exp-do-export (or (org-babel-lob-get-info element) (user-error "Unknown Babel reference: %s" (org-element--property :call element nil nil))) 'lob) (let ((rep (org-fill-template org-babel-exp-call-line-template (list (cons "line" (org-element--property :value element nil nil)))))) (cond ((equal rep "") (delete-region begin (progn (goto-char end) (if (not (eq type 'babel-call)) (progn (skip-chars-forward " \11") (point)) (skip-chars-forward " \15\11\n") (line-beginning-position))))) ((not rep) (goto-char end)) (t (goto-char begin) (delete-region begin end) (insert rep)))))) ((eq type 'src-block) (let nil (let ((match-start (copy-marker (match-beginning 0))) (ind (let ((buffer-invisibility-spec nil)) (current-indentation)))) (let ((replacement (progn (goto-char match-start) (org-babel-exp-src-block element)))) (cond ((not replacement) (goto-char end)) ((equal replacement "") (goto-char end) (skip-chars-forward " \15\11\n") (forward-line 0) (delete-region begin (point))) (t (if (org-src-preserve-indentation-p element) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (fboundp 'indent-tabs-mode) (progn (indent-tabs-mode -1) (set (make-local-variable 'indent-tabs-mode) nil))) (insert replacement) (skip-chars-backward " \15\11\n") (indent-line-to ind) (goto-char 1) (indent-line-to ind) (setq replacement (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (fboundp 'indent-tabs-mode) (progn (indent-tabs-mode -1) (set (make-local-variable 'indent-tabs-mode) nil))) (insert replacement) (indent-rigidly 1 (point) ind) (setq replacement (buffer-string))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (goto-char match-start) (let ((rend (save-excursion (goto-char end) (line-end-position)))) (if (string-equal replacement (buffer-substring match-start rend)) (goto-char rend) (delete-region match-start (save-excursion (goto-char end) (line-end-position))) (insert replacement)))))) (set-marker match-start nil))))) (set-marker begin nil) (set-marker end nil))))) (setq org-fold-core--last-buffer-chars-modified-tick (buffer-chars-modified-tick))))) (kill-buffer org-babel-exp-reference-buffer) (remove-text-properties (point-min) (point-max) '(org-reference nil)))))) org-babel-exp-process-buffer() (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))) (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)))) (let ((parsed-keywords (delq nil (mapcar #'(lambda (o) (and (eq (nth 4 o) 'parse) (nth 1 o))) (append (org-export-get-all-options backend) org-export-options-alist)))) tree modified-tick) (run-hook-with-args 'org-export-before-processing-hook (let* ((cl-x backend)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-org-export-backend-tags) t))) (signal 'wrong-type-argument (list 'org-export-backend cl-x))) (aref cl-x 1)))) (org-export-expand-include-keyword nil nil nil nil (plist-get info :expand-links)) (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 (let* ((cl-x backend)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-org-export-backend-tags) t))) (signal 'wrong-type-argument (list 'org-export-backend cl-x))) (aref cl-x 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))) (if (plist-get info :with-cite-processors) (progn (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* ((x562 (car-safe entry)) (x563 (cdr-safe entry))) (if (consp x563) (let* ((x565 (cdr-safe x563))) (if (consp x565) (let* ((x567 (cdr-safe x565))) (if (consp x567) (let* ((x569 (cdr-safe x567))) (if (equal x569 '(parse)) (let ((p x562)) (let ((value (plist-get info p))) (plist-put info p (org-export--remove-uninterpreted-data value info)))) 'nil)) 'nil)) 'nil)) 'nil)) 'nil) (setq tail (cdr tail))))) (setq info (org-export-install-filters info)) (let ((backend-name (let* ((cl-x backend)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-org-export-backend-tags) t))) (signal 'wrong-type-argument (list 'org-export-backend cl-x))) (aref cl-x 1))))) (let ((tail (plist-get info :filter-options))) (while tail (let ((filter (car tail))) (let ((result (funcall filter info backend-name))) (if result (progn (setq info result)))) (setq tail (cdr tail)))))) (setq tree (org-element-parse-buffer nil visible-only 'defer)) (org-export--prune-tree tree info) (org-export--remove-uninterpreted-data tree info) (org-export--expand-links 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)) (if (plist-get info :with-cite-processors) (progn (org-cite-process-citations info) (org-cite-process-bibliography info))) info) org-export--annotate-info(#s(org-export-backend :name texinfo :parent nil :transcoders ((bold . org-texinfo-bold) (center-block . org-texinfo-center-block) (clock . org-texinfo-clock) (code . org-texinfo-code) (drawer . org-texinfo-drawer) (dynamic-block . org-texinfo-dynamic-block) (entity . org-texinfo-entity) (example-block . org-texinfo-example-block) (export-block . org-texinfo-export-block) (export-snippet . org-texinfo-export-snippet) (fixed-width . org-texinfo-fixed-width) (footnote-definition . org-texinfo-footnote-definition) (footnote-reference . org-texinfo-footnote-reference) (headline . org-texinfo-headline) (inline-src-block . org-texinfo-inline-src-block) (inlinetask . org-texinfo-inlinetask) (italic . org-texinfo-italic) (item . org-texinfo-item) (keyword . org-texinfo-keyword) (latex-environment . org-texinfo-latex-environment) (latex-fragment . org-texinfo-latex-fragment) (line-break . org-texinfo-line-break) (link . org-texinfo-link) (node-property . org-texinfo-node-property) (paragraph . org-texinfo-paragraph) (plain-list . org-texinfo-plain-list) (plain-text . org-texinfo-plain-text) (planning . org-texinfo-planning) (property-drawer . org-texinfo-property-drawer) (quote-block . org-texinfo-quote-block) (radio-target . org-texinfo-radio-target) (section . org-texinfo-section) (special-block . org-texinfo-special-block) (src-block . org-texinfo-src-block) (statistics-cookie . org-texinfo-statistics-cookie) (strike-through . org-texinfo-strike-through) (subscript . org-texinfo-subscript) (superscript . org-texinfo-superscript) (table . org-texinfo-table) (table-cell . org-texinfo-table-cell) (table-row . org-texinfo-table-row) (target . org-texinfo-target) (template . org-texinfo-template) (timestamp . org-texinfo-timestamp) (underline . org-texinfo-underline) (verbatim . org-texinfo-verbatim) (verse-block . org-texinfo-verse-block)) :options ((:texinfo-filename "TEXINFO_FILENAME" nil nil t) (:texinfo-class "TEXINFO_CLASS" nil org-texinfo-default-class t) (:texinfo-header "TEXINFO_HEADER" nil nil newline) (:texinfo-post-header "TEXINFO_POST_HEADER" nil nil newline) (:subtitle "SUBTITLE" nil nil parse) (:subauthor "SUBAUTHOR" nil nil newline) (:texinfo-dircat "TEXINFO_DIR_CATEGORY" nil nil t) (:texinfo-dirtitle "TEXINFO_DIR_TITLE" nil nil t) (:texinfo-dirname "TEXINFO_DIR_NAME" nil nil t) (:texinfo-dirdesc "TEXINFO_DIR_DESC" nil nil t) (:texinfo-printed-title "TEXINFO_PRINTED_TITLE" nil nil t) (:texinfo-classes nil nil org-texinfo-classes) (:texinfo-format-headline-function nil nil org-texinfo-format-headline-function) (:texinfo-node-description-column nil nil org-texinfo-node-description-column) (:texinfo-active-timestamp-format nil nil org-texinfo-active-timestamp-format) (:texinfo-inactive-timestamp-format nil nil org-texinfo-inactive-timestamp-format) (:texinfo-diary-timestamp-format nil nil org-texinfo-diary-timestamp-format) (:texinfo-link-with-unknown-path-format nil nil org-texinfo-link-with-unknown-path-format) (:texinfo-tables-verbatim nil nil org-texinfo-tables-verbatim) (:texinfo-table-scientific-notation nil nil org-texinfo-table-scientific-notation) (:texinfo-table-default-markup nil nil org-texinfo-table-default-markup) (:texinfo-text-markup-alist nil nil org-texinfo-text-markup-alist) (:texinfo-format-drawer-function nil nil org-texinfo-format-drawer-function) (:texinfo-format-inlinetask-function nil nil org-texinfo-format-inlinetask-function) (:texinfo-compact-itemx nil "compact-itemx" org-texinfo-compact-itemx) (:with-latex nil "tex" org-texinfo-with-latex)) :filters ((:filter-headline . org-texinfo--filter-section-blank-lines) (:filter-parse-tree org-texinfo--normalize-headlines org-texinfo--separate-definitions) (:filter-section . org-texinfo--filter-section-blank-lines) (:filter-final-output . org-texinfo--untabify)) :blocks nil :menu (105 "Export to Texinfo" ((116 "As TEXI file" org-texinfo-export-to-texinfo) (105 "As INFO file" org-texinfo-export-to-info) (111 "As INFO file and open" (lambda (a s v b) (if a (org-texinfo-export-to-info t s v b) (org-open-file (org-texinfo-export-to-info nil s v b)))))))) (:export-options nil :back-end #s(org-export-backend :name texinfo :parent nil :transcoders ((bold . org-texinfo-bold) (center-block . org-texinfo-center-block) (clock . org-texinfo-clock) (code . org-texinfo-code) (drawer . org-texinfo-drawer) (dynamic-block . org-texinfo-dynamic-block) (entity . org-texinfo-entity) (example-block . org-texinfo-example-block) (export-block . org-texinfo-export-block) (export-snippet . org-texinfo-export-snippet) (fixed-width . org-texinfo-fixed-width) (footnote-definition . org-texinfo-footnote-definition) (footnote-reference . org-texinfo-footnote-reference) (headline . org-texinfo-headline) (inline-src-block . org-texinfo-inline-src-block) (inlinetask . org-texinfo-inlinetask) (italic . org-texinfo-italic) (item . org-texinfo-item) (keyword . org-texinfo-keyword) (latex-environment . org-texinfo-latex-environment) (latex-fragment . org-texinfo-latex-fragment) (line-break . org-texinfo-line-break) (link . org-texinfo-link) (node-property . org-texinfo-node-property) (paragraph . org-texinfo-paragraph) (plain-list . org-texinfo-plain-list) (plain-text . org-texinfo-plain-text) (planning . org-texinfo-planning) (property-drawer . org-texinfo-property-drawer) (quote-block . org-texinfo-quote-block) (radio-target . org-texinfo-radio-target) (section . org-texinfo-section) (special-block . org-texinfo-special-block) (src-block . org-texinfo-src-block) (statistics-cookie . org-texinfo-statistics-cookie) (strike-through . org-texinfo-strike-through) (subscript . org-texinfo-subscript) (superscript . org-texinfo-superscript) (table . org-texinfo-table) (table-cell . org-texinfo-table-cell) (table-row . org-texinfo-table-row) (target . org-texinfo-target) (template . org-texinfo-template) (timestamp . org-texinfo-timestamp) (underline . org-texinfo-underline) (verbatim . org-texinfo-verbatim) (verse-block . org-texinfo-verse-block)) :options ((:texinfo-filename "TEXINFO_FILENAME" nil nil t) (:texinfo-class "TEXINFO_CLASS" nil org-texinfo-default-class t) (:texinfo-header "TEXINFO_HEADER" nil nil newline) (:texinfo-post-header "TEXINFO_POST_HEADER" nil nil newline) (:subtitle "SUBTITLE" nil nil parse) (:subauthor "SUBAUTHOR" nil nil newline) (:texinfo-dircat "TEXINFO_DIR_CATEGORY" nil nil t) (:texinfo-dirtitle "TEXINFO_DIR_TITLE" nil nil t) (:texinfo-dirname "TEXINFO_DIR_NAME" nil nil t) (:texinfo-dirdesc "TEXINFO_DIR_DESC" nil nil t) (:texinfo-printed-title "TEXINFO_PRINTED_TITLE" nil nil t) (:texinfo-classes nil nil org-texinfo-classes) (:texinfo-format-headline-function nil nil org-texinfo-format-headline-function) (:texinfo-node-description-column nil nil org-texinfo-node-description-column) (:texinfo-active-timestamp-format nil nil org-texinfo-active-timestamp-format) (:texinfo-inactive-timestamp-format nil nil org-texinfo-inactive-timestamp-format) (:texinfo-diary-timestamp-format nil nil org-texinfo-diary-timestamp-format) (:texinfo-link-with-unknown-path-format nil nil org-texinfo-link-with-unknown-path-format) (:texinfo-tables-verbatim nil nil org-texinfo-tables-verbatim) (:texinfo-table-scientific-notation nil nil org-texinfo-table-scientific-notation) (:texinfo-table-default-markup nil nil org-texinfo-table-default-markup) (:texinfo-text-markup-alist nil nil org-texinfo-text-markup-alist) (:texinfo-format-drawer-function nil nil org-texinfo-format-drawer-function) (:texinfo-format-inlinetask-function nil nil org-texinfo-format-inlinetask-function) (:texinfo-compact-itemx nil "compact-itemx" org-texinfo-compact-itemx) (:with-latex nil "tex" org-texinfo-with-latex)) :filters ((:filter-headline . org-texinfo--filter-section-blank-lines) (:filter-parse-tree org-texinfo--normalize-headlines org-texinfo--separate-definitions) (:filter-section . org-texinfo--filter-section-blank-lines) (:filter-final-output . org-texinfo--untabify)) :blocks nil :menu (105 "Export to Texinfo" ((116 "As TEXI file" org-texinfo-export-to-texinfo) (105 "As INFO file" org-texinfo-export-to-info) (111 "As INFO file and open" (lambda (a s v b) (if a (org-texinfo-export-to-info t s v b) (org-open-file (org-texinfo-export-to-info nil s v b)))))))) :translate-alist ((bold . org-texinfo-bold) (center-block . org-texinfo-center-block) (clock . org-texinfo-clock) (code . org-texinfo-code) (drawer . org-texinfo-drawer) (dynamic-block . org-texinfo-dynamic-block) (entity . org-texinfo-entity) (example-block . org-texinfo-example-block) (export-block . org-texinfo-export-block) (export-snippet . org-texinfo-export-snippet) (fixed-width . org-texinfo-fixed-width) (footnote-definition . org-texinfo-footnote-definition) (footnote-reference . org-texinfo-footnote-reference) (headline . org-texinfo-headline) (inline-src-block . org-texinfo-inline-src-block) (inlinetask . org-texinfo-inlinetask) (italic . org-texinfo-italic) (item . org-texinfo-item) (keyword . org-texinfo-keyword) (latex-environment . org-texinfo-latex-environment) (latex-fragment . org-texinfo-latex-fragment) (line-break . org-texinfo-line-break) (link . org-texinfo-link) (node-property . org-texinfo-node-property) (paragraph . org-texinfo-paragraph) (plain-list . org-texinfo-plain-list) (plain-text . org-texinfo-plain-text) (planning . org-texinfo-planning) (property-drawer . org-texinfo-property-drawer) (quote-block . org-texinfo-quote-block) (radio-target . org-texinfo-radio-target) (section . org-texinfo-section) (special-block . org-texinfo-special-block) (src-block . org-texinfo-src-block) (statistics-cookie . org-texinfo-statistics-cookie) (strike-through . org-texinfo-strike-through) (subscript . org-texinfo-subscript) (superscript . org-texinfo-superscript) (table . org-texinfo-table) (table-cell . org-texinfo-table-cell) (table-row . org-texinfo-table-row) (target . org-texinfo-target) (template . org-texinfo-template) (timestamp . org-texinfo-timestamp) (underline . org-texinfo-underline) (verbatim . org-texinfo-verbatim) (verse-block . org-texinfo-verse-block)) :exported-data #<hash-table eq 0/4001 0xae9df9 ...> :input-buffer " *temp*" :input-file nil) nil nil (:output-file "org.texi")) (setq info (org-export--annotate-info backend info subtreep visible-only ext-plist)) (progn (org-export--set-variables --bind-variables) (font-lock-mode -1) (setq info (org-export--annotate-info backend info subtreep visible-only ext-plist)) (let* ((body (org-element-normalize-string (or (org-export-data (plist-get info :parse-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)))) (if (plist-get info :with-cite-processors) (progn (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 (org-export--set-variables --bind-variables) (font-lock-mode -1) (setq info (org-export--annotate-info backend info subtreep visible-only ext-plist)) (let* ((body (org-element-normalize-string (or (org-export-data (plist-get info :parse-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)))) (if (plist-get info :with-cite-processors) (progn (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 (org-export--set-variables --bind-variables) (font-lock-mode -1) (setq info (org-export--annotate-info backend info subtreep visible-only ext-plist)) (let* ((body (org-element-normalize-string (or (org-export-data (plist-get info :parse-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)))) (if (plist-get info :with-cite-processors) (progn (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 (org-export--set-variables --bind-variables) (font-lock-mode -1) (setq info (org-export--annotate-info backend info subtreep visible-only ext-plist)) (let* ((body (org-element-normalize-string (or (org-export-data (plist-get info :parse-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)))) (if (plist-get info :with-cite-processors) (progn (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-element-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 (org-export--set-variables --bind-variables) (font-lock-mode -1) (setq info (org-export--annotate-info backend info subtreep visible-only ext-plist)) (let* ((body (org-element-normalize-string (or (org-export-data (plist-get info :parse-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)))) (if (plist-get info :with-cite-processors) (progn (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 ((--bind-variables (org-export--list-bound-variables))) (let ((--buf-copy (org-element-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 (org-export--set-variables --bind-variables) (font-lock-mode -1) (setq info (org-export--annotate-info backend info subtreep visible-only ext-plist)) (let* ((body (org-element-normalize-string (or (org-export-data (plist-get info :parse-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)))) (if (plist-get info :with-cite-processors) (progn (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* ((org-export-current-backend (let* ((cl-x backend)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-org-export-backend-tags) t))) (signal 'wrong-type-argument (list 'org-export-backend cl-x))) (aref cl-x 1)))) (info (org-combine-plists (org-export--get-export-attributes backend subtreep visible-only body-only) (org-export--get-buffer-attributes)))) (let ((--bind-variables (org-export--list-bound-variables))) (let ((--buf-copy (org-element-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 (org-export--set-variables --bind-variables) (font-lock-mode -1) (setq info (org-export--annotate-info backend info subtreep visible-only ext-plist)) (let* ((body (org-element-normalize-string (or (org-export-data (plist-get info :parse-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)))) (if (plist-get info :with-cite-processors) (progn (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)))))))) (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) (if (bolp) (progn (forward-char (- (or nil 1))))) (narrow-to-region (point) (point-max)))) (let* ((org-export-current-backend (let* ((cl-x backend)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-org-export-backend-tags) t))) (signal 'wrong-type-argument (list 'org-export-backend cl-x))) (aref cl-x 1)))) (info (org-combine-plists (org-export--get-export-attributes backend subtreep visible-only body-only) (org-export--get-buffer-attributes)))) (let ((--bind-variables (org-export--list-bound-variables))) (let ((--buf-copy (org-element-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 (org-export--set-variables --bind-variables) (font-lock-mode -1) (setq info (org-export--annotate-info backend info subtreep visible-only ext-plist)) (let* ((body (org-element-normalize-string (or (org-export-data (plist-get info :parse-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)))) (if (plist-get info :with-cite-processors) (progn (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))))))))) (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) (if (bolp) (progn (forward-char (- (or nil 1))))) (narrow-to-region (point) (point-max)))) (let* ((org-export-current-backend (let* ((cl-x backend)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-org-export-backend-tags) t))) (signal 'wrong-type-argument (list 'org-export-backend cl-x))) (aref cl-x 1)))) (info (org-combine-plists (org-export--get-export-attributes backend subtreep visible-only body-only) (org-export--get-buffer-attributes)))) (let ((--bind-variables (org-export--list-bound-variables))) (let ((--buf-copy (org-element-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 (org-export--set-variables --bind-variables) (font-lock-mode -1) (setq info (org-export--annotate-info backend info subtreep visible-only ext-plist)) (let* ((body (org-element-normalize-string (or (org-export-data (plist-get info :parse-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)))) (if (plist-get info :with-cite-processors) (progn (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)))))))))) (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) (if (bolp) (progn (forward-char (- (or nil 1))))) (narrow-to-region (point) (point-max)))) (let* ((org-export-current-backend (let* ((cl-x backend)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-org-export-backend-tags) t))) (signal 'wrong-type-argument (list 'org-export-backend cl-x))) (aref cl-x 1)))) (info (org-combine-plists (org-export--get-export-attributes backend subtreep visible-only body-only) (org-export--get-buffer-attributes)))) (let ((--bind-variables (org-export--list-bound-variables))) (let ((--buf-copy (org-element-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 (org-export--set-variables --bind-variables) (font-lock-mode -1) (setq info (org-export--annotate-info backend info subtreep visible-only ext-plist)) (let* ((body (org-element-normalize-string (or (org-export-data (plist-get info :parse-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)))) (if (plist-get info :with-cite-processors) (progn (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))))))))))) (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) (if (bolp) (progn (forward-char (- (or nil 1))))) (narrow-to-region (point) (point-max)))) (let* ((org-export-current-backend (let* ((cl-x backend)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-org-export-backend-tags) t))) (signal 'wrong-type-argument (list 'org-export-backend cl-x))) (aref cl-x 1)))) (info (org-combine-plists (org-export--get-export-attributes backend subtreep visible-only body-only) (org-export--get-buffer-attributes)))) (let ((--bind-variables (org-export--list-bound-variables))) (let ((--buf-copy (org-element-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 (org-export--set-variables --bind-variables) (font-lock-mode -1) (setq info (org-export--annotate-info backend info subtreep visible-only ext-plist)) (let* ((body (org-element-normalize-string (or (org-export-data (plist-get info :parse-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)))) (if (plist-get info :with-cite-processors) (progn (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))))))))))) (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 (region-beginning) (region-end))) (subtreep (org-narrow-to-subtree) (goto-char (point-min)) (org-end-of-meta-data) (if (bolp) (progn (forward-char (- (or nil 1))))) (narrow-to-region (point) (point-max)))) (let* ((org-export-current-backend (let* ((cl-x backend)) (progn (or (let* ((cl-x cl-x)) (progn (and (memq (type-of cl-x) cl-struct-org-export-backend-tags) t))) (signal 'wrong-type-argument (list 'org-export-backend cl-x))) (aref cl-x 1)))) (info (org-combine-plists (org-export--get-export-attributes backend subtreep visible-only body-only) (org-export--get-buffer-attributes)))) (let ((--bind-variables (org-export--list-bound-variables))) (let ((--buf-copy (org-element-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 (org-export--set-variables --bind-variables) (font-lock-mode -1) (setq info (org-export--annotate-info backend info subtreep visible-only ext-plist)) (let* ((body (org-element-normalize-string (or (org-export-data (plist-get info :parse-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)))) (if (plist-get info :with-cite-processors) (progn (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))))))))))) (setq org-fold-core--last-buffer-chars-modified-tick (buffer-chars-modified-tick)))) org-export-as(texinfo nil nil nil (:output-file "org.texi")) (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) (if (bolp) nil (insert "\n")) (let ((coding-system-for-write encoding)) (write-region nil nil 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) '(unless (bolp) (insert "\n")) (list 'let (list (list 'coding-system-for-write (list 'quote encoding))) (list 'write-region nil nil 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) (if (bolp) nil (insert "\n")) (let ((coding-system-for-write encoding)) (write-region nil nil 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 'quote backend) subtreep visible-only body-only (list 'quote ext-plist)))) (list 'with-temp-buffer '(insert output) '(unless (bolp) (insert "\n")) (list 'let (list (list 'coding-system-for-write (list 'quote encoding))) (list 'write-region nil nil 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) (if (bolp) nil (insert "\n")) (let ((coding-system-for-write encoding)) (write-region nil nil 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 (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 'org-export-as (list 'quote backend) subtreep visible-only body-only (list 'quote ext-plist)))) (list 'with-temp-buffer '(insert output) '(unless (bolp) (insert "\n")) (list 'let (list (list 'coding-system-for-write (list 'quote encoding))) (list 'write-region nil nil 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) (if (bolp) nil (insert "\n")) (let ((coding-system-for-write encoding)) (write-region nil nil 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))))) org-export-to-file(texinfo "org.texi") (progn (insert-file-contents infile) (org-export-to-file 'texinfo outfile)) (unwind-protect (progn (insert-file-contents infile) (org-export-to-file 'texinfo outfile)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents infile) (org-export-to-file 'texinfo outfile)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents infile) (org-export-to-file 'texinfo outfile)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let ((infile (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))) (outfile (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))) (org-export-coding-system org-texinfo-coding-system) (make-backup-files nil)) (if (file-readable-p infile) nil (message "File `%s' not readable" infile) (kill-emacs 1)) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents infile) (org-export-to-file 'texinfo outfile)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) org-texinfo-export-to-texinfo-batch() command-line-1(("--eval" "(setq load-prefer-newer t)" "-l" "ox-texinfo" "--eval" "(setq gc-cons-threshold 50000000)" "--eval" "(setq org-confirm-babel-evaluate nil)" "-f" "org-texinfo-export-to-texinfo-batch" "org.org" "org.texi")) command-line() normal-top-level() Arithmetic error make: *** [Makefile:257: org.texi] Error 255 [-- Attachment #3: Type: text/plain, Size: 123 bytes --] Needless to say, an export process should not be anywise relying on the value of buffer-text-pixel-size during bootstrap. ^ permalink raw reply [flat|nested] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-10 3:45 ` Po Lu @ 2024-06-10 3:58 ` Po Lu 2024-06-12 13:08 ` Ihor Radchenko 1 sibling, 0 replies; 45+ messages in thread From: Po Lu @ 2024-06-10 3:58 UTC (permalink / raw) To: Kyle Meyer; +Cc: emacs-devel, Ihor Radchenko Po Lu <luangruo@yahoo.com> writes: > Needless to say, an export process should not be anywise relying on the > value of buffer-text-pixel-size during bootstrap. That being said, it is a departure of the Android port's from the semantics of the others, which has been eliminated, so whether to change Org is entirely up to you. ^ permalink raw reply [flat|nested] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-10 3:45 ` Po Lu 2024-06-10 3:58 ` Po Lu @ 2024-06-12 13:08 ` Ihor Radchenko 2024-06-12 13:13 ` Eli Zaretskii 1 sibling, 1 reply; 45+ messages in thread From: Ihor Radchenko @ 2024-06-12 13:08 UTC (permalink / raw) To: Po Lu; +Cc: Kyle Meyer, emacs-devel Po Lu <luangruo@yahoo.com> writes: > Kyle Meyer <kyle@kyleam.com> writes: >>> This interferes with bootstrapping org.texi, for which I've installed a >>> temporary workaround that you should revert once the error is resolved >>> on Org's part. >> >> Could you please provide more details about the error? I don't see any >> specifics mentioned in 8d1d9798f77 (Fix bootstrap of org.texi), and >> running 'make bootstrap' on its parent commit (77d0eed74e1) completes >> without errors for me. > > Yes, here's a complete backtrace from Org: > ... > Error: arith-error nil > ceiling(0 0) > (if pixels pixel-width (ceiling pixel-width symbol-width)) > ... > Needless to say, an export process should not be anywise relying on the > value of buffer-text-pixel-size during bootstrap. We need this to calculate symbol width. Is it expected that `buffer-text-pixel-size' returns 0? -- 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] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-12 13:08 ` Ihor Radchenko @ 2024-06-12 13:13 ` Eli Zaretskii 2024-06-12 13:23 ` Ihor Radchenko 0 siblings, 1 reply; 45+ messages in thread From: Eli Zaretskii @ 2024-06-12 13:13 UTC (permalink / raw) To: Ihor Radchenko; +Cc: luangruo, kyle, emacs-devel > From: Ihor Radchenko <yantar92@posteo.net> > Cc: Kyle Meyer <kyle@kyleam.com>, emacs-devel@gnu.org > Date: Wed, 12 Jun 2024 13:08:59 +0000 > > Po Lu <luangruo@yahoo.com> writes: > > > Error: arith-error nil > > ceiling(0 0) > > (if pixels pixel-width (ceiling pixel-width symbol-width)) > > ... > > Needless to say, an export process should not be anywise relying on the > > value of buffer-text-pixel-size during bootstrap. > > We need this to calculate symbol width. > Is it expected that `buffer-text-pixel-size' returns 0? Why do you use buffer-text-pixel-size if all you need is the width of a symbol (which I assume is a character?). Why not use font-get-glyphs instead? ^ permalink raw reply [flat|nested] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-12 13:13 ` Eli Zaretskii @ 2024-06-12 13:23 ` Ihor Radchenko 2024-06-12 13:30 ` Eli Zaretskii 0 siblings, 1 reply; 45+ messages in thread From: Ihor Radchenko @ 2024-06-12 13:23 UTC (permalink / raw) To: Eli Zaretskii; +Cc: luangruo, kyle, emacs-devel Eli Zaretskii <eliz@gnu.org> writes: >> > ceiling(0 0) >> > (if pixels pixel-width (ceiling pixel-width symbol-width)) >> > ... >> > Needless to say, an export process should not be anywise relying on the >> > value of buffer-text-pixel-size during bootstrap. >> >> We need this to calculate symbol width. >> Is it expected that `buffer-text-pixel-size' returns 0? > > Why do you use buffer-text-pixel-size if all you need is the width of > a symbol (which I assume is a character?). Why not use > font-get-glyphs instead? (1) I do not know which font. (2) I also need width of a string, not just a symbol. That string may contain invisible text, which should also be accounted for. -- 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] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-12 13:23 ` Ihor Radchenko @ 2024-06-12 13:30 ` Eli Zaretskii 2024-06-14 13:18 ` Ihor Radchenko 0 siblings, 1 reply; 45+ messages in thread From: Eli Zaretskii @ 2024-06-12 13:30 UTC (permalink / raw) To: Ihor Radchenko; +Cc: luangruo, kyle, emacs-devel > From: Ihor Radchenko <yantar92@posteo.net> > Cc: luangruo@yahoo.com, kyle@kyleam.com, emacs-devel@gnu.org > Date: Wed, 12 Jun 2024 13:23:31 +0000 > > Eli Zaretskii <eliz@gnu.org> writes: > > > Why do you use buffer-text-pixel-size if all you need is the width of > > a symbol (which I assume is a character?). Why not use > > font-get-glyphs instead? > > (1) I do not know which font. Emacs knows, and you can ask it (use font-at or somesuch). > (2) I also need width of a string, not just a symbol. That string may > contain invisible text, which should also be accounted for. Then how did this yield zero in the case in point? ^ permalink raw reply [flat|nested] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-12 13:30 ` Eli Zaretskii @ 2024-06-14 13:18 ` Ihor Radchenko 0 siblings, 0 replies; 45+ messages in thread From: Ihor Radchenko @ 2024-06-14 13:18 UTC (permalink / raw) To: Eli Zaretskii; +Cc: luangruo, kyle, emacs-devel Eli Zaretskii <eliz@gnu.org> writes: >> > Why do you use buffer-text-pixel-size if all you need is the width of >> > a symbol (which I assume is a character?). Why not use >> > font-get-glyphs instead? >> >> (1) I do not know which font. > > Emacs knows, and you can ask it (use font-at or somesuch). > >> (2) I also need width of a string, not just a symbol. That string may >> contain invisible text, which should also be accounted for. > > Then how did this yield zero in the case in point? No idea. Org mode uses (car (buffer-text-pixel-size nil nil t)) Apparently it is 0 in Po Lu's build. -- 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] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-10 1:14 ` Kyle Meyer 2024-06-10 3:45 ` Po Lu @ 2024-06-10 11:13 ` Eli Zaretskii 2024-06-11 10:05 ` Ihor Radchenko 1 sibling, 1 reply; 45+ messages in thread From: Eli Zaretskii @ 2024-06-10 11:13 UTC (permalink / raw) To: Kyle Meyer, yantar92; +Cc: emacs-devel > From: Kyle Meyer <kyle@kyleam.com> > Cc: emacs-devel@gnu.org, Ihor Radchenko <yantar92@posteo.net> > Date: Sun, 09 Jun 2024 21:14:54 -0400 > > Po Lu writes: > > > This interferes with bootstrapping org.texi, for which I've installed a > > temporary workaround that you should revert once the error is resolved > > on Org's part. > > Could you please provide more details about the error? I don't see any > specifics mentioned in 8d1d9798f77 (Fix bootstrap of org.texi), and > running 'make bootstrap' on its parent commit (77d0eed74e1) completes > without errors for me. There are other issues with this update: ELC org/org-macs.elc In end of data: org/org-loaddefs.el:1278:78: Warning: the function `cl-every' is not known to be defined. Can this warning be eliminated, please? Could not read `org-id-locations' from ~/.emacs.d/.org-id-locations, setting it to nil Why does it want to read a file from my home directory as part of building Emacs? That shouldn't happen. Executing Emacs-Lisp code block at position 643527... Code block evaluation complete. Executing Emacs-Lisp code block at position 646480... Code block evaluation complete. Executing Emacs-Lisp code block at position 648303... Code block evaluation complete. Executing Emacs-Lisp code block at position 648968... Code block evaluation complete. Executing Emacs-Lisp code block at position 655333... Code block evaluation complete. Executing Emacs-Lisp code block at position 659159... Code block evaluation complete. Executing Emacs-Lisp code block at position 659467... Code block evaluation complete. Executing Emacs-Lisp code block at position 660552... Code block evaluation complete. Can we please shut up these messages, or at least hide them behind some $(AM_V_GEN) trick? Thanks. ^ permalink raw reply [flat|nested] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-10 11:13 ` Eli Zaretskii @ 2024-06-11 10:05 ` Ihor Radchenko 2024-06-11 12:23 ` Eli Zaretskii 0 siblings, 1 reply; 45+ messages in thread From: Ihor Radchenko @ 2024-06-11 10:05 UTC (permalink / raw) To: Eli Zaretskii; +Cc: Kyle Meyer, emacs-devel Eli Zaretskii <eliz@gnu.org> writes: > There are other issues with this update: > > ELC org/org-macs.elc > > In end of data: > org/org-loaddefs.el:1278:78: Warning: the function `cl-every' is not known to be defined. > > Can this warning be eliminated, please? It can be eliminated, but the warning does not seem to be Org mode's fault. The line in question in org-loaddefs is (custom-autoload 'org-num-skip-tags "org-num" t) (put 'org-num-skip-tags 'safe-local-variable (lambda (val) (and (listp val) (cl-every #'stringp val)))) It is not generated by Org mode, but by loaddefs.el from (defcustom org-num-skip-tags nil "List of tags preventing the numbering of sub-trees. For example, add \"ARCHIVE\" to this list to avoid numbering archived sub-trees. Tag in this list prevent numbering the whole sub-tree, irrespective to `org-use-tag-inheritance', or other means to control tag inheritance." :group 'org-appearance :package-version '(Org . "9.3") :type '(repeat (string :tag "Tag")) :safe (lambda (val) (and (listp val) (cl-every #'stringp val)))) Note that org-num.el where `org-num-skip-tags' is defined does have (require 'cl-lib). IMHO, there is some problem either with loaddefs generation or with the fact that loaddefs file is compiled at all. Of course, we can always convert that lambda into a proper function, which will likely get rid of the warning. (btw, the warning does not appear when running make bootstrap on my side) > Could not read `org-id-locations' from ~/.emacs.d/.org-id-locations, setting it to nil > > Why does it want to read a file from my home directory as part of > building Emacs? That shouldn't happen. Agree. But I am unable to reproduce. Could you please provide more information? > Executing Emacs-Lisp code block at position 643527... > Code block evaluation complete. > Executing Emacs-Lisp code block at position 646480... > Code block evaluation complete. > Executing Emacs-Lisp code block at position 648303... > Code block evaluation complete. > Executing Emacs-Lisp code block at position 648968... > Code block evaluation complete. > Executing Emacs-Lisp code block at position 655333... > Code block evaluation complete. > Executing Emacs-Lisp code block at position 659159... > Code block evaluation complete. > Executing Emacs-Lisp code block at position 659467... > Code block evaluation complete. > Executing Emacs-Lisp code block at position 660552... > Code block evaluation complete. > > Can we please shut up these messages, or at least hide them behind > some $(AM_V_GEN) trick? Why? It is not much different from "scraping loaddefs..." message sequence. Of course, we can hide this, but seeing that some code is evaluated may be useful in the logs. -- 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] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-11 10:05 ` Ihor Radchenko @ 2024-06-11 12:23 ` Eli Zaretskii 2024-06-11 13:10 ` Robert Pluim ` (3 more replies) 0 siblings, 4 replies; 45+ messages in thread From: Eli Zaretskii @ 2024-06-11 12:23 UTC (permalink / raw) To: Ihor Radchenko, Stefan Monnier; +Cc: kyle, emacs-devel > From: Ihor Radchenko <yantar92@posteo.net> > Cc: Kyle Meyer <kyle@kyleam.com>, emacs-devel@gnu.org > Date: Tue, 11 Jun 2024 10:05:01 +0000 > > Eli Zaretskii <eliz@gnu.org> writes: > > > There are other issues with this update: > > > > ELC org/org-macs.elc > > > > In end of data: > > org/org-loaddefs.el:1278:78: Warning: the function `cl-every' is not known to be defined. > > > > Can this warning be eliminated, please? > > It can be eliminated, but the warning does not seem to be Org mode's > fault. > > The line in question in org-loaddefs is > > (custom-autoload 'org-num-skip-tags "org-num" t) > (put 'org-num-skip-tags 'safe-local-variable (lambda (val) (and (listp val) (cl-every #'stringp val)))) > > It is not generated by Org mode, but by loaddefs.el from > > (defcustom org-num-skip-tags nil > "List of tags preventing the numbering of sub-trees. > > For example, add \"ARCHIVE\" to this list to avoid numbering > archived sub-trees. > > Tag in this list prevent numbering the whole sub-tree, > irrespective to `org-use-tag-inheritance', or other means to > control tag inheritance." > :group 'org-appearance > :package-version '(Org . "9.3") > :type '(repeat (string :tag "Tag")) > :safe (lambda (val) (and (listp val) (cl-every #'stringp val)))) > > Note that org-num.el where `org-num-skip-tags' is defined does have > (require 'cl-lib). > > IMHO, there is some problem either with loaddefs generation or with the > fact that loaddefs file is compiled at all. No, the problem is that this variable uses cl-lib stuff for safep functions. IMO, this is not a good idea, and the above situation is precisely the evidence for that. > Of course, we can always convert that lambda into a proper function, > which will likely get rid of the warning. Yes, please. Emacs 28 and later has list-of-strings-p, but if you want to support older versions of Emacs, perhaps that's not usable. Or maybe we could add that to compat.el. Stefan, WDYT about this issue? > > Could not read `org-id-locations' from ~/.emacs.d/.org-id-locations, setting it to nil > > > > Why does it want to read a file from my home directory as part of > > building Emacs? That shouldn't happen. > > Agree. But I am unable to reproduce. > Could you please provide more information? I could, if you tell me what information to provide. I'm not familiar with the code which emits that, and don't even know which code did. > > Executing Emacs-Lisp code block at position 643527... > > Code block evaluation complete. > > Executing Emacs-Lisp code block at position 646480... > > Code block evaluation complete. > > Executing Emacs-Lisp code block at position 648303... > > Code block evaluation complete. > > Executing Emacs-Lisp code block at position 648968... > > Code block evaluation complete. > > Executing Emacs-Lisp code block at position 655333... > > Code block evaluation complete. > > Executing Emacs-Lisp code block at position 659159... > > Code block evaluation complete. > > Executing Emacs-Lisp code block at position 659467... > > Code block evaluation complete. > > Executing Emacs-Lisp code block at position 660552... > > Code block evaluation complete. > > > > Can we please shut up these messages, or at least hide them behind > > some $(AM_V_GEN) trick? > > Why? It is not much different from "scraping loaddefs..." message > sequence. The messages about loaddefs are progress indicators, and show some indication of how much is done and how much is left. By contrast, the above don't show any progress indications, and are completely incomprehensible, except perhaps to those who wrote the relevant code. > Of course, we can hide this, but seeing that some code is evaluated may > be useful in the logs. People who want this in the logs could perhaps turn it on by setting an environment variable or saying "make VAR=value". The value of VAR should be accessible from Lisp via getenv. But I think by default this should be off. Thanks. ^ permalink raw reply [flat|nested] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-11 12:23 ` Eli Zaretskii @ 2024-06-11 13:10 ` Robert Pluim 2024-06-14 9:49 ` Ihor Radchenko 2024-06-11 13:16 ` Stefan Monnier ` (2 subsequent siblings) 3 siblings, 1 reply; 45+ messages in thread From: Robert Pluim @ 2024-06-11 13:10 UTC (permalink / raw) To: Ihor Radchenko; +Cc: Eli Zaretskii, Stefan Monnier, kyle, emacs-devel >>>>> On Tue, 11 Jun 2024 15:23:29 +0300, Eli Zaretskii <eliz@gnu.org> said: >> > Why does it want to read a file from my home directory as part of >> > building Emacs? That shouldn't happen. >> >> Agree. But I am unable to reproduce. >> Could you please provide more information? Removing "~/.emacs.d/.org-id-locations" is enough for me: -- >8 -- make[3]: Leaving directory '/home/rpluim/repos/emacs/lisp' backtrace() (condition-case nil (progn (insert-file-contents org-id-locations-file) (setq org-id-locations (read (current-buffer))) (let ((loc (file-name-directory org-id-locations-file))) (mapc #'(lambda (item) (if (file-name-absolute-p ...) nil (let* ... ...))) org-id-locations))) (error (backtrace) (message "Could not read `org-id-locations' from %s, setting it to nil" org-id-locations-file))) (progn (condition-case nil (progn (insert-file-contents org-id-locations-file) (setq org-id-locations (read (current-buffer))) (let ((loc (file-name-directory org-id-locations-file))) (mapc #'(lambda (item) (if ... nil ...)) org-id-locations))) (error (backtrace) (message "Could not read `org-id-locations' from %s, setting it to nil" org-id-locations-file)))) (unwind-protect (progn (condition-case nil (progn (insert-file-contents org-id-locations-file) (setq org-id-locations (read (current-buffer))) (let ((loc (file-name-directory org-id-locations-file))) (mapc #'(lambda ... ...) org-id-locations))) (error (backtrace) (message "Could not read `org-id-locations' from %s, setting it to nil" org-id-locations-file)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (condition-case nil (progn (insert-file-contents org-id-locations-file) (setq org-id-locations (read (current-buffer))) (let ((loc ...)) (mapc #'... org-id-locations))) (error (backtrace) (message "Could not read `org-id-locations' from %s, setting it to nil" org-id-locations-file)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (condition-case nil (progn (insert-file-contents org-id-locations-file) (setq org-id-locations (read ...)) (let (...) (mapc ... org-id-locations))) (error (backtrace) (message "Could not read `org-id-locations' from %s, setting it to nil" org-id-locations-file)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (progn (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (condition-case nil (progn (insert-file-contents org-id-locations-file) (setq org-id-locations ...) (let ... ...)) (error (backtrace) (message "Could not read `org-id-locations' from %s, setting it to nil" org-id-locations-file)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (setq org-id-files (mapcar 'car org-id-locations)) (setq org-id-locations (org-id-alist-to-hash org-id-locations))) (if org-id-track-globally (progn (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (condition-case nil (progn ... ... ...) (error ... ...))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (setq org-id-files (mapcar 'car org-id-locations)) (setq org-id-locations (org-id-alist-to-hash org-id-locations)))) org-id-locations-load() (if org-id-locations nil (org-id-locations-load)) org-id-find-id-file("org-manual-get-export-props-customizations") org-babel-ref-goto-headline-id("org-manual-get-export-props-customizations") #f(compiled-function (m) #<bytecode 0x1fdced484b7d4e9a>)("<<org-manual-get-export-props-customizations>>") replace-regexp-in-string("\\(.*?\\)\\(<<\\([^ \11\n]\\(?:.*?[^ \11\n]\\)?\\)>>\\)" #f(compiled-function (m) #<bytecode 0x1fdced484b7d4e9a>) "(require 'ox)\n(let ((alist org-export-options-alist))\n<<org-manual-get-export-props-customizations>>\n)" t t 2) org-babel-expand-noweb-references(("emacs-lisp" "(require 'ox)\n(let ((alist org-export-options-alist))\n<<org-manual-get-export-props-customizations>>\n)" ((:cache . "no") (:colname-names) (:eval . "yes") (:exports . "results") (:hlines . "no") (:lexical . "no") (:noweb . "yes") (:result-params "replace" "table") (:result-type . value) (:results . "replace table") (:rowname-names) (:session . "none") (:tangle . "no")) "" nil 643527 "(ref:%s)")) org-babel-sha1-hash(("emacs-lisp" "(require 'ox)\n(let ((alist org-export-options-alist))\n<<org-manual-get-export-props-customizations>>\n)" ((:cache . "no") (:colname-names) (:eval . "yes") (:exports . "results") (:hlines . "no") (:lexical . "no") (:noweb . "yes") (:result-params "replace" "table") (:result-type . value) (:results . "replace table") (:rowname-names) (:session . "none") (:tangle . "no")) "" nil 643527 "(ref:%s)") :export) org-babel-exp-src-block((src-block (:standard-properties [643527 643527 nil nil 643718 2 nil nil element t (1293 . 654197) nil nil nil #<buffer *temp*-415485> nil nil (section (:standard-properties [643488 643488 643488 643718 643718 0 nil section element t (1293 . 649597) 643488 643718 nil #<buffer *temp*-415485> nil nil (headline ...)]))] :language "emacs-lisp" :switches nil :parameters ":exports results :results table :eval yes :noweb yes" :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value [org-element-deferred org-element--unescape-substring (76 179) nil]))) org-babel-exp-process-buffer() org-export--annotate-info(#s(org-export-backend :name texinfo :parent nil :transcoders ((bold . org-texinfo-bold) (center-block . org-texinfo-center-block) (clock . org-texinfo-clock) (code . org-texinfo-code) (drawer . org-texinfo-drawer) (dynamic-block . org-texinfo-dynamic-block) (entity . org-texinfo-entity) (example-block . org-texinfo-example-block) (export-block . org-texinfo-export-block) (export-snippet . org-texinfo-export-snippet) (fixed-width . org-texinfo-fixed-width) (footnote-definition . org-texinfo-footnote-definition) (footnote-reference . org-texinfo-footnote-reference) (headline . org-texinfo-headline) (inline-src-block . org-texinfo-inline-src-block) (inlinetask . org-texinfo-inlinetask) (italic . org-texinfo-italic) (item . org-texinfo-item) (keyword . org-texinfo-keyword) (latex-environment . org-texinfo-latex-environment) (latex-fragment . org-texinfo-latex-fragment) (line-break . org-texinfo-line-break) (link . org-texinfo-link) (node-property . org-texinfo-node-property) (paragraph . org-texinfo-paragraph) (plain-list . org-texinfo-plain-list) ...) :options ((:texinfo-filename "TEXINFO_FILENAME" nil nil t) (:texinfo-class "TEXINFO_CLASS" nil org-texinfo-default-class t) (:texinfo-header "TEXINFO_HEADER" nil nil newline) (:texinfo-post-header "TEXINFO_POST_HEADER" nil nil newline) (:subtitle "SUBTITLE" nil nil parse) (:subauthor "SUBAUTHOR" nil nil newline) (:texinfo-dircat "TEXINFO_DIR_CATEGORY" nil nil t) (:texinfo-dirtitle "TEXINFO_DIR_TITLE" nil nil t) (:texinfo-dirname "TEXINFO_DIR_NAME" nil nil t) (:texinfo-dirdesc "TEXINFO_DIR_DESC" nil nil t) (:texinfo-printed-title "TEXINFO_PRINTED_TITLE" nil nil t) (:texinfo-classes nil nil org-texinfo-classes) (:texinfo-format-headline-function nil nil org-texinfo-format-headline-function) (:texinfo-node-description-column nil nil org-texinfo-node-description-column) (:texinfo-active-timestamp-format nil nil org-texinfo-active-timestamp-format) (:texinfo-inactive-timestamp-format nil nil org-texinfo-inactive-timestamp-format) (:texinfo-diary-timestamp-format nil nil org-texinfo-diary-timestamp-format) (:texinfo-link-with-unknown-path-format nil nil org-texinfo-link-with-unknown-path-format) (:texinfo-tables-verbatim nil nil org-texinfo-tables-verbatim) (:texinfo-table-scientific-notation nil nil org-texinfo-table-scientific-notation) (:texinfo-table-default-markup nil nil org-texinfo-table-default-markup) (:texinfo-text-markup-alist nil nil org-texinfo-text-markup-alist) (:texinfo-format-drawer-function nil nil org-texinfo-format-drawer-function) (:texinfo-format-inlinetask-function nil nil org-texinfo-format-inlinetask-function) (:texinfo-compact-itemx nil "compact-itemx" org-texinfo-compact-itemx) (:with-latex nil "tex" org-texinfo-with-latex)) :filters ((:filter-headline . org-texinfo--filter-section-blank-lines) (:filter-parse-tree org-texinfo--normalize-headlines org-texinfo--separate-definitions) (:filter-section . org-texinfo--filter-section-blank-lines) (:filter-final-output . org-texinfo--untabify)) :blocks nil :menu (105 "Export to Texinfo" (... ... ...))) (:export-options nil :back-end #s(org-export-backend :name texinfo :parent nil :transcoders (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :options (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :filters (... ... ... ...) :blocks nil :menu (105 "Export to Texinfo" ...)) :translate-alist ((bold . org-texinfo-bold) (center-block . org-texinfo-center-block) (clock . org-texinfo-clock) (code . org-texinfo-code) (drawer . org-texinfo-drawer) (dynamic-block . org-texinfo-dynamic-block) (entity . org-texinfo-entity) (example-block . org-texinfo-example-block) (export-block . org-texinfo-export-block) (export-snippet . org-texinfo-export-snippet) (fixed-width . org-texinfo-fixed-width) (footnote-definition . org-texinfo-footnote-definition) (footnote-reference . org-texinfo-footnote-reference) (headline . org-texinfo-headline) (inline-src-block . org-texinfo-inline-src-block) (inlinetask . org-texinfo-inlinetask) (italic . org-texinfo-italic) (item . org-texinfo-item) (keyword . org-texinfo-keyword) (latex-environment . org-texinfo-latex-environment) (latex-fragment . org-texinfo-latex-fragment) (line-break . org-texinfo-line-break) (link . org-texinfo-link) (node-property . org-texinfo-node-property) (paragraph . org-texinfo-paragraph) (plain-list . org-texinfo-plain-list) ...) :exported-data #<hash-table eq 0/4001 0x10ecae617972 ...> :input-buffer " *temp*" :input-file nil) nil nil (:output-file "org.texi")) org-export-as(texinfo nil nil nil (:output-file "org.texi")) org-export-to-file(texinfo "org.texi") org-texinfo-export-to-texinfo-batch() command-line-1(("--eval" "(setq load-prefer-newer t)" "-l" "ox-texinfo" "--eval" "(setq gc-cons-threshold 50000000)" "--eval" "(setq org-confirm-babel-evaluate nil)" "-f" "org-texinfo-export-to-texinfo-batch" "org.org" "org.texi")) command-line() normal-top-level() Could not read ‘org-id-locations’ from ~/.emacs.d/.org-id-locations, setting it to nil -- >8 -- Robert -- ^ permalink raw reply [flat|nested] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-11 13:10 ` Robert Pluim @ 2024-06-14 9:49 ` Ihor Radchenko 2024-06-14 11:39 ` Eli Zaretskii 0 siblings, 1 reply; 45+ messages in thread From: Ihor Radchenko @ 2024-06-14 9:49 UTC (permalink / raw) To: Robert Pluim; +Cc: Eli Zaretskii, Stefan Monnier, kyle, emacs-devel [-- Attachment #1: Type: text/plain, Size: 1017 bytes --] Robert Pluim <rpluim@gmail.com> writes: >>>>>> On Tue, 11 Jun 2024 15:23:29 +0300, Eli Zaretskii <eliz@gnu.org> said: > >> > Why does it want to read a file from my home directory as part of > >> > building Emacs? That shouldn't happen. > >> > >> Agree. But I am unable to reproduce. > >> Could you please provide more information? > > Removing "~/.emacs.d/.org-id-locations" is enough for me: > > org-id-locations-load() > (if org-id-locations nil (org-id-locations-load)) > org-id-find-id-file("org-manual-get-export-props-customizations") > org-babel-ref-goto-headline-id("org-manual-get-export-props-customizations") > org-babel-expand-noweb-references(...) This reveals a serious problem. Org indeed must not examine id db on the build machine. I installed the fix on Org side: https://git.savannah.gnu.org/cgit/emacs/org-mode.git/commit/?id=13fdbf73f However, this fix will only affect builds in Org git repo. Please install the attached equivalent fix for Emacs makefiles. [-- Warning: decoded text below may be mangled, UTF-8 assumed --] [-- Attachment #2: 0001-Do-not-search-local-id-db-when-building-Org-mode-man.patch --] [-- Type: text/x-patch, Size: 1531 bytes --] From 5fefaad5b1c3ca4d10d3208e782596d79de8ca18 Mon Sep 17 00:00:00 2001 Message-ID: <5fefaad5b1c3ca4d10d3208e782596d79de8ca18.1718358372.git.yantar92@posteo.net> From: Ihor Radchenko <yantar92@posteo.net> Date: Fri, 14 Jun 2024 11:45:00 +0200 Subject: [PATCH] Do not search local id: db when building Org mode manual * doc/misc/Makefile.in ($(1:.org=.texi)): Disable global id: database when building Org manual. This prevents the build from reaching out to local ID db on the build machine. Reported-by: Eli Zaretskii <eliz@gnu.org> Link: https://yhetil.org/emacs-devel/868qzd9hjg.fsf@gnu.org/ --- doc/misc/Makefile.in | 3 +++ 1 file changed, 3 insertions(+) diff --git a/doc/misc/Makefile.in b/doc/misc/Makefile.in index b26d3525a22..f1d03ff4b39 100644 --- a/doc/misc/Makefile.in +++ b/doc/misc/Makefile.in @@ -246,11 +246,14 @@ emacs = # release tarfile along with the others. # Work in srcdir (and use abs_top_builddir) so that +setupfile and # things like org-setup's "version" macro work. Sigh. +# Also, disable `org-id-track-globally' to make sure that link/target +# resolution never ever tries to reach local user id: database. define org_template $(1:.org=.texi): $(1) ${top_srcdir}/lisp/org/ox-texinfo.el $${AM_V_GEN}cd "$${srcdir}" && $${emacs} -l ox-texinfo \ --eval '(setq gc-cons-threshold 50000000)' \ --eval '(setq org-confirm-babel-evaluate nil)' \ + --eval '(setq org-id-track-globally nil)' \ -f org-texinfo-export-to-texinfo-batch $$(notdir $$<) $$(notdir $$@) endef -- 2.45.1 [-- Attachment #3: Type: text/plain, Size: 224 bytes --] -- 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 related [flat|nested] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-14 9:49 ` Ihor Radchenko @ 2024-06-14 11:39 ` Eli Zaretskii 2024-06-14 12:02 ` Robert Pluim 0 siblings, 1 reply; 45+ messages in thread From: Eli Zaretskii @ 2024-06-14 11:39 UTC (permalink / raw) To: Ihor Radchenko; +Cc: rpluim, monnier, kyle, emacs-devel > From: Ihor Radchenko <yantar92@posteo.net> > Cc: Eli Zaretskii <eliz@gnu.org>, Stefan Monnier <monnier@iro.umontreal.ca>, > kyle@kyleam.com, emacs-devel@gnu.org > Date: Fri, 14 Jun 2024 09:49:02 +0000 > > Robert Pluim <rpluim@gmail.com> writes: > > >>>>>> On Tue, 11 Jun 2024 15:23:29 +0300, Eli Zaretskii <eliz@gnu.org> said: > > >> > Why does it want to read a file from my home directory as part of > > >> > building Emacs? That shouldn't happen. > > >> > > >> Agree. But I am unable to reproduce. > > >> Could you please provide more information? > > > > Removing "~/.emacs.d/.org-id-locations" is enough for me: > > > > org-id-locations-load() > > (if org-id-locations nil (org-id-locations-load)) > > org-id-find-id-file("org-manual-get-export-props-customizations") > > org-babel-ref-goto-headline-id("org-manual-get-export-props-customizations") > > org-babel-expand-noweb-references(...) > > This reveals a serious problem. Org indeed must not examine id db on the > build machine. > > I installed the fix on Org side: > https://git.savannah.gnu.org/cgit/emacs/org-mode.git/commit/?id=13fdbf73f > However, this fix will only affect builds in Org git repo. > > Please install the attached equivalent fix for Emacs makefiles. Thanks, done. ^ permalink raw reply [flat|nested] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-14 11:39 ` Eli Zaretskii @ 2024-06-14 12:02 ` Robert Pluim 0 siblings, 0 replies; 45+ messages in thread From: Robert Pluim @ 2024-06-14 12:02 UTC (permalink / raw) To: Eli Zaretskii; +Cc: Ihor Radchenko, monnier, kyle, emacs-devel >>>>> On Fri, 14 Jun 2024 14:39:02 +0300, Eli Zaretskii <eliz@gnu.org> said: >> This reveals a serious problem. Org indeed must not examine id db on the >> build machine. >> >> I installed the fix on Org side: >> https://git.savannah.gnu.org/cgit/emacs/org-mode.git/commit/?id=13fdbf73f >> However, this fix will only affect builds in Org git repo. >> >> Please install the attached equivalent fix for Emacs makefiles. Eli> Thanks, done. Thanks, works for me. Robert -- ^ permalink raw reply [flat|nested] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-11 12:23 ` Eli Zaretskii 2024-06-11 13:10 ` Robert Pluim @ 2024-06-11 13:16 ` Stefan Monnier 2024-06-12 13:49 ` Ihor Radchenko 2024-06-13 13:00 ` Ihor Radchenko 2024-06-13 13:32 ` Ihor Radchenko 3 siblings, 1 reply; 45+ messages in thread From: Stefan Monnier @ 2024-06-11 13:16 UTC (permalink / raw) To: Eli Zaretskii; +Cc: Ihor Radchenko, kyle, emacs-devel >> Note that org-num.el where `org-num-skip-tags' is defined does have >> (require 'cl-lib). >> >> IMHO, there is some problem either with loaddefs generation or with the >> fact that loaddefs file is compiled at all. Code that's in an ;;;###autoload cookie is copied verbatim to the loaddefs file, so it cannot assume that all the earlier code in the file (e.g. the `(require 'cl)` at the beginning of the file) has been executed. > No, the problem is that this variable uses cl-lib stuff for safep > functions. IMO, this is not a good idea, and the above situation is > precisely the evidence for that. In theory, `org-loaddefs.el` could be arranged to require `cl-lib` (we don't want that in `loaddefs.el` but it'd be OK for `org-loaddefs.el`). In practice, the generation of `org-loaddefs.el` currently doesn't offer an easy way to insert some ad-hoc code like `(require 'cl-lib)` at the beginning. We should fix that because it's a relatively common need (especially since the relative ordering of elements from different files is not guaranteed). > Stefan, WDYT about this issue? While you're at it, please don't autoload the vars: autoload only the safety declaration. Stefan ^ permalink raw reply [flat|nested] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-11 13:16 ` Stefan Monnier @ 2024-06-12 13:49 ` Ihor Radchenko 2024-06-12 14:41 ` Stefan Monnier 0 siblings, 1 reply; 45+ messages in thread From: Ihor Radchenko @ 2024-06-12 13:49 UTC (permalink / raw) To: Stefan Monnier; +Cc: Eli Zaretskii, kyle, emacs-devel Stefan Monnier <monnier@iro.umontreal.ca> writes: >>> Note that org-num.el where `org-num-skip-tags' is defined does have >>> (require 'cl-lib). >>> >>> IMHO, there is some problem either with loaddefs generation or with the >>> fact that loaddefs file is compiled at all. > > Code that's in an ;;;###autoload cookie is copied verbatim to the > loaddefs file, so it cannot assume that all the earlier code in the file > (e.g. the `(require 'cl)` at the beginning of the file) has been executed. Then, it would be helpful if such problems were caught during byte-compilation. -- 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] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-12 13:49 ` Ihor Radchenko @ 2024-06-12 14:41 ` Stefan Monnier 0 siblings, 0 replies; 45+ messages in thread From: Stefan Monnier @ 2024-06-12 14:41 UTC (permalink / raw) To: Ihor Radchenko; +Cc: Eli Zaretskii, kyle, emacs-devel >>>> Note that org-num.el where `org-num-skip-tags' is defined does have >>>> (require 'cl-lib). >>>> IMHO, there is some problem either with loaddefs generation or with the >>>> fact that loaddefs file is compiled at all. >> Code that's in an ;;;###autoload cookie is copied verbatim to the >> loaddefs file, so it cannot assume that all the earlier code in the file >> (e.g. the `(require 'cl)` at the beginning of the file) has been executed. > Then, it would be helpful if such problems were caught during > byte-compilation. It is caught when compiling the `org-loaddefs.el` file. 🙂 I suspect that catching it during compilation of `org-table.el` is pretty far from what the current compiler code can do. Stefan ^ permalink raw reply [flat|nested] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-11 12:23 ` Eli Zaretskii 2024-06-11 13:10 ` Robert Pluim 2024-06-11 13:16 ` Stefan Monnier @ 2024-06-13 13:00 ` Ihor Radchenko 2024-06-13 13:43 ` Eli Zaretskii 2024-06-13 13:32 ` Ihor Radchenko 3 siblings, 1 reply; 45+ messages in thread From: Ihor Radchenko @ 2024-06-13 13:00 UTC (permalink / raw) To: Eli Zaretskii; +Cc: Stefan Monnier, kyle, emacs-devel [-- Attachment #1: Type: text/plain, Size: 1011 bytes --] Eli Zaretskii <eliz@gnu.org> writes: >> (defcustom org-num-skip-tags nil > ... >> :safe (lambda (val) (and (listp val) (cl-every #'stringp val)))) >> >> Note that org-num.el where `org-num-skip-tags' is defined does have >> (require 'cl-lib). >> >> IMHO, there is some problem either with loaddefs generation or with the >> fact that loaddefs file is compiled at all. > > No, the problem is that this variable uses cl-lib stuff for safep > functions. IMO, this is not a good idea, and the above situation is > precisely the evidence for that. > >> Of course, we can always convert that lambda into a proper function, >> which will likely get rid of the warning. > > Yes, please. Emacs 28 and later has list-of-strings-p, but if you > want to support older versions of Emacs, perhaps that's not usable. > Or maybe we could add that to compat.el. Org cannot directly use compat.el for now. I am attaching tentative patch that defines a compatibility alias and autoloads it. Is this approach good enough? [-- Warning: decoded text below may be mangled, UTF-8 assumed --] [-- Attachment #2: 0001-org-num-skip-tags-Avoid-using-function-that-is-not-p.patch --] [-- Type: text/x-patch, Size: 2062 bytes --] From e70b7ce648aa54d5c6a3c91a2fd9982cd0a6e790 Mon Sep 17 00:00:00 2001 Message-ID: <e70b7ce648aa54d5c6a3c91a2fd9982cd0a6e790.1718283515.git.yantar92@posteo.net> From: Ihor Radchenko <yantar92@posteo.net> Date: Thu, 13 Jun 2024 14:53:03 +0200 Subject: [PATCH] org-num-skip-tags: Avoid using function that is not pre-loaded in autoloads * lisp/org-num.el (org-num-skip-tags): Make sure that function used for :safe `defcustom' slot does not require functions that are not defined in org-loaddefs.el. This is because `org-num-skip-tags' is autoloaded and cannot rely upon requires in org-num.el. Instead, it may only use pre-loaded functions and other autoloaded Org mode functions. Reported-by: Eli Zaretskii <eliz@gnu.org> Link: https://yhetil.org/emacs-devel/868qzd9hjg.fsf@gnu.org/ --- lisp/org-compat.el | 11 +++++++++++ lisp/org-num.el | 2 +- 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index d6620f962..41c26ad72 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -251,6 +251,17 @@ (defun org-format-prompt (prompt default &rest format-args) default))) ": "))) +(if (fboundp 'list-of-strings-p) + (defalias 'org-list-of-strings-p #'list-of-strings-p) + ;; From Emacs subr.el. +;;;###autoload + (defun org-list-of-strings-p (object) + "Return t if OBJECT is nil or a list of strings." + (declare (pure t) (side-effect-free error-free)) + (while (and (consp object) (stringp (car object))) + (setq object (cdr object))) + (null object))) + \f ;;; Emacs < 27.1 compatibility diff --git a/lisp/org-num.el b/lisp/org-num.el index aebfef050..a8fcf3333 100644 --- a/lisp/org-num.el +++ b/lisp/org-num.el @@ -144,7 +144,7 @@ (defcustom org-num-skip-tags nil :group 'org-appearance :package-version '(Org . "9.3") :type '(repeat (string :tag "Tag")) - :safe (lambda (val) (and (listp val) (cl-every #'stringp val)))) + :safe #'org-list-of-strings-p) ;;;###autoload (defcustom org-num-skip-unnumbered nil -- 2.45.1 [-- Attachment #3: Type: text/plain, Size: 224 bytes --] -- 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 related [flat|nested] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-13 13:00 ` Ihor Radchenko @ 2024-06-13 13:43 ` Eli Zaretskii 2024-06-13 14:34 ` Stefan Monnier 2024-06-14 12:39 ` Ihor Radchenko 0 siblings, 2 replies; 45+ messages in thread From: Eli Zaretskii @ 2024-06-13 13:43 UTC (permalink / raw) To: Ihor Radchenko; +Cc: monnier, kyle, emacs-devel > From: Ihor Radchenko <yantar92@posteo.net> > Cc: Stefan Monnier <monnier@iro.umontreal.ca>, kyle@kyleam.com, > emacs-devel@gnu.org > Date: Thu, 13 Jun 2024 13:00:58 +0000 > > >> Of course, we can always convert that lambda into a proper function, > >> which will likely get rid of the warning. > > > > Yes, please. Emacs 28 and later has list-of-strings-p, but if you > > want to support older versions of Emacs, perhaps that's not usable. > > Or maybe we could add that to compat.el. > > Org cannot directly use compat.el for now. > I am attaching tentative patch that defines a compatibility alias and > autoloads it. > Is this approach good enough? Assuming you tested it and the warning is gone, including when visiting a file with that variable in file-locals section, then yes, this is good enough. But please also wait for Stefan's opinion. ^ permalink raw reply [flat|nested] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-13 13:43 ` Eli Zaretskii @ 2024-06-13 14:34 ` Stefan Monnier 2024-06-14 12:39 ` Ihor Radchenko 1 sibling, 0 replies; 45+ messages in thread From: Stefan Monnier @ 2024-06-13 14:34 UTC (permalink / raw) To: Eli Zaretskii; +Cc: Ihor Radchenko, kyle, emacs-devel > Assuming you tested it and the warning is gone, including when > visiting a file with that variable in file-locals section, then yes, > this is good enough. But please also wait for Stefan's opinion. Looks good to me, Stefan ^ permalink raw reply [flat|nested] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-13 13:43 ` Eli Zaretskii 2024-06-13 14:34 ` Stefan Monnier @ 2024-06-14 12:39 ` Ihor Radchenko 1 sibling, 0 replies; 45+ messages in thread From: Ihor Radchenko @ 2024-06-14 12:39 UTC (permalink / raw) To: Eli Zaretskii; +Cc: monnier, kyle, emacs-devel Eli Zaretskii <eliz@gnu.org> writes: >> Org cannot directly use compat.el for now. >> I am attaching tentative patch that defines a compatibility alias and >> autoloads it. >> Is this approach good enough? > > Assuming you tested it and the warning is gone, including when > visiting a file with that variable in file-locals section, then yes, > this is good enough. But please also wait for Stefan's opinion. Applied, onto bugfix. https://git.savannah.gnu.org/cgit/emacs/org-mode.git/commit/?id=bd8b861ee As for careful testing, I know some oddities when there is Emacs from ELPA. Emacs always uses autoloads from built-in Org mode, not from ELPA version (because ELPA ships with org-loaddefs.el, while package.el expects org-autoloads.el; see `package--autoloads-file-name') . But that's a bit tangent. See my other email in https://yhetil.org/emacs-devel/87y1adrria.fsf@localhost/ -- 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] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-11 12:23 ` Eli Zaretskii ` (2 preceding siblings ...) 2024-06-13 13:00 ` Ihor Radchenko @ 2024-06-13 13:32 ` Ihor Radchenko 2024-06-13 13:54 ` Eli Zaretskii 3 siblings, 1 reply; 45+ messages in thread From: Ihor Radchenko @ 2024-06-13 13:32 UTC (permalink / raw) To: Eli Zaretskii; +Cc: Stefan Monnier, kyle, emacs-devel Eli Zaretskii <eliz@gnu.org> writes: >>... >> > Executing Emacs-Lisp code block at position 660552... >> > Code block evaluation complete. >> > >> > Can we please shut up these messages, or at least hide them behind >> > some $(AM_V_GEN) trick? >> >> Why? It is not much different from "scraping loaddefs..." message >> sequence. > > The messages about loaddefs are progress indicators, and show some > indication of how much is done and how much is left. By contrast, the > above don't show any progress indications, and are completely > incomprehensible, except perhaps to those who wrote the relevant code. > >> Of course, we can hide this, but seeing that some code is evaluated may >> be useful in the logs. > > People who want this in the logs could perhaps turn it on by setting > an environment variable or saying "make VAR=value". The value of VAR > should be accessible from Lisp via getenv. But I think by default > this should be off. I studied the existing Org mode code, and found that some parts of Org already disable progress messages when Org mode is running noninteractively. I now enforced this rule across all the code block evaluation done by Org, except cases when the message highlights some problem with evaluation. https://git.savannah.gnu.org/cgit/emacs/org-mode.git/commit/?id=e4902995a -- 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] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-13 13:32 ` Ihor Radchenko @ 2024-06-13 13:54 ` Eli Zaretskii 2024-06-15 11:20 ` Ihor Radchenko 0 siblings, 1 reply; 45+ messages in thread From: Eli Zaretskii @ 2024-06-13 13:54 UTC (permalink / raw) To: Ihor Radchenko; +Cc: monnier, kyle, emacs-devel > From: Ihor Radchenko <yantar92@posteo.net> > Cc: Stefan Monnier <monnier@iro.umontreal.ca>, kyle@kyleam.com, > emacs-devel@gnu.org > Date: Thu, 13 Jun 2024 13:32:11 +0000 > > Eli Zaretskii <eliz@gnu.org> writes: > > >>... > >> > Executing Emacs-Lisp code block at position 660552... > >> > Code block evaluation complete. > >> > > >> > Can we please shut up these messages, or at least hide them behind > >> > some $(AM_V_GEN) trick? > >> > >> Why? It is not much different from "scraping loaddefs..." message > >> sequence. > > > > The messages about loaddefs are progress indicators, and show some > > indication of how much is done and how much is left. By contrast, the > > above don't show any progress indications, and are completely > > incomprehensible, except perhaps to those who wrote the relevant code. > > > >> Of course, we can hide this, but seeing that some code is evaluated may > >> be useful in the logs. > > > > People who want this in the logs could perhaps turn it on by setting > > an environment variable or saying "make VAR=value". The value of VAR > > should be accessible from Lisp via getenv. But I think by default > > this should be off. > > I studied the existing Org mode code, and found that some parts of Org > already disable progress messages when Org mode is running > noninteractively. I now enforced this rule across all the code > block evaluation done by Org, except cases when the message highlights > some problem with evaluation. > > https://git.savannah.gnu.org/cgit/emacs/org-mode.git/commit/?id=e4902995a Thanks. Looking forward to seeing this in the Emacs Git repository. ^ permalink raw reply [flat|nested] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-13 13:54 ` Eli Zaretskii @ 2024-06-15 11:20 ` Ihor Radchenko 2024-06-15 12:46 ` Eli Zaretskii 0 siblings, 1 reply; 45+ messages in thread From: Ihor Radchenko @ 2024-06-15 11:20 UTC (permalink / raw) To: Eli Zaretskii; +Cc: monnier, kyle, emacs-devel Eli Zaretskii <eliz@gnu.org> writes: >> https://git.savannah.gnu.org/cgit/emacs/org-mode.git/commit/?id=e4902995a > > Thanks. Looking forward to seeing this in the Emacs Git repository. I just released Org 9.7.4 with the latest round of bugfixes. It includes all the critical fixes discussed here, except Po Lu's report where I am still waiting for additional information. -- 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] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-15 11:20 ` Ihor Radchenko @ 2024-06-15 12:46 ` Eli Zaretskii 2024-06-15 12:55 ` Syncing Org bugfix releases with emacs-30 branch (was: master 5a125fb5a97 1/2: Update to Org 9.7.3) Ihor Radchenko 2024-06-15 16:58 ` master 5a125fb5a97 1/2: Update to Org 9.7.3 Kyle Meyer 0 siblings, 2 replies; 45+ messages in thread From: Eli Zaretskii @ 2024-06-15 12:46 UTC (permalink / raw) To: Ihor Radchenko; +Cc: monnier, kyle, emacs-devel > From: Ihor Radchenko <yantar92@posteo.net> > Cc: monnier@iro.umontreal.ca, kyle@kyleam.com, emacs-devel@gnu.org > Date: Sat, 15 Jun 2024 11:20:51 +0000 > > Eli Zaretskii <eliz@gnu.org> writes: > > >> https://git.savannah.gnu.org/cgit/emacs/org-mode.git/commit/?id=e4902995a > > > > Thanks. Looking forward to seeing this in the Emacs Git repository. > > I just released Org 9.7.4 with the latest round of bugfixes. Thanks. Can we have that merged to the Emacs master branch some time soon? ^ permalink raw reply [flat|nested] 45+ messages in thread
* Syncing Org bugfix releases with emacs-30 branch (was: master 5a125fb5a97 1/2: Update to Org 9.7.3) 2024-06-15 12:46 ` Eli Zaretskii @ 2024-06-15 12:55 ` Ihor Radchenko 2024-06-15 13:02 ` Eli Zaretskii 2024-06-15 16:58 ` master 5a125fb5a97 1/2: Update to Org 9.7.3 Kyle Meyer 1 sibling, 1 reply; 45+ messages in thread From: Ihor Radchenko @ 2024-06-15 12:55 UTC (permalink / raw) To: Eli Zaretskii; +Cc: monnier, kyle, emacs-devel, bzg Eli Zaretskii <eliz@gnu.org> writes: >> I just released Org 9.7.4 with the latest round of bugfixes. > > Thanks. Can we have that merged to the Emacs master branch some time > soon? Up to Kyle's free time. Also, what should we do after emacs-30 branch is cut? Is it ok to keep merging Emacs bugfix releases (no new features, critical or trivial fixes) onto emacs-30? -- 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] 45+ messages in thread
* Re: Syncing Org bugfix releases with emacs-30 branch (was: master 5a125fb5a97 1/2: Update to Org 9.7.3) 2024-06-15 12:55 ` Syncing Org bugfix releases with emacs-30 branch (was: master 5a125fb5a97 1/2: Update to Org 9.7.3) Ihor Radchenko @ 2024-06-15 13:02 ` Eli Zaretskii 2024-06-16 11:09 ` Ihor Radchenko 0 siblings, 1 reply; 45+ messages in thread From: Eli Zaretskii @ 2024-06-15 13:02 UTC (permalink / raw) To: Ihor Radchenko; +Cc: monnier, kyle, emacs-devel, bzg > From: Ihor Radchenko <yantar92@posteo.net> > Cc: monnier@iro.umontreal.ca, kyle@kyleam.com, emacs-devel@gnu.org, bzg@gnu.org > Date: Sat, 15 Jun 2024 12:55:50 +0000 > > Eli Zaretskii <eliz@gnu.org> writes: > > >> I just released Org 9.7.4 with the latest round of bugfixes. > > > > Thanks. Can we have that merged to the Emacs master branch some time > > soon? > > Up to Kyle's free time. I hope he will have it soon. > Also, what should we do after emacs-30 branch is cut? > Is it ok to keep merging Emacs bugfix releases (no new features, > critical or trivial fixes) onto emacs-30? Yes, as usual. We already had this conversation during Emacs 29 pretest, I think. ^ permalink raw reply [flat|nested] 45+ messages in thread
* Re: Syncing Org bugfix releases with emacs-30 branch (was: master 5a125fb5a97 1/2: Update to Org 9.7.3) 2024-06-15 13:02 ` Eli Zaretskii @ 2024-06-16 11:09 ` Ihor Radchenko 0 siblings, 0 replies; 45+ messages in thread From: Ihor Radchenko @ 2024-06-16 11:09 UTC (permalink / raw) To: Eli Zaretskii; +Cc: monnier, kyle, emacs-devel, bzg Eli Zaretskii <eliz@gnu.org> writes: >> Is it ok to keep merging Emacs bugfix releases (no new features, >> critical or trivial fixes) onto emacs-30? > > Yes, as usual. We already had this conversation during Emacs 29 > pretest, I think. Kyle, does it mean that https://orgmode.org/worg/org-maintenance.html#org-version-emacs should be amended? We now have Typically, Org can be synchronized by copying over files from the emacs-sync branch of the Org repository to the master branch of Emacs repository. The emacs-sync branch has a few extra changes compared with the bugfix branch. If the Emacs maintainers are planning a new ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ release of Emacs soon, it is possible that another branch should be used. which implies that syncronization during the Emacs release cuts is not the same as usual. -- 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] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-15 12:46 ` Eli Zaretskii 2024-06-15 12:55 ` Syncing Org bugfix releases with emacs-30 branch (was: master 5a125fb5a97 1/2: Update to Org 9.7.3) Ihor Radchenko @ 2024-06-15 16:58 ` Kyle Meyer 1 sibling, 0 replies; 45+ messages in thread From: Kyle Meyer @ 2024-06-15 16:58 UTC (permalink / raw) To: Eli Zaretskii, Ihor Radchenko; +Cc: monnier, emacs-devel Eli Zaretskii writes: >> From: Ihor Radchenko <yantar92@posteo.net> >> Cc: monnier@iro.umontreal.ca, kyle@kyleam.com, emacs-devel@gnu.org >> Date: Sat, 15 Jun 2024 11:20:51 +0000 >> >> Eli Zaretskii <eliz@gnu.org> writes: >> >> >> https://git.savannah.gnu.org/cgit/emacs/org-mode.git/commit/?id=e4902995a >> > >> > Thanks. Looking forward to seeing this in the Emacs Git repository. >> >> I just released Org 9.7.4 with the latest round of bugfixes. > > Thanks. Can we have that merged to the Emacs master branch some time > soon? Thanks for the fixes and release, Ihor. I'll do the sync today. ^ permalink raw reply [flat|nested] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 [not found] ` <20240609211858.A2C31C1F9FB@vcs2.savannah.gnu.org> 2024-06-10 0:40 ` master 5a125fb5a97 1/2: Update to Org 9.7.3 Po Lu @ 2024-06-11 11:03 ` Stefan Kangas 2024-06-12 3:45 ` Kyle Meyer 1 sibling, 1 reply; 45+ messages in thread From: Stefan Kangas @ 2024-06-11 11:03 UTC (permalink / raw) To: Kyle Meyer, emacs-devel Kyle Meyer <kyle@kyleam.com> writes: > branch: master > commit 5a125fb5a9736bd3c67cf6ff9acc185d8e2260e2 > Author: Kyle Meyer <kyle@kyleam.com> > Commit: Kyle Meyer <kyle@kyleam.com> > > Update to Org 9.7.3 After make bootstrap, I no longer see the Org manual in the info/dir file. git checkout 5a125fb5a9736bd^ fixes the problem. ^ permalink raw reply [flat|nested] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-11 11:03 ` Stefan Kangas @ 2024-06-12 3:45 ` Kyle Meyer 2024-06-12 8:52 ` Eli Zaretskii 0 siblings, 1 reply; 45+ messages in thread From: Kyle Meyer @ 2024-06-12 3:45 UTC (permalink / raw) To: Stefan Kangas; +Cc: emacs-devel, Stefan Monnier, Ihor Radchenko Stefan Kangas writes: > After make bootstrap, I no longer see the Org manual in the info/dir > file. git checkout 5a125fb5a9736bd^ fixes the problem. Thanks for spotting. I don't have time to look at it more closely tonight, but I think build-aux/make-info-dir needs to be adjusted for Org's b0c3c9057 (ox-texinfo:: Always provide a @direntry, 2024-03-08). ^ permalink raw reply [flat|nested] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-12 3:45 ` Kyle Meyer @ 2024-06-12 8:52 ` Eli Zaretskii 2024-06-12 12:58 ` Ihor Radchenko 0 siblings, 1 reply; 45+ messages in thread From: Eli Zaretskii @ 2024-06-12 8:52 UTC (permalink / raw) To: Kyle Meyer; +Cc: stefankangas, emacs-devel, monnier, yantar92 > From: Kyle Meyer <kyle@kyleam.com> > Cc: emacs-devel@gnu.org, Stefan Monnier <monnier@iro.umontreal.ca>, Ihor > Radchenko <yantar92@posteo.net> > Date: Tue, 11 Jun 2024 23:45:47 -0400 > > Stefan Kangas writes: > > > After make bootstrap, I no longer see the Org manual in the info/dir > > file. git checkout 5a125fb5a9736bd^ fixes the problem. > > Thanks for spotting. I don't have time to look at it more closely > tonight, but I think build-aux/make-info-dir needs to be adjusted for > Org's b0c3c9057 (ox-texinfo:: Always provide a @direntry, 2024-03-08). Thanks, this was indeed the reason. I hope I fixed that now. Please in the future take this into consideration when you decide to modify the way org.org specifies the various Texinfo constructs, as this affects more than just Org itself. ^ permalink raw reply [flat|nested] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-12 8:52 ` Eli Zaretskii @ 2024-06-12 12:58 ` Ihor Radchenko 2024-06-12 13:02 ` Eli Zaretskii 0 siblings, 1 reply; 45+ messages in thread From: Ihor Radchenko @ 2024-06-12 12:58 UTC (permalink / raw) To: Eli Zaretskii; +Cc: Kyle Meyer, stefankangas, emacs-devel, monnier Eli Zaretskii <eliz@gnu.org> writes: >> > After make bootstrap, I no longer see the Org manual in the info/dir >> > file. git checkout 5a125fb5a9736bd^ fixes the problem. >> >> Thanks for spotting. I don't have time to look at it more closely >> tonight, but I think build-aux/make-info-dir needs to be adjusted for >> Org's b0c3c9057 (ox-texinfo:: Always provide a @direntry, 2024-03-08). > > Thanks, this was indeed the reason. I hope I fixed that now. > > Please in the future take this into consideration when you decide to > modify the way org.org specifies the various Texinfo constructs, as > this affects more than just Org itself. I was not aware that Emacs uses a custom awk script to parse .org source in addition to .texi source. The existence of such script implies that .texi files generated by Org are not well-formatted. May you please explain why org.org file needs to be parsed and why parsing org.texi is not sufficient? -- 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] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-12 12:58 ` Ihor Radchenko @ 2024-06-12 13:02 ` Eli Zaretskii 2024-06-12 13:21 ` Ihor Radchenko 2024-06-12 14:46 ` Stefan Monnier 0 siblings, 2 replies; 45+ messages in thread From: Eli Zaretskii @ 2024-06-12 13:02 UTC (permalink / raw) To: Ihor Radchenko; +Cc: kyle, stefankangas, emacs-devel, monnier > From: Ihor Radchenko <yantar92@posteo.net> > Cc: Kyle Meyer <kyle@kyleam.com>, stefankangas@gmail.com, > emacs-devel@gnu.org, monnier@iro.umontreal.ca > Date: Wed, 12 Jun 2024 12:58:19 +0000 > > Eli Zaretskii <eliz@gnu.org> writes: > > >> > After make bootstrap, I no longer see the Org manual in the info/dir > >> > file. git checkout 5a125fb5a9736bd^ fixes the problem. > >> > >> Thanks for spotting. I don't have time to look at it more closely > >> tonight, but I think build-aux/make-info-dir needs to be adjusted for > >> Org's b0c3c9057 (ox-texinfo:: Always provide a @direntry, 2024-03-08). > > > > Thanks, this was indeed the reason. I hope I fixed that now. > > > > Please in the future take this into consideration when you decide to > > modify the way org.org specifies the various Texinfo constructs, as > > this affects more than just Org itself. > > I was not aware that Emacs uses a custom awk script to parse .org source > in addition to .texi source. > > The existence of such script implies that .texi files generated by Org > are not well-formatted. May you please explain why org.org file needs to > be parsed and why parsing org.texi is not sufficient? I don't think it has anything to do with formatting of org.texi. The issue here is that info/DIR file might be generated when org.texi is not yet available or not yet up-to-date, such as during bootstrap or after some change in org.org. IOW, the reason for this behavior is that we want to produce info/DIR from the source files, not from the generated files. ^ permalink raw reply [flat|nested] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-12 13:02 ` Eli Zaretskii @ 2024-06-12 13:21 ` Ihor Radchenko 2024-06-12 13:29 ` Eli Zaretskii 2024-06-12 14:46 ` Stefan Monnier 1 sibling, 1 reply; 45+ messages in thread From: Ihor Radchenko @ 2024-06-12 13:21 UTC (permalink / raw) To: Eli Zaretskii; +Cc: kyle, stefankangas, emacs-devel, monnier Eli Zaretskii <eliz@gnu.org> writes: >> I was not aware that Emacs uses a custom awk script to parse .org source >> in addition to .texi source. >> >> The existence of such script implies that .texi files generated by Org >> are not well-formatted. May you please explain why org.org file needs to >> be parsed and why parsing org.texi is not sufficient? > > I don't think it has anything to do with formatting of org.texi. The > issue here is that info/DIR file might be generated when org.texi is > not yet available or not yet up-to-date, such as during bootstrap or > after some change in org.org. IOW, the reason for this behavior is > that we want to produce info/DIR from the source files, not from the > generated files. Ok. Although that awk script is fragile. May it be test-covered somehow? -- 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] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-12 13:21 ` Ihor Radchenko @ 2024-06-12 13:29 ` Eli Zaretskii 2024-06-12 14:14 ` Stefan Kangas 0 siblings, 1 reply; 45+ messages in thread From: Eli Zaretskii @ 2024-06-12 13:29 UTC (permalink / raw) To: Ihor Radchenko, stefankangas; +Cc: kyle, emacs-devel, monnier > From: Ihor Radchenko <yantar92@posteo.net> > Cc: kyle@kyleam.com, stefankangas@gmail.com, emacs-devel@gnu.org, > monnier@iro.umontreal.ca > Date: Wed, 12 Jun 2024 13:21:56 +0000 > > Eli Zaretskii <eliz@gnu.org> writes: > > >> I was not aware that Emacs uses a custom awk script to parse .org source > >> in addition to .texi source. > >> > >> The existence of such script implies that .texi files generated by Org > >> are not well-formatted. May you please explain why org.org file needs to > >> be parsed and why parsing org.texi is not sufficient? > > > > I don't think it has anything to do with formatting of org.texi. The > > issue here is that info/DIR file might be generated when org.texi is > > not yet available or not yet up-to-date, such as during bootstrap or > > after some change in org.org. IOW, the reason for this behavior is > > that we want to produce info/DIR from the source files, not from the > > generated files. > > Ok. Although that awk script is fragile. May it be test-covered somehow? Since it's used almost every build, I'd say it's already covered ;-) Maybe Stefan could tell how he found this problem, and then we can take it from there. ^ permalink raw reply [flat|nested] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-12 13:29 ` Eli Zaretskii @ 2024-06-12 14:14 ` Stefan Kangas 2024-06-13 16:12 ` Ihor Radchenko 0 siblings, 1 reply; 45+ messages in thread From: Stefan Kangas @ 2024-06-12 14:14 UTC (permalink / raw) To: Eli Zaretskii, Ihor Radchenko; +Cc: kyle, emacs-devel, monnier Eli Zaretskii <eliz@gnu.org> writes: > Maybe Stefan could tell how he found this problem, and then we can > take it from there. I noticed that I could no longer find the Org manual in `C-h i` after make bootstrap. ^ permalink raw reply [flat|nested] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-12 14:14 ` Stefan Kangas @ 2024-06-13 16:12 ` Ihor Radchenko 2024-06-13 16:48 ` Eli Zaretskii 0 siblings, 1 reply; 45+ messages in thread From: Ihor Radchenko @ 2024-06-13 16:12 UTC (permalink / raw) To: Stefan Kangas; +Cc: Eli Zaretskii, kyle, emacs-devel, monnier Stefan Kangas <stefankangas@gmail.com> writes: > Eli Zaretskii <eliz@gnu.org> writes: > >> Maybe Stefan could tell how he found this problem, and then we can >> take it from there. > > I noticed that I could no longer find the Org manual in `C-h i` after > make bootstrap. Then, the simplest kind of test might be making sure that "/info/dir" file lists each /info/*.info file as ^\* .+: (<info file name>). Does it make sense? -- 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] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-13 16:12 ` Ihor Radchenko @ 2024-06-13 16:48 ` Eli Zaretskii 0 siblings, 0 replies; 45+ messages in thread From: Eli Zaretskii @ 2024-06-13 16:48 UTC (permalink / raw) To: Ihor Radchenko; +Cc: stefankangas, kyle, emacs-devel, monnier > From: Ihor Radchenko <yantar92@posteo.net> > Cc: Eli Zaretskii <eliz@gnu.org>, kyle@kyleam.com, emacs-devel@gnu.org, > monnier@iro.umontreal.ca > Date: Thu, 13 Jun 2024 16:12:08 +0000 > > Stefan Kangas <stefankangas@gmail.com> writes: > > > Eli Zaretskii <eliz@gnu.org> writes: > > > >> Maybe Stefan could tell how he found this problem, and then we can > >> take it from there. > > > > I noticed that I could no longer find the Org manual in `C-h i` after > > make bootstrap. > > Then, the simplest kind of test might be making sure that > "/info/dir" file lists each /info/*.info file as ^\* .+: (<info file name>). > Does it make sense? That's fragile, I think: there's no 100% guarantee that the above must happen. I'd rather use install-info. For example: . run "install-info --delete $f DIR" for each target Info file . copy the resulting file DIR to DIR.empty1 (it should have no entries) . run "install-info $f DIR" for each target Info file . run "install-info --delete $f DIR" for each target Info file . compare DIR with DIR.empty -- they should be identical ^ permalink raw reply [flat|nested] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-12 13:02 ` Eli Zaretskii 2024-06-12 13:21 ` Ihor Radchenko @ 2024-06-12 14:46 ` Stefan Monnier 2024-06-12 16:50 ` Eli Zaretskii 1 sibling, 1 reply; 45+ messages in thread From: Stefan Monnier @ 2024-06-12 14:46 UTC (permalink / raw) To: Eli Zaretskii; +Cc: Ihor Radchenko, kyle, stefankangas, emacs-devel >> The existence of such script implies that .texi files generated by Org >> are not well-formatted. May you please explain why org.org file needs to >> be parsed and why parsing org.texi is not sufficient? > I don't think it has anything to do with formatting of org.texi. The > issue here is that info/DIR file might be generated when org.texi is > not yet available or not yet up-to-date, such as during bootstrap or > after some change in org.org. IOW, the reason for this behavior is > that we want to produce info/DIR from the source files, not from the > generated files. I don't think this argument is very convincing: getting the info "from org.org via an awk script" is not that different from getting it "from org.org via org-export plus install-info". So, I understand it to be simply what we currently have and that changing it could take a fair bit of work for a rather small benefit: it's easier to fix the awk script and move on. Stefan ^ permalink raw reply [flat|nested] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-12 14:46 ` Stefan Monnier @ 2024-06-12 16:50 ` Eli Zaretskii 2024-06-13 15:44 ` Ihor Radchenko 0 siblings, 1 reply; 45+ messages in thread From: Eli Zaretskii @ 2024-06-12 16:50 UTC (permalink / raw) To: Stefan Monnier; +Cc: yantar92, kyle, stefankangas, emacs-devel > From: Stefan Monnier <monnier@iro.umontreal.ca> > Cc: Ihor Radchenko <yantar92@posteo.net>, kyle@kyleam.com, > stefankangas@gmail.com, emacs-devel@gnu.org > Date: Wed, 12 Jun 2024 10:46:07 -0400 > > >> The existence of such script implies that .texi files generated by Org > >> are not well-formatted. May you please explain why org.org file needs to > >> be parsed and why parsing org.texi is not sufficient? > > I don't think it has anything to do with formatting of org.texi. The > > issue here is that info/DIR file might be generated when org.texi is > > not yet available or not yet up-to-date, such as during bootstrap or > > after some change in org.org. IOW, the reason for this behavior is > > that we want to produce info/DIR from the source files, not from the > > generated files. > > I don't think this argument is very convincing: getting the info "from > org.org via an awk script" is not that different from getting it "from > org.org via org-export plus install-info". If we could use install-info, we didn't need that script at all. The comments in the top-level Makefile explain why we don't use install-info for generating DIR in the build tree. ^ permalink raw reply [flat|nested] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-12 16:50 ` Eli Zaretskii @ 2024-06-13 15:44 ` Ihor Radchenko 2024-06-13 15:55 ` Eli Zaretskii 0 siblings, 1 reply; 45+ messages in thread From: Ihor Radchenko @ 2024-06-13 15:44 UTC (permalink / raw) To: Eli Zaretskii; +Cc: Stefan Monnier, kyle, stefankangas, emacs-devel Eli Zaretskii <eliz@gnu.org> writes: >> I don't think this argument is very convincing: getting the info "from >> org.org via an awk script" is not that different from getting it "from >> org.org via org-export plus install-info". > > If we could use install-info, we didn't need that script at all. The > comments in the top-level Makefile explain why we don't use > install-info for generating DIR in the build tree. I am seeing ## FIXME: ## If info/dir is missing, but we have install-info, we should let ## that handle it. If info/dir is present and we do not have install-info, ## we should check for missing entries and add them by hand. Does it mean that making use of install-info would be fine, if it is available? -- 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] 45+ messages in thread
* Re: master 5a125fb5a97 1/2: Update to Org 9.7.3 2024-06-13 15:44 ` Ihor Radchenko @ 2024-06-13 15:55 ` Eli Zaretskii 0 siblings, 0 replies; 45+ messages in thread From: Eli Zaretskii @ 2024-06-13 15:55 UTC (permalink / raw) To: Ihor Radchenko; +Cc: monnier, kyle, stefankangas, emacs-devel > From: Ihor Radchenko <yantar92@posteo.net> > Cc: Stefan Monnier <monnier@iro.umontreal.ca>, kyle@kyleam.com, > stefankangas@gmail.com, emacs-devel@gnu.org > Date: Thu, 13 Jun 2024 15:44:02 +0000 > > Eli Zaretskii <eliz@gnu.org> writes: > > >> I don't think this argument is very convincing: getting the info "from > >> org.org via an awk script" is not that different from getting it "from > >> org.org via org-export plus install-info". > > > > If we could use install-info, we didn't need that script at all. The > > comments in the top-level Makefile explain why we don't use > > install-info for generating DIR in the build tree. > > I am seeing > > ## FIXME: > ## If info/dir is missing, but we have install-info, we should let > ## that handle it. If info/dir is present and we do not have install-info, > ## we should check for missing entries and add them by hand. > > Does it mean that making use of install-info would be fine, if it is available? No: ## It would be much simpler if info/dir was only created in the ## installation location by the install-info rule, but we also ## need one in the source directory for people running uninstalled. ## FIXME it would be faster to use the install-info program if we have it, ## but then we would need to depend on ${INFOS}, which would ## slow down parallelization. So there are two problems: . install-info doesn't have to be available . even if it is available, it gets in the way of highly-parallel builds ^ permalink raw reply [flat|nested] 45+ messages in thread
end of thread, other threads:[~2024-06-16 11:09 UTC | newest]
Thread overview: 45+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
[not found] <171796793548.23337.12512115872160390161@vcs2.savannah.gnu.org>
[not found] ` <20240609211858.A2C31C1F9FB@vcs2.savannah.gnu.org>
2024-06-10 0:40 ` master 5a125fb5a97 1/2: Update to Org 9.7.3 Po Lu
2024-06-10 1:14 ` Kyle Meyer
2024-06-10 3:45 ` Po Lu
2024-06-10 3:58 ` Po Lu
2024-06-12 13:08 ` Ihor Radchenko
2024-06-12 13:13 ` Eli Zaretskii
2024-06-12 13:23 ` Ihor Radchenko
2024-06-12 13:30 ` Eli Zaretskii
2024-06-14 13:18 ` Ihor Radchenko
2024-06-10 11:13 ` Eli Zaretskii
2024-06-11 10:05 ` Ihor Radchenko
2024-06-11 12:23 ` Eli Zaretskii
2024-06-11 13:10 ` Robert Pluim
2024-06-14 9:49 ` Ihor Radchenko
2024-06-14 11:39 ` Eli Zaretskii
2024-06-14 12:02 ` Robert Pluim
2024-06-11 13:16 ` Stefan Monnier
2024-06-12 13:49 ` Ihor Radchenko
2024-06-12 14:41 ` Stefan Monnier
2024-06-13 13:00 ` Ihor Radchenko
2024-06-13 13:43 ` Eli Zaretskii
2024-06-13 14:34 ` Stefan Monnier
2024-06-14 12:39 ` Ihor Radchenko
2024-06-13 13:32 ` Ihor Radchenko
2024-06-13 13:54 ` Eli Zaretskii
2024-06-15 11:20 ` Ihor Radchenko
2024-06-15 12:46 ` Eli Zaretskii
2024-06-15 12:55 ` Syncing Org bugfix releases with emacs-30 branch (was: master 5a125fb5a97 1/2: Update to Org 9.7.3) Ihor Radchenko
2024-06-15 13:02 ` Eli Zaretskii
2024-06-16 11:09 ` Ihor Radchenko
2024-06-15 16:58 ` master 5a125fb5a97 1/2: Update to Org 9.7.3 Kyle Meyer
2024-06-11 11:03 ` Stefan Kangas
2024-06-12 3:45 ` Kyle Meyer
2024-06-12 8:52 ` Eli Zaretskii
2024-06-12 12:58 ` Ihor Radchenko
2024-06-12 13:02 ` Eli Zaretskii
2024-06-12 13:21 ` Ihor Radchenko
2024-06-12 13:29 ` Eli Zaretskii
2024-06-12 14:14 ` Stefan Kangas
2024-06-13 16:12 ` Ihor Radchenko
2024-06-13 16:48 ` Eli Zaretskii
2024-06-12 14:46 ` Stefan Monnier
2024-06-12 16:50 ` Eli Zaretskii
2024-06-13 15:44 ` Ihor Radchenko
2024-06-13 15:55 ` Eli Zaretskii
Code repositories for project(s) associated with this public inbox https://git.savannah.gnu.org/cgit/emacs.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).