[Orgmode] two new functions: org-move-thing-up org-move-thing-down

[Richard KLINDA]

Here are two functions for moving things around.  Useful to bind them to
keys.

Carsten, please include these functions in org if you think it's ok.

,----[ for me it is ]
| (define-key org-mode-map [(alt ?N)] 'org-move-thing-up)
| (define-key org-mode-map [(alt ?T)] 'org-move-thing-down)
`----

,----
| (defun org-move-thing-up ()
|   "Move table row, headline or list item up."
|   (interactive)
|   (let ((headline-p (save-excursion
|                       (beginning-of-line)
|                       (when (looking-at (concat "^\\(" outline-regexp "\\)"))
|                         t))))
|     (cond ((org-at-table-p) (org-table-move-row-up))
|           (headline-p (org-move-subtree-up))
|           (t (org-move-item-up 1)))))
| 
| (defun org-move-thing-down ()
|   "Move table row, headline or list item down."
|   (interactive)
|   (let ((headline-p (save-excursion
|                       (beginning-of-line)
|                       (when (looking-at (concat "^\\(" outline-regexp "\\)"))
|                         t))))
|     (cond ((org-at-table-p) (org-table-move-row-down))
|           (headline-p (org-move-subtree-down))
|           (t (org-move-item-down)))))
`----

-- 
Udv, Richard