Applescript for EmacsClient.app

EmacsClient.app

on run {input}
	try
		set emacs_client_path to "usr/local/bin/"
		set pathtofile to quoted form of POSIX path of input
		
		set frameVisible to do shell script emacs_client_path & "emacsclient -e '(<= 2 (length (visible-frame-list)))'"
		if frameVisible is "t" then
			do shell script emacs_client_path & "emacsclient -n " & pathtofile
		else
			-- there is a not a visible frame, launch one
			do shell script emacs_client_path & "emacsclient -c -n " & pathtofile
		end if
		
	on error
		set emacs_client_path to "usr/local/bin/"
		do shell script emacs_client_path & "emacsclient -c -n "
	end try
	
	-- bring the visible frame to the front
	tell application "Emacs" to activate
	
end run