                            (m "td" nil (format_time (new js/Date time)))
                            (m "td" nil comment)
                            (m "td" nil
-                              [(m "button.pure-button" {:onclick #(edit item pos)} "Edit")])])))
+                              [(m "button.pure-button" {:onclick #(edit item pos)} "Edit")
+                               (m "button.pure-button" {:onclick #(delete pos)} "Remove")])])))
         (if (< PAGESIZE (count data))
           (subvec data start (+ start PAGESIZE))
           data))]))

  (updatedb [:editing] (merge {:pos pos} item)))

(defn save []
  (let [doc (:editing db)
        data (:data db)
        pos (:pos doc)]
    (if (not (empty? doc))

        (clear)
        (println "Saved!" (str doc))))))

(defn delete [pos]
  (let [data (:data db)]
    (updatedb [:data]
              (vec (concat (subvec data 0 pos) (subvec data (inc pos)))))))
;
; View
;
