From eb9c5ae49ad084b1a747aaa41f12457e06d771c9 Mon Sep 17 00:00:00 2001 From: David Arroyo Menendez Date: Sat, 15 Mar 2014 09:11:54 +0100 Subject: [PATCH] add org-effectiveness-advice feature --- contrib/lisp/org-effectiveness.el | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/contrib/lisp/org-effectiveness.el b/contrib/lisp/org-effectiveness.el index a872cb201..4206a2709 100644 --- a/contrib/lisp/org-effectiveness.el +++ b/contrib/lisp/org-effectiveness.el @@ -33,6 +33,22 @@ (require 'org) +(defcustom org-effectiveness-max-todo 50 + "This variable is useful to advice to the user about +many TODO pending" + :type 'integer + :group 'org-effectiveness) + +(defun org-effectiveness-advice() + "Advicing about a possible excess of TODOS" + (interactive) + (goto-char (point-min)) + (if (< org-effectiveness-max-todo (count-matches "* TODO")) + (message "An excess of TODOS!"))) + +;; Check advice starting an org file +(add-hook 'org-mode-hook 'org-effectiveness-advice) + (defun org-effectiveness-count-keyword(keyword) "Print a message with the number of keyword outline in the current buffer" (interactive "sKeyword: ")