                        KeyCodes.ENTER
                        (do
                          (dispatch [:new-message {:group-id @group-id
-                                                  :thread-id thread-id
+                                                  :thread-id (config :thread-id)
                                                   :content @message}])
 
                          (reset! message ""))

            [retouch.core :refer [drawer-view swipe-view]])
  (:import [goog.events KeyCodes]))

(defn new-message-view [thread-id]
  (let [message (r/atom "")
        group-id (subscribe [:open-group-id])]
    (fn [thread-id]
      [:div.new.message
       [upload-button-view {:thread-id thread-id
                            :group-id @group-id}]
       [:textarea {:value @message
                   :placeholder "Reply..."
                   :on-change
                   (fn [e]
                     (reset! message (.. e -target -value)))

                                    (dispatch [:hide-thread {:thread-id (thread :id)}]))}])]]

       [messages-view thread]
       [new-message-view {:thread-id (thread :id)
                          :placeholder (if (thread :new?)
                                         "Start a conversation..."
                                         "Reply...")
                          }]])))

(defn header-view []
  (let [group-id (subscribe [:open-group-id])]
