lisp/org/ob-org.el

   1 ;;; ob-org.el --- org-babel functions for org code block evaluation
   2
   3 ;; Copyright (C) 2010-2012  Free Software Foundation, Inc.
   4
   5 ;; Author: Eric Schulte
   6 ;; Keywords: literate programming, reproducible research
   7 ;; Homepage: http://orgmode.org
   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
  35   '((:results . "raw silent") (:exports . "results"))
  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
  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
  49 (defun org-babel-execute:org (body params)
  50   "Execute a block of Org code with.
  51 This function is called by `org-babel-execute-src-block'."
  52   (let ((result-params (split-string (or (cdr (assoc :results params)) "")))
  53         (body (org-babel-expand-body:org
  54                (replace-regexp-in-string "^," "" body) params)))
  55     (cond
  56      ((member "latex" result-params) (org-export-string
  57                                       (concat "#+Title: \n" body) "latex"))
  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
  68
  69
  70 ;;; ob-org.el ends here