@@ -31,7 +31,8 @@

 (def default-db

   {:name "DMR"

-   :cmdline {:current ""

+   :cmdline {:prompt-id nil

+             :current ""

              :suggestions {:options nil :selected nil}

              :selected-history nil

              :history []}

@@ -60,6 +60,11 @@

    (-> entities concatv (get-using-name)) (-> entities concatv get-using-name append-history)

    :else (append-history {:err (str "Unknown command '" cmdline "'")}))))

+(re-frame/reg-event-db

+ ::set-prompt-id

+ (fn [db [_ prompt-id]]

+     (assoc-in db [:cmdline :prompt-id] prompt-id)))

+

 (re-frame/reg-fx

  :window/scroll-to

  (fn [element]

@@ -45,7 +45,7 @@

             :on-click #(re-frame/dispatch [::events/execute-cmd text])}

      text])

-(defn prompt []

+(defn prompt [prompt-id]

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

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

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

@@ -53,8 +53,10 @@

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

         submit-cmd #(do (.preventDefault %)

                         (re-frame/dispatch [::events/submit-cmd (-> % .-target)]))]

+    (re-frame/dispatch [::events/set-prompt-id prompt-id])

     [:form {:class (styles/prompt-style)

             :on-submit submit-cmd}

+            :id prompt-id}

      [:input {:value @cmdline

               :on-change update-cmdline

               :on-keyDown key-pressed

@@ -328,4 +330,4 @@

 (defn main-panel []

   [:div {:class (styles/screen)}

    [:div {:class (styles/main-panel)}

-    [title] [history] [prompt] [footer]]])

+    [title] [history] [prompt "prompt"] [footer]]])