Funkcja wyszukiwania / zamiany do zamiany tekstu

I często znajduję się próbując zastąpić np fooz bara barz foow buforze.

Zazwyczaj robię to w następujący sposób:

• 3 query-Zastępuje: aaa -> @@@, bbb -> aaa,@@@ -> bbb
• zrezygnuj z automatyzacji i po prostu zrób to ręcznie

Przypuszczam, że możliwe jest uzyskanie działania przy użyciu ,składni w query-replace-regexpcelu sprawdzenia, czy dopasowany ciąg to aaalub bbb. Ale wynikowa składnia byłaby zbyt kłopotliwa, więc tak naprawdę nigdy tego nie próbowałem.

Chodzi o to, biorąc pod uwagę, jak powszechne jest to zadanie, myślę, że musi istnieć lepszy, jednoetapowy sposób, albo wbudowany, albo w istniejącym pakiecie. Jest tu?

Oto małe polecenie, które to zrobi:

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

Zainstaluj plur

i uruchom polecenie plur-query-replace

oraz dane wejściowe {foo,bar}i ich wymiana{bar,foo}

Naciśnij, yaby zamienić wystąpienia według potrzeb.

Istnieją również nieinteraktywne i podobne do isearch warianty tego polecenia.