ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org-effectiveness.el: Add org-effectiveness-count-task 

* contrib/lisp/org-effectiveness.el (org-effectiveness-count-task): Add function.
This commit is contained in:
David Arroyo Menéndez 2016-01-18 09:45:21 +01:00
parent 0f8c6b0b2e
commit a20abaa725
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -77,6 +77,13 @@ many TODO pending"
(goto-char (point-min)) (goto-char (point-min))
(message "Number of Canceled: %d" (count-matches "* CANCEL+ED")))) (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() (defun org-effectiveness()
"Returns the effectiveness in the current org buffer" "Returns the effectiveness in the current org buffer"
(interactive) (interactive)