summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Arroyo Menéndez <davidam@es.gnu.org>2016-01-18 09:45:21 +0100
committerDavid Arroyo Menéndez <davidam@es.gnu.org>2016-01-18 09:45:21 +0100
commita20abaa725202e95faa06764ee026a2d9bcfe653 (patch)
tree8b090c07d06d1426b270d69006f397931f4919bf
parent0f8c6b0b2e49ca8df5025d78f9236f3115bd300f (diff)
downloadorg-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.el7
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)