Copie el texto de Emacs al portapapeles de OS X

Cuando ejecuto Emacs en un terminal de texto en lugar del modo GUI normal, puedo copiar en Emacs activando el inicio de una región con C-SPC, y luego seleccionar lo que quiero y luego hacer M-w.

¿Hay alguna forma de que una región copiada de esta manera esté disponible en el portapapeles OSX para pegarla, por ejemplo, en una página web (aparte de ejecutar Emacs en su modo GUI, obviamente)?

No estoy interesado en crear un acceso directo diferente para hacerlo, e idealmente no debería requerir la instalación de ningún módulo.

He visto esta publicación y probé la respuesta aceptada, pero parece que no funciona de la manera que esperaba arriba.

¿Alguna otra idea?

Copie de Emacs al portapapeles OS X:

seleccione región entonces M-| pbcopy RET

Pegar desde el portapapeles OS X a Emacs:

C-u M-| pbpaste RET (reemplaza la región actual si existe)

Explicación:

M-|se ejecuta shell-command-on-region, lo que como su nombre implica canaliza la región actual a un comando de shell. C-u M-|hace lo mismo, pero reemplaza la región actual con la stdoutdel comando que se está ejecutando.

pbcopyy pbpasteson utilidades de OS X para acceder al portapapeles del sistema.

Lo siguiente simplemente funciona, copiado desde aquí

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

Si usa Emacs "de la manera normal" (es decir, como una aplicación GUI), entonces ya debería hacerlo de forma predeterminada. Si usa Emacs dentro de un emulador de terminal, entonces no sabe cómo hacerlo de manera predeterminada, pero puede instalar el xclippaquete desde GNU ELPA y luego habilitar el xclip-modeque le enseña a Emacs cómo hacerlo tanto para GNU / Linux como para OSX

Como dijo Stefan, las aplicaciones gráficas de Emacs deberían hacerlo por defecto.

En una terminal de texto, otra opción es usar funciones 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)))

Aquí hay una función simple de elisp que puede poner en su archivo .emacs que copia el contenido del búfer en el que se encuentra en el portapapeles. No tiene que seleccionar nada, lo copia todo. El código es corto y bastante claro.

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

Echa un vistazo clipboard-kill-regiony clipboard-yank. Estos provienen de menu-bar.el.

Una vez que se resalta una región, puede usar el portapapeles-kill-region para matar la región tanto al búfer de pegado como al portapapeles del sistema. clipboard-yank "pega" lo que esté actualmente en el portapapeles del sistema.

La respuesta de Galder Zamarreño es genial, sin embargo, rompe el putcomportamiento maligno en modo maligno. Por lo tanto, lo he adaptado un poco más abajo: estoy seguro de que podría ser mejor, pero hace el trabajo por mí. Siéntase libre de sugerir mejoras:

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

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