 (defn format-chat [{:keys [user-name content]}]
   (str user-name ": " content ))
 
-(defn chat-view [app owner opts]
+(defn original-view [app owner opts]
   (reify
     om/IRenderState
     (render-state [this state]

                                          (map (fn [item] (dom/li #js {:className "list-group-item"} (format-chat item)
                                                                 (dom/span #js {:className "badge"} (if show-lan (name (:language item)))))) app)))))))))

(defn master-view [app owner]
  (reify
    om/IWillMount

      (let [sender-ch (:sender-ch app)]
        (dom/div nil
                 (om/build users-view (:users app))
                 (om/build original-view (:original app) {:init-state {:label " Original"
                                                                   :glyph "glyphicon glyphicon-globe"
                                                                   :show-language true}})
                 (om/build translated-view (:translated app) {:init-state {:label " Translated"
                                                                     :glyph "glyphicon glyphicon-home"
                                                                     :show-language false}})
                 (dom/div #js {:className "form-group col-md-4 col-md-offset-2"}
