Функція пошуку / заміни для заміни тексту

Я часто ловлю себе намагається замінити , наприклад , fooз barі barз fooв буфері.

Я зазвичай це роблю:

• 3 запити-Замінює: aaa -> @@@, bbb -> aaa,@@@ -> bbb
• відмовтеся від автоматизації і просто зробіть заміну вручну

Я припускаю, що можна перевірити, чи відповідає збіг рядка або що- небудь працює, використовуючи ,синтаксис . Але отриманий синтаксис був би занадто громіздким, тому я його ніколи не намагався.query-replace-regexpaaabbb

Вся справа в тому, наскільки це загальне завдання, я думаю, що повинен бути кращий, одноетапний спосіб його виконання, або вбудований, або в існуючому пакеті. Є там?

Ось невелика команда, яка зробить це:

(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щоб замінити події за бажанням.

Існують також неінтерактивні варіанти пошуку, подібні до пошуку.