                 [:li.project
                  [:div.project-name
                   [:span (:name p)]]
-                 (let [tasks   (filter #(:today %)
-                                       (:tasks p))
+                 (let [tasks   (filter-fn p)
                        n-tasks (count tasks)]
                    (if (:show-only-first p)
                      [:div

                                      (state/update-project! p
                                                             :show-only-first true))}
                         "Show only first"])]))]))]]]))

           project
           tasks-done]))]]))

(defn- render-categorized-todos-for
  [filter-fn tasks]
  (let [projects (distinct (map #(state/get-project-by-id (get-in % [:project :id]))
                                tasks))]
    [:div#tasks-container
