Re: How to write a org babel hook, which can manupulate result

[Daimrod <daimrod@gmail.com>]

Feng Shu <tumashu@gmail.com> writes:

> Daimrod <daimrod@gmail.com> writes:
>
>> Feng Shu <tumashu@gmail.com> writes:
>>
>>> Hi:
>> Hi Feng,
>>
>> Look at the :post header argument.
>> (info "(org) post")
>
> How to use elisp in :post directly,

I don't think you can.

You have to use it this way (not tested):

#+NAME: align-multi-table
#+BEGIN_SRC emacs-lisp :var content="nil" :results raw
  (align-multi-table content)
#+END_SRC
#+begin_src R :results output raw drawer :post align-multi-table(content=*this*)
  <content>
#+end_src

> for example:
>
> #+begin_src R :results output raw drawer :post (align-multi-table)
>   <content>
> #+end_src
> #+begin_comment
> (defun align-multi-table (&optional content)
>   (interactive)
>   (let ((content (or content *this*)))
>     (with-temp-buffer
>       (insert content)
>       (goto-char (point-min))
>       (while (not (eobp))
> 	(when (org-at-table-p)
> 	  (org-table-align))
> 	(forward-line))
>       (buffer-string))))
> #+end_comment
>
>>
>>> I want to write a hook to menupulate org babel output,
>>> The problem is: How can I get two points info: [pointA] and [pointB]
>>> in my hook function?
>>>
>>> #+begin_src R :results output raw drawer
>>> tbl <- data.frame(a=c(1,2,3),b=c(3,2,1))
>>> print(ascii(tbl),type="org")
>>> #+END_SRC
>>>
>>> #+RESULTS:
>>> :RESULTS:
>>> [pointA]
>>> |   |    a |    b |
>>> |---+------+------|
>>> | 1 | 1.00 | 3.00 |
>>> | 2 | 2.00 | 2.00 |
>>> | 3 | 3.00 | 1.00 |
>>> [pointB]
>>> :END:

-- 
Daimrod/Greg