From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: redisplay agenda after using org-agenda-diary-entry? Date: Fri, 20 Nov 2009 20:36:25 +0100 Message-ID: References: <6249.1258728236@cpc1-cmbg14-2-0-cust6.5-4.cable.virginmedia.com> Mime-Version: 1.0 (Apple Message framework v936) Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1NBZHc-0002Pm-RN for emacs-orgmode@gnu.org; Fri, 20 Nov 2009 14:36:40 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1NBZHX-0002PI-ED for emacs-orgmode@gnu.org; Fri, 20 Nov 2009 14:36:39 -0500 Received: from [199.232.76.173] (port=44005 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NBZHX-0002P7-7s for emacs-orgmode@gnu.org; Fri, 20 Nov 2009 14:36:35 -0500 Received: from mail-ew0-f224.google.com ([209.85.219.224]:35834) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1NBZHV-0002ng-Oa for emacs-orgmode@gnu.org; Fri, 20 Nov 2009 14:36:33 -0500 Received: by ewy24 with SMTP id 24so172853ewy.26 for ; Fri, 20 Nov 2009 11:36:28 -0800 (PST) In-Reply-To: <6249.1258728236@cpc1-cmbg14-2-0-cust6.5-4.cable.virginmedia.com> 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: Stephen Eglen Cc: emacs-orgmode@gnu.org Hi Stephen, this is fun, but incomplete, because you cannot rely on being back in the agenda. I fixed that and applied the patch... - Carsten On Nov 20, 2009, at 3:43 PM, Stephen Eglen wrote: > How about the following simple change to the facility for > adding diary entries in the agenda: when you press 'i d' in > the agenda to add a new entry, you then see the entry in the agenda? > > (& if so, what about the other cases, like 'i b' for block entries?) > > Stephen > > diff -c org-agenda.el~ org-agenda.el > *** org-agenda.el~ Fri Nov 20 11:03:03 2009 > --- org-agenda.el Fri Nov 20 14:36:10 2009 > *************** > *** 6677,6683 **** > (cond > ((equal char ?d) > (setq text (read-string "Day entry: ")) > ! (org-agenda-add-entry-to-org-agenda-diary-file 'day text d1)) > ((equal char ?a) > (setq d1 (list (car d1) (nth 1 d1) > (read-number (format "Reference year [%d]: " (nth 2 d1)) > --- 6677,6684 ---- > (cond > ((equal char ?d) > (setq text (read-string "Day entry: ")) > ! (org-agenda-add-entry-to-org-agenda-diary-file 'day text d1) > ! (org-agenda-redo)) > ((equal char ?a) > (setq d1 (list (car d1) (nth 1 d1) > (read-number (format "Reference year [%d]: " (nth 2 d1)) > > > _______________________________________________ > Emacs-orgmode mailing list > Remember: use `Reply All' to send replies to the list. > Emacs-orgmode@gnu.org > http://lists.gnu.org/mailman/listinfo/emacs-orgmode - Carsten