From: hymie! <hymie@lactose.homelinux.net>
To: emacs-orgmode@gnu.org
Subject: malformed function
Date: Mon, 9 Jul 2018 13:37:56 +0000 (UTC) [thread overview]
Message-ID: <slrnpk6pdn.7hg.hymie@lactose.homelinux.net> (raw)
Greetings.
I know this is technically an emacs problem and not an Orgmode problem,
but maybe you guys will see the error that I can't find.
I have two different machines. One is a Linux machine running
Orgmode 9.1.13 under Emacs 25.3.1 , and one is a Windows 10 machine
running Orgmode 9.1.13 under Emacs 24.5.1 . Both have the same .emacs
file as far as I can tell.
The Linux machine is getting this error:
Warning (bytecomp): ‘(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))))’ is a malformed function
As far as I can tell, the parens and quotes are all matched properly, and
the Windows machine is not displaying this error.
Here is the relevant part of my .emacs file. Maybe you guys can see the
error I don't see?
===== 8< =====
; http://orgmode.org/worg/org-hacks.html
(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)
===== 8< =====
Thanks.
--hymie! http://lactose.homelinux.net/~hymie hymie@lactose.homelinux.net
next reply other threads:[~2018-07-09 13:40 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2018-07-09 13:37 hymie! [this message]
2018-07-11 9:35 ` malformed function Joost Kremers
2018-07-11 9:48 ` Joost Kremers
2018-07-11 11:39 ` hymie!
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=slrnpk6pdn.7hg.hymie@lactose.homelinux.net \
--to=hymie@lactose.homelinux.net \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).