From: "Eric Schulte" <schulte.eric@gmail.com>
To: Eric S Fraga <e.fraga@ucl.ac.uk>
Cc: Litvinov Sergey <slitvinov@gmail.com>, emacs-orgmode@gnu.org
Subject: Re: [babel] maxima support?
Date: Mon, 14 Mar 2011 15:26:30 -0600 [thread overview]
Message-ID: <874o75wfzf.fsf@gmail.com> (raw)
In-Reply-To: 87y6503zkk.fsf@ucl.ac.uk
[-- Attachment #1: Type: text/plain, Size: 492 bytes --]
Hi Eric,
I've gone through your ob-maxima.el, and tried to re-work it to the
point where it can be included into Org-mode -- mainly just switching to
a couple of Babel "best practices", and replacing some shell script
munging with elisp munging.
Please try out the attached version (packaged as a patch against the
current Org-mode head) and let me know if it works --- i.e., If I
haven't broken it too badly. If it works I think we can fold it into
Org-mode immediately.
Cheers -- Eric
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-adding-support-for-Maxima-code-blocks-thanks-to-Eric.patch --]
[-- Type: text/x-diff, Size: 3653 bytes --]
From 8c8f85e2a98430cc147749b8fa67dbba53c0ccb3 Mon Sep 17 00:00:00 2001
From: Eric Schulte <schulte.eric@gmail.com>
Date: Mon, 14 Mar 2011 15:20:05 -0600
Subject: [PATCH] adding support for Maxima code blocks -- thanks to Eric Fraga
---
lisp/ob-maxima.el | 78 +++++++++++++++++++++++++++++++++++++++++++++++++++++
lisp/org.el | 1 +
2 files changed, 79 insertions(+), 0 deletions(-)
create mode 100644 lisp/ob-maxima.el
diff --git a/lisp/ob-maxima.el b/lisp/ob-maxima.el
new file mode 100644
index 0000000..c775f92
--- /dev/null
+++ b/lisp/ob-maxima.el
@@ -0,0 +1,78 @@
+;;; org-babel-maxima.el --- org-babel functions for maxima evaluation
+
+;; Copyright (c) 2009, 2010, 2011 Eric S Fraga, Eric Schulte
+
+;; Author: Eric S Fraga, Eric Schulte
+;; Keywords: literate programming, reproducible research, maxima
+;; Homepage: http://orgmode.org
+;; Version: 0.01
+
+;;; License:
+
+;; This program 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, or (at your option)
+;; any later version.
+;;
+;; This program 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; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+
+;; Org-Babel support for evaluating maxima entries.
+;;
+;; This differs from most standard languages in that
+;;
+;; 1) there is no such thing as a "session" in maxima
+;;
+;; 2) we are generally only going to return output from maxima
+;;
+;; 3) we are adding the "cmdline" header argument
+;;
+;; 4) there are no variables
+
+;;; Code:
+(require 'ob)
+
+(defvar org-babel-default-header-args:maxima '())
+
+(defun org-babel-maxima-expand (body params)
+ "Expand a block of Maxima code according to its header arguments."
+ body)
+
+(defun org-babel-execute:maxima (body params)
+ "Execute a block of Maxima entries with org-babel. This function is
+called by `org-babel-execute-src-block'."
+ (message "executing Maxima source code block")
+ (let ((result-params (split-string (or (cdr (assoc :results params)) "")))
+ (cmdline (cdr (assoc :cmdline params)))
+ (in-file (org-babel-temp-file "maxima-"))
+ (cmd (format "maxima --very-quiet -r 'batchload(%S)$' %s"
+ in-file cmdline)))
+ (with-temp-file in-file (insert body))
+ (message cmd)
+ ((lambda (raw) ;; " | grep -v batch | grep -v 'replaced' | sed '/^$/d' "
+ (delq nil
+ (mapcar (lambda (line)
+ (unless (or (string-match "batch" line)
+ (string-match "replaced" line)
+ (= 0 (length line)))
+ line))
+ (split-string raw))))
+ (org-babel-eval cmd ""))))
+
+(defun org-babel-prep-session:maxima (session params)
+ (error "Maxima does not support sessions"))
+
+(provide 'ob-maxima)
+
+;; arch-tag: d86c97ac-7eab-4349-8d8b-302dd09779a8
+
+;;; org-babel-maxima.el ends here
diff --git a/lisp/org.el b/lisp/org.el
index 96ad8ff..ae0ef5e 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -164,6 +164,7 @@ requirements) is loaded."
(const :tag "Javascript" js)
(const :tag "Latex" latex)
(const :tag "Ledger" ledger)
+ (const :tag "Maxima" maxima)
(const :tag "Matlab" matlab)
(const :tag "Mscgen" mscgen)
(const :tag "Ocaml" ocaml)
--
1.7.1
[-- Attachment #3: Type: text/plain, Size: 866 bytes --]
Eric S Fraga <e.fraga@ucl.ac.uk> writes:
> "Eric Schulte" <schulte.eric@gmail.com> writes:
>
>> Great, Thanks for sharing!
>>
>> Why don't we replace the shell-script munging with some elisp munging
>> and add this to the core?
>>
>> I can help with the translation to elisp (although I may be busy through
>> the weekend/week).
>>
>> Best -- Eric
>
> I'd be very happy to have the code made more portable, and integrated
> properly within org-babel. I, unfortunately, don't have any of the
> elisp skills that would be necessary... my upbringing in the early days
> of Unix are showing here: I solve everything with concatenation of
> targeted shell commands ;-) Given that I use a sequence of regex based
> commands (grep and sed), I imagine it would be trivial for somebody with
> more elisp expertise to translate my sequence of commands into elisp
> code?
next prev parent reply other threads:[~2011-03-14 21:30 UTC|newest]
Thread overview: 14+ messages / expand[flat|nested] mbox.gz Atom feed top
2011-02-23 9:32 [babel] maxima support? Litvinov Sergey
2011-02-24 10:25 ` Eric S Fraga
2011-02-24 10:28 ` Eric S Fraga
2011-02-25 9:17 ` Litvinov Sergey
2011-02-25 23:58 ` Eric Schulte
2011-02-28 16:15 ` Eric S Fraga
2011-03-14 21:26 ` Eric Schulte [this message]
2011-03-15 10:47 ` Eric S Fraga
2011-03-15 13:17 ` Eric Schulte
2011-03-15 14:27 ` Eric S Fraga
2011-03-15 15:32 ` Eric Schulte
2011-03-15 16:39 ` Eric S Fraga
2011-03-15 17:27 ` Eric Schulte
2011-03-15 18:32 ` Eric S Fraga
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=874o75wfzf.fsf@gmail.com \
--to=schulte.eric@gmail.com \
--cc=e.fraga@ucl.ac.uk \
--cc=emacs-orgmode@gnu.org \
--cc=slitvinov@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.