                             :onChange #(setter :set (.. % -target -value))}})
 
         (d/div {:className "control-group"}
-          (if false
+          (if-not (empty? (:sets data))
 
             (d/div {:className "controls"}
               "Or select something from your history: "
               (apply d/ul nil
-                (for [[key name] []]
+                (for [[key info] (:sets data)]
                   (d/li nil
-                    (d/a {:href (str "#" key)} name)))))
+                    (d/a {:href (str "#" key)} (:title info))))))
 
             (d/div {:className "controls"}
               "Or watch an "

                            :placeholder "User id or username"
                            :tabIndex 2
                            :value (:user form "")
                            :onChange #(setter :user (.. % -target -value))}})))

    (d/div {:className "form-actions"}
      (d/input {:type "submit"

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

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