 
 (defn new-message-view [config]
   [:div.message.new
-   [wrap-autocomplete {:config config
-                       :textarea-view textarea-view
-                       :results-view autocomplete-results-view}]])
-
+   [wrap-autocomplete config]])
+

     [:div.result
      "No Results"])])

(defn wrap-autocomplete [{:keys [config textarea-view results-view]}]
  (let [autocomplete-chan (chan)
        kill-chan (chan)
        throttled-autocomplete-chan (debounce autocomplete-chan 100)

                     (recur)))))
           (go (loop []
                 (let [[v ch] (alts! [throttled-thread-text-chan thread-text-kill-chan])]
                   (if (= ch throttled-thread-text-chan)
                     (do
                       (dispatch! :new-message-text v)
                       (recur))
                     (dispatch! :new-message-text {:thread-id @thread-id
                                                   :content (@state :text)})))))))

       :component-will-update
       (fn [c [_ new-config]]
         (reset! thread-id (new-config :thread-id)))

       :component-will-unmount
       (fn []
