如何自动执行查找查询的替换？

Question

1. Mx find-dired : you will be prompted for a root directory and a filename pattern.
2. Press t to "toggle mark" for all files found.
3. Press Q for "Query-Replace in Files..."
4. you will be prompted for query/substitution regexps.

How can you define a function like my-find-dired that goes through steps 1-3 for you, using in step 1 dir /foo and filename -iname \\*.html , and takes you straight to step 4?

EDIT working on fn def:

I get the step 4 prompting, but it doesn't do anything, because none of the files are marked, so I'm thinking the second-to-last line must be wrong. Here are a couple tries:

(defun my-find-dired-and-replace ()
  (interactive)
  (find-dired "~/foo/" "-iname \*.html -o -iname \*.coffee -o -iname \*.styl")
  (dired-mark-files-containing-regexp "\*")
  (call-interactively 'dired-do-query-replace-regexp))

also tried just "*"

(defun my-find-dired-and-replace ()
  (interactive)
  (find-dired "~/foo/" "-iname \*.html -o -iname \*.coffee -o -iname \*.styl")
  (dired-toggle-marks)
  (call-interactively 'dired-do-query-replace-regexp))

Answer 1

When calling from a program, the approach will be slightly different than using interactive calls. What about that way:

(defun my-find-dired-and-replace ()
  (interactive)
  (find-name-dired "MY-DIR" "*.html")
  (dired-mark-files-containing-regexp MY_REGEXP)
  (dired-do-query-replace-regexp FROM TO))