 
 (defn loading [owner]
   (reify
+    om/IDisplayName
+    (display-name [_] "Loading")
     om/IRender
     (render [_]
       (html [:div nil "loading..."]))))
 
 (defn main [{:keys [app current-id]} owner]
   (reify
+    om/IDisplayName
+    (display-name [_] "Main")
     om/IRender
     (render [_]
       (html


(defn progress-text [{:keys [app approved-count rejected-count]} owner]
  (reify
    om/IRender
    (render [_]
      (let [index (count (:complete app))


(defn results [app owner]
  (reify
    om/IDisplayName
    (display-name [_] "Results")
    om/IRender
    (render [_]
      (html
