[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Orgmode] two new functions: org-move-thing-up org-move-thing-down
From: |
Richard KLINDA |
Subject: |
[Orgmode] two new functions: org-move-thing-up org-move-thing-down |
Date: |
Thu, 12 Feb 2009 16:56:48 +0100 |
User-agent: |
Gnus/5.110003 (No Gnus v0.3) XEmacs/21.4 (Educational Television, linux) |
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
- [Orgmode] two new functions: org-move-thing-up org-move-thing-down,
Richard KLINDA <=