tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

All functions must start by org-effectiveness

This commit is contained in:
David Arroyo Menendez 2013-11-16 20:16:03 +01:00
parent 2de63285fe
commit d8e149eb76
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
contrib/lisp/org-effectiveness.el
View File

@ -73,22 +73,22 @@
(setq effectiveness (* 100 (/ done (+ done canc)))))
(message "Effectiveness: %f" effectiveness))))
(defun org-keywords-in-date(keyword date)
(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-dones-in-date(date)
(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))
(defun org-todos-in-date(date)
(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-canceled-in-date(date)
(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))