EmacsからOS Xクリップボードにテキストをコピーします

Emacsを通常のGUIモードではなくテキストターミナルで実行する場合、でリージョンの開始をアクティブにしてEmacsにコピーしC-SPC、次に必要なものを選択してからを実行できますM-w。

この方法でコピーされた領域をOSXクリップボードで使用してWebページに貼り付ける方法はありますか（明らかに、GUIモードでEmacsを実行する以外）。

別のショートカットを作成することに興味はありません。理想的には、モジュールをインストールする必要はありません。

私はこの投稿を見て、受け入れられた答えを試しましたが、それは上で期待するように動作しないようです。

他のアイデアはありますか？

EmacsからOS Xクリップボードにコピーします。

地域を選択してください M-| pbcopy RET

OS XクリップボードからEmacsに貼り付けます：

C-u M-| pbpaste RET （現在のリージョンが存在する場合は置き換えます）

説明：

M-|run shell-command-on-regionは、名前が示すとおり、現在の領域をシェルコマンドにパイプします。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-modeEmacsにGNU / LinuxとOSX。

Stefanが言ったように、グラフィカル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)))

以下は、現在のバッファーの内容をクリップボードにコピーする.emacsファイルに入れることができる簡単なelisp関数です。何も選択する必要はありません。すべてをコピーします。コードは短く、一目瞭然です。

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

チェックアウトclipboard-kill-regionとclipboard-yank。これらはから来ていmenu-bar.elます。

領域が強調表示されたら、clipboard-kill-regionを使用して、ペーストバッファーとシステムクリップボードの両方の領域を削除できます。clipboard-yankは、現在システムクリップボードにあるものをすべて「貼り付け」ます。

GalderZamarreñoの答えは素晴らしいですが、それは悪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))