From mboxrd@z Thu Jan 1 00:00:00 1970 From: John Wiegley Subject: Displaying your Org agenda after idle time Date: Thu, 18 Mar 2010 05:30:34 -0400 Message-ID: <55590EA7-C744-44E5-909F-755F0BBE452D@gmail.com> Mime-Version: 1.0 (Apple Message framework v1077) Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: quoted-printable Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1NsC3u-0004PD-0g for emacs-orgmode@gnu.org; Thu, 18 Mar 2010 05:30:42 -0400 Received: from [140.186.70.92] (port=39703 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NsC3s-0004Oq-9b for emacs-orgmode@gnu.org; Thu, 18 Mar 2010 05:30:41 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1NsC3q-0001LE-Ug for emacs-orgmode@gnu.org; Thu, 18 Mar 2010 05:30:40 -0400 Received: from mail-yw0-f181.google.com ([209.85.211.181]:46799) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1NsC3q-0001L8-RJ for emacs-orgmode@gnu.org; Thu, 18 Mar 2010 05:30:38 -0400 Received: by ywh11 with SMTP id 11so829602ywh.27 for ; Thu, 18 Mar 2010 02:30:37 -0700 (PDT) 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: Org-mode Mode I have the following snippet in my .emacs file, which I find very = useful. Basically what it does is that if I don't touch my Emacs for 5 = minutes, it displays the current agenda. This keeps my tasks "always in = mind" whenever I come back to Emacs after doing something else, whereas = before I had a tendency to forget that it was there. John (defun jump-to-org-agenda () (interactive) (let ((buf (get-buffer "*Org Agenda*")) wind) (if buf (if (setq wind (get-buffer-window buf)) (select-window wind) (if (called-interactively-p) (progn (select-window (display-buffer buf t t)) (org-fit-window-to-buffer) ;; (org-agenda-redo) ) (with-selected-window (display-buffer buf) (org-fit-window-to-buffer) ;; (org-agenda-redo) ))) (call-interactively 'org-agenda-list))) ;;(let ((buf (get-buffer "*Calendar*"))) ;; (unless (get-buffer-window buf) ;; (org-agenda-goto-calendar))) ) (run-with-idle-timer 300 t 'jump-to-org-agenda)