Sync Org 7.9.2 from the commit tagged "release_7.9.2" in Org's Git repo.
[bpt/emacs.git] / lisp / org / ob-org.el
CommitLineData
afe98dfa
CD
1;;; ob-org.el --- org-babel functions for org code block evaluation
2
b73f1974 3;; Copyright (C) 2010-2012 Free Software Foundation, Inc.
afe98dfa
CD
4
5;; Author: Eric Schulte
6;; Keywords: literate programming, reproducible research
7;; Homepage: http://orgmode.org
afe98dfa
CD
8
9;; This file is part of GNU Emacs.
10
11;; GNU Emacs is free software: you can redistribute it and/or modify
12;; it under the terms of the GNU General Public License as published by
13;; the Free Software Foundation, either version 3 of the License, or
14;; (at your option) any later version.
15
16;; GNU Emacs is distributed in the hope that it will be useful,
17;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19;; GNU General Public License for more details.
20
21;; You should have received a copy of the GNU General Public License
22;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
23
24;;; Commentary:
25
26;; This is the simplest of code blocks, where upon evaluation the
27;; contents of the code block are returned in a raw result.
28
29;;; Code:
30(require 'ob)
31
32(declare-function org-export-string "org-exp" (string fmt &optional dir))
33
34(defvar org-babel-default-header-args:org
8223b1d2 35 '((:results . "raw silent") (:exports . "code"))
afe98dfa
CD
36 "Default arguments for evaluating a org source block.")
37
38(defvar org-babel-org-default-header
39 "#+TITLE: default empty header\n"
40 "Default header inserted during export of org blocks.")
41
3ab2c837
BG
42(defun org-babel-expand-body:org (body params)
43 (dolist (var (mapcar #'cdr (org-babel-get-header params :var)))
44 (setq body (replace-regexp-in-string
45 (regexp-quote (format "$%s" (car var))) (cdr var) body
46 nil 'literal)))
47 body)
48
afe98dfa
CD
49(defun org-babel-execute:org (body params)
50 "Execute a block of Org code with.
51This function is called by `org-babel-execute-src-block'."
52 (let ((result-params (split-string (or (cdr (assoc :results params)) "")))
3ab2c837
BG
53 (body (org-babel-expand-body:org
54 (replace-regexp-in-string "^," "" body) params)))
afe98dfa 55 (cond
3ab2c837
BG
56 ((member "latex" result-params) (org-export-string
57 (concat "#+Title: \n" body) "latex"))
afe98dfa
CD
58 ((member "html" result-params) (org-export-string body "html"))
59 ((member "ascii" result-params) (org-export-string body "ascii"))
60 (t body))))
61
62(defun org-babel-prep-session:org (session params)
63 "Return an error because org does not support sessions."
64 (error "Org does not support sessions"))
65
66(provide 'ob-org)
67
5b409b39 68
afe98dfa
CD
69
70;;; ob-org.el ends here