mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases 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))
(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)