 
 
 (defn text-justified-component []
-  [:p
+  [:div
   (for [[id line] (map-indexed vector @model/state)]
     ^{:key id} [line-component id line])])
 

;; remove listeners from text area
(let [ old-node (get-text-el) new-node (.cloneNode old-node true)]
  (.replaceChild (.-parentNode old-node) new-node old-node)
  ; (set! (.-value new-node) "Bleh Bleh Bleh Bleh aaabbbccc\n\naaa bbb")
  ; (set! (.-value new-node) "")
  ; (set! (.-value new-node) "aaabbbccc111 a")
  ; (set! (.-value new-node) "aaabbbccc11 -1 a")
  )

;; add keyup listner to text-el


(defonce page-width 11)
(defonce space-char (gstring/unescapeEntities "&nbsp;")) ;; \u00A0 ?

(defn get-text-el []
  (dom/getElement "text"))
