 
 (def table-syllabied (r/atom {}))
 
+(def splitted-mapped-atom (r/atom []))
+
 (def current-model (r/atom 0))
 
 (defn syllaby [text-val]

    [orphoep :only [orpho-single ++ --]]
    [usertest :only [serve-words-rand calc-stats]]
    )
  (:import goog.History))

;; -------------------------
;; Views

   ])

(defn textarea []
  (let [table @table-syllabied]
    [:div
     [:h2.ribbon "Put in some data!"]
     [:select.form-control {:on-change (fn [evt] (do (swap! current-model #(-> evt .-target .-value)) (syllaby @text-in))) :value @current-model}
      (for [{:keys [name i]} models]
        [:option {:value i :key i} name])
      ]
     [:textarea {:style textarea-style :on-change (fn [evt] (do (swap! text-in #(-> evt .-target .-value)) (syllaby @text-in))) :value @text-in}]
     [:pre @text-syllabied]
     [:table.table.table-striped.table-bordered.table-hover.table-condensed.syllabied
      [:tr [:th] (for [{:keys [short name]} models] [:th {:key name :title name} short])]
      (for
        [[word syll-models] @splitted-mapped-atom]
        [:tr {:key (rand)} [:td word]
         (map-indexed (fn [ix word] [:td {:key ix} word]) syll-models)
         ]
        )
      ]
     ]
    )
  )

(defn table-text []
