From mboxrd@z Thu Jan 1 00:00:00 1970 From: Bernt Hansen Subject: [PATCH 1/2] Initialize org-clock-notification-was-shown on clock-in Date: Tue, 9 Jun 2009 16:43:53 -0400 Message-ID: <1244580234-25563-1-git-send-email-bernt@norang.ca> Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1ME8BO-0002Va-Ha for emacs-orgmode@gnu.org; Tue, 09 Jun 2009 16:44:34 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1ME8BK-0002UM-Cc for emacs-orgmode@gnu.org; Tue, 09 Jun 2009 16:44:33 -0400 Received: from [199.232.76.173] (port=42942 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1ME8BK-0002UJ-6X for emacs-orgmode@gnu.org; Tue, 09 Jun 2009 16:44:30 -0400 Received: from mho-01-ewr.mailhop.org ([204.13.248.71]:54654) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1ME8BJ-0005Ve-Sw for emacs-orgmode@gnu.org; Tue, 09 Jun 2009 16:44:30 -0400 Received: from cpe000102d0fe75-cm0012256ecbde.cpe.net.cable.rogers.com ([99.239.148.180] helo=mail.norang.ca) by mho-01-ewr.mailhop.org with esmtpsa (TLSv1:AES256-SHA:256) (Exim 4.68) (envelope-from ) id 1ME8BH-000NDk-0J for emacs-orgmode@gnu.org; Tue, 09 Jun 2009 20:44:27 +0000 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Cc: Bernt Hansen This makes org-clock-sound a little more well-behaved. The clock sound was only being issued if you were already clocking a task that was under its limit, and changed to clocking something else. Now each time you clock in a new task it checks the estimated effort limit and issues the org-clock-sound if the limit is exceeded. This patch issues the org-clock-sound whenever you clock in a task that is already over its estimated effort amount. This allows you to use the estimated effort as a limit for the amount of time to spend on a task. Each time you clock in the task you'll be notified that you are over the limit. This is great for tasks where you want to limit the amount of time spent (per day, since last repeat) and is a reminder to go work on something else instead. --- This patch series is available at git://git.norang.ca/org-mode for-carsten lisp/org-clock.el | 1 + 1 files changed, 1 insertions(+), 0 deletions(-) diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 1016c6a..57f1a6f 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -420,6 +420,7 @@ clock into. When SELECT is `C-u C-u', clock into the current task and mark is as the default task, a special task that will always be offered in the clocking selection, associated with the letter `d'." (interactive "P") + (setq org-clock-notification-was-shown nil) (catch 'abort (let ((interrupting (marker-buffer org-clock-marker)) ts selected-task target-pos (msg-extra "")) -- 1.6.3.2.198.g6096d