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

org.el (org-set-effort, org-property-next-allowed-value): When needed, update the current clock effort time 

* org.el (org-set-effort, org-property-next-allowed-value):
When needed, update the current clock effort time.
This commit is contained in:
Bastien Guerry 2013-02-19 10:24:59 +01:00
parent 33d362788e
commit 19a0b74ce6
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/org.el
View File

@ -14679,6 +14679,7 @@ When INCREMENT is non-nil, set the property to the next allowed value."
(cur (org-entry-get nil prop)) (cur (org-entry-get nil prop))
(allowed (org-property-get-allowed-values nil prop 'table)) (allowed (org-property-get-allowed-values nil prop 'table))
(existing (mapcar 'list (org-property-values prop))) (existing (mapcar 'list (org-property-values prop)))
(heading (nth 4 (org-heading-components)))
rpl rpl
(val (cond (val (cond
((stringp value) value) ((stringp value) value)
@ -14712,6 +14713,9 @@ When INCREMENT is non-nil, set the property to the next allowed value."
(save-excursion (save-excursion
(org-back-to-heading t) (org-back-to-heading t)
(put-text-property (point-at-bol) (point-at-eol) 'org-effort val)) (put-text-property (point-at-bol) (point-at-eol) 'org-effort val))
(when (string= heading org-clock-current-task)
(setq org-clock-effort (get-text-property (point-at-bol) 'org-effort))
(org-clock-update-mode-line))
(message "%s is now %s" prop val))) (message "%s is now %s" prop val)))
(defun org-at-property-p () (defun org-at-property-p ()
@ -15473,6 +15477,7 @@ completion."
(allowed (or (org-property-get-allowed-values (point) key) (allowed (or (org-property-get-allowed-values (point) key)
(and (member value '("[ ]" "[-]" "[X]")) (and (member value '("[ ]" "[-]" "[X]"))
'("[ ]" "[X]")))) '("[ ]" "[X]"))))
(heading (save-match-data (nth 4 (org-heading-components))))
nval) nval)
(unless allowed (unless allowed
(error "Allowed values for this property have not been defined")) (error "Allowed values for this property have not been defined"))
@ -15490,7 +15495,10 @@ completion."
(when (equal prop org-effort-property) (when (equal prop org-effort-property)
(save-excursion (save-excursion
(org-back-to-heading t) (org-back-to-heading t)
(put-text-property (point-at-bol) (point-at-eol) 'org-effort nval))) (put-text-property (point-at-bol) (point-at-eol) 'org-effort nval))
(when (string= org-clock-current-task heading)
(setq org-clock-effort nval)
(org-clock-update-mode-line)))
(run-hook-with-args 'org-property-changed-functions key nval))) (run-hook-with-args 'org-property-changed-functions key nval)))
(defun org-find-olp (path &optional this-buffer) (defun org-find-olp (path &optional this-buffer)