Some emacs lisp to manage my "productivity points" in org-mode