Re: [O] Infinite loop using :post header argument that calls a emacs-lisp src block

2015-07-30 Thread Charles Millar
I neglected to mention that the elisp code is based on Miguel Ruiz's 
post to this list earlier today.


On 07/30/2015 09:49 PM, Charles Millar wrote:
emacs version GNU Emacs 24.3.1 (x86_64-pc-linux-gnu, GTK+ Version 
3.10.7) of 2014-03-07 on lamiak, modified by Debian
Org-mode version 8.3beta (release_8.3beta-1302-g00142f @ 
/usr/share/emacs/site-lisp/org-mode/lisp/)


the following produces a table with header, hline, a row with TOTAl 
and #+TBLFM immediately after the table


#+NAME: SCHEDAP
#+begin_src rec :data foo.rec :type bar :fields 
AssetDate,Description,Basis :results silent

 (some recutils sexes)
#+end_src
#+NAME: SCHEDA
#+begin_src emacs-lisp :var table=SCHEDAP :export results
  (setq table (cons 'hline table))
  (setq table (cons '(Date Description Basis) table))
  (setq table (append table '((|Total
  (setq table (append table '((\n#+TBLFM: 
@$=vsum(@I$..@$);%.2f::

  table
#+end_src
#+TBLNAME: SCHEDA

What I would like to use is

#+NAME: insertstuff
#+begin_src emacs-lisp :var table=() :results silent
  (setq table (cons 'hline table))
  (setq table (cons '(Date Description Basis) table))
  (setq table (append table '((|Total
  (setq table (append table '((\n#+TBLFM: 
@$=vsum(@I$..@$);%.2f::

  table
#+end_src


#+NAME: SCHEDA
#+begin_src rec :data foo.rec :type bar :fields 
AssetDate,Description,Basis :post insertstuff :var table=SCHEDA

 (some recutils sexes)
#+end_src
#+TBLNAME: SCHEDA

which results in an infinite loop, or so it appears.

What am I missing? Or, is the first example my only choice?

Charlie Millar







[O] Infinite loop using :post header argument that calls a emacs-lisp src block

2015-07-30 Thread Charles Millar
emacs version GNU Emacs 24.3.1 (x86_64-pc-linux-gnu, GTK+ Version 
3.10.7) of 2014-03-07 on lamiak, modified by Debian
Org-mode version 8.3beta (release_8.3beta-1302-g00142f @ 
/usr/share/emacs/site-lisp/org-mode/lisp/)


the following produces a table with header, hline, a row with TOTAl and 
#+TBLFM immediately after the table


#+NAME: SCHEDAP
#+begin_src rec :data foo.rec :type bar :fields 
AssetDate,Description,Basis :results silent

 (some recutils sexes)
#+end_src
#+NAME: SCHEDA
#+begin_src emacs-lisp :var table=SCHEDAP :export results
  (setq table (cons 'hline table))
  (setq table (cons '(Date Description Basis) table))
  (setq table (append table '((|Total
  (setq table (append table '((\n#+TBLFM: 
@$=vsum(@I$..@$);%.2f::

  table
#+end_src
#+TBLNAME: SCHEDA

What I would like to use is

#+NAME: insertstuff
#+begin_src emacs-lisp :var table=() :results silent
  (setq table (cons 'hline table))
  (setq table (cons '(Date Description Basis) table))
  (setq table (append table '((|Total
  (setq table (append table '((\n#+TBLFM: 
@$=vsum(@I$..@$);%.2f::

  table
#+end_src


#+NAME: SCHEDA
#+begin_src rec :data foo.rec :type bar :fields 
AssetDate,Description,Basis :post insertstuff :var table=SCHEDA

 (some recutils sexes)
#+end_src
#+TBLNAME: SCHEDA

which results in an infinite loop, or so it appears.

What am I missing? Or, is the first example my only choice?

Charlie Millar