Скопіюйте текст із Emacs у буфер обміну OS X

Коли я запускаю Emacs в текстовому терміналі замість звичайного режиму графічного інтерфейсу, я можу скопіювати в Emacs активацію початку регіону C-SPC, а потім вибрати те, що я хочу, а потім зробити M-w.

Чи є якийсь спосіб, щоб скопійований таким чином регіон, був доступний у буфері обміну OSX, щоб вставити його, скажімо, на веб-сторінку (очевидно, крім запуску Emacs у режимі GUI, очевидно)?

Мені не цікаво створювати інший ярлик для цього, і в ідеалі він не повинен вимагати встановлення будь-яких модулів.

Я бачив цю публікацію і спробував прийняти відповідь, але, здається, це не працює так, як я очікував вище.

Будь-які інші ідеї?

Копія з буфера обміну OS X:

виберіть регіон тоді M-| pbcopy RET

Вставити з буфера обміну OS X в Emacs:

C-u M-| pbpaste RET (замінює поточний регіон, якщо він існує)

Пояснення:

M-|запускається shell-command-on-region, що як назва означає, передає поточну область команді shell. C-u M-|робить те ж саме, але замінює поточну область stdoutкомандою, що виконується.

pbcopyі pbpasteє утилітами OS X для доступу до буфера обміну системи.

Далі просто працює, скопійований звідси

(defun copy-from-osx ()
  (shell-command-to-string "pbpaste"))

(defun paste-to-osx (text &optional push)
  (let ((process-connection-type nil))
    (let ((proc (start-process "pbcopy" "*Messages*" "pbcopy")))
      (process-send-string proc text)
      (process-send-eof proc))))

(setq interprogram-cut-function 'paste-to-osx)
(setq interprogram-paste-function 'copy-from-osx)

Якщо ви використовуєте Emacs "звичайним способом" (тобто як GUI-додаток), це вже повинно робити це за замовчуванням. Якщо ви використовуєте Emacs всередині емулятора терміналу, він дійсно не знає, як це зробити за замовчуванням, але ви можете встановити xclipпакет з GNU ELPA, а потім увімкнути те, xclip-modeщо вчить Emacs, як це робити як для GNU / Linux, так і для OSX.

Як сказав Стефан, графічні програми Emacs повинні робити це за замовчуванням.

У текстовому терміналі іншим варіантом є використання таких функцій:

(defun pbcopy ()
  (interactive)
  (let ((deactivate-mark t))
    (call-process-region (point) (mark) "pbcopy")))

(defun pbpaste ()
  (interactive)
  (call-process-region (point) (if mark-active (mark) (point)) "pbpaste" t t))

(defun pbcut ()
  (interactive)
  (pbcopy)
  (delete-region (region-beginning) (region-end)))

Ось проста функція elisp, яку ви можете помістити у файл .emacs, який копіює вміст буфера, який ви знаходитесь, у буфер обміну. Не потрібно нічого вибирати, це копіює все. Код короткий і досить зрозумілий.

(defun xclip ()
(interactive)
(shell-command (concat "cat " (buffer-file-name (window-buffer (minibuffer-selected-window))) " | pbcopy")))

Перевірте clipboard-kill-regionі clipboard-yank. Ці походять menu-bar.el.

Після виділення регіону ви можете використовувати буфер обміну-kill-region для вбивства регіону як в буфер вставки, так і в буфер обміну системи. clipboard-yank "вставляє" все, що зараз є в буфер обміну системи.

Відповідь Гальдера Замарреньо є чудовою, однак вона порушує злу putповедінку в злому режимі. Тому я адаптував це трохи нижче - я впевнений, що може бути і краще, але це робить роботу для мене. Не соромтеся запропонувати вдосконалення:

(defun copy-from-osx ()
  (shell-command-to-string "pbpaste"))

(defun paste-to-osx (text &optional push)
  (let ((process-connection-type nil))
    (let ((proc (start-process "pbcopy" "*Messages*" "pbcopy")))
      (process-send-string proc text)
      (process-send-eof proc))))

----> Новий код

  (defun clipboard-on ()
    (interactive)
    (setq interprogram-cut-function 'paste-to-osx)
    (setq interprogram-paste-function 'copy-from-osx))
  (defun clipboard-off ()
    (interactive)
    (setq interprogram-cut-function 'gui-select-text)
    (setq interprogram-paste-function 'gui-selection-value))
  (global-set-key (kbd "C-c C-p") 'clipboard-on)
  (global-set-key (kbd "C-c C-y") 'clipboard-off))