From mboxrd@z Thu Jan 1 00:00:00 1970 From: Matt Lundin Subject: Re: org-bbdb-anniversaries gives error 'bad sexp' Date: Mon, 13 Jun 2011 07:27:49 -0500 Message-ID: <87lix529x6.fsf@fastmail.fm> References: <87wrht82iw.fsf@gmx.co.uk> <19919.63774.257976.613699@gargle.gargle.HOWL> <87k4drew8z.fsf@fastmail.fm> <87liy6vitg.fsf@fastmail.fm> <87mxhmfwqd.fsf@nzebook.haselwarter.org> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([140.186.70.92]:48148) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QW6FH-0004ho-SR for emacs-orgmode@gnu.org; Mon, 13 Jun 2011 08:28:00 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QW6FG-0003pZ-3L for emacs-orgmode@gnu.org; Mon, 13 Jun 2011 08:27:55 -0400 Received: from out4.smtp.messagingengine.com ([66.111.4.28]:56512) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QW6FF-0003pS-Qk for emacs-orgmode@gnu.org; Mon, 13 Jun 2011 08:27:53 -0400 In-Reply-To: <87mxhmfwqd.fsf@nzebook.haselwarter.org> (Philipp Haselwarter's message of "Mon, 13 Jun 2011 01:36:42 +0200") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Philipp Haselwarter Cc: emacs-orgmode@gnu.org, bbdb-info@lists.sourceforge.net Philipp Haselwarter writes: > On 2011-05-16 14:08 UT, Matt Lundin wrote: > > ML> I have anniversaries working in my own setup, so between the two > ML> sets of modifications, I should be able to provide a full set of > ML> fixes.More soon... > > Would you mind sharing the working bits of your setup? > I just tried %%(org-bbdb-anniversaries) and got a > Bad sexp at line [=E2=80=A6] > > thanks for the effort! Certainly. These are the temporary workarounds I'm using to get org-bbdb to work with the new bbdb: --8<---------------cut here---------------start------------->8--- (defalias 'bbdb-company 'bbdb-search-organization) (defalias 'bbdb-name 'bbdb-search-name) (defun bbdb-record-getprop (record label) (and (eq label 'company) (setq label 'organization)) (if (memq label '(name degree organization address phone mail aka)) (funcall (intern (concat "bbdb-record-" (symbol-name label))) record) (bbdb-record-note record label))) (defadvice bbdb-split (around my-bbdb-split activate) (when (or (string=3D string "\n") (string=3D string "-")) (let ((sep string)) (setq string separator separator sep) ad-do-it))) --8<---------------cut here---------------end--------------->8--- Other work has prevented me from updating org-bbdb.el yet, but I will get to it as soon as I can. Best, Matt