How to launch terminal.app from elisp

Question

I've been using shell-pop recently, and it's nice how I can pop to default-directory in term immediately. For the times I'd rather use a dedicated terminal, is it possible to create an equivalent for OSX's Terminal.app?

What I want is to call one function in emacs and launch Terminal.app cd'd automatically to default-directory.

Answer 1

(defun my-applescript-fn ()
"Open the Terminal.app, wait a second, and CD to the Emacs default-directory
of current buffer."
(interactive)
(do-applescript
  (format
    "tell application \"Terminal\"
    activate
    delay 1
    try
    do script with command \"cd %s\" in window 1
    on error
    beep
    end try
    end tell" default-directory)))

Answer 2

The applescript version above didn't seem to work for me--this version is also potentially faster since it requires no delay:

(defun brds/open-Terminal-here ()
    (interactive)
    (shell-command
     (concat "open -a Terminal "
             (shell-quote-argument (expand-file-name
                                    default-directory))) nil nil))