     (render [this]
       (dom/li nil
               (apply dom/div nil
-                     (prepare-item item))))))
+                     (str item)
+                     (str (naive-key-extractor item) ", ")
+                     #_(prepare-item item))))))
 
 (defn app-view [app owner]
   (reify
     om/IRenderState
     (render-state [this state]
       (dom/div nil
-               (dom/h1 nil (str (:text app) " " (:count state)))
+               #_(dom/h1 nil (str (:text app) " " (:count state)))
                (dom/textarea #js
                               {:value (:text state)
                                :ref "new-item"

            [om.dom :as dom :include-macros true]
            [cljs.core.async :refer [put! chan <!]]))

(defonce app-state (atom {:text "Hello!"
                          :items ["foo"
                                  "Foobar [[foo|blitz]] lolophone hoptigoff."]}))

(defn add-item [app owner]
  (let [new-item (-> (om/get-node owner "new-item")

    (link (get-href x) (get-title x))
    (str " " x " ")))

(defn prepare-item [s] (vec (map str-or-link (split-words s))))

;; td-idf, 1-gram
;; now with basic-list! (or not, does that help here - more like remove those?)
;; and go to lower-case?
;; should also have id in it
#_(defn naive-key-extractor [str]
    (vec (map first
              (filter #(= (second %) 1)
                      (frequencies (split-words str))))))

(defn make-word-map [str id]
  (zipmap (map first
               (filter #(= (second %) 1)
                       (frequencies (split-words str)))) (repeat id)))
;; then merge
;; should be elsewhere?

(defn item-view [item owner]
  (reify
