                                    reference-series (.-reference-series description)
                                    reference-series-label (.-reference-series-label description)
                                    buckets (.-buckets description)]
-    (clj->js (concat [#js ["Buckets" series-label reference-series-label]]
-                     (map (fn [a b c] #js [(str a) b c]) buckets series reference-series)))))
+                               (clj->js (concat [#js ["Buckets" series-label reference-series-label]]
+                                                (map (fn [a b c] #js [(str a) b c]) buckets series reference-series)))))
+        update-title (fn []
+                       (let [element (om/get-node owner "alert-title")
+                             title (.-title description)
+                             link (.-link description)]
+                         (aset element "innerHTML" (str "<a href=\"" link "\">" title "</a>"))))
+
         draw-chart (fn []
                      (let [element (om/get-node owner "alert-description")
                            chart (js/google.visualization.LineChart. element)

    (reify
      om/IDidMount
      (did-mount [_]
        (draw-chart))

      om/IDidUpdate
      (did-update [_ _ _]
        (draw-chart))

      om/IRender
      (render [_]
        (html [:a.list-group-item
               [:div
                [:h5.text-center (.-title description)]]
               [:div {:ref "alert-description"}]])))))

(defn alert [{:keys [description date]} owner]

                  (select-keys state [:selected-date-range])
                  {:init-state {:event-channel event-channel}})]))))

(defn alert-graph [{:keys [description date]} owner]
  (let [description->frame (fn [date description]
                             (let [series (.-series description)
