diff options
| author | David Arroyo Menéndez <davidam@es.gnu.org> | 2016-01-25 12:07:16 +0100 |
|---|---|---|
| committer | David Arroyo Menéndez <davidam@es.gnu.org> | 2016-01-25 12:07:16 +0100 |
| commit | 0c3ea42a7c65c3f2debdf36a6c99ffde299b6e25 (patch) | |
| tree | 3cb5aa38d05404f607d84bcb78d57046884fd715 | |
| parent | 01319a41a32796fad2c94f42d9d5e9bf6eb52cd7 (diff) | |
| download | org-mode-0c3ea42a7c65c3f2debdf36a6c99ffde299b6e25.tar.gz | |
org-effectiveness.el: Add save-excursion to org-effectiveness-dones-in-date, org-effectiveness-canceled-in-date, org-effectiveness-todos-in-date
* contrib/lisp/org-effectiveness.el (org-effectiveness-dones-in-date, org-effectiveness-canceled-in-date, org-effectiveness-todos-in-date): Add save-excursion
| -rw-r--r-- | contrib/lisp/org-effectiveness.el | 27 |
1 files changed, 17 insertions, 10 deletions
diff --git a/contrib/lisp/org-effectiveness.el b/contrib/lisp/org-effectiveness.el index 4dd4d94..06e10b2 100644 --- a/contrib/lisp/org-effectiveness.el +++ b/contrib/lisp/org-effectiveness.el @@ -96,25 +96,32 @@ many TODO pending" (setq effectiveness (* 100 (/ done (+ done canc))))) (message "Effectiveness: %f" effectiveness)))) + (defun org-effectiveness-keywords-in-date(keyword date) (interactive "sKeyword: \nsDate: " keyword date) (setq count (count-matches (concat keyword ".*\n.*" date))) (message (concat "%sS: %d" keyword count))) (defun org-effectiveness-dones-in-date(date) - (interactive "sGive me a date: " date) - (setq count (count-matches (concat "DONE.*\n.*" date))) - (message "DONES: %d" count)) + (interactive "sGive me a date: " date) + (save-excursion + (goto-char (point-min)) + (setq count (count-matches (concat "DONE.*\n.*" date))) + (message "DONES: %d" count))) -(defun org-effectivenes-todos-in-date(date) - (interactive "sGive me a date: " date) - (setq count (count-matches (concat "TODO.*\n.*" date))) - (message "TODOS: %d" count)) +(defun org-effectiveness-todos-in-date(date) + (interactive "sGive me a date: " date) + (save-excursion + (goto-char (point-min)) + (setq count (count-matches (concat "TODO.*\n.*" date))) + (message "TODOS: %d" count))) (defun org-effectiveness-canceled-in-date(date) - (interactive "sGive me a date: " date) - (setq count (count-matches (concat "CANCEL+ED.*\n.*" date))) - (message "CANCELEDS: %d" count)) + (interactive "sGive me a date: " date) + (save-excursion + (goto-char (point-min)) + (setq count (count-matches (concat "CANCEL+ED.*\n.*" date))) + (message "CANCELEDS: %d" count))) (defun org-effectiveness-ntasks-in-date(date &optional notmessage) (interactive "sGive me a date: " date) |