summaryrefslogtreecommitdiff
path: root/.emacs.d/org-7.4/lisp/ob-ditaa.el
diff options
context:
space:
mode:
authorLuke Shumaker <LukeShu@sbcglobal.net>2011-05-17 16:27:50 -0400
committerLuke Shumaker <LukeShu@sbcglobal.net>2011-05-17 16:27:50 -0400
commitb81536ad49001abf292bd31a0dcbf57e387387b1 (patch)
tree722cac2e9eab46a3b18d930dcd37703df48ebeba /.emacs.d/org-7.4/lisp/ob-ditaa.el
parent5b8794f1f5e82c1a220f36a724e5c8ce3335c462 (diff)
Fiddle with emacs config (when to use -n, -c), get emacs using el-get.
Diffstat (limited to '.emacs.d/org-7.4/lisp/ob-ditaa.el')
-rw-r--r--.emacs.d/org-7.4/lisp/ob-ditaa.el74
1 files changed, 0 insertions, 74 deletions
diff --git a/.emacs.d/org-7.4/lisp/ob-ditaa.el b/.emacs.d/org-7.4/lisp/ob-ditaa.el
deleted file mode 100644
index 097f938..0000000
--- a/.emacs.d/org-7.4/lisp/ob-ditaa.el
+++ /dev/null
@@ -1,74 +0,0 @@
-;;; ob-ditaa.el --- org-babel functions for ditaa evaluation
-
-;; Copyright (C) 2009, 2010 Free Software Foundation, Inc.
-
-;; Author: Eric Schulte
-;; Keywords: literate programming, reproducible research
-;; Homepage: http://orgmode.org
-;; Version: 7.4
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs is free software: you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Org-Babel support for evaluating ditaa source code.
-;;
-;; This differs from most standard languages in that
-;;
-;; 1) there is no such thing as a "session" in ditaa
-;;
-;; 2) we are generally only going to return results of type "file"
-;;
-;; 3) we are adding the "file" and "cmdline" header arguments
-;;
-;; 4) there are no variables (at least for now)
-
-;;; Code:
-(require 'ob)
-
-(defvar org-babel-default-header-args:ditaa
- '((:results . "file") (:exports . "results"))
- "Default arguments for evaluating a ditaa source block.")
-
-(defvar org-ditaa-jar-path)
-(defun org-babel-execute:ditaa (body params)
- "Execute a block of Ditaa code with org-babel.
-This function is called by `org-babel-execute-src-block'."
- (let* ((result-params (split-string (or (cdr (assoc :results params)) "")))
- (out-file (cdr (assoc :file params)))
- (cmdline (cdr (assoc :cmdline params)))
- (in-file (org-babel-temp-file "ditaa-"))
- (cmd (concat "java -jar "
- (shell-quote-argument
- (expand-file-name org-ditaa-jar-path))
- " " cmdline
- " " (org-babel-process-file-name in-file)
- " " (org-babel-process-file-name out-file))))
- (unless (file-exists-p org-ditaa-jar-path)
- (error "Could not find ditaa.jar at %s" org-ditaa-jar-path))
- (with-temp-file in-file (insert body))
- (message cmd) (shell-command cmd)
- out-file))
-
-(defun org-babel-prep-session:ditaa (session params)
- "Return an error because ditaa does not support sessions."
- (error "Ditaa does not support sessions"))
-
-(provide 'ob-ditaa)
-
-;; arch-tag: 492cd006-07d9-4fac-bef6-5bb60b48842e
-
-;;; ob-ditaa.el ends here