= Using the Address Book framework =

Here's a bare-bones example of how to load and use the Address Book framework.

{{{
? (require 'objc-support)
OBJC-SUPPORT
("OBJC-PACKAGE" "SEQUENCE-UTILS" "NAME-TRANSLATION" "OBJC-CLOS" "OBJC-RUNTIME" "BRIDGE" "OBJC-SUPPORT")
;;; Load the framework
? (objc:load-framework "AddressBook" :addressbook)
NIL
;;; Looks like it worked...
? ns:ab-address-book
#<AB-ADDRESS-BOOK <ABAddressBook: 0x1743c300> (#x1743C300)>
}}}

Load this code (after doing
the `OBJC:LOAD-FRAMEWORK` mentioned above), and you'll
be able to say `(absearch "smith")` to look for the Smiths in your Address Book.
Note that the output from NSLog may go to the system console.
{{{
(in-package "CCL")

(defun absearch (surname)
  (let* ((ab (#/sharedAddressBook ns:ab-address-book))
         (search (#/searchElementForProperty:label:key:value:comparison:
                  ns:ab-person
                  #&kABLastNameProperty
                  +null-ptr+
                  +null-ptr+
                  (#/autorelease (%make-nsstring surname))
                  #$kABEqualCaseInsensitive))
         (results (#/recordsMatchingSearchElement: ab search)))
    (#_NSLog #@"%@" :id results)))
}}}