               (filter #(= (second %) 1)
                       (frequencies (split-words (:text str)))))))
 
+;; TODO: Link to view item, just do preview
+;; TODO: Change name of fn
 (defn visible-item-view [item owner]
   (reify
     om/IRender
     (render [this]
       (dom/li nil
-              (apply dom/div nil
-                     (str (second item)))))))
+              (dom/p nil (second item) " "
+                     (link (str "#/notes/" (first item)) "link"))))))
 
 ;; TODO: with links
 (defn item-view [app owner]

        new-item [(swap! id-atom inc) new-item-text]]
    (when new-item
      (om/transact! app :word-map #(merge-with union % (make-word-map new-item)))
      (om/transact! app :items #(conj % new-item)))))

(defn search [app owner]
  (let [search (-> (om/get-node owner "search")

                        (apply dom/ul nil
                               (om/build-all visible-item-view
                                             (filter (fn [[i _]] (in? (:visible app) i))
                                                     (:items app))))
                        (dom/p nil "Indexed words: "
                               (str (map first (:word-map @app-state))))
                        )

               ;; View
               (om/build item-view app)

               ;; Add
               (dom/div #js {:style (hidden (-> app :hidden :add))}
                        (dom/p nil (str "" (:count state) "/1000"))
                        (dom/textarea #js
                                      {:value (:text state)
                                       :ref "new-item"
