derefmap

derefmap.clj

;; I need this often enough, a lightweight introspectable fn+data
;; container with a default operation - GT
(defrecord _DerefMap [deref-fn]
  clojure.lang.IDeref
  (deref [me] (deref-fn me)))

(prefer-method print-method clojure.lang.IRecord clojure.lang.IDeref)
(prefer-method clojure.pprint/simple-dispatch clojure.lang.IRecord clojure.lang.IDeref)
(prefer-method clojure.pprint/simple-dispatch clojure.lang.IPersistentMap clojure.lang.IDeref)

(defn ->DerefMap
  ([deref-fn] (->DerefMap deref-fn nil))
  ([deref-fn atts]
   (map->_DerefMap (merge {:deref-fn deref-fn}
                          atts))))