Re: [Orgmode] Removing time grid lines (invalid function)

[Nick Dokos]

Desmond Rivet <address@hidden> 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