                             :placeholder "User id or username"
                             :tabIndex 2
                             :value (:user form "")
-                            :onChange #(setter :user (.. % -target -value))}})))
+                            :onChange #(setter :user (.. % -target -value))}})
+
+        (if-not (empty? (:users data))
+          (d/div {:className "controls"}
+            "Or browse someone from your history: "
+            (apply d/ul nil
+              (for [[key info] (:users data)]
+                (when (:sets info)
+                  (d/li nil
+                    (d/a {:href (str "#user/" key)} key)))))))))
 
     (d/div {:className "form-actions"}
       (d/input {:type "submit"

                            :onChange #(setter :set (.. % -target -value))}})

        (d/div {:className "control-group"}
          (if false

            (d/div {:className "controls"}
              "Or select something from your history: "
              (apply d/ul nil
                (for [[key name] []]
                  (d/li nil
                    (d/a {:href (str "#" key)} name)))))

            (d/div {:className "controls"}
              "Or watch an "

          (d/input (assoc input :id id)))))))

(q/defcomponent Form
  [{:keys [form] :as data} setter]
  (d/form {:className "form-horizontal"
           :onSubmit (fn [e]
                       (.preventDefault e)
