From mboxrd@z Thu Jan  1 00:00:00 1970
From: Nick Dokos <nicholas.dokos@hp.com>
Subject: Re: Removing time grid lines (invalid function)
Date: Tue, 13 Oct 2009 12:30:28 -0400
Message-ID: <8747.1255451428@gamaville.dokosmarshall.org>
References: <87tyy39x48.fsf@zinc.branchcut.ath.cx>
Reply-To: nicholas.dokos@hp.com
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 1MxkHj-0003aS-Nw
	for emacs-orgmode@gnu.org; Tue, 13 Oct 2009 12:31:39 -0400
Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1MxkHg-0003TL-0L
	for emacs-orgmode@gnu.org; Tue, 13 Oct 2009 12:31:39 -0400
Received: from [199.232.76.173] (port=57674 helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1MxkHf-0003T7-Jr
	for emacs-orgmode@gnu.org; Tue, 13 Oct 2009 12:31:35 -0400
Received: from vms173007pub.verizon.net ([206.46.173.7]:53519)
	by monty-python.gnu.org with esmtp (Exim 4.60)
	(envelope-from <nick@gamaville.dokosmarshall.org>)
	id 1MxkHf-00069j-AB
	for emacs-orgmode@gnu.org; Tue, 13 Oct 2009 12:31:35 -0400
Received: from gamaville.dokosmarshall.org ([98.110.172.159])
	by vms173007.mailsrvcs.net
	(Sun Java(tm) System Messaging Server 6.3-7.04 (built Sep 26 2008;
	32bit)) with ESMTPA id <0KRG005HSOH1G800@vms173007.mailsrvcs.net> for
	emacs-orgmode@gnu.org; Tue, 13 Oct 2009 11:29:31 -0500 (CDT)
In-reply-to: Message from Desmond Rivet <desmond_news@videotron.ca> of
	"Tue, 13 Oct 2009 10:39:19 EDT." <87tyy39x48.fsf@zinc.branchcut.ath.cx>
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: Desmond Rivet <desmond_news@videotron.ca>
Cc: emacs-orgmode@gnu.org

Desmond Rivet <desmond_news@videotron.ca> wrote:

> Hi all,
> 
> I'm attempting to use the hack listed on worg titled : "Remove time grid
> lines that are in an appointment".  I'm having a bit of trouble.  I'm
> using emacs 23.1.
> 
> I add this to my .emacs file:
> 
>...

Try adding this:

(load-library "cl-macs")

before you use flet. Does it fix it?

> (defadvice org-agenda-add-time-grid-maybe (around
> mde-org-agenda-grid-tweakify
>                                                   (list ndays todayp))
>   (if (member 'remove-match (car org-agenda-time-grid))
>       (flet ((extract-window 
>                                (line)
>               (let ((start (get-text-property 1 'time-of-day line))
> ...
> 
> And it starts up fine.  Then I try and get my agenda and I get this
> message:
> 
>   org-agenda-add-time-grid-maybe: Invalid function: (extract-window (line)
>   (let ((start (get-text-property 1 (quote time-of-day) line)) (dur
>   (get-text-property 1 (quote duration) line))) (cond ((and start dur)
>   (cons start (org-time-from-minutes (+ dur (org-time-to-minutes
>   start))))) (start start) (t nil))))
> 

Nick