From mboxrd@z Thu Jan 1 00:00:00 1970 From: Bastien Subject: Re: Is it any function similar to appoinment alert in the planner mode? Date: Thu, 26 Jul 2007 09:23:35 +0200 Message-ID: <87vec7aars.fsf@bzg.ath.cx> References: <63F95800EDD046419F17688AAFD41CCF01B77E1E@rnd-ex01.rnd.gdnt.local> <87ps2gxpk1.fsf@bzg.ath.cx> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1IDxhI-0007z9-Sy for emacs-orgmode@gnu.org; Thu, 26 Jul 2007 03:23:45 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1IDxhE-0007x4-Rr for emacs-orgmode@gnu.org; Thu, 26 Jul 2007 03:23:42 -0400 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1IDxhE-0007ww-9Y for emacs-orgmode@gnu.org; Thu, 26 Jul 2007 03:23:40 -0400 Received: from hu-out-0506.google.com ([72.14.214.232]) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1IDxhD-0002S4-RX for emacs-orgmode@gnu.org; Thu, 26 Jul 2007 03:23:40 -0400 Received: by hu-out-0506.google.com with SMTP id 23so38568huc for ; Thu, 26 Jul 2007 00:23:38 -0700 (PDT) In-Reply-To: <87ps2gxpk1.fsf@bzg.ath.cx> (Bastien Guerry's message of "Wed\, 25 Jul 2007 21\:15\:42 +0200") 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 --=-=-= Bastien Guerry writes: > writes: > >> I have just switched from Planner to Org recent and I find the Org mode >> fit my need more. But I failed to find a function that I used a lot in >> the Planner mode. The function is that a alert window is pop up (with a >> beep as well) when an appointment time is coming with in a few minutes. >> Is it such a function in current Org mode. If no, can we implement it? > > Here is a solution that works for me. Er.. this one works better: --=-=-= Content-Type: application/emacs-lisp Content-Disposition: inline; filename=bzg-org-agenda-to-appt.el Content-Description: bzg-org-agenda-to-appt (defun bzg-org-agenda-to-appt () "Activate appointments found in `org-agenda-files'." (interactive) (require 'org) (let* ((today (org-date-to-gregorian (time-to-days (current-time)))) (files org-agenda-files) entries file) (while (setq file (pop files)) (setq entries (append entries (org-agenda-get-day-entries file today :timestamp)))) (mapc (lambda(x) (let* ((event (org-trim (get-text-property 1 'txt x))) (timen (get-text-property 1 'time-of-day x)) (times (when (numberp timen) (number-to-string timen))) (timest (when times (concat (substring times 0 2) ":" (substring times 2 4))))) (when timen (appt-add timest event)))) entries))) --=-=-= -- Bastien --=-=-= Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-orgmode mailing list Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode --=-=-=--