Copiar texto do Emacs para a área de transferência do OS X

Quando executo o Emacs em um terminal de texto em vez do modo normal da GUI, posso copiar no Emacs ativando o início de uma região com C-SPCe, em seguida, selecionar o que quero e fazer M-w.

Existe alguma maneira de obter uma região copiada dessa maneira disponível na área de transferência do OSX para colá-la em uma página da web (exceto executando o Emacs no modo GUI, obviamente)?

Não estou interessado em criar um atalho diferente para fazer isso e, idealmente, não deve exigir a instalação de nenhum módulo.

Eu já vi esse post e tentei a resposta aceita, mas ele não parece funcionar da maneira que espero acima.

Alguma outra ideia?

Copie da área de transferência do Emacs para o OS X:

selecione a região então M-| pbcopy RET

Cole da área de transferência do OS X no Emacs:

C-u M-| pbpaste RET (substitui a região atual, se existir)

Explicação:

M-|é executado shell-command-on-region, como o nome indica canaliza a região atual para um comando shell. C-u M-|faz a mesma coisa, mas substitui a região atual pela stdoutdo comando que está sendo executado.

pbcopye pbpastesão utilitários do OS X para acessar a área de transferência do sistema.

O seguinte simplesmente funciona, copiado daqui

(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)

Se você usa o Emacs "da maneira normal" (ou seja, como um aplicativo GUI), ele já deve fazer isso por padrão. Se você usa o Emacs dentro de um emulador de terminal, na verdade ele não sabe como fazer isso por padrão, mas você pode instalar o xclippacote do GNU ELPA e ativar o xclip-modeque ensina ao Emacs como fazer isso tanto no GNU / Linux quanto no GNU / Linux. OSX.

Como Stefan disse, os aplicativos gráficos do Emacs devem fazer isso por padrão.

Em um terminal de texto, outra opção é usar funções como esta:

(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)))

Aqui está uma função elisp simples que você pode colocar no arquivo .emacs que copia o conteúdo do buffer em que está na área de transferência. Você não precisa selecionar nada, ele copia tudo. O código é curto e bastante auto-explicativo.

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

Confira clipboard-kill-regione clipboard-yank. Estes vêm menu-bar.el.

Depois que uma região é destacada, você pode usar a área de transferência para matar a região no buffer de colagem e na área de transferência do sistema. clipboard-yank "cola" o que estiver atualmente na área de transferência do sistema.

A resposta de Galder Zamarreño é ótima, no entanto, quebra o putcomportamento do mal no modo do mal. Portanto, adaptei-o um pouco abaixo - tenho certeza de que poderia ser melhor, mas faz o trabalho para mim. Sinta-se livre para sugerir melhorias:

(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))))

----> Novo Código

  (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))