Philipp Haselwarter <[email protected]> writes:
> On 2011-05-16 14:08 UT, Matt Lundin <[email protected]> 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 […]
>
> 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= string "\n") (string= 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
