     (link (get-href x) (get-title x))
     (str " " x " ")))
 
-(defn prepare-item [s] (vec (map str-or-link (split-words s))))
+;;(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]
+(defn naive-key-extractor [str]
     (vec (map first
               (filter #(= (second %) 1)
-                      (frequencies (split-words str))))))
+                      (frequencies (split-words (:text str)))))))
 
 (defn make-word-map [str id]
   (zipmap (map first

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

(def basic-list
  "come get give go keep let make put seem take be do have say see
  send may will about across after against among at before between by

;; then merge
;; should be elsewhere?

#_(defn item-view [item owner]
  (reify
    om/IRender
    (render [this]
      (dom/li nil
              (apply dom/div nil
                     (str (:text item))
                     (str (naive-key-extractor item) ", ")
                     #_(prepare-item item))))))

(defn visible-item-view [item owner]
  (reify
    om/IRender
    (render [this]
      (dom/li nil
              (apply dom/div nil
                     (str (second item)))))))

(defn app-view [app owner]
  (reify
