mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-10 15:56:42 +00:00
Code

ob-exp: Allow org-current-export-file to contain a buffer name

Browse Source 
* lisp/ob-exp.el (org-babel-exp-in-export-file,
org-babel-exp-src-block, org-babel-exp-inline-src-blocks): Allow
org-current-export-file to contain a buffer.

This allows to resolve references from a buffer not visiting any file
(i.e. a temporary buffer) during export process.

Conflicts:

	lisp/ob-exp.el (org-babel-exp-in-export-file): Allow
	org-current-export-file to contain a buffer name.
This commit is contained in:
Nicolas Goaziou 2012-01-13 23:33:41 +01:00 committed by Eric Schulte
parent 9b820def5b
commit d2a63a1b17
1 changed files with 16 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
lisp/ob-exp.el
View File

@ -50,24 +50,21 @@ process."
(declare (indent 1))
`(let* ((lang-headers (intern (concat "org-babel-default-header-args:" ,lang)))
(heading (nth 4 (ignore-errors (org-heading-components))))
(link (when org-current-export-file
(org-make-link-string
(if heading
(concat org-current-export-file "::" heading)
org-current-export-file))))
(export-buffer (current-buffer)) results)
(when link
(when org-current-export-file
;; resolve parameters in the original file so that
;; headline and file-wide parameters are included, attempt
;; to go to the same heading in the original file
(set-buffer (get-file-buffer org-current-export-file))
(set-buffer (if (bufferp org-current-export-file) org-current-export-file
(get-file-buffer org-current-export-file)))
(save-restriction
(condition-case nil
(let ((org-link-search-inhibit-query t))
(org-open-link-from-string link))
(error (when heading
(goto-char (point-min))
(re-search-forward (regexp-quote heading) nil t))))
(when heading
(condition-case nil
(let ((org-link-search-inhibit-query t))
(org-link-search heading))
(error (when heading
(goto-char (point-min))
(re-search-forward (regexp-quote heading) nil t)))))
(setq results ,@body))
(set-buffer export-buffer)
results)))
@ -114,7 +111,9 @@ none ----- do not display either code or results upon export"
(org-babel-noweb-wrap) "" (nth 1 info))
(if (org-babel-noweb-p (nth 2 info) :export)
(org-babel-expand-noweb-references
info (get-file-buffer org-current-export-file))
info (if (bufferp org-current-export-file)
org-current-export-file
(get-file-buffer org-current-export-file)))
(nth 1 info))))
(org-babel-exp-do-export info 'block hash)))))
@ -165,7 +164,9 @@ this template."
(if (and (cdr (assoc :noweb params))
(string= "yes" (cdr (assoc :noweb params))))
(org-babel-expand-noweb-references
info (get-file-buffer org-current-export-file))
info (if (bufferp org-current-export-file)
org-current-export-file
(get-file-buffer org-current-export-file)))
(nth 1 info)))
(let ((code-replacement (save-match-data
(org-babel-exp-do-export