                                       (state/update-project! p
                                                              :show-only-first true))}
                          "Show only first"])]))]))]]]))
+
+(defn render-todays
+  [tasks]
+  [render-categorized-todos-for (fn [p]
+                                  (filter #(and (:today %)
+                                                (not (:done %)))
+                                          (:tasks p)))
+   tasks])

           project
           tasks-done]))]]))

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

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