Clojure memoize function using a custom cache key

cache_util.clj

(ns example.cache-util
  (:require [clojure.core.cache :refer [lru-cache-factory ttl-cache-factory]]
            [clojure.core.cache.wrapped :refer [lookup-or-miss]]
            ))

(defmacro defn-lru-ttl-cached-by-key
  "Defines function name, which will cache using the return value of key-fn which is passed args.
  If cache miss, will run the value-forms which will have args in scope."
  [name doc
   max-qty ttl-ms
   key-fn args & value-forms]
  `(do
     (def cache-name# (atom (lru-cache-factory
                              (ttl-cache-factory {} :ttl ~ttl-ms)
                              :threshold ~max-qty)))

     (defn ~name
       ~doc
       ~args
       (let [cache-key# (apply ~key-fn ~args)]
         (lookup-or-miss cache-name# cache-key#
                         (fn [_#]
                           ~@value-forms))))))


(comment
  
  (defn-lru-ttl-cached-by-key
    my-fetcher
    "will sleep and return a value"
    5 (* 1000 3)
    #(:id %)
    [item]
    (Thread/sleep 1000)
    (:value item))
  
  (my-fetcher {:id "bob2" :value 12})

)