     (swap! query-cursor assoc-in [:query] query)))
 
 (defn- on-phonetic-changed [event query-cursor]
-  (let [query (:query @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="))]
+        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]
  [:span "hallo"]
  (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

;;;;;;;;;;;;;

(defn- search-button [multilingual?]
  [:button.btn.btn-success {:style    {:marginLeft (if multilingual? 80 40)}
                            :on-click search!} "Search"])

(defn- add-language-button []
