               remaining (cd/remaining-times (:time-by-book day-stats) allocation)
               past-7-days (cd/past-7-days pomodoro-stats :time-by-book)
               tab-group (:tab-group local-cfg)]
-          [:div.habits
-           [:h5 "Waiting habits:"]
-           [:ul
-            (for [waiting-habit @waiting-habits]
-              (let [ts (:timestamp waiting-habit)]
-                ^{:key ts}
-                [:li.habit
-                 {:on-click (up/add-search ts tab-group put-fn)}
-                 [:strong (some-> waiting-habit
-                                  :md
-                                  (s/replace "#habit" "")
-                                  s/split-lines
-                                  first)]]))]
+          [:div
+           [waiting-habits-list tab-group put-fn]
            [:form.briefing-details
             [:fieldset
              [:legend (or day "date not set")]

                 {:style {:background-color (cc/item-color book-name)}}]
                [:strong.name book-name] (u/duration-string v)]))])))))

(defn briefing-view
  [entry put-fn edit-mode? local-cfg]
  (let [chart-data (subscribe [:chart-data])

    (fn briefing-render [entry put-fn edit-mode? local-cfg]
      (when (contains? (:tags entry) "#briefing")
        (let [books @books
              {:keys [pomodoro-stats  task-stats wordcount-stats]} @chart-data
              day (-> entry :briefing :day)
              day-stats (get pomodoro-stats day)
              word-stats (get wordcount-stats day)
