add org-effectiveness-advice feature
authorDavid Arroyo Menendez <davidam9@riseup.net>
Sat, 15 Mar 2014 08:11:54 +0000 (09:11 +0100)
committerDavid Arroyo Menendez <davidam9@riseup.net>
Sat, 15 Mar 2014 08:11:54 +0000 (09:11 +0100)
contrib/lisp/org-effectiveness.el

index a872cb2..4206a27 100644 (file)
 
 (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: ")