diff options
author | Bastien Guerry <bzg@altern.org> | 2014-05-20 15:48:01 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2014-05-20 15:48:01 +0200 |
commit | b76071f2b6dda4ebee2ebc5dad6c1c34eeeedd58 (patch) | |
tree | 71f6c287106984bd928f89db80f4cc18b7f7312e | |
parent | bf47838d772e2be979c2f2941261627c4984199a (diff) | |
download | org-mode-b76071f2b6dda4ebee2ebc5dad6c1c34eeeedd58.tar.gz |
Add `org-increase-number-at-point' bound to C-M-S-<right>
* org.el (org-increase-number-at-point)
(org-decrease-number-at-point): New commands.
(org-mode-map): Bind them to C-M-S-<right> and C-M-S-<left>.
-rw-r--r-- | lisp/org.el | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/lisp/org.el b/lisp/org.el index 0161436..c058093 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -19180,6 +19180,8 @@ boundaries." (org-defkey org-mode-map [(meta up)] 'org-metaup) (org-defkey org-mode-map [(meta down)] 'org-metadown) +(org-defkey org-mode-map [(control meta shift right)] 'org-increase-number-at-point) +(org-defkey org-mode-map [(control meta shift left)] 'org-decrease-number-at-point) (org-defkey org-mode-map [(meta shift left)] 'org-shiftmetaleft) (org-defkey org-mode-map [(meta shift right)] 'org-shiftmetaright) (org-defkey org-mode-map [(meta shift up)] 'org-shiftmetaup) @@ -20252,6 +20254,22 @@ Optional argument N tells to change by that many units." (org-clock-timestamps-down n)) (user-error "Not at a clock log"))) +(defun org-increase-number-at-point (&optional inc) + (interactive "p") + (unless inc (setq inc 1)) + (let ((nap (thing-at-point 'number))) + (when nap + (skip-chars-backward "-+0123456789") + (kill-word 1) + (insert (number-to-string (+ inc nap))))) + (when (org-at-table-p) + (org-table-align) + (org-table-end-of-field 1))) + +(defun org-decrease-number-at-point (&optional inc) + (interactive "p") + (org-increase-number-at-point (- inc))) + (defun org-ctrl-c-ret () "Call `org-table-hline-and-move' or `org-insert-heading' dep. on context." (interactive) |