|
|
@@ -621,9 +621,11 @@
|
|
|
(str prefix new-value)))
|
|
|
s)))
|
|
|
|
|
|
+(defonce default-escape-chars "[]{}().+*?|")
|
|
|
+
|
|
|
(defn replace-ignore-case
|
|
|
[s old-value new-value & [escape-chars]]
|
|
|
- (let [escape-chars (or escape-chars "[]{}().+*?")
|
|
|
+ (let [escape-chars (or escape-chars default-escape-chars)
|
|
|
old-value (if (string? escape-chars)
|
|
|
(reduce (fn [acc escape-char]
|
|
|
(string/replace acc escape-char (str "\\" escape-char)))
|
|
|
@@ -633,7 +635,7 @@
|
|
|
|
|
|
(defn replace-first-ignore-case
|
|
|
[s old-value new-value & [escape-chars]]
|
|
|
- (let [escape-chars (or escape-chars "[]{}().+*?")
|
|
|
+ (let [escape-chars (or escape-chars default-escape-chars)
|
|
|
old-value (if (string? escape-chars)
|
|
|
(reduce (fn [acc escape-char]
|
|
|
(string/replace acc escape-char (str "\\" escape-char)))
|