         query-cfg (subscribe [:query-cfg])
         waiting-habits (subscribe [:waiting-habits])
         options (subscribe [:options])
+        expand-fn #(swap! local update-in [:expanded-habits] not)
         stories (reaction (:stories @options))
         saga-filter (fn [entry]
                       (if-let [selected (:selected @local)]

              entries
              (filter (u/pvt-filter conf entries-map) entries))))]
    (fn waiting-habits-list-render [entry local local-cfg put-fn]
      (let [entries-list @entries-list
            tab-group (:tab-group local-cfg)
            today (.format (js/moment.) "YYYY-MM-DD")
            briefing-day (-> entry :briefing :day)]
        (when (and (= today briefing-day) (seq entries-list))
          [:div
           [:table.habits
            [:tbody
             [:tr
              [:th [:span.fa.fa-exclamation-triangle]]
              [:th [:span.fa.fa-diamond]]
              [:th [:span.fa.fa-diamond.penalty]]
              [:th "waiting habit"]]
             (for [entry (take 15 entries-list)]
               (let [ts (:timestamp entry)
                     text (eu/first-line entry)]
                 ^{:key ts}

                          (= selected (:linked-saga story)))
                        true))
        entries-map (subscribe [:entries-map])
        habits
        (reaction
          (let [entries-map @entries-map
                find-missing (u/find-missing-entry entries-map put-fn)
