คุณลักษณะการค้นหา / แทนที่เช่นสำหรับการแลกเปลี่ยนข้อความ

บ่อยครั้งที่ฉันพบว่าตัวเองพยายามที่จะเข้ามาแทนที่เช่นfooด้วยbarและbarด้วยfooในกันชน

วิธีที่ฉันทำตามปกติคือ:

• 3 แบบสอบถามแทนที่: aaa -> @@@, bbb -> aaa,@@@ -> bbb
• ยอมแพ้ในระบบอัตโนมัติและทำการทดแทนด้วยมือ

ฉันคิดว่ามันเป็นไปได้ที่จะได้รับสิ่งที่ทำงานโดยใช้,ไวยากรณ์ในquery-replace-regexpการทดสอบว่าสตริงที่ตรงกันaaaหรือbbbไม่ แต่ไวยากรณ์ที่เกิดขึ้นจะยุ่งยากเกินไปดังนั้นฉันไม่เคยลองเลย

สิ่งที่ได้รับคือความธรรมดาของงานฉันคิดว่าต้องมีขั้นตอนที่ดีกว่าขั้นตอนเดียวในการทำไม่ว่าจะเป็นในตัวหรือในแพ็คเกจที่มีอยู่ มีอะไรบ้าง

นี่คือคำสั่งเล็ก ๆ ที่จะทำสิ่งนี้:

(defun query-swap-strings (from-string to-string &optional delimited start end)
  "Swap occurrences of FROM-STRING and TO-STRING."
  (interactive
   (let ((common
          (query-replace-read-args
           (concat "Query swap"
                   (if current-prefix-arg
                       (if (eq current-prefix-arg '-) " backward" " word")
                     "")
                   (if (use-region-p) " in region" ""))
           nil)))
     (list (nth 0 common) (nth 1 common) (nth 2 common)
           (if (use-region-p) (region-beginning))
           (if (use-region-p) (region-end)))))
  (perform-replace
   (concat "\\(" (regexp-quote from-string) "\\)\\|" (regexp-quote to-string))
   `(replace-eval-replacement replace-quote (if (match-string 1) ,to-string ,from-string))
   t t delimited nil nil start end))

ติดตั้งplur

และเรียกใช้คำสั่ง plur-query-replace

และอินพุต{foo,bar}และการแทนที่{bar,foo}

กดyเพื่อแทนที่เหตุการณ์ที่เกิดขึ้นตามที่ต้องการ

นอกจากนี้ยังมีชุดคำสั่งนี้แบบไม่โต้ตอบและคล้ายกับการค้นหา