   (println "Seeing things")
   (m "div" nil
      [(m "h1" {:style {:color "green"}} (:var db))
-      (m "ol" nil (notes))]))
+      (m "ol" nil (notes (:start db)))]))
 
 (def app {:controller ctrl :view viewer})
 

; View
;

(defn notes []
  "Returns 10 items from data"
  (map
    (fn [item]
      (let [title (get item "title")]
          (m "li" nil title)))
    (take 10 (:data db))))

(defn ctrl []
  (println "Calling major Tom")

;

(def db
  {:var (str "tosi:" (rand-int 10))
   :start 10})

(defn ^:export updatedb [fields value]
  (set! db (assoc-in db fields value))
