* Iterate many tables @ 2010-04-30 14:07 Johan Ekh 2010-04-30 15:03 ` Carsten Dominik 0 siblings, 1 reply; 11+ messages in thread From: Johan Ekh @ 2010-04-30 14:07 UTC (permalink / raw) To: emacs-orgmode [-- Attachment #1.1: Type: text/plain, Size: 327 bytes --] 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? Best regards, Johan [-- Attachment #1.2: Type: text/html, Size: 352 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 ^ permalink raw reply [flat|nested] 11+ messages in thread
* Re: Iterate many tables 2010-04-30 14:07 Iterate many tables Johan Ekh @ 2010-04-30 15:03 ` Carsten Dominik 2010-05-03 20:14 ` Johan Ekh 2010-05-05 19:37 ` Johan Ekh 0 siblings, 2 replies; 11+ messages in thread From: Carsten Dominik @ 2010-04-30 15:03 UTC (permalink / raw) To: Johan Ekh; +Cc: emacs-orgmode 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 ^ permalink raw reply [flat|nested] 11+ messages in thread
* Re: Iterate many tables 2010-04-30 15:03 ` Carsten Dominik @ 2010-05-03 20:14 ` Johan Ekh 2010-05-05 19:37 ` Johan Ekh 1 sibling, 0 replies; 11+ messages in thread From: Johan Ekh @ 2010-05-03 20:14 UTC (permalink / raw) To: emacs-orgmode [-- Attachment #1.1: Type: text/plain, Size: 1439 bytes --] Thanks, I will try it and report back. //Johan On Fri, Apr 30, 2010 at 5:03 PM, Carsten Dominik <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 > > [-- Attachment #1.2: Type: text/html, Size: 2098 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 ^ permalink raw reply [flat|nested] 11+ messages in thread
* Re: Iterate many tables 2010-04-30 15:03 ` Carsten Dominik 2010-05-03 20:14 ` Johan Ekh @ 2010-05-05 19:37 ` Johan Ekh 2010-05-06 11:34 ` T Helms 1 sibling, 1 reply; 11+ messages in thread From: Johan Ekh @ 2010-05-05 19:37 UTC (permalink / raw) To: emacs-orgmode [-- Attachment #1.1: Type: text/plain, Size: 1885 bytes --] I only have backward dependencies so I tried the first code block. I put it in ..emacs and tried, but I got a message starting as the message below. I could not paste it into the email for some reason... The tables work as expected when I do it manually. Any idea what could be wrong? Error meassage: org-recalculate-all-tables: Wrong number of arguments: #[(function) "ŠŒ~ˆebˆÄ\bÅÆ#ƒ: Best regards, Johan On Fri, Apr 30, 2010 at 5:03 PM, Carsten Dominik <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 > > [-- Attachment #1.2: Type: text/html, Size: 2536 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 ^ permalink raw reply [flat|nested] 11+ messages in thread
* Re: Iterate many tables 2010-05-05 19:37 ` Johan Ekh @ 2010-05-06 11:34 ` T Helms 2010-05-07 7:36 ` Carsten Dominik 0 siblings, 1 reply; 11+ messages in thread From: T Helms @ 2010-05-06 11:34 UTC (permalink / raw) To: emacs-orgmode [-- 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 ^ permalink raw reply [flat|nested] 11+ messages in thread
* Re: Iterate many tables 2010-05-06 11:34 ` T Helms @ 2010-05-07 7:36 ` Carsten Dominik 2010-05-14 10:07 ` Johan Ekh 0 siblings, 1 reply; 11+ messages in thread From: Carsten Dominik @ 2010-05-07 7:36 UTC (permalink / raw) To: maxco.tr; +Cc: emacs-orgmode Hi, both functions work without any problem for me, so I do not know what you are doing differently. maybe you ned to describe exactly how you are calling the functions. - Carsten On May 6, 2010, at 1:34 PM, T Helms wrote: > 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) >> "ŠŒ~ˆebˆÄ\bÅÆ#ƒ: >> >> >> Best regards, >> Johan >> >> >> >> >> >> >> On Fri, Apr 30, 2010 at 5:03 PM, Carsten Dominik <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 >> > _______________________________________________ > 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 - Carsten ^ permalink raw reply [flat|nested] 11+ messages in thread
* Re: Iterate many tables 2010-05-07 7:36 ` Carsten Dominik @ 2010-05-14 10:07 ` Johan Ekh 2010-05-14 12:32 ` Carsten Dominik 0 siblings, 1 reply; 11+ messages in thread From: Johan Ekh @ 2010-05-14 10:07 UTC (permalink / raw) To: Carsten Dominik; +Cc: emacs-orgmode [-- Attachment #1.1: Type: text/plain, Size: 4734 bytes --] Hi, I've tried the functions but I get the error described above. I've put the functions in my .emacs exactly as written in the mail. I use the latest org-mode (using Git) and I use emacs 23.1.1 on a 64-bit openSuse 11.1 linux laptop. Do the cursor need to be located anywhere specific when executing the functions? I've tried to execute the functions while having all tables expanded and the cursor somewhere in the last table. Best regards, Johan On Fri, May 7, 2010 at 9:36 AM, Carsten Dominik <carsten.dominik@gmail.com>wrote: > Hi, > > both functions work without any problem for me, so I do not know what you > are doing differently. maybe you ned to describe exactly how you are > calling the functions. > > - Carsten > > > On May 6, 2010, at 1:34 PM, T Helms wrote: > > 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) >>> "ŠŒ~ˆebˆÄ ÅÆ#ƒ: >>> >>> >>> Best regards, >>> Johan >>> >>> >>> >>> >>> >>> >>> On Fri, Apr 30, 2010 at 5:03 PM, Carsten Dominik < >>> 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 >>> >>> _______________________________________________ >> 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 >> > > - 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: 6069 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 ^ permalink raw reply [flat|nested] 11+ messages in thread
* Re: Iterate many tables 2010-05-14 10:07 ` Johan Ekh @ 2010-05-14 12:32 ` Carsten Dominik 2010-05-14 13:05 ` Johan Ekh 0 siblings, 1 reply; 11+ messages in thread From: Carsten Dominik @ 2010-05-14 12:32 UTC (permalink / raw) To: Johan Ekh; +Cc: emacs-orgmode Hi Johan, I think you are not using the latest version of Org? Please upgrade. - Carsten On May 14, 2010, at 12:07 PM, Johan Ekh wrote: > Hi, > I've tried the functions but I get the error described above. > I've put the functions in my .emacs exactly as written in the mail. > I use the latest org-mode (using Git) and I use emacs 23.1.1 on > a 64-bit openSuse 11.1 linux laptop. > > Do the cursor need to be located anywhere specific when executing > the functions? I've tried to execute the functions while having all > tables > expanded and the cursor somewhere in the last table. > > Best regards, > Johan > > On Fri, May 7, 2010 at 9:36 AM, Carsten Dominik <carsten.dominik@gmail.com > > wrote: > Hi, > > both functions work without any problem for me, so I do not know > what you are doing differently. maybe you ned to describe exactly > how you are calling the functions. > > - Carsten > > > On May 6, 2010, at 1:34 PM, T Helms wrote: > > 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) > "ŠŒ~ˆebˆÄ ÅÆ#ƒ: > > > Best regards, > Johan > > > > > > > On Fri, Apr 30, 2010 at 5:03 PM, Carsten Dominik <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 > > _______________________________________________ > 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 > > - 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 > - Carsten ^ permalink raw reply [flat|nested] 11+ messages in thread
* Re: Iterate many tables 2010-05-14 12:32 ` Carsten Dominik @ 2010-05-14 13:05 ` Johan Ekh 2010-05-14 13:43 ` Johan Ekh 0 siblings, 1 reply; 11+ messages in thread From: Johan Ekh @ 2010-05-14 13:05 UTC (permalink / raw) To: Carsten Dominik; +Cc: emacs-orgmode [-- Attachment #1.1: Type: text/plain, Size: 5535 bytes --] Hi, You're right, I'm actually not using the latest version. It fails to install. I use the version "6.33trans". When I try to upgrade with Git I get the compilation error: In org-publish-get-base-files-1: org-publish.el:407:13:Warning: reference to free variable `sitemap-requested' org-publish.el:915:1:Error: Invalid read syntax: "#" make: *** [lisp/org-publish.elc] Error 1 Do you know what is wrong? I checked line 915 in "org-publish.el" but there is no "#" in that line. Do you know what is wrong? Best regards, Johan On Fri, May 14, 2010 at 2:32 PM, Carsten Dominik <carsten.dominik@gmail.com>wrote: > Hi Johan, > > I think you are not using the latest version of Org? Please upgrade. > > - Carsten > > > On May 14, 2010, at 12:07 PM, Johan Ekh wrote: > > Hi, >> I've tried the functions but I get the error described above. >> I've put the functions in my .emacs exactly as written in the mail. >> I use the latest org-mode (using Git) and I use emacs 23.1.1 on >> a 64-bit openSuse 11.1 linux laptop. >> >> Do the cursor need to be located anywhere specific when executing >> the functions? I've tried to execute the functions while having all tables >> expanded and the cursor somewhere in the last table. >> >> Best regards, >> Johan >> >> On Fri, May 7, 2010 at 9:36 AM, Carsten Dominik < >> carsten.dominik@gmail.com> wrote: >> Hi, >> >> both functions work without any problem for me, so I do not know what you >> are doing differently. maybe you ned to describe exactly how you are >> calling the functions. >> >> - Carsten >> >> >> On May 6, 2010, at 1:34 PM, T Helms wrote: >> >> 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) >> "ŠŒ~ˆebˆÄ ÅÆ#ƒ: >> >> >> Best regards, >> Johan >> >> >> >> >> >> >> On Fri, Apr 30, 2010 at 5:03 PM, Carsten Dominik < >> 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 >> >> _______________________________________________ >> 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 >> >> - 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 >> >> > - Carsten > > > > [-- Attachment #1.2: Type: text/html, Size: 6962 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 ^ permalink raw reply [flat|nested] 11+ messages in thread
* Re: Iterate many tables 2010-05-14 13:05 ` Johan Ekh @ 2010-05-14 13:43 ` Johan Ekh 2010-05-14 13:57 ` Carsten Dominik 0 siblings, 1 reply; 11+ messages in thread From: Johan Ekh @ 2010-05-14 13:43 UTC (permalink / raw) To: Carsten Dominik; +Cc: emacs-orgmode [-- Attachment #1.1: Type: text/plain, Size: 6008 bytes --] Hi again, I removed "org-publish.el" and the upgrade worked. Thus I now have the latest version of org-mode. Guess what, your functions now work perfectly! Thanks! Johan On Fri, May 14, 2010 at 3:05 PM, Johan Ekh <ekh.johan@gmail.com> wrote: > Hi, > You're right, I'm actually not using the latest version. It fails to > install. I use the version "6.33trans". > When I try to upgrade with Git I get the compilation error: > > > In org-publish-get-base-files-1: > org-publish.el:407:13:Warning: reference to free variable > `sitemap-requested' > org-publish.el:915:1:Error: Invalid read syntax: "#" > make: *** [lisp/org-publish.elc] Error 1 > > > Do you know what is wrong? I checked line 915 in "org-publish.el" but there > is > no "#" in that line. > > Do you know what is wrong? > > Best regards, > Johan > > > On Fri, May 14, 2010 at 2:32 PM, Carsten Dominik < > carsten.dominik@gmail.com> wrote: > >> Hi Johan, >> >> I think you are not using the latest version of Org? Please upgrade. >> >> - Carsten >> >> >> On May 14, 2010, at 12:07 PM, Johan Ekh wrote: >> >> Hi, >>> I've tried the functions but I get the error described above. >>> I've put the functions in my .emacs exactly as written in the mail. >>> I use the latest org-mode (using Git) and I use emacs 23.1.1 on >>> a 64-bit openSuse 11.1 linux laptop. >>> >>> Do the cursor need to be located anywhere specific when executing >>> the functions? I've tried to execute the functions while having all >>> tables >>> expanded and the cursor somewhere in the last table. >>> >>> Best regards, >>> Johan >>> >>> On Fri, May 7, 2010 at 9:36 AM, Carsten Dominik < >>> carsten.dominik@gmail.com> wrote: >>> Hi, >>> >>> both functions work without any problem for me, so I do not know what you >>> are doing differently. maybe you ned to describe exactly how you are >>> calling the functions. >>> >>> - Carsten >>> >>> >>> On May 6, 2010, at 1:34 PM, T Helms wrote: >>> >>> 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) >>> "ŠŒ~ˆebˆÄ ÅÆ#ƒ: >>> >>> >>> Best regards, >>> Johan >>> >>> >>> >>> >>> >>> >>> On Fri, Apr 30, 2010 at 5:03 PM, Carsten Dominik < >>> 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 >>> >>> _______________________________________________ >>> 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 >>> >>> - 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 >>> >>> >> - Carsten >> >> >> >> > [-- Attachment #1.2: Type: text/html, Size: 7585 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 ^ permalink raw reply [flat|nested] 11+ messages in thread
* Re: Iterate many tables 2010-05-14 13:43 ` Johan Ekh @ 2010-05-14 13:57 ` Carsten Dominik 0 siblings, 0 replies; 11+ messages in thread From: Carsten Dominik @ 2010-05-14 13:57 UTC (permalink / raw) To: Johan Ekh; +Cc: emacs-orgmode Good to hear. Latest version is *always* a good idea when reporting bugs. :-) - Carsten On May 14, 2010, at 3:43 PM, Johan Ekh wrote: > Hi again, > I removed "org-publish.el" and the upgrade worked. Thus I now have > the latest version of org-mode. > Guess what, your functions now work perfectly! > > Thanks! > > Johan > > On Fri, May 14, 2010 at 3:05 PM, Johan Ekh <ekh.johan@gmail.com> > wrote: > Hi, > You're right, I'm actually not using the latest version. It fails to > install. I use the version "6.33trans". > When I try to upgrade with Git I get the compilation error: > > > In org-publish-get-base-files-1: > org-publish.el:407:13:Warning: reference to free variable `sitemap- > requested' > org-publish.el:915:1:Error: Invalid read syntax: "#" > make: *** [lisp/org-publish.elc] Error 1 > > > Do you know what is wrong? I checked line 915 in "org-publish.el" > but there is > no "#" in that line. > > Do you know what is wrong? > > Best regards, > Johan > > > On Fri, May 14, 2010 at 2:32 PM, Carsten Dominik <carsten.dominik@gmail.com > > wrote: > Hi Johan, > > I think you are not using the latest version of Org? Please upgrade. > > - Carsten > > > On May 14, 2010, at 12:07 PM, Johan Ekh wrote: > > Hi, > I've tried the functions but I get the error described above. > I've put the functions in my .emacs exactly as written in the mail. > I use the latest org-mode (using Git) and I use emacs 23.1.1 on > a 64-bit openSuse 11.1 linux laptop. > > Do the cursor need to be located anywhere specific when executing > the functions? I've tried to execute the functions while having all > tables > expanded and the cursor somewhere in the last table. > > Best regards, > Johan > > On Fri, May 7, 2010 at 9:36 AM, Carsten Dominik <carsten.dominik@gmail.com > > wrote: > Hi, > > both functions work without any problem for me, so I do not know > what you are doing differently. maybe you ned to describe exactly > how you are calling the functions. > > - Carsten > > > On May 6, 2010, at 1:34 PM, T Helms wrote: > > 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) > "ŠŒ~ˆebˆÄ ÅÆ#ƒ: > > > Best regards, > Johan > > > > > > > On Fri, Apr 30, 2010 at 5:03 PM, Carsten Dominik <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 > > _______________________________________________ > 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 > > - 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 > > > - Carsten > > > > > - Carsten ^ permalink raw reply [flat|nested] 11+ messages in thread
end of thread, other threads:[~2010-05-14 13:57 UTC | newest] Thread overview: 11+ messages (download: mbox.gz / follow: Atom feed) -- links below jump to the message on this page -- 2010-04-30 14:07 Iterate many tables Johan Ekh 2010-04-30 15:03 ` Carsten Dominik 2010-05-03 20:14 ` Johan Ekh 2010-05-05 19:37 ` Johan Ekh 2010-05-06 11:34 ` T Helms 2010-05-07 7:36 ` Carsten Dominik 2010-05-14 10:07 ` Johan Ekh 2010-05-14 12:32 ` Carsten Dominik 2010-05-14 13:05 ` Johan Ekh 2010-05-14 13:43 ` Johan Ekh 2010-05-14 13:57 ` Carsten Dominik
Code repositories for project(s) associated with this public inbox https://git.savannah.gnu.org/cgit/emacs/org-mode.git This is a public inbox, see mirroring instructions for how to clone and mirror all data and code used for this inbox; as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).