@@ -32,6 +32,7 @@

 (def default-db

   {:name "DMR"

    :cmdline {:current ""

+             :suggestions nil

              :selected-history nil

              :history []}

    :entities (fmap parse-srd-data srd-data)

@@ -20,10 +20,15 @@

 (defn normalize-cmdline [cmdline]

     (-> cmdline single-space lower-case))

+(defn autocomplete-suggestions [_db _current]

+  [])

+

 (re-frame/reg-event-db

  ::update-cmdline

  (fn-traced [db [_ current]]

-  (assoc-in db [:cmdline :current] current)))

+  (-> db

+      (assoc-in [:cmdline :current] current)

+      (assoc-in [:cmdline :suggestions] (autocomplete-suggestions db current)))))

 (defn get-using [f coll]

   (->> coll (filter f) first))