(require 'eudc)
(require 'executable)
(defvar eudc-mab-conversion-alist nil)
(defvar eudc-buffer-time nil)
(defvar eudc-contacts-file
"~/Library/Application Support/AddressBook/AddressBook.data")
(eudc-protocol-set 'eudc-query-function 'eudc-mab-query-internal 'mab)
(eudc-protocol-set 'eudc-list-attributes-function nil 'mab)
(eudc-protocol-set 'eudc-mab-conversion-alist nil 'mab)
(eudc-protocol-set 'eudc-protocol-has-default-query-attributes nil 'mab)
(defun eudc-mab-query-internal (query &optional return-attrs)
"Query MAB with QUERY.
QUERY is a list of cons cells (ATTR . VALUE) where ATTRs should be valid
MAB attribute names.
RETURN-ATTRS is a list of attributes to return, defaulting to
`eudc-default-return-attributes'."
(let ((fmt-string "%ln:%fn:%p:%e")
(mab-buffer (get-buffer-create " *mab contacts*"))
(modified (nth 5 (file-attributes eudc-contacts-file)))
result)
(with-current-buffer mab-buffer
(make-local-variable 'eudc-buffer-time)
(goto-char (point-min))
(when (or (eobp) (time-less-p eudc-buffer-time modified))
(erase-buffer)
(call-process (executable-find "contacts") nil t nil
"-H" "-l" "-f" fmt-string)
(setq eudc-buffer-time modified))
(goto-char (point-min))
(while (not (eobp))
(let* ((args (split-string (buffer-substring (point)
(line-end-position))
"\\s-*:\\s-*"))
(lastname (nth 0 args))
(firstname (nth 1 args))
(phone (nth 2 args))
(mail (nth 3 args))
(matched t))
(if (string-match "\\s-+\\'" mail)
(setq mail (replace-match "" nil nil mail)))
(dolist (term query)
(cond
((eq (car term) 'name)
(unless (string-match (cdr term)
(concat firstname " " lastname))
(setq matched nil)))
((eq (car term) 'email)
(unless (string= (cdr term) mail)
(setq matched nil)))
((eq (car term) 'phone))))
(when matched
(setq result
(cons `((firstname . ,firstname)
(lastname . ,lastname)
(name . ,(concat firstname " " lastname))
(phone . ,phone)
(email . ,mail)) result))))
(forward-line)))
(if (null return-attrs)
result
(let (eudc-result)
(dolist (entry result)
(let (entry-attrs abort)
(dolist (attr entry)
(when (memq (car attr) return-attrs)
(if (= (length (cdr attr)) 0)
(setq abort t)
(setq entry-attrs
(cons attr entry-attrs)))))
(if (and entry-attrs (not abort))
(setq eudc-result
(cons entry-attrs eudc-result)))))
eudc-result))))
(defun eudc-mab-set-server (dummy)
"Set the EUDC server to MAB."
(interactive)
(eudc-set-server dummy 'mab)
(message "MAB server selected"))
(eudc-register-protocol 'mab)
(provide 'eudcb-mab)