diff options
author | David Arroyo Menéndez <davidam@es.gnu.org> | 2016-01-18 09:45:21 +0100 |
---|---|---|
committer | David Arroyo Menéndez <davidam@es.gnu.org> | 2016-01-18 09:45:21 +0100 |
commit | a20abaa725202e95faa06764ee026a2d9bcfe653 (patch) | |
tree | 8b090c07d06d1426b270d69006f397931f4919bf | |
parent | 0f8c6b0b2e49ca8df5025d78f9236f3115bd300f (diff) | |
download | org-mode-a20abaa725202e95faa06764ee026a2d9bcfe653.tar.gz |
org-effectiveness.el: Add org-effectiveness-count-task
* contrib/lisp/org-effectiveness.el (org-effectiveness-count-task): Add function.
-rw-r--r-- | contrib/lisp/org-effectiveness.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/contrib/lisp/org-effectiveness.el b/contrib/lisp/org-effectiveness.el index b1e5a35..cbb9847 100644 --- a/contrib/lisp/org-effectiveness.el +++ b/contrib/lisp/org-effectiveness.el @@ -77,6 +77,13 @@ many TODO pending" (goto-char (point-min)) (message "Number of Canceled: %d" (count-matches "* CANCEL+ED")))) +(defun org-effectiveness-count-task() + "Print a message with the number of tasks and subtasks in the current buffer" + (interactive) + (save-excursion + (goto-char (point-min)) + (message "Number of tasks: %d" (count-matches "^*")))) + (defun org-effectiveness() "Returns the effectiveness in the current org buffer" (interactive) |