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: (defun org-time-to-minutes (time) "Convert an HHMM time to minutes" (+ (* (/ time 100) 60) (% time 100))) (defun org-time-from-minutes (minutes) "Convert a number of minutes to an HHMM time" (+ (* (/ minutes 60) 100) (% minutes 60))) (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)) (dur (get-text-property 1 'duration line))) (cond ((and start dur) (cons start (org-time-from-minutes (+ dur (org-time-to-minutes start))))) (start start) (t nil))))) (let* ((windows (delq nil (mapcar 'extract-window list))) (org-agenda-time-grid (list (car org-agenda-time-grid) (cadr org-agenda-time-grid) (remove-if (lambda (time) (find-if (lambda (w) (if (numberp w) (equal w time) (and (>= time (car w)) (< time (cdr w))))) windows)) (caddr org-agenda-time-grid))))) ad-do-it)) ad-do-it)) (ad-activate 'org-agenda-add-time-grid-maybe) 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)))) Doing a C-x C-e on the (ad-activate 'org-agenda-add-time-grid-maybe) line also gives the error. I have noticed that when I use emacs-cvs on Debian lenny, I have a similar but somewhat different problem: emacs will spit out a warning similar to the error above, but when I do a C-x C-e directly on the relevant portions of my .emacs file, everything works. I'm not sure how to start debugging this. To be honest, I'm not even sure what "flet" is; it doesn't seem to be in the emacs lisp manual... Any help is appreciated. Thanks in advance. -- Desmond Rivet Pain is weakness leaving the body. _______________________________________________ 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