   (fn
     [todos _]
     (->> (vals todos)
-         (remove :done)
+         (filter :done)
          (map :id)
          (reduce dissoc todos))))
 
 ;; -- Subscriptions ---------
 
-
 (register-sub
   :initialised?
   (fn

  :visible-todos
  (fn
    [db _]
    (let [todos     (reaction (:todos @db))
          showing   (reaction (:showing @db))]
    (reaction (filter (filter-fn-for @showing)
                      (vals @todos))))))


(register-sub
  :completed-count

        [active-count completed-count showing]))))  ;; tuple


;; -- Components ---------


