Using PeepOpen with Cocoa Emacs

EmacsClient.app

on open these_items
	set this_item to item 1 of these_items
	set file_path to (the POSIX path of this_item)
	tell application "Terminal"
		do shell script "/Applications/Emacs.app/Contents/MacOS/bin/emacsclient -n " & file_path & ""
	end tell
end open

peepopen.el

;; Replace the old shell-command-to-string function call in peepopen.el
;; or eproject-peepopen.el with this, so that PeepOpen uses EmacsClient.app
;; to open the selected file.

(shell-command-to-string
     (format "open 'peepopen://%s?editor=%s'"
             (expand-file-name root)
             "EmacsClient"))