            project
            tasks-done]))]]))
 
-(defn render-todays
-  [tasks]
+(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

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

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