mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 22:07:49 +00:00
Code Releases Activity

org-effectiveness.el: Add save-excursion to org-effectiveness-dones-in-date, org-effectiveness-canceled-in-date, org-effectiveness-todos-in-date

Browse source 
* contrib/lisp/org-effectiveness.el (org-effectiveness-dones-in-date, org-effectiveness-canceled-in-date, org-effectiveness-todos-in-date): Add save-excursion
This commit is contained in:
David Arroyo Menéndez 2016-01-25 12:07:16 +01:00
parent 01319a41a3
commit 0c3ea42a7c
1 changed files with 17 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
contrib/lisp/org-effectiveness.el
View file

@ -96,25 +96,32 @@ many TODO pending"
(setq effectiveness (* 100 (/ done (+ done canc))))) (setq effectiveness (* 100 (/ done (+ done canc)))))
(message "Effectiveness: %f" effectiveness)))) (message "Effectiveness: %f" effectiveness))))
(defun org-effectiveness-keywords-in-date(keyword date) (defun org-effectiveness-keywords-in-date(keyword date)
(interactive "sKeyword: \nsDate: " keyword date) (interactive "sKeyword: \nsDate: " keyword date)
(setq count (count-matches (concat keyword ".*\n.*" date))) (setq count (count-matches (concat keyword ".*\n.*" date)))
(message (concat "%sS: %d" keyword count))) (message (concat "%sS: %d" keyword count)))
(defun org-effectiveness-dones-in-date(date) (defun org-effectiveness-dones-in-date(date)
(interactive "sGive me a date: " date) (interactive "sGive me a date: " date)
(setq count (count-matches (concat "DONE.*\n.*" date))) (save-excursion
(message "DONES: %d" count)) (goto-char (point-min))
(setq count (count-matches (concat "DONE.*\n.*" date)))
(message "DONES: %d" count)))
(defun org-effectivenes-todos-in-date(date) (defun org-effectiveness-todos-in-date(date)
(interactive "sGive me a date: " date) (interactive "sGive me a date: " date)
(setq count (count-matches (concat "TODO.*\n.*" date))) (save-excursion
(message "TODOS: %d" count)) (goto-char (point-min))
(setq count (count-matches (concat "TODO.*\n.*" date)))
(message "TODOS: %d" count)))
(defun org-effectiveness-canceled-in-date(date) (defun org-effectiveness-canceled-in-date(date)
(interactive "sGive me a date: " date) (interactive "sGive me a date: " date)
(setq count (count-matches (concat "CANCEL+ED.*\n.*" date))) (save-excursion
(message "CANCELEDS: %d" count)) (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) (defun org-effectiveness-ntasks-in-date(date &optional notmessage)
(interactive "sGive me a date: " date) (interactive "sGive me a date: " date)