 
 ;;;;;;;;;;;;;;;;;;;;;;;; View model
 (def -visibility-spec
-  ; multiple tokens are supported mostly for :all case:
-  ; on navigating to base url the token is "", but on clicking the link the token becomes "/"
+  ; multiple tokens are supported mostly for :all case,
+  ; because on navigating to base url the token is "", but on clicking the link the token becomes "/"
   [{:key :all :title "All" :href "#/" :tokens #{"" "/"}}
    {:key :active :title "Active" :href "#/active" :tokens #{"/active"}}
    {:key :completed :title "Completed" :href "#/completed" :tokens #{"/completed"}}])

  [:section.todoapp
   [-view-header @field dispatch]

   (if @has-todos?
     [:div
      [-view-todo-list @todos @all-completed? dispatch]
      [-view-footer @active-count @has-completed-todos? @visibility dispatch]])])

(defn reconcile
  [model action]
  (match action
         [:update-field val]
         (assoc model :field val)

