diff options
| author | Eric Schulte <schulte.eric@gmail.com> | 2010-09-09 00:37:18 -0600 |
|---|---|---|
| committer | Eric Schulte <schulte.eric@gmail.com> | 2010-09-09 00:38:14 -0600 |
| commit | 24efe784d5758a29ead4ab33a3145a8934900dc7 (patch) | |
| tree | 36349e8cb3b862e9312de4060c4ecb6d551e6661 | |
| parent | 0c6f14f17d7dd0688d68d5c20cf571fdc138de13 (diff) | |
| download | org-mode-24efe784d5758a29ead4ab33a3145a8934900dc7.tar.gz | |
ob-org: no longer drop first line when exporting org code block
* lisp/ob-org.el (org-babel-org-default-header): used to insert a
dummy first line into code blocks before export so that the first
line is not interpreted as a title
(org-babel-org-export): use new dummy code block prefix
| -rw-r--r-- | lisp/ob-org.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/ob-org.el b/lisp/ob-org.el index 26000af..4d42246 100644 --- a/lisp/ob-org.el +++ b/lisp/ob-org.el @@ -37,6 +37,10 @@ '((:results . "raw silent") (:exports . "results")) "Default arguments for evaluating a org source block.") +(defvar org-babel-org-default-header + "#+TITLE: default empty header\n" + "Default header inserted during export of org blocks.") + (defun org-babel-expand-body:org (body params &optional processed-params) "Expand BODY according to PARAMS, return the expanded body." body) @@ -55,6 +59,7 @@ This function is called by `org-babel-execute-src-block'." "Export BODY to FMT using Org-mode's export facilities. " (let ((tmp-file (org-babel-temp-file "org-"))) (with-temp-buffer + (insert org-babel-org-default-header) (insert body) (write-file tmp-file) (org-load-modules-maybe) |