Emacs 23, OS X, multi-tty и emacsclient

AppleScript был бы простым:

tell app "Emacs" to activate

У меня есть псевдоним от emacs до

open -a /Applications/Emacs.app "$@"

Если вас раздражает то, что он открывает новый фрейм (окно) для каждого файла - добавьте

(setq ns-pop-up-frames nil)

в ваш .emacs и исправлено.

Возможно, это сработает, просто вызовите raise-frame, когда клиент присоединяется:

(add-hook 'server-visit-hook 'call-raise-frame)
(defun call-raise-frame ()
  (raise-frame))

(На моей Linux-машине это оказывается избыточным.)

Некоторые из предложенных решений предполагают использование «подъёмной рамы». Это поднимет фрейм emacs, но не сфокусирует его. Когда вы запускаете emacs из окна терминала, emacs по-прежнему будет находиться под окном терминала, потому что окно терминала сохраняет фокус. Я использую 'select-frame-set-input-focus', чтобы поднять и сделать фокус.

Примеры:

/Applications/Emacs.app/Contents/MacOS/bin/emacsclient -n ~/myfile.txt \
    --eval '(select-frame-set-input-focus (nth 0 (frame-list)))'

Я предпочитаю запускать отдельный экземпляр emacs, поэтому, когда я выхожу с "^ X ^ C", я не теряю все окна. Для этого у меня есть сценарий оболочки:

#!/bin/bash
/Applications/Emacs.app/Contents/MacOS/Emacs \
    --eval '(select-frame-set-input-focus (nth 0 (frame-list)))' \
    "$@"

Я использую что-то подобное в моем .emacs, чтобы вызывать server-start только в том случае, если сервер еще не запущен:

(if (file-exists-p
 (concat (getenv "TMPDIR") "emacs"
         (number-to-string
          (user-real-uid)) "/server"))
nil (server-start))

Затем пару изменений в моем .zshrc, чтобы я мог бездумно запускать ec в качестве своей команды редактора из оболочки:

# I use the Emacs package from emacsformacosx.com
alias emacs='open -a emacs'
alias emacsclient='/Applications/Emacs.app/Contents/MacOS/bin/emacsclient'
alias ec='emacsclient -a /Applications/Emacs.app/Contents/MacOS/Emacs'
export EDITOR='ec'

Чтобы расширить ответы Трея Джексона и комментарий Singletoned: у меня в файле .emacs есть следующее:

;;;
;;; Run in server-mode so other sessions can connet
;;;
(defun call-raise-frame ()
   (raise-frame))
(defun end-server-edit ()
   (shell-command "osascript -e \"tell application \\\"System Events\\\" to keystroke tab using command down\""))
(add-hook 'server-visit-hook 'call-raise-frame)
(add-hook 'server-done-hook 'end-server-edit)
(server-start)

И в моем файле инициализации оболочки у меня есть следующие псевдонимы:

alias e='emacsclient'      # edit
alias enw='emacsclient -n' #edit (no wait)

Теперь я могу открыть оболочку бок о бок с моим экземпляром CocoaEmacs и без проблем использовать их вместе. Я могу вызвать редактор "встроенный" с моим текущим потоком терминала, используя псевдоним e, и как только я закончу редактирование в emacs, фокус будет возвращен вызывающему терминалу.

Я определяю эту функцию в моем .emacs

(defun ns-raise-emacs ()
  (ns-do-applescript "tell application \"Emacs\" to activate"))

Затем используйте это, чтобы поднять раму:

emacsclient -e '(ns-raise-emacs)'

Я рекомендую делать это так, а не вызывать osascript. Кажется, что он реагирует быстрее (иногда значительно быстрее), чем при использовании osascript.

fwiw, вот мое решение:
шаг 1: создайте сценарий в / usr / local / bin / emacs со следующим содержимым:

#!/usr/bin/bash
emacsclient -c --alternate-editor='/Applications/Emacs.app/Contents/MacOS/Emacs'  "$@" 2>/dev/null

Шаг 2. Сделайте его исполняемым через: chmod + x / usr / local / bin / emacs

шаг 3. в ваш файл ~ / .emacs добавьте следующее:

(server-start)  

(defun ns-raise-emacs ()  
(ns-do-applescript "tell application \"Emacs\" to activate"))  

(ns-raise-emacs)  

(add-hook 'server-visit-hook 'raise-frame)  
;;(add-hook 'server-visit-hook 'ns-raise-emacs)

объяснение:

Если запущен сценарий emacs в / usr / local / bin / emacs и в данный момент не запущен сервер emacs, emacsclient вызовет альтернативный редактор, которым в данном случае является редактор Emacs (/Applications/Emacs.app/Contents/MacOS / Emacs).

На шаге 3 кажется, что первоначальный вызов (ns-raise-emacs) необходим для того, чтобы начальное окно Emacs отображалось поверх всего остального.

(add-hook 'server-visit-hook 'raise-frame) предназначен для того, чтобы последующие кадры показывались поверх всего остального.

В качестве альтернативы, если вы предпочитаете, чтобы все фреймы Emacs отображались поверх всего остального каждый раз, когда вы вызываете emacs из командной строки, вы можете раскомментировать строку (add-hook 'server-visit-hook 'ns-raise-emacs).