[O] function (was: reverse column or row.)

[Uwe Brauer]

>> "Michael" == Michael Brand <address@hidden> 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

smime.p7s
Description: S/MIME cryptographic signature