 ;; Expects a wrongtangular.core/image-set.
 (defn tinder [{:keys [image-set last-action direction]} owner]
   (reify
+    om/IDisplayName
+    (display-name [_] "Tinder")
     om/IRender
     (render [_]
       (let [[previous-image current-image next-image] image-set


(defn progress-bar [{: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
