From mboxrd@z Thu Jan 1 00:00:00 1970 From: Desmond Rivet Subject: Removing time grid lines (invalid function) Date: Tue, 13 Oct 2009 10:39:19 -0400 Message-ID: <87tyy39x48.fsf@zinc.branchcut.ath.cx> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7BIT Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1MxiVW-0001nJ-UO for emacs-orgmode@gnu.org; Tue, 13 Oct 2009 10:37:46 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1MxiVS-0001mU-Ga for emacs-orgmode@gnu.org; Tue, 13 Oct 2009 10:37:46 -0400 Received: from [199.232.76.173] (port=45591 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MxiVS-0001mP-Bd for emacs-orgmode@gnu.org; Tue, 13 Oct 2009 10:37:42 -0400 Received: from relais.videotron.ca ([24.201.245.36]:14045) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1MxiVS-0004jQ-0c for emacs-orgmode@gnu.org; Tue, 13 Oct 2009 10:37:42 -0400 Received: from zinc.branchcut.ath.cx ([74.59.195.158]) by VL-MO-MR005.ip.videotron.ca (Sun Java(tm) System Messaging Server 6.3-4.01 (built Aug 3 2007; 32bit)) with ESMTP id <0KRG00C7SJASHTG0@VL-MO-MR005.ip.videotron.ca> for emacs-orgmode@gnu.org; Tue, 13 Oct 2009 10:37:41 -0400 (EDT) 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: emacs-orgmode@gnu.org 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.