clojure.core/partial with explicit argument ordering

partial.clj

(defn partial* [f & static-args]
  (fn [& dynamic-args]
    (loop [args []
           static-args static-args
           dynamic-args dynamic-args]
      (if-let [static (first static-args)]
        (if (= static :%)
          (if-let [dynamic (first dynamic-args)]
            (recur (conj args dynamic) (rest static-args) (rest dynamic-args))
            (throw (Exception. "too few arguments")))
          (recur (conj args static) (rest static-args) dynamic-args))
        (apply f args)))))

;; example

(let [greet (partial* str "Hello, " :% "!")]
  (greet "Max")) ;; -> "Hello, Max!"