Re: calculation question

[Michael Brand <michael.ch.brand@gmail.com>]

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

Hi Jude and Bart

On Tue, Jul 19, 2011 at 10:13, Bastien <bzg@altern.org> wrote:
> Bart Bunting <bart@bunting.net.au> writes:
>> I have noticed that emacspeak does not read anything done using
>> overlays.  I am presuming the column and row labels are done this way.
>
> Yes, the references are displayed as an overlay.

As an alternative to overlays used by "C-c }" on a table to display
the coordinate grid, I would suggest the attached patch that displays
the coordinates in the table editor "C-c `" like this:

#+begin_src org
#
# Edit field @2$3 and finish with C-c C-c
#
123
#+end_src

It also supports the org-table-follow-field-mode "C-u C-u C-c `" added
by Carsten two months ago:
http://orgmode.org/w/org-mode.git/commitdiff/bffdfeb7fcd6c094d44e754ace7ce28fab81f2ff

Michael

[-- Attachment #2: 0001-Table-editor-Display-coordinates-of-current-field.patch --]
[-- Type: application/octet-stream, Size: 1444 bytes --]

From a79c95bdfd09fff0d62fae41d7421ca9d77ea13e Mon Sep 17 00:00:00 2001
From: Michael Brand <michael.ch.brand@gmail.com>
Date: Sat, 23 Jul 2011 18:48:52 +0200
Subject: [PATCH] Table editor: Display coordinates of current field

* lisp/org-table.el (org-table-edit-field): Display field coordinates.
---
 lisp/org-table.el |    8 +++++++-
 1 files changed, 7 insertions(+), 1 deletions(-)

diff --git a/lisp/org-table.el b/lisp/org-table.el
index c7d0b72..e392d11 100644
--- a/lisp/org-table.el
+++ b/lisp/org-table.el
@@ -1806,6 +1806,12 @@ it can be edited in place."
 	  (font-lock-fontify-block))))
    (t
     (let ((pos (move-marker (make-marker) (point)))
+	  (coord
+	   (if (eq org-table-use-standard-references t)
+	       (concat (org-number-to-letters (org-table-current-column))
+		       (int-to-string (org-table-current-dline)))
+	     (concat "@" (int-to-string (org-table-current-dline))
+		     "$" (int-to-string (org-table-current-column)))))
 	  (field (org-table-get-field))
 	  (cw (current-window-configuration))
 	  p)
@@ -1815,7 +1821,7 @@ it can be edited in place."
 		 (markerp org-field-marker))
 	(move-marker org-field-marker nil))
       (erase-buffer)
-      (insert "#\n# Edit field and finish with C-c C-c\n#\n")
+      (insert "#\n# Edit field " coord " and finish with C-c C-c\n#\n")
       (let ((org-inhibit-startup t)) (org-mode))
       (auto-fill-mode -1)
       (setq truncate-lines nil)
-- 
1.7.4.2