การลบเครื่องหมายคำพูดอัจฉริยะโดยอัตโนมัติ

โดยเฉพาะอย่างยิ่งเมื่อคัดลอกข้อความจากสิ่งต่าง ๆ เช่น Google เอกสารฉันต้องการให้ Emacs ลบเครื่องหมายอัญประกาศคู่อัจฉริยะโดยอัตโนมัติ, เครื่องหมายอัญประกาศเดี่ยวเดี่ยวและอักขระ em-dash และ en-dash ทั้งหมดแทนที่พวกเขาด้วยการเทียบ ASCII ของพวกเขา

มีวิธีการกำหนดค่า Emacs ให้ทำสิ่งนี้โดยอัตโนมัติหรือไม่? หรือถอดที่ฟังก์ชันที่ฉันสามารถเรียกที่จะทำในบัฟเฟอร์หรือภูมิภาค?

ตามSU: วิธีลบการเสนอราคาอัจฉริยะในการคัดลอกวาง

คุณสามารถลองทำสิ่งต่อไปนี้:

(defcustom smart-to-ascii '(("\x201C" . "\"")
                ("\x201D" . "\"")
                ("\x2018" . "'")
                            ("\x2019" . "'")
                            ;; en-dash
                            ("\x2013" . "-")
                            ;; em-dash
                            ("\x2014" . "-"))
  ""
  :type '(repeat (cons (string :tag "Smart Character  ")
                       (string :tag "Ascii Replacement"))))

(defun replace-smart-to-ascii (beg end)
  (interactive "r")
  (format-replace-strings smart-to-ascii
                          nil beg end))

ใช้เป็น defcustom เพื่ออนุญาตให้เพิ่ม / ปรับอักขระให้ตรงกับสิ่งที่ต้องการ

หากต้องการเพิ่มสิ่งที่ @Jonathan โพสต์คุณสามารถสร้างอัตโนมัติ (เพื่อให้ yanking ไม่ได้เพิ่มตัวอักษรเหล่านั้นในตอนแรก) โดยทำสิ่งนี้:

(advice-add 'yank :after (lambda (&optional ignore)
                           (replace-smart-to-ascii (mark) (point)))
            '(name replace-smart))