From b81536ad49001abf292bd31a0dcbf57e387387b1 Mon Sep 17 00:00:00 2001 From: Luke Shumaker Date: Tue, 17 May 2011 16:27:50 -0400 Subject: Fiddle with emacs config (when to use -n, -c), get emacs using el-get. --- .emacs.d/org-7.4/lisp/ob-emacs-lisp.el | 71 ---------------------------------- 1 file changed, 71 deletions(-) delete mode 100644 .emacs.d/org-7.4/lisp/ob-emacs-lisp.el (limited to '.emacs.d/org-7.4/lisp/ob-emacs-lisp.el') diff --git a/.emacs.d/org-7.4/lisp/ob-emacs-lisp.el b/.emacs.d/org-7.4/lisp/ob-emacs-lisp.el deleted file mode 100644 index df6f505..0000000 --- a/.emacs.d/org-7.4/lisp/ob-emacs-lisp.el +++ /dev/null @@ -1,71 +0,0 @@ -;;; ob-emacs-lisp.el --- org-babel functions for emacs-lisp code 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 . - -;;; Commentary: - -;; Org-Babel support for evaluating emacs-lisp code - -;;; Code: -(require 'ob) -(eval-when-compile (require 'ob-comint)) - -(defvar org-babel-default-header-args:emacs-lisp - '((:hlines . "yes") (:colnames . "no")) - "Default arguments for evaluating an emacs-lisp source block.") - -(declare-function orgtbl-to-generic "org-table" (table params)) - -(defun org-babel-expand-body:emacs-lisp (body params) - "Expand BODY according to PARAMS, return the expanded body." - (let* ((vars (mapcar #'cdr (org-babel-get-header params :var))) - (result-params (cdr (assoc :result-params params))) - (print-level nil) (print-length nil) - (body (if (> (length vars) 0) - (concat "(let (" - (mapconcat - (lambda (var) - (format "%S" (print `(,(car var) ',(cdr var))))) - vars "\n ") - ")\n" body ")") - body))) - (if (or (member "code" result-params) - (member "pp" result-params)) - (concat "(pp " body ")") body))) - -(defun org-babel-execute:emacs-lisp (body params) - "Execute a block of emacs-lisp code with Babel." - (save-window-excursion - (org-babel-reassemble-table - (eval (read (format "(progn %s)" - (org-babel-expand-body:emacs-lisp body params)))) - (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)))))) - -(provide 'ob-emacs-lisp) - -;; arch-tag: e9a3acca-dc84-472a-9f5a-23c35befbcd6 - -;;; ob-emacs-lisp.el ends here -- cgit v1.2.3-2-g168b