Re: [O] Stop clock on closing emacs

[Sebastien Vauban]

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