From mboxrd@z Thu Jan 1 00:00:00 1970 From: Eric S Fraga Subject: Re: Possible Calc support for Org-Babel? Date: Fri, 29 Oct 2010 12:14:10 +0100 Message-ID: <87y69h8d4t.fsf@ucl.ac.uk> References: <7CDB7386-9B39-46CB-94E8-C6B5CBD59C4F@me.com> <87mxq0ajgw.fsf@gmail.com> <87zktxv6s2.fsf@gmail.com> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from [140.186.70.92] (port=35430 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PBmuV-0000CP-HI for emacs-orgmode@gnu.org; Fri, 29 Oct 2010 07:14:17 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PBmuU-0005nB-HO for emacs-orgmode@gnu.org; Fri, 29 Oct 2010 07:14:15 -0400 Received: from vscane-a.ucl.ac.uk ([144.82.108.41]:32832) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1PBmuU-0005mz-8N for emacs-orgmode@gnu.org; Fri, 29 Oct 2010 07:14:14 -0400 In-Reply-To: <87zktxv6s2.fsf@gmail.com> (Eric Schulte's message of "Fri, 29 Oct 2010 00:42:53 -0600") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Eric Schulte Cc: emacs-orgmode@gnu.org, Matthew Oesting Eric, This is really nice! I had a problem initially in that calc-push-list was undefined. I had to initiate calc first so maybe a : (require 'calc) is required to ensure the functions you use are available? Then, out of the three examples you give, only one (3^3) worked. The others give me: --8<---------------cut here---------------start------------->8--- Debugger entered--Lisp error: (wrong-type-argument stringp (2 "Expected a number")) string-match("\\` *\\([0-9]+\\) *\\'" (2 "Expected a number")) math-read-number((2 "Expected a number")) (list (math-read-number (calc-eval line))) (calc-push-list (list (math-read-number ...))) (if (string= "'" (substring line 0 1)) (funcall (lookup-key calc-mode-map ...) nil) (calc-push-list (list ...))) (progn (if (string= "'" ...) (funcall ... nil) (calc-push-list ...))) (if (> (length line) 0) (progn (if ... ... ...))) (when (> (length line) 0) (if (string= "'" ...) (funcall ... nil) (calc-push-list ...))) (lambda (line) (when (> ... 0) (if ... ... ...)))(" '+") mapcar((lambda (line) (when (> ... 0) (if ... ... ...))) (" 1" " 2" " '+" "")) org-babel-execute:calc(" 1\n 2\n '+\n" ((:colname-names) (:rowname-names) (:result-params "replace") (:result-type . value) (:comments . "") (:shebang . "") (:cache . "no") (:noweb . "no") (:tangle . "no") (:exports . "code") (:results . "replace") (:hlines . "no") (:session . "none"))) org-babel-execute-src-block(nil ("calc" " 1\n 2\n '+\n" ((:colname-names) (:rowname-names) (:result-params "replace") (:result-type . value) (:comments . "") (:shebang . "") (:cache . "no") (:noweb . "no") (:tangle . "no") (:exports . "code") (:results . "replace") (:hlines . "no") (:session . "none")) "" nil 0)) org-babel-execute-src-block-maybe() org-babel-execute-maybe() org-babel-execute-safely-maybe() run-hook-with-args-until-success(org-babel-execute-safely-maybe) org-ctrl-c-ctrl-c(nil) call-interactively(org-ctrl-c-ctrl-c nil nil) --8<---------------cut here---------------end--------------->8--- Have I done something wrong? I am particularly excited, once it works for me, to use this for /inline/ babel executions! Thanks, eric -- Eric S Fraga GnuPG: 8F5C 279D 3907 E14A 5C29 570D C891 93D8 FFFC F67D