Igor Sosa Mayor wrote: > Am Sat, Feb 01, 2014 at 01:03:07PM +0100, Florian Beck wrote: >> Use `kill-emacs-hook': >> >> (defun org-clock-out-maybe () >> "Stop a currently running clock." >> (org-clock-out nil t)) >> >> (add-hook 'kill-emacs-hook 'org-clock-out-maybe) > > Thanks a lot. This is much better. But: are you really using this idea?
A variation: --8<---------------cut here---------------start------------->8--- ;; ask the user if they wish to clock out before killing Emacs (defun my/org-query-clock-out () "Ask the user before clocking out. This is a useful function for adding to `kill-emacs-query-functions'." (if (and (featurep 'org-clock) (funcall 'org-clocking-p) (y-or-n-p "You are currently clocking time, clock out? ")) (org-clock-out) t)) ; only fails on keyboard quit or error (add-hook 'kill-emacs-query-functions 'my/org-query-clock-out) --8<---------------cut here---------------end--------------->8--- Best regards, Seb -- Sebastien Vauban