(where can I find a) query-replace-list?

[Eduardo Ochs]

Hi list,

sometimes I need to quote special characters in a string in a special
way, that includes that each "{" should become a "{<}" and each "}"
should become a "{>}", and I prefer to do that interactively using
some variant of query-replace or query-replace-regexp... I had a hack
to do that but it was ugly and fragile - it query-replaced all
"{"->"{<}"s before "}"->"{>}"s, so I had to be very careful with my
"yes"es and "no"s - so I decided to rewrite it...

I tried to implement something that could be called like this,

  (query-replace-list
   "\"" "\\\""
   "\\" "\\\\"
   "{"  "{<}"
   "}"  "{>}")

and I sort of got it - but I ended up using mapconcat, regexp-quote, a
function to delete text-properties, a plist-get, and then a call like
this,

  (query-replace-regexp
   "\"\\|\\\\\\|{\\|}"
   (list 'my-replacer-function nil))

in which my-replacer-function uses (match-string 0) to obtain its
input string.

That's so clumsy that I _guess_ that there should exist a standard
function, or at least a package in one of the *ELPAs, that implements
something like this query-replace-list - but I couldn't find it...

Any hints? Any pointers?

Here is my prototype, for the sake of completeness:

--snip--snip--
(defun ee-no-properties (str)
  (setq str (copy-sequence str))
  (set-text-properties 0 (length str) nil str)
  str)

(defvar ee-qrl-plist
  '("\"" "\\\""   "\\" "\\\\"
    "{"  "{<}"    "}"  "{>}"))

(defun ee-qrl-as     () (cl-loop for (a b) on ee-qrl-plist by 'cddr collect a))
(defun ee-qrl-regexp () (mapconcat 'regexp-quote (ee-qrl-as) "\\|"))

(defun ee-qrl-r0 (s)   (plist-get ee-qrl-plist (ee-no-properties s) 'equal))
(defun ee-qrl-r1 (s)   (replace-regexp-in-string "\\\\" "\\\\\\\\" s))
(defun ee-qrl-r2 (s)   (ee-qrl-r1 (ee-qrl-r0 s)))
(defun ee-qrl-r3 (a b) (ee-qrl-r2 (match-string 0)))
(defun ee-qrl ()
  (interactive)
  (query-replace-regexp (ee-qrl-regexp) (list 'ee-qrl-r3 nil)))
--snip--snip--

  Thanks in advance,
    Eduardo Ochs
    http://anggtwu.net/eepitch.html