@@ -10,6 +10,7 @@

 (defn prompt []

   (let [cmdline (re-frame/subscribe [::subs/cmdline])

+        suggestions (re-frame/subscribe [::subs/cmdline-suggestions])

         update-cmdline #(re-frame/dispatch-sync

                          [::events/update-cmdline (-> % .-target .-value)])

         key-pressed #(re-frame/dispatch-sync [::events/prompt-keypress %])

@@ -20,7 +21,11 @@

      [:input {:value @cmdline

               :on-change update-cmdline

               :on-keyDown key-pressed

-              :type "text"}]]))

+              :type "text"}]

+

+     [:ul.suggestions

+      (when @suggestions

+       (for [x @suggestions] ^{:key x} [:li x]))]]))

 (defn title []

   (let [name (re-frame/subscribe [::subs/name])]