gistfile1.txt

(defvar azh/carbon-emacs-shell-program-name "iTerm")
(defun azh/close-frame ()
  (ignore-errors (make-frame-invisible azh/frame))
  (when (and (featurep 'carbon-emacs-package)
             (fboundp 'do-applescript))
    (let ((applescript (format "tell application \"%s\"
                                activate
                             end" azh/carbon-emacs-shell-program-name)))
      (funcall 'do-applescript applescript))))