help with porting babel example on worg to latest version

help with porting babel example on worg to latest version

[Christian Wittern]

Hi there,

I am trying to understand how to use information from an org table as input 
for a babel function.
For this purpose, I looked at the example at 
http://orgmode.org/worg/org-contrib/babel/intro.html#arguments-to-source-code-blocks

It seems that this is using the old syntax, eg. #+tblname, which seems to be 
just #+name now.  But even with this change I can not reproduce the result.  
With the following code, I get the message "Symbol's value as variable is 
void: fib-inputs" when doing C-c on the src.  I am sure there are more 
changes I need to make, but I can't figure it out.  Any help appreciated.
Here is the code so far:

#+name: fibonacci-inputs
| 1 | 2 | 3 | 4 |  5 |  6 |  7 |  8 |  9 | 10 |
| 2 | 4 | 6 | 8 | 10 | 12 | 14 | 16 | 18 | 20 |


#+name: fibonacci-seq(fib-inputs=fibonacci-inputs)
#+begin_src emacs-lisp
   (defun fibonacci (n)
     (if (or (= n 0) (= n 1))
         n
       (+ (fibonacci (- n 1)) (fibonacci (- n 2)))))

   (mapcar (lambda (row)
             (mapcar #'fibonacci row)) fib-inputs)
#+end_src


All the best,

Christian

-- 
Christian Wittern, Kyoto

Re: help with porting babel example on worg to latest version

[Bastien]

Hi Christian,

Christian Wittern <cwittern@gmail.com> writes:

> #+name: fibonacci-inputs
> | 1 | 2 | 3 | 4 |  5 |  6 |  7 |  8 |  9 | 10 |
> | 2 | 4 | 6 | 8 | 10 | 12 | 14 | 16 | 18 | 20 |
>
>
> #+name: fibonacci-seq(fib-inputs=fibonacci-inputs)
> #+begin_src emacs-lisp
>    (defun fibonacci (n)
>      (if (or (= n 0) (= n 1))
>          n
>        (+ (fibonacci (- n 1)) (fibonacci (- n 2)))))
>
>    (mapcar (lambda (row)
>              (mapcar #'fibonacci row)) fib-inputs)
> #+end_src

I think you need

  #+headers: fibonacci-seq(fib-inputs=fibonacci-inputs)

instead of #+name above.

-- 
 Bastien

Re: help with porting babel example on worg to latest version

[Miguel Ruiz]

[-- Attachment #1: Type: text/plain, Size: 1834 bytes --]

What's the problem with:


#+name: fibonacci-inputs
| 1 | 2 | 3 | 4 |  5 |  6 |  7 |  8 |  9 | 10 |
| 2 | 4 | 6 | 8 | 10 | 12 | 14 | 16 | 18 | 20 |


#+name: fibonacci-seq
#+begin_src emacs-lisp :var fib-inputs=fibonacci-inputs
  (defun fibonacci (n)
    (if (or (= n 0) (= n 1))
        n
      (+ (fibonacci (- n 1)) (fibonacci (- n 2)))))

  (mapcar (lambda (row)
            (mapcar #'fibonacci row)) fib-inputs)
#+end_src

#+RESULTS:
 fibonacci-seq
| 1 | 1 | 2 |  3 |  5 |   8 |  13 |  21 |   34 |   55 |
| 1 | 3 | 8 | 21 | 55 | 144 | 377 | 987 | 2584 | 6765 |

?





El Lunes 6 de enero de 2014 8:03, Christian Wittern <cwittern@gmail.com> escribió:
 
Hi there,

I am trying to understand how to use information from an org table as input 
for a babel function.
For this purpose, I
 looked at the example at 
http://orgmode.org/worg/org-contrib/babel/intro.html#arguments-to-source-code-blocks

It seems that this is using the old syntax, eg. #+tblname, which seems to be 
just #+name now.  But even with this change I can not reproduce the result.  
With the following code, I get the message "Symbol's value as variable is 
void: fib-inputs" when doing C-c on the src.  I am sure there are more 
changes I need to make, but I can't figure it out.  Any help appreciated.
Here is the code so far:

#+name: fibonacci-inputs
| 1 | 2 | 3 | 4 |  5 |  6 |  7 |  8 |  9 | 10 |
| 2 | 4 | 6 | 8 | 10 | 12 | 14 | 16 | 18 | 20 |


#+name: fibonacci-seq(fib-inputs=fibonacci-inputs)
#+begin_src emacs-lisp
   (defun fibonacci (n)
 
    (if (or (= n 0) (= n 1))
         n
       (+ (fibonacci (- n 1)) (fibonacci (- n 2)))))

   (mapcar (lambda (row)
             (mapcar #'fibonacci row)) fib-inputs)
#+end_src


All the best,

Christian

-- 
Christian Wittern, Kyoto

[-- Attachment #2: Type: text/html, Size: 4992 bytes --]

patch for worg (was:Re: help with porting babel example on worg to latest version)

[Christian Wittern]

[-- Attachment #1: Type: text/plain, Size: 355 bytes --]

Thanks Miguel,
On 2014-01-06, 19:27, Miguel Ruiz wrote:
>
> #+begin_src emacs-lisp :var fib-inputs=fibonacci-inputs
>
This magic line does the trick.

I created a patch for this, attached.  I tried to follow the instructions, 
but since this is the first time, please be patient if something went wrong.

Cheers,  Christian

-- 
Christian Wittern, Kyoto


[-- Attachment #2: 0001-Adopted-the-fibonacci-example-to-Org-8.x-syntax.patch --]
[-- Type: text/plain, Size: 1614 bytes --]

From 08b07bbdd88bd78dd880a726f875ac167d4e2597 Mon Sep 17 00:00:00 2001
From: Chris Wittern <chris@mbp3>
Date: Mon, 6 Jan 2014 20:57:48 +0900
Subject: [PATCH] Adopted the fibonacci example to Org 8.x syntax

---
 org-contrib/babel/intro.org | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/org-contrib/babel/intro.org b/org-contrib/babel/intro.org
index 88eefc9..99a25a2 100644
--- a/org-contrib/babel/intro.org
+++ b/org-contrib/babel/intro.org
@@ -498,7 +498,7 @@ Now we use the source block:
 
      Here is the Org-mode table that is passed to =fibonacci-seq=:
 
-#+tblname: fibonacci-inputs
+#+name: fibonacci-inputs
 | 1 | 2 | 3 | 4 |  5 |  6 |  7 |  8 |  9 | 10 |
 | 2 | 4 | 6 | 8 | 10 | 12 | 14 | 16 | 18 | 20 |
 
@@ -508,8 +508,8 @@ The table looks like this in the Org-mode buffer:
 : | 2 | 4 | 6 | 8 | 10 | 12 | 14 | 16 | 18 | 20 |
 
 The [[http://www.gnu.org/software/emacs/manual/elisp.html][Emacs Lisp]] source code:
-#+name: fibonacci-seq(fib-inputs=fibonacci-inputs)
-#+begin_src emacs-lisp
+#+name: fibonacci-seq
+#+begin_src emacs-lisp :var fib-inputs=fibonacci-inputs 
   (defun fibonacci (n)
     (if (or (= n 0) (= n 1))
         n
@@ -520,8 +520,8 @@ The [[http://www.gnu.org/software/emacs/manual/elisp.html][Emacs Lisp]] source c
 #+end_src
 
 In the Org-mode buffer the function looks like this:
-: #+name: fibonacci-seq(fib-inputs=fibonacci-inputs)
-: #+begin_src emacs-lisp
+: #+name: fibonacci-seq
+: #+begin_src emacs-lisp :var fib-inputs=fibonacci-inputs 
 :   (defun fibonacci (n)
 :     (if (or (= n 0) (= n 1))
 :         n
-- 
1.8.3.4 (Apple Git-47)

Re: patch for worg

[Bastien]

Hi Christian,

Christian Wittern <cwittern@gmail.com> writes:

> This magic line does the trick.

Applied, thanks!

> I created a patch for this, attached.  I tried to follow the
> instructions, but since this is the first time, please be patient if
> something went wrong.

Things went fine.  Please send me your public key if you want to get
direct push access to Worg.

Best,

-- 
 Bastien