                    :name=     "headword_search"} " Headword search"]])]]]))
 
 (defn- simple [corpus query-cursor show-remove-btn? remove-query-handler]
+(defn- simple
+  "Simple search view component"
+  [corpus query-cursor show-remove-btn? remove-query-handler]
   (let [query           (:query @query-cursor)
         displayed-query (-> query
                             (->non-headword-query)

    (single-input-view corpus query-cursor displayed-query show-remove-btn?
                       remove-query-handler on-text-changed)))

(defn search-inputs [{:keys [search-view search-queries]} {:keys [corpus]}]
  (let [view          (case @search-view
                        :extended extended
                        :cqp cqp

(defn- extended [query-cursor]
  [:span])

(defn- cqp
  "CQP query view component"
  [corpus query-cursor show-remove-btn? remove-query-handler]
  (let [displayed-query (:query @query-cursor)
        on-text-changed (fn [event query-cursor phonetic?]
                          (let [query (aget event "target" "value")]
