summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2014-05-20 15:48:01 +0200
committerBastien Guerry <bzg@altern.org>2014-05-20 15:48:01 +0200
commitb76071f2b6dda4ebee2ebc5dad6c1c34eeeedd58 (patch)
tree71f6c287106984bd928f89db80f4cc18b7f7312e
parentbf47838d772e2be979c2f2941261627c4984199a (diff)
downloadorg-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.el18
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)