Sao chép văn bản từ Emacs vào bảng tạm OS X

Khi tôi chạy Emacs trong một thiết bị đầu cuối văn bản thay vì chế độ GUI thông thường, tôi có thể sao chép trong Emacs bằng cách kích hoạt bắt đầu một khu vực với C-SPC, sau đó chọn những gì tôi muốn và sau đó làm M-w.

Có cách nào để có được một khu vực được sao chép theo cách này có sẵn trong bảng tạm OSX để dán nó vào một trang web (ngoài việc chạy Emacs trong chế độ GUI của nó, rõ ràng) không?

Tôi không quan tâm đến việc tạo một lối tắt khác để làm điều đó và lý tưởng là nó không yêu cầu cài đặt bất kỳ mô-đun nào.

Tôi đã xem bài đăng này và đã thử câu trả lời được chấp nhận nhưng dường như nó không hoạt động theo cách tôi mong đợi ở trên.

Còn ý tưởng nào khác không?

Sao chép từ Emacs vào bảng tạm OS X:

chọn vùng rồi M-| pbcopy RET

Dán từ bảng tạm OS X vào Emacs:

C-u M-| pbpaste RET (thay thế khu vực hiện tại nếu nó tồn tại)

Giải trình:

M-|chạy shell-command-on-region, như tên gọi ngụ ý đường ống khu vực hiện tại đến một lệnh shell. C-u M-|thực hiện điều tương tự, nhưng thay thế vùng hiện tại bằng stdoutlệnh đang được chạy.

pbcopyvà pbpastelà các tiện ích OS X để truy cập vào bảng tạm hệ thống.

Sau đây chỉ hoạt động, được sao chép từ đây

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

Nếu bạn sử dụng Emacs "theo cách thông thường" (nghĩa là một ứng dụng GUI), thì nó sẽ làm điều đó theo mặc định. Nếu bạn sử dụng Emacs bên trong trình giả lập thiết bị đầu cuối, thì thực sự nó không biết cách làm điều đó theo mặc định, nhưng bạn có thể cài đặt xclipgói từ GNU ELPA và sau đó kích hoạt cách xclip-modedạy Emacs cách làm điều đó cho cả GNU / Linux và cho OSX.

Như Stefan đã nói, các ứng dụng Emacs đồ họa nên làm điều đó theo mặc định.

Trong một thiết bị đầu cuối văn bản, một tùy chọn khác là sử dụng các chức năng như thế này:

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

Đây là một chức năng elisp đơn giản mà bạn có thể đặt trong tệp .emacs sao chép nội dung của bộ đệm bạn đang vào bảng tạm. Bạn không phải chọn bất cứ điều gì, nó sao chép tất cả. Mã này ngắn và khá tự giải thích.

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

Kiểm tra clipboard-kill-regionvà clipboard-yank. Những điều này đến từ menu-bar.el.

Khi một vùng được tô sáng, bạn có thể sử dụng clipboard-kill-area để hủy vùng đó cho cả bộ đệm dán và bảng tạm hệ thống. clipboard-yank "dán" bất cứ thứ gì hiện có trên clipboard hệ thống.

Câu trả lời của Galder Zamarre là tuyệt vời, tuy nhiên, nó phá vỡ puthành vi giống như ác quỷ trong chế độ tà ác. Do đó, tôi đã điều chỉnh nó một chút dưới mức tôi chắc chắn rằng nó có thể tốt hơn, nhưng nó làm được việc cho tôi. Hãy đề nghị cải tiến:

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

----> Mã mới

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