Re: Executing Emacs Lisp through AppleScript on Mac OS X?

[YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>]

>>>>> On Sat, 17 Dec 2005 15:41:17 +0200, Presto W <prestowk@gmail.com> said:

> Just wanted to know if anyone else already thought of this or even
> implemented it.

Currently, underlying Apple event support is in the early stage and
too weak to support AppleScript in general.  It can react to incoming
Apple events, but cannot return results or error messages to the
caller.  If this limitation is OK with you, the implementation would
be as follows:

<?xml version="1.0"?>
<!DOCTYPE dictionary SYSTEM "file://localhost/System/Library/DTDs/sdef.dtd">
<dictionary title="Emacs Terminology">
	<suite name="Emacs Suite" code="EMAx">
		<command name="do Lisp" code="EMAxLisp" description="Evaluate a Lisp expression.">
			<direct-parameter type="text" description="The expression to be evaluated."/>
		</command>
	</suite>
</dictionary>

(put 'emacs-suite 'mac-apple-event-class "EMAx")
(put 'do-lisp 'mac-apple-event-id "Lisp")

(defun mac-ae-do-lisp (event)
  (interactive "e")
  (eval (car (read-from-string (mac-ae-text (mac-event-ae event))))))

(define-key mac-apple-event-map [emacs-suite do-lisp] 'mac-ae-do-lisp)

				     YAMAMOTO Mitsuharu
				mituharu@math.s.chiba-u.ac.jp