tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity
org-mode/lisp/ob-emacs-lisp.el

80 lines
2.9 KiB
EmacsLisp
Raw Normal View History

updating require and provide boilerplate for new ob* files
2010-06-11 23:02:42 +00:00
;;; ob-emacs-lisp.el --- org-babel functions for emacs-lisp code evaluation
adding support for emacs-lisp blocks
2009-03-23 23:07:02 +00:00
Update copyright years again. Hint: copyright years are all updated in Emacs.
2014-01-07 13:18:17 +00:00
;; Copyright (C) 2009-2014 Free Software Foundation, Inc.
adding support for emacs-lisp blocks
2009-03-23 23:07:02 +00:00
cleanup and small misc re-organizations
2009-03-29 22:08:53 +00:00
;; Author: Eric Schulte
adding support for emacs-lisp blocks
2009-03-23 23:07:02 +00:00
;; Keywords: literate programming, reproducible research
;; Homepage: http://orgmode.org
babel: assigning copyright to the FSF for babel language files
2010-06-25 16:32:35 +00:00
;; This file is part of GNU Emacs.
adding support for emacs-lisp blocks
2009-03-23 23:07:02 +00:00
babel: assigning copyright to the FSF for babel language files
2010-06-25 16:32:35 +00:00
;; GNU Emacs is free software: you can redistribute it and/or modify
adding support for emacs-lisp blocks
2009-03-23 23:07:02 +00:00
;; it under the terms of the GNU General Public License as published by
babel: assigning copyright to the FSF for babel language files
2010-06-25 16:32:35 +00:00
;; 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,
adding support for emacs-lisp blocks
2009-03-23 23:07:02 +00:00
;; 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.
babel: assigning copyright to the FSF for babel language files
2010-06-25 16:32:35 +00:00
adding support for emacs-lisp blocks
2009-03-23 23:07:02 +00:00
;; You should have received a copy of the GNU General Public License
babel: assigning copyright to the FSF for babel language files
2010-06-25 16:32:35 +00:00
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
adding support for emacs-lisp blocks
2009-03-23 23:07:02 +00:00
;;; Commentary:
renaming the org-babel-lisp file to org-babel-emacs-lisp
2009-09-13 16:07:31 +00:00
;; Org-Babel support for evaluating emacs-lisp code
adding support for emacs-lisp blocks
2009-03-23 23:07:02 +00:00
;;; Code:
updating require and provide boilerplate for new ob* files
2010-06-11 23:02:42 +00:00
(require 'ob)
adding support for emacs-lisp blocks
2009-03-23 23:07:02 +00:00
set default emacs-lisp header args to nil The difference between elisp and every other language was causing confusion, so simpler just to set these to nil. * lisp/ob-emacs-lisp.el (org-babel-default-header-args:emacs-lisp): Set to nil.
2013-09-28 12:37:54 +00:00
(defvar org-babel-default-header-args:emacs-lisp nil
More docstring edits
2010-07-13 23:04:47 +00:00
"Default arguments for evaluating an emacs-lisp source block.")
babel: added row/col-name support to all applicable languages
2010-04-19 01:06:34 +00:00
removing obsoleted optional third argument from org-babel-expand-body:LANG * lisp/ob-C.el (org-babel-expand-body:c++): removing obsoleted optional third argument (org-babel-expand-body:c++): removing obsoleted optional third argument (org-babel-C-expand): removing obsoleted optional third argument * lisp/ob-R.el: (org-babel-expand-body:R): removing obsoleted optional third argument (org-babel-execute:R): removing obsoleted optional third argument (org-babel-R-variable-assignments): removing obsoleted optional third argument * lisp/ob-asymptote.el: (org-babel-expand-body:asymptote): removing obsoleted optional third argument (org-babel-execute:asymptote): removing obsoleted optional third argument * lisp/ob-clojure.el: (org-babel-expand-body:clojure): removing obsoleted optional third argument (org-babel-execute:clojure): removing obsoleted optional third argument * lisp/ob-css.el: (org-babel-expand-body:css): removing obsoleted optional third argument * lisp/ob-ditaa.el: (org-babel-expand-body:ditaa): removing obsoleted optional third argument * lisp/ob-dot.el: (org-babel-expand-body:dot): removing obsoleted optional third argument (org-babel-execute:dot): removing obsoleted optional third argument * lisp/ob-emacs-lisp.el: (org-babel-expand-body:emacs-lisp): removing obsoleted optional third argument (org-babel-execute:emacs-lisp): removing obsoleted optional third argument * lisp/ob-gnuplot.el: (org-babel-expand-body:gnuplot): removing obsoleted optional third argument * lisp/ob-haskell.el: (org-babel-expand-body:haskell): removing obsoleted optional third argument (org-babel-execute:haskell): removing obsoleted optional third argument (org-babel-load-session:haskell): removing obsoleted optional third (org-babel-prep-session:haskell): removing obsoleted optional third * lisp/ob-js.el: (org-babel-expand-body:js): removing obsoleted optional third argument (org-babel-execute:js): removing obsoleted optional third argument * lisp/ob-latex.el: (org-babel-expand-body:latex): removing obsoleted optional third argument * lisp/ob-lisp.el: (org-babel-expand-body:lisp): removing obsoleted optional third argument (org-babel-execute:lisp): removing obsoleted optional third argument * lisp/ob-mscgen.el: (org-babel-expand-body:mscgen): removing obsoleted optional third argument * lisp/ob-ocaml.el: (org-babel-expand-body:ocaml): removing obsoleted optional third argument (org-babel-execute:ocaml): removing obsoleted optional third argument * lisp/ob-octave.el: (org-babel-expand-body:matlab): removing obsoleted optional third argument (org-babel-expand-body:octave): removing obsoleted optional third argument (org-babel-execute:octave): removing obsoleted optional third argument (org-babel-octave-variable-assignments): removing obsoleted optional third * lisp/ob-org.el: (org-babel-expand-body:org): removing obsoleted optional third argument * lisp/ob-perl.el: (org-babel-expand-body:perl): removing obsoleted optional third argument (org-babel-execute:perl): removing obsoleted optional third argument * lisp/ob-plantuml.el: (org-babel-expand-body:plantuml): removing obsoleted optional third argument * lisp/ob-python.el: (org-babel-expand-body:python): removing obsoleted optional third argument (org-babel-execute:python): removing obsoleted optional third argument (org-babel-python-variable-assignments): removing obsoleted optional third * lisp/ob-ruby.el: (org-babel-expand-body:ruby): removing obsoleted optional third argument (org-babel-execute:ruby): removing obsoleted optional third argument * lisp/ob-sass.el: (org-babel-expand-body:sass): removing obsoleted optional third argument * lisp/ob-scheme.el: (org-babel-expand-body:scheme): removing obsoleted optional third argument (org-babel-execute:scheme): removing obsoleted optional third argument * lisp/ob-screen.el: (org-babel-expand-body:screen): removing obsoleted optional third argument * lisp/ob-sh.el: (org-babel-expand-body:sh): removing obsoleted optional third argument (org-babel-execute:sh): removing obsoleted optional third argument (org-babel-sh-variable-assignments): removing obsoleted optional third * lisp/ob-sql.el: (org-babel-expand-body:sql): removing obsoleted optional third argument * lisp/ob-sqlite.el: (org-babel-expand-body:sqlite): removing obsoleted optional third argument (org-babel-execute:sqlite): removing obsoleted optional third argument * lisp/ob.el: (org-babel-expand-body:generic): removing obsoleted optional third argument
2010-10-16 03:35:45 +00:00
(defun org-babel-expand-body:emacs-lisp (body params)
ensuring the existence of a complete first sentence in the documentation of each babel function
2010-06-12 00:12:15 +00:00
"Expand BODY according to PARAMS, return the expanded body."
babel:removing calls to ob-process-params, and updating use of results * lisp/ob-C.el (org-babel-C-execute): removing call to org-babel-process-params which should no longer be called from within a language file * lisp/ob-R.el (org-babel-execute:R): removing call to org-babel-process-params which should no longer be called from within a language file (org-babel-R-variable-assignments): removing call to org-babel-process-params which should no longer be called from within a language file * lisp/ob-asymptote.el (org-babel-execute:asymptote): removing call to org-babel-process-params which should no longer be called from within a language file * lisp/ob-clojure.el (org-babel-execute:clojure): removing call to org-babel-process-params which should no longer be called from within a language file * lisp/ob-dot.el (org-babel-execute:dot): removing call to org-babel-process-params which should no longer be called from within a language file * lisp/ob-emacs-lisp.el (org-babel-expand-body:emacs-lisp): removing call to org-babel-process-params which should no longer be called from within a language file (org-babel-execute:emacs-lisp): removing call to org-babel-process-params which should no longer be called from within a language file * lisp/ob-haskell.el (org-babel-execute:haskell): removing call to org-babel-process-params which should no longer be called from within a language file * lisp/ob-js.el (org-babel-execute:js): removing call to org-babel-process-params which should no longer be called from within a language file * lisp/ob-lisp.el (org-babel-execute:lisp): removing call to org-babel-process-params which should no longer be called from within a language file * lisp/ob-ocaml.el (org-babel-execute:ocaml): removing call to org-babel-process-params which should no longer be called from within a language file * lisp/ob-octave.el (org-babel-execute:octave): removing call to org-babel-process-params which should no longer be called from within a language file * lisp/ob-perl.el (org-babel-execute:perl): removing call to org-babel-process-params which should no longer be called from within a language file * lisp/ob-python.el (org-babel-execute:python): removing call to org-babel-process-params which should no longer be called from within a language file * lisp/ob-ruby.el (org-babel-execute:ruby): removing call to org-babel-process-params which should no longer be called from within a language file * lisp/ob-scheme.el (org-babel-execute:scheme): removing call to org-babel-process-params which should no longer be called from within a language file * lisp/ob-screen.el (org-babel-execute:screen): removing call to org-babel-process-params which should no longer be called from within a language file (org-babel-prep-session:screen): removing call to org-babel-process-params which should no longer be called from within a language file * lisp/ob-sh.el (org-babel-execute:sh): removing call to org-babel-process-params which should no longer be called from within a language file * lisp/ob-sql.el (org-babel-execute:sql): removing call to org-babel-process-params which should no longer be called from within a language file * ob-haskell.el (org-babel-execute:haskell): Remove reference to processed params * ob-clojure.el (org-babel-execute:clojure): Remove reference to processed params * ob-R.el (org-babel-execute:R): Remove reference to processed params
2010-10-21 11:52:24 +00:00
(let* ((vars (mapcar #'cdr (org-babel-get-header params :var)))
(result-params (cdr (assoc :result-params params)))
org-babel-expand-body:emacs-lisp
2010-04-20 06:07:46 +00:00
(print-level nil) (print-length nil)
babel: ob-emacs-lisp and ob-clojure now only wrap bodies in `let' forms when variables are present
2010-04-24 15:21:14 +00:00
(body (if (> (length vars) 0)
Massive code clean-up. Delete trailing whitespaces. Indent all sexps correctly. Sentences end with double spaces.
2012-08-11 17:10:44 +00:00
(concat "(let ("
(mapconcat
(lambda (var)
(format "%S" (print `(,(car var) ',(cdr var)))))
vars "\n ")
")\n" body "\n)")
Bug fix in ob-emacs-lisp.el. * lisp/ob-emacs-lisp.el: A comment on the last line of an emacs-lisp code block would cause an error when the block is was executed. This fix cures this behaviour. * testing/lisp/test-ob-emacs-lisp.el: Regression tests for the above fix.
2012-01-05 18:00:12 +00:00
(concat body "\n"))))
babel: ob-emacs-lisp and ob-clojure now only wrap bodies in `let' forms when variables are present
2010-04-24 15:21:14 +00:00
(if (or (member "code" result-params)
(member "pp" result-params))
(concat "(pp " body ")") body)))
org-babel-expand-body:emacs-lisp
2010-04-20 06:07:46 +00:00
Revert "Altering org-babel-execute:emacs-lisp in accordance with preceding changes." This reverts commit d8001facab6ffa844ed5f042facd26268c9aec8c. Going back to original plan of simply passing (cmd body params) to the org-babel-execute:LANG functions. The benefit of this is that languages will have access to the full params list. A downside is that code parsing the params list and referencing variables is currently duplicated across the languages, so perhaps we can aim to reduce that code duplication at some point.
2009-07-08 04:06:14 +00:00
(defun org-babel-execute:emacs-lisp (body params)
More docstring edits
2010-07-13 23:04:47 +00:00
"Execute a block of emacs-lisp code with Babel."
org-babel: ensure that result is returned when using :results output One half of this patch is a revert of c167a4ac32fe769e7906ea9acafddce958daddb1. These changes are necessary so that :results output works correctly with #+lob calls. For example the following example did not work: -------------------------------------------------- 3. :results output org -> doesn't work with #+lob: -------------------------------------------------- \#+srcname: randthree(n,max) \#+begin_src ruby number = n maximum = max puts "* Random numbers\n" + "Here are some random numbers: " + (1..number).collect {|x| (rand * maximum).ceil }.join(", ") + "." \#+end_src \#+lob: randthree(n=3,max=10) :results output org
2009-10-20 13:24:15 +00:00
(save-window-excursion
Backport changes from Emacs revs 115081 and 115082 2013-11-12 Stefan Monnier <monnier@iro.umontreal.ca> Address some byte-compiler warnings. * ob-abc.el (org-babel-expand-body:abc): Use dolist. (org-babel-execute:abc): Fix regexp quoting. * ob-calc.el (org--var-syms): Rename from `var-syms'. * ob-lilypond.el (ly-compile-lilyfile): Remove redundant let-binding. * ob-table.el (sbe): Move debug declaration. * org-clock.el (org--msg-extra): Rename from `msg-extra'. * org.el (org-version): Avoid var name starting with _. (org-inhibit-startup, org-called-with-limited-levels) (org-link-search-inhibit-query, org-time-was-given) (org-end-time-was-given, org-def, org-defdecode, org-with-time): * org-colview.el (org-agenda-overriding-columns-format): * org-agenda.el (org-agenda-multi, org-depend-tag-blocked) (org-agenda-show-log-scoped): * ob-python.el (py-which-bufname, python-shell-buffer-name): * ob-haskell.el (org-export-copy-to-kill-ring): * ob-exp.el (org-link-search-inhibit-query): * ob-R.el (ess-eval-visibly-p): * ob-core.el (org-src-window-setup): Declare before use. (org-babel-expand-noweb-references): Remove unused `blocks-in-buffer'. * ox-odt.el (org-odt-hfy-face-to-css): * org-src.el (org-src-associate-babel-session, org-src-get-lang-mode): * org-bibtex.el (org-bibtex-get, org-bibtex-ask, org-bibtex) (org-bibtex-check): * ob-tangle.el (org-babel-tangle, org-babel-spec-to-string) (org-babel-tangle-single-block, org-babel-tangle-comment-links): * ob-table.el (sbe): * ob-sqlite.el (org-babel-sqlite-expand-vars): * ob-sql.el (org-babel-sql-expand-vars): * ob-shen.el (org-babel-execute:shen): * ob-sh.el (org-babel-execute:sh, org-babel-sh-evaluate): * ob-scala.el (org-babel-scala-evaluate): * ob-ruby.el (org-babel-ruby-table-or-string) (org-babel-ruby-evaluate): * ob-python.el (org-babel-python-table-or-string) (org-babel-python-evaluate-external-process) (org-babel-python-evaluate-session): * ob-picolisp.el (org-babel-execute:picolisp): * ob-perl.el (org-babel-perl-evaluate): * ob-maxima.el (org-babel-execute:maxima): * ob-lisp.el (org-babel-execute:lisp): * ob-java.el (org-babel-execute:java): * ob-io.el (org-babel-io-evaluate): * ob-haskell.el (org-babel-execute:haskell): * ob-fortran.el (org-babel-execute:fortran): * ob-exp.el (org-babel-exp-code): * ob-emacs-lisp.el (org-babel-execute:emacs-lisp): * ob-ditaa.el (org-babel-execute:ditaa): * ob-core.el (org-babel-execute-src-block, org-babel-sha1-hash) (org-babel-parse-header-arguments, org-babel-reassemble-table) (org-babel-goto-src-block-head, org-babel-mark-block) (org-babel-expand-noweb-references, org-babel-script-escape) (org-babel-process-file-name): * ob-clojure.el (org-babel-execute:clojure): * ob-calc.el (org-babel-execute:calc): * ob-awk.el (org-babel-execute:awk): * ob-abc.el (org-babel-execute:abc): * ob-R.el (org-babel-expand-body:R): * ob-C.el (org-babel-C-execute): Avoid deprecated ((lambda) ...). 2013-11-12 Glenn Morris <rgm@gnu.org> * ox-html.el (org-html-scripts): Add 2013 to copyright years. (org-html-infojs-template): Copyright holder to FSF.
2013-11-12 19:57:31 +00:00
(let ((result
(eval (read (format (if (member "output"
(cdr (assoc :result-params params)))
"(with-output-to-string %s)"
"(progn %s)")
(org-babel-expand-body:emacs-lisp
body params))))))
(org-babel-result-cond (cdr (assoc :result-params params))
(let ((print-level nil)
(print-length nil))
(if (or (member "scalar" (cdr (assoc :result-params params)))
(member "verbatim" (cdr (assoc :result-params params))))
(format "%S" result)
(format "%s" result)))
(org-babel-reassemble-table
result
(org-babel-pick-name (cdr (assoc :colname-names params))
(cdr (assoc :colnames params)))
(org-babel-pick-name (cdr (assoc :rowname-names params))
(cdr (assoc :rownames params))))))))
org-babel: language specific files using cleaner parameter passing
2009-11-10 22:22:25 +00:00
fixes
2010-06-15 00:28:09 +00:00
(provide 'ob-emacs-lisp)
babel: assigning copyright to the FSF for babel language files
2010-06-25 16:32:35 +00:00
Remove arch-tag at the bottom of files.
2011-08-15 18:04:38 +00:00
babel: assigning copyright to the FSF for babel language files
2010-06-25 16:32:35 +00:00
updating require and provide boilerplate for new ob* files
2010-06-11 23:02:42 +00:00
;;; ob-emacs-lisp.el ends here