          (-> model
              (-update-todos #(assoc % :editing? (= (:id %) id)))
              (-update-todo id #(assoc % :original-title (:title %))))
+
+         [:update-todo id val]
+         (-update-todo model id assoc :title val)
 
          [:stop-editing id]
          (let [title (-> (-find-todo model id)

       :view       view
       :control    control
       :reconcile  reconcile}
      (routing/wrap history)))
         (-update-todo model id #(assoc % :editing? false
                                          :title (:original-title %)
                                          :original-title ""))

         [:remove id]
         (-remove-todo model id)
