#+BEGIN_SRC emacs-lisp
(require 'org)
(require 'org-mac-iCal)
(add-to-list 'org-modules 'org-mac-iCal)
#+END_SRC

#+BEGIN_SRC emacs-lisp
(setq org-agenda-include-diary t)
#+END_SRC

#+BEGIN_SRC emacs-lisp
(setq org-agenda-custom-commands
      '(("I" "Import diary from iCal" agenda ""
         ((org-agenda-mode-hook
           (lambda ()
             (org-mac-iCal)))))))
#+END_SRC