      ; and display a row of search inputs for each of them. The doall call is needed
      ; because ratoms cannot be derefed inside lazy seqs.
      (doall (for [index (range (count @search-queries))]
-              (let [query-cursor (reagent/cursor search-queries [index])
+              (let [query-cursor      (reagent/cursor search-queries [index])
                     selected-language (-> @query-cursor :query :lang)]
                 (when multilingual? [language-select languages selected-language])
                 [view query-cursor multilingual?])))

    (swap! query-cursor assoc-in [:query] query)))

(defn- on-phonetic-changed [event query-cursor]
  (let [query (:query @query-cursor)
        checked? (aget event "target" "checked")
        query (if checked?
                (str/replace query "word=" "phon=")
                (str/replace query "phon=" "word="))]
    (swap! query-cursor assoc-in [:query] query)))

(defn- on-key-down [event query-cursor]

     [:option {:key (:value language) :value (:value language)} (:text language)])])

(defn- simple [query-cursor]
  (let [query           (:query @query-cursor)
        displayed-query (str/replace query #"\[\(?\w+=\"(.+?)\"(?:\s+%c)?\)?\]" "$1")
        phonetic?       (not= -1 (.indexOf query "phon="))]
    [:div.row-fluid
     [:form.form-inline.span12
      [:div.span10
