Encode url and preserve macro

encode-url-preserve-macro.clj

(defn- encoded-macros-map
  [macros]
  (->> macros
       (map (fn [macro]
              [(codec/url-encode macro) macro]))
       (into {})))

(defn- macro-decoder
  [macros-map s]
  (reduce (fn [acc [escaped-macro macro]]
            (str/replace acc escaped-macro macro))
          s
          macros-map))

(defn encode-url-preserve-macro
  [macros s]
  (let [macros-map (encoded-macros-map macros)]
    (->> s
         codec/url-encode
         (macro-decoder macros-map))))

(deftest encode-url-preserve-macro-test
  (let [macros #{"[macro]"}]
    (is (= "https%3A%2F%2Fuser%3Apassword%40some.example.com%2Fpage%3Fquery%26params%26[macro]%23fragment"
           (subject/encode-url-preserve-macro macros "https://user:[email protected]/page?query&params&[macro]#fragment")))))