diff options
author | David Arroyo Menendez <davidam9@riseup.net> | 2013-11-16 20:12:05 +0100 |
---|---|---|
committer | David Arroyo Menendez <davidam9@riseup.net> | 2013-11-16 20:12:05 +0100 |
commit | 19f55fbe27e2091d45f60fca0aff67173d4a340f (patch) | |
tree | 8d717a0aec67d954022e4360ddfcce83a13cfd45 | |
parent | 695391fc24527a9745e6aa096d3a0cb4a9683ab8 (diff) | |
download | org-mode-19f55fbe27e2091d45f60fca0aff67173d4a340f.tar.gz |
Accepting canceled and cancelled
-rw-r--r-- | contrib/lisp/org-effectiveness.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/contrib/lisp/org-effectiveness.el b/contrib/lisp/org-effectiveness.el index a276989..c42925d 100644 --- a/contrib/lisp/org-effectiveness.el +++ b/contrib/lisp/org-effectiveness.el @@ -59,7 +59,7 @@ (interactive) (save-excursion (goto-char (point-min)) - (message "Number of Canceled: %d" (count-matches "* CANCELED")))) + (message "Number of Canceled: %d" (count-matches "* CANCEL+ED")))) (defun org-effectiveness() "Returns the effectiveness in the current org buffer" @@ -67,7 +67,7 @@ (save-excursion (goto-char (point-min)) (let ((done (float (count-matches "* DONE.*\n.*"))) - (canc (float (count-matches "* CANCELED.*\n.*")))) + (canc (float (count-matches "* CANCEL+ED.*\n.*")))) (if (and (= done canc) (zerop done)) (setq effectiveness 0) (setq effectiveness (* 100 (/ done (+ done canc))))) @@ -90,7 +90,7 @@ (defun org-canceled-in-date(date) (interactive "sGive me a date: " date) - (setq count (count-matches (concat "TODO.*\n.*" date))) + (setq count (count-matches (concat "CANCEL+ED.*\n.*" date))) (message "CANCELEDS: %d" count)) (defun org-effectiveness-in-date(date &optional notmessage) @@ -98,7 +98,7 @@ (save-excursion (goto-char (point-min)) (let ((done (float (count-matches (concat "* DONE.*\n.*" date)))) - (canc (float (count-matches (concat "* CANCELED.*\n.*" date))))) + (canc (float (count-matches (concat "* CANCEL+ED.*\n.*" date))))) (if (and (= done canc) (zerop done)) (setq effectiveness 0) (setq effectiveness (* 100 (/ done (+ done canc))))) |