 (defn week-dates []
   (map-kv day-map count-date))
 
-(defn handle-change [e]
-  (print (str "value: " (.. e -target -value))))
+(defn handle-change [e project day]
+  (print (str "value: " (.. e -target -value)
+              ", project: " (:name @project)
+              ", day: " day)))
 
 (defcomponent project-entries [app]
   (render [this]

                         (ot/input {
                                    :class "hour-entry"
                                    :value hours
                                    :on-change #(handle-change %)}
                                   )))))
           (:projects app)))))


                     (ot/input {
                                :class "project-name"
                                :type "text"
                                :value (:name project)})

                     (for [day (range 1 8)]
                       (let [hours
