mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-07-15 18:16:26 +00:00
All functions must start by org-effectiveness
This commit is contained in:
parent
2de63285fe
commit
d8e149eb76
|
@ -73,22 +73,22 @@
|
||||||
(setq effectiveness (* 100 (/ done (+ done canc)))))
|
(setq effectiveness (* 100 (/ done (+ done canc)))))
|
||||||
(message "Effectiveness: %f" effectiveness))))
|
(message "Effectiveness: %f" effectiveness))))
|
||||||
|
|
||||||
(defun org-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-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)))
|
(setq count (count-matches (concat "DONE.*\n.*" date)))
|
||||||
(message "DONES: %d" count))
|
(message "DONES: %d" count))
|
||||||
|
|
||||||
(defun org-todos-in-date(date)
|
(defun org-effectivenes-todos-in-date(date)
|
||||||
(interactive "sGive me a date: " date)
|
(interactive "sGive me a date: " date)
|
||||||
(setq count (count-matches (concat "TODO.*\n.*" date)))
|
(setq count (count-matches (concat "TODO.*\n.*" date)))
|
||||||
(message "TODOS: %d" count))
|
(message "TODOS: %d" count))
|
||||||
|
|
||||||
(defun org-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)))
|
(setq count (count-matches (concat "CANCEL+ED.*\n.*" date)))
|
||||||
(message "CANCELEDS: %d" count))
|
(message "CANCELEDS: %d" count))
|
||||||
|
|
Loading…
Reference in a new issue