add convenience function for application config

2016-05-19 10:23:41 -04:00 · 2016-05-19 10:23:41 -04:00 · bbb3a3f189
parent 6636b1e720
commit bbb3a3f189
1 changed files with 4 additions and 0 deletions
--- a/src/views/core.clj
+++ b/src/views/core.clj
@ -267,6 +267,10 @@
  [views]
  (swap! view-system update-in [:views] (fnil into {}) (map vector (map id views) views)))

+(defn set-send-fn!
+  [f]
+  (swap! view-system assoc :send-fn f))
+
 (comment
  (defrecord SQLView [id query-fn]
    IView