ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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>.
This commit is contained in:
Bastien Guerry 2014-05-20 15:48:01 +02:00
parent bf47838d77
commit b76071f2b6
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/org.el
View File

@ -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)