From mboxrd@z Thu Jan  1 00:00:00 1970
From: John Wiegley <johnw@newartisans.com>
Subject: FR: A configuration option for the behavior of
 `org-fit-agenda-window'
Date: Tue, 09 Oct 2007 20:00:27 -0400
Message-ID: <m2r6k3zvms.fsf@newartisans.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1IfP08-0007k3-Oo
	for emacs-orgmode@gnu.org; Tue, 09 Oct 2007 20:00:36 -0400
Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1IfP06-0007iT-Pd
	for emacs-orgmode@gnu.org; Tue, 09 Oct 2007 20:00:35 -0400
Received: from [199.232.76.173] (helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1IfP06-0007iN-JI
	for emacs-orgmode@gnu.org; Tue, 09 Oct 2007 20:00:34 -0400
Received: from johnwiegley.com ([208.70.150.153] helo=mail.johnwiegley.com)
	by monty-python.gnu.org with esmtp (Exim 4.60)
	(envelope-from <johnw@newartisans.com>) id 1IfP05-0002ll-Ud
	for emacs-orgmode@gnu.org; Tue, 09 Oct 2007 20:00:34 -0400
Received: from Hermes.local (unknown [72.22.154.84])
	by mail.johnwiegley.com (Postfix) with ESMTP id 0997D4224CD
	for <emacs-orgmode@gnu.org>; Tue,  9 Oct 2007 19:00:33 -0500 (CDT)
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=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

When I switch to a daily agenda view, I like to know that what I'm seeing is
everything there is to see.  The current definition of org-fit-agenda-window
sets a maximum height for the agenda view to 3/4 the frame height.  This
always leaves me wondering if maybe there's one more task, just beyond the
bottom of the window.  I recommend the following customization variable:

  (defvar org-fit-whole-agenda-window nil)

  (defun org-fit-agenda-window ()
    "Fit the window to the buffer size."
    (and (memq org-agenda-window-setup '(reorganize-frame))
         (fboundp 'fit-window-to-buffer)
         (if org-fit-agenda-window
             (fit-window-to-buffer)
           (fit-window-to-buffer nil (/ (* (frame-height) 3) 4)
                                 (/ (frame-height) 2)))))

John