summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2012-07-28 09:33:19 +0200
committerBastien Guerry <bzg@altern.org>2012-07-28 09:33:19 +0200
commit3a18eefe9d119be77889e1fa087163f303408935 (patch)
treeb10fbf925cda019aa8c118935804fa6f1ad29717
parente10ff18ffc22cbefcdab5cfebbaf94c316c7f28a (diff)
downloadorg-mode-3a18eefe9d119be77889e1fa087163f303408935.tar.gz
New command `org-inc-effort' to increment the effort value.
* org.el (org-inc-effort): New command to increment the effort property. (org-set-effort): Use it. (org-mode-map): Bind it to `C-c C-x E'. (org-speed-commands-default): Use `E' as a speed command for it.
-rw-r--r--lisp/org.el18
1 files changed, 15 insertions, 3 deletions
diff --git a/lisp/org.el b/lisp/org.el
index d0cccf5..018926b 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -14132,10 +14132,17 @@ value for the property."
(call-interactively 'org-compute-property-at-point))
(t (error "No such property action %c" c)))))
-(defun org-set-effort (&optional value)
+(defun org-inc-effort ()
+ "Increment the value of the effort property in the current entry."
+ (interactive)
+ (org-set-effort nil t))
+
+(defun org-set-effort (&optional value increment)
"Set the effort property of the current entry.
-With numerical prefix arg, use the nth allowed value, 0 stands for the 10th
-allowed value."
+With numerical prefix arg, use the nth allowed value, 0 stands for the
+10th allowed value.
+
+When INCREMENT is non-nil, set the property to the next allowed value."
(interactive "P")
(if (equal value 0) (setq value 10))
(let* ((completion-ignore-case t)
@@ -14149,6 +14156,9 @@ allowed value."
((and allowed (integerp value))
(or (car (nth (1- value) allowed))
(car (org-last allowed))))
+ ((and allowed increment)
+ (or (caadr (member (list cur) allowed))
+ (error "Allowed effort values are not set")))
(allowed
(message "Select 1-9,0, [RET%s]: %s"
(if cur (concat "=" cur) "")
@@ -17854,6 +17864,7 @@ BEG and END default to the buffer boundaries."
(org-defkey org-mode-map "\C-c\C-x\C-b" 'org-toggle-checkbox)
(org-defkey org-mode-map "\C-c\C-xp" 'org-set-property)
(org-defkey org-mode-map "\C-c\C-xe" 'org-set-effort)
+(org-defkey org-mode-map "\C-c\C-xE" 'org-inc-effort)
(org-defkey org-mode-map "\C-c\C-xo" 'org-toggle-ordered-property)
(org-defkey org-mode-map "\C-c\C-xi" 'org-insert-columns-dblock)
(org-defkey org-mode-map [(control ?c) (control ?x) ?\;] 'org-timer-set-timer)
@@ -17919,6 +17930,7 @@ BEG and END default to the buffer boundaries."
("3" . (org-priority ?C))
(";" . org-set-tags-command)
("e" . org-set-effort)
+ ("E" . org-inc-effort)
("Agenda Views etc")
("v" . org-agenda)
("/" . org-sparse-tree)