diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2010-12-13 13:23:10 -0700 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2010-12-13 13:23:10 -0700 |
commit | e3aeb07a17ee90e8e370caee2f213b7625bd95a1 (patch) | |
tree | 7d28edbd613efce9abc38f98fa5b064471a71830 | |
parent | 8efcd4338d192cc926b59199dace96101bb14575 (diff) | |
download | org-mode-e3aeb07a17ee90e8e370caee2f213b7625bd95a1.tar.gz |
ob-org: Padding code block with an empty title on LaTeX export.
* lisp/ob-org.el (org-babel-execute:org): Padding code block with an
empty title on LaTeX export.
-rw-r--r-- | lisp/ob-org.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/ob-org.el b/lisp/ob-org.el index c03fa07..53cfe93 100644 --- a/lisp/ob-org.el +++ b/lisp/ob-org.el @@ -46,7 +46,8 @@ This function is called by `org-babel-execute-src-block'." (let ((result-params (split-string (or (cdr (assoc :results params)) ""))) (body (replace-regexp-in-string "^," "" body))) (cond - ((member "latex" result-params) (org-export-string body "latex")) + ((member "latex" result-params) (org-export-string + (concat "#+Title: \n" body) "latex")) ((member "html" result-params) (org-export-string body "html")) ((member "ascii" result-params) (org-export-string body "ascii")) (t body)))) |