คัดลอกข้อความจาก Emacs ไปยังคลิปบอร์ด OS X

เมื่อฉันเรียก Emacs ใน terminal ข้อความแทนของโหมด GUI ปกติผมสามารถคัดลอก Emacs โดยเปิดใช้งานเริ่มต้นของภูมิภาคที่มีแล้วเลือกสิ่งที่ฉันต้องการแล้วทำC-SPCM-w

มีวิธีใดที่จะทำให้ภูมิภาคคัดลอกวิธีนี้มีอยู่ในคลิปบอร์ด OSX เพื่อวางไว้ในหน้าเว็บ (นอกเหนือจากการใช้ Emacs ในโหมด GUI อย่างชัดเจน)

ฉันไม่สนใจที่จะสร้างทางลัดที่แตกต่างในการทำเช่นนั้นและโดยพื้นฐานแล้วมันไม่จำเป็นต้องติดตั้งโมดูลใด ๆ

ฉันเคยเห็นโพสต์นี้และลองคำตอบที่ได้รับการยอมรับ แต่มันใช้งานไม่ได้ตามที่คาดหวังไว้ข้างต้น

ความคิดอื่น ๆ ?

คัดลอกจาก Emacs ไปยังคลิปบอร์ด OS X:

เลือกภูมิภาคจากนั้น M-| pbcopy RET

วางจากคลิปบอร์ด OS X ไปยัง Emacs:

C-u M-| pbpaste RET (แทนที่ภูมิภาคปัจจุบันหากมีอยู่)

คำอธิบาย:

M-|วิ่ง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-modeที่สอน Emacs ได้ทั้ง 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)))

นี่คือฟังก์ชั่น elisp แบบง่ายที่คุณสามารถใส่ในไฟล์. emacs ของคุณที่คัดลอกเนื้อหาของบัฟเฟอร์ที่คุณอยู่ในคลิปบอร์ด คุณไม่จำเป็นต้องเลือกอะไรเลยคัดลอกมาทั้งหมด รหัสสั้นและอธิบายตนเองได้

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

ตรวจสอบและclipboard-kill-region เหล่านี้มาจากclipboard-yankmenu-bar.el

เมื่อไฮไลต์ภูมิภาคแล้วคุณสามารถใช้คลิปบอร์ด - คิล - ภูมิภาคเพื่อฆ่าภูมิภาคเพื่อวางบัฟเฟอร์ของคุณและคลิปบอร์ดของระบบ คลิปบอร์ดดึง "วาง" สิ่งที่อยู่ในคลิปบอร์ดของระบบในปัจจุบัน

คำตอบของ Galder Zamarreñ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))