    (when @has-todos?
      [:div
       [-view-todo-list @todos @all-completed? dispatch]
-      [-view-footer @active-count @has-completed-todos? @visibility dispatch]])])
+      [-view-footer @active-count @has-completed-todos? @visibility @visibility-spec dispatch]])])
 
 ;;;;;;;;;;;;;;;;;;;;;;;; Start
 (defn on-start

                     (.focus (r/dom-node this)))}))

(defn -view-todo
  [{:keys [id title editing? completed?] :as _todo_} dispatch]
  [:li {:class (cond editing? "editing" completed? "completed")}
   [:div.view
    [:input.toggle {:type      "checkbox"

         (-remove-todos model :completed?)))

;;;;;;;;;;;;;;;;;;;;;;;; View model
(defn -visibility
  [visibility-spec model]
  (if-let [result (->> visibility-spec
                       (filter #(contains? (:tokens %) (::routing/token model)))
                       first
                       :key)]
