Richard Riley <[email protected]> writes:
Cc:-ed Matt Lundin
>
> ps I have signed fsf papers if that little utility snippet is any good
> (ok, will need a defvar I guess for the tag used).
Maybe in the hack page of worg?
Feel free to reword my English ;-)
Giovanni
------------------ org-hacks.org ------------
** Using and Managing Org-Metadata
[...] <skip>
*** A way to tag a task so that when clocking-out user is prompted to take a
note.
-- Richard G. Riley
A small function that, finding the tag "clockout_note" in a headline,
prompts for a note. It uses the tag ("clockout_note") so can benefit
from inherit etc...
#+begin_src emacs-lisp
(defun rgr/check-for-clock-out-note()
(interactive)
(save-excursion
(set-mark (goto-char (org-entry-beginning-position)))
(let ((tags (org-get-tags)))
(message "tags: %s " tags)
(if (member "clockout_note" tags)
(org-add-note)))))
(add-hook 'org-clock-out-hook 'rgr/check-for-clock-out-note)
#+end_src
