mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-23 17:48:35 +00:00
These languages are capable of writing results to file; for several of them this is their only mode of operation. These changes cause the languages to return to ob.el either the computed result, or nil, when they have written results to file themselves. This is in place of the previous method of returning the output file name as a string to ob.el. * lisp/ob-asymptote.el (org-babel-execute:asymptote): Return nil to signal that the intended content has been written to file. * lisp/ob-ditaa.el (org-babel-execute:ditaa): Return nil to signal that the intended content has been written to file. * lisp/ob-dot.el (org-babel-execute:dot): Return nil to signal that the intended content has been written to file. * lisp/ob-gnuplot.el (org-babel-execute:gnuplot): Return nil to signal that the intended content has been written to file. * lisp/ob-latex.el (org-babel-execute:latex): Return nil to signal that the intended content has been written to file. * lisp/ob-mscgen.el (org-babel-execute:mscgen): Return nil to signal that the intended content has been written to file. * lisp/ob-octave.el (org-babel-execute:octave): Return result; not name of output file. * lisp/ob-plantuml.el (org-babel-execute:plantuml): Return nil to signal that the intended content has been written to file. * lisp/ob-python.el (org-babel-execute:python): Return result; not name of output file. * lisp/ob-ruby.el (org-babel-execute:ruby): Return result; not name of output file. * lisp/ob-sass.el (org-babel-execute:sass): Return nil if result has been written to file
87 lines
2.9 KiB
EmacsLisp
87 lines
2.9 KiB
EmacsLisp
;;; ob-msc.el --- org-babel functions for mscgen evaluation
|
|
|
|
;; Copyright (C) 2010 Free Software Foundation, Inc.
|
|
|
|
;; Author: Juan Pechiar
|
|
;; 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:
|
|
;;
|
|
;; This software provides EMACS org-babel export support for message
|
|
;; sequence charts. The mscgen utility is used for processing the
|
|
;; sequence definition, and must therefore be installed in the system.
|
|
;;
|
|
;; Mscgen is available and documented at
|
|
;; http://www.mcternan.me.uk/mscgen/index.html
|
|
;;
|
|
;; This code is directly inspired by Eric Schulte's ob-dot.el
|
|
;;
|
|
;; Example:
|
|
;;
|
|
;; #+begin_src mscgen :file example.png
|
|
;; msc {
|
|
;; A,B;
|
|
;; A -> B [ label = "send message" ];
|
|
;; A <- B [ label = "get answer" ];
|
|
;; }
|
|
;; #+end_src
|
|
;;
|
|
;; Header for alternative file type:
|
|
;;
|
|
;; #+begin_src mscgen :file ex2.svg :filetype svg
|
|
|
|
;; This differs from most standard languages in that
|
|
;;
|
|
;; 1) there is no such thing as a "session" in mscgen
|
|
;; 2) we are generally only going to return results of type "file"
|
|
;; 3) we are adding the "file" and "filetype" header arguments
|
|
;; 4) there are no variables
|
|
|
|
;;; Code:
|
|
(require 'ob)
|
|
(require 'ob-eval)
|
|
|
|
(defvar org-babel-default-header-args:mscgen
|
|
'((:results . "file") (:exports . "results"))
|
|
"Default arguments to use when evaluating a mscgen source block.")
|
|
|
|
(defun org-babel-execute:mscgen (body params)
|
|
"Execute a block of Mscgen code with Babel.
|
|
This function is called by `org-babel-execute-src-block'.
|
|
Default filetype is png. Modify by setting :filetype parameter to
|
|
mscgen supported formats."
|
|
(let* ((out-file (or (cdr (assoc :file params)) "output.png" ))
|
|
(filetype (or (cdr (assoc :filetype params)) "png" )))
|
|
(unless (cdr (assoc :file params))
|
|
(error "
|
|
ERROR: no output file specified. Add \":file name.png\" to the src header"))
|
|
(org-babel-eval (concat "mscgen -T " filetype " -o " out-file) body)
|
|
nil)) ;; signal that output has already been written to file
|
|
|
|
(defun org-babel-prep-session:mscgen (session params)
|
|
"Raise an error because Mscgen doesn't support sessions."
|
|
(error "Mscgen does not support sessions"))
|
|
|
|
(provide 'ob-mscgen)
|
|
|
|
;; arch-tag: 74695b1e-715f-4b5a-a3a9-d78ee39ba5c8
|
|
|
|
;;; ob-msc.el ends here
|