;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\207" [require eudc executable] 2)
(defvar eudc-macos-contacts-conversion-alist nil)
(byte-code "\300\301\302\303#\210\300\304\305\303#\210\300\306\305\303#\210\300\307\305\303#\207" [eudc-protocol-set eudc-query-function eudc-macos-contacts-query-internal macos-contacts eudc-list-attributes-function nil eudc-macos-contacts-conversion-alist eudc-protocol-has-default-query-attributes] 4)
#@196 Helper function to query the Contacts app via AppleScript.
Searches for all persons with a case-insensitive substring match
of STR in any of their name fields (first, middle, or last).

(fn STR)
(defalias 'eudc-macos-contacts-search-helper #[257 "\300\301!\203\302\301\303\304\303\305\306\307\"&\207\310\311!\207" [executable-find "osascript" call-process nil t "-e" format "\nset results to {}\ntell application \"Address Book\"\n	set pList to every person whose (name contains \"%s\")\n	repeat with pers in pList\n		repeat with emailAddr in emails of pers\n			set results to results & {name of pers & \":\" & value ¬\n			of emailAddr & \"\n\"}\n		end repeat\n	end repeat\n	get results as text\nend tell" message "[eudc] Error in macOS Contacts backend: `osascript' executable not found. Is this is a macOS 10.0 or later system?"] 10 (#$ . 509)])
#@270 Query macOS Contacts with QUERY.
QUERY is a list of cons cells (ATTR . VALUE) where ATTRs should be valid
macOS Contacts attribute names.
RETURN-ATTRS is a list of attributes to return, defaulting to
`eudc-default-return-attributes'.

(fn QUERY &optional RETURN-ATTRS)
(defalias 'eudc-macos-contacts-query-internal #[513 "\300\301!\302r
q\210\303 \210\211\203\211@\304
A!\210
A\266\202\202\f\210\305ed\"\210eb\210m\204P\306 \307 \232\204J\310`\307 {\311\"\211@
A@\312B\313BDB\266\204\302y\210\202')\207" [get-buffer-create " *macOS Contacts*" nil erase-buffer eudc-macos-contacts-search-helper delete-duplicate-lines line-beginning-position line-end-position split-string ":" name email] 10 (#$ . 1370)])
#@210 Set the EUDC server to macOS Contacts app.
The server in DUMMY is not actually used, since this backend
always and implicitly connects to an instance of the Contacts app
running on the local host.

(fn DUMMY)
(defalias 'eudc-macos-contacts-set-server #[257 "\300
\301\"\210\302\303!\207" [eudc-set-server macos-contacts message "[eudc] macOS Contacts app server selected"] 4 (#$ . 2092) nil])
(byte-code "\300\301!\210\302\303!\207" [eudc-register-protocol macos-contacts provide eudcb-macos-contacts] 2)