텍스트 교체를위한 검색 / 바꾸기 기능

나는 자주 자신이 예를 대체하려고 찾아 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원하는대로 발생을 바꾸려면 적중 하십시오.

이 명령에는 비 대화식 및 isearch와 유사한 변형도 있습니다.