let query_replace = query_replace_gen (Printf.sprintf "%s_query_replace" factory_name) search_buffer (fun ~searched ~found ~repl -> repl)