--- a/src/indyvon/views.clj	Wed Nov 26 19:22:52 2014 +0300
+++ b/src/indyvon/views.clj	Fri Nov 28 23:16:23 2014 +0300
@@ -296,19 +296,21 @@
 (def ^:dynamic *miniature-thread-priority* 2)
 
 (defn ref-view
-  [view-ref]
-  (let [l (reify
-           View
-           (render! [l]
-             (repaint-on-update l)
-             (if-let [view @view-ref]
-               (render! view)))
-           (geometry [_]
-             (if-let [view @view-ref]
-               (geometry view)
-               (->Size 1 1))))]
-    (add-watch view-ref l (fn [_ _ _ _] (update l)))
-    l))
+  ([view-ref]
+   (ref-view view-ref identity))
+  ([view-ref view-fn]
+   (let [v (reify
+             View
+             (render! [v]
+               (repaint-on-update v)
+               (when-let [view (view-fn @view-ref)]
+                 (render! view)))
+             (geometry [_]
+               (if-let [view (view-fn @view-ref)]
+                 (geometry view)
+                 (->Size 1 1))))]
+     (add-watch view-ref v (fn [_ _ _ _] (update v)))
+     v)))
 
 ;;
 ;; View context decorators