The way to `cache` the application Cocoa Emacs.

close.el

(global-set-key (kbd "C-x C-c") 'close-on-mac)

(require 'cl)
(defun close-buffers-without-default ()
  (interactive)
  (loop for buffer being the buffers
	do ((lambda (buffer)
	      (if (and (not (string= (buffer-name buffer) "*GNU Emacs*"))
		       (not (string= (buffer-name buffer) "*scratch*"))
		       (not (string= (buffer-name buffer) "*Messages*")))
		  (kill-buffer buffer))) buffer)))

(defun close-on-mac ()
  (interactive)
  (close-buffers-without-default)
  (switch-to-buffer "*GNU Emacs*")
  (delete-other-windows)
  (delete-other-frames)
  (beginning-of-buffer)
  (ns-do-hide-emacs))