function (was: reverse column or row.)

[Uwe Brauer <oub@mat.ucm.es>]

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

>> "Michael" == Michael Brand <michael.ch.brand@gmail.com> writes:

Here is a function but it just works for one row, if anybody wants to
generalise it for more rows.......


(defun my-org-table-reverse-cells-in-row ()
  "Simple function to reverse cells in one row."
  (interactive)
  (save-excursion
	(end-of-line 1)
	(newline 1)
	(goto-char (org-table-begin))
	(org-table-transpose-table-at-point)
	(let*	  ((beg (org-table-begin))
			   (end (org-table-end)))
	  (goto-char beg)
	  (reverse-region beg end))
	(org-table-transpose-table-at-point)
	(kill-line nil)))


Uwe 

[-- Attachment #2: smime.p7s --]
[-- Type: application/pkcs7-signature, Size: 5556 bytes --]