Re: Iterate many tables

[T Helms <maxco.tr@gmail.com>]

[-- Attachment #1.1: Type: text/plain, Size: 3351 bytes --]

Thanks for bringing this up, it would be a useful tool.

I get an error using the functions as well

org-recalculate-all-tables:
org-recalculate-all-tables: Wrong number of arguments: (lambda 
(function) "Apply FUNCTION to the start of all tables in the buffer." 
(save-excursion (save-restriction (widen) (goto-char (point-min)) (while 
(re-search-forward org-table-any-line-regexp nil t) (message "Mapping 
tables: %d%%" (/ (* 100.0 (point)) (buffer-size))) (beginning-of-line 1) 
(when (looking-at org-table-line-regexp) (save-excursion (funcall 
function)) (or (looking-at org-table-line-regexp) (forward-char 1))) 
(re-search-forward org-table-any-border-regexp nil 1)))) (message 
"Mapping tables: done")), 2

org-iterate-all-tables:
while: Wrong number of arguments: (lambda (function) "Apply FUNCTION to 
the start of all tables in the buffer." (save-excursion 
(save-restriction (widen) (goto-char (point-min)) (while 
(re-search-forward org-table-any-line-regexp nil t) (message "Mapping 
tables: %d%%" (/ (* 100.0 (point)) (buffer-size))) (beginning-of-line 1) 
(when (looking-at org-table-line-regexp) (save-excursion (funcall 
function)) (or (looking-at org-table-line-regexp) (forward-char 1))) 
(re-search-forward org-table-any-border-regexp nil 1)))) (message 
"Mapping tables: done")), 2


On 05/05/2010 03:37 PM, Johan Ekh wrote:
>
>
> Any idea what could be wrong?
>
>
>
> Error meassage:
>
> org-recalculate-all-tables: Wrong number of arguments: #[(function) 
> "S(OE~^eb^Ä\bÅÆ#f:
>
>
> Best regards,
> Johan
>
>
>
>
>
>
> On Fri, Apr 30, 2010 at 5:03 PM, Carsten Dominik 
> <carsten.dominik@gmail.com <mailto:carsten.dominik@gmail.com>> wrote:
>
>
>     On Apr 30, 2010, at 4:07 PM, Johan Ekh wrote:
>
>         Hi all,
>         I have a series of tables in a single file. Each table have
>         some fields that depends on fields
>         in the previous table. Thus, if I change something in the
>         first table, I must go down manually
>         and recalculate (or iterate) each table. Is there a way to
>         recalculate all tables in a file simultaneously?
>
>
>
>     Hi Johan,
>
>     This should work if the dependence is only backwards.
>
>     (defun org-recalculate-all-tables ()
>       (interactive)
>       (org-table-map-tables (lambda () (org-table-recalculate t)) t))
>
>     If you have dependencies in both directions, this might work
>     (untested):
>
>     (defun org-iterate-all-tables ()
>      (interactive)
>      (let* ((imax 10)
>             (checksum (md5 (buffer-string)))
>             c1
>             (i imax))
>        (catch 'exit
>          (while (> i 0)
>            (setq i (1- i))
>            (org-table-map-tables (lambda () (org-table-recalculate t)) t)
>            (if (equal checksum (setq c1 (md5 (buffer-string))))
>                (progn
>                  (message "Convergence after %d iterations" (- imax i))
>                  (throw 'exit t))
>              (setq checksum c1)))
>          (error "No convergence after %d iterations" imax))))
>
>     If it does, this could be added to org-hacks on Worg.
>
>     HTH
>
>     - Carsten
>
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Please use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>    

[-- Attachment #1.2: Type: text/html, Size: 4836 bytes --]

[-- Attachment #2: Type: text/plain, Size: 201 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode