 (defn- platform-link
   [{:keys [link links-to body-text owner]}]
   [:span body-text
-   [:a {:href link
-        :target "_blank"
-        :on-click #((om/get-shared owner :track-event) {:event-type :platform-link-clicked
-                                                        :properties {:component "builds-table-popover"
-                                                                     :link link
-                                                                     :links-to links-to}})}
-    "Learn more"]])
+   [:div
+    [:a {:href link
+         :target "_blank"
+         :on-click #((om/get-shared owner :track-event) {:event-type :platform-link-clicked
+                                                         :properties {:component "builds-table-popover"
+                                                                      :link link
+                                                                      :links-to links-to}})}
+     "Learn more →"]]])
 
 (defn build-row [{:keys [build project]} owner {:keys [show-actions? show-branch? show-project?]}]
   (let [url (build-model/path-for (select-keys build [:vcs_url]) build)

        :else nil)]

     [:div.build-info
      [:div.build-info-header
       [:div.contextual-identifier
        [:a {:title (str (:username build) "/" (:reponame build) " #" (:build_num build))
             :href url
             :on-click #((om/get-shared owner :track-event) {:event-type :build-link-clicked
                                                             :properties {:org (vcs-url/org-name (:vcs_url build))
                                                                          :repo (:reponame build)
                                                                          :vcs-type (vcs-url/vcs-type (:vcs_url build))}})}

         (when show-project?
           (str (:username build) " / " (:reponame build) " "))

         (when (and show-project? show-branch?) " / ")

         (when show-branch?
           (-> build build-model/vcs-ref-name))
         " #"
         (:build_num build)]]]
      [:div.recent-commit-msg
       (let [pusher-name (build-model/ui-user build)
             trigger (:why build)]
         [:div.recent-user
          {:title (if (= "api" trigger)
                    "API"
                    pusher-name)
           :data-toggle "tooltip"
           :data-placement "right"}
          (avatar (:user build) :trigger trigger)])
       [:span.recent-log
        {:title (:body build)}
        (:subject build)]]]

     [:div.metadata
      [:div.metadata-row.timing

      [:div.metadata-row.pull-revision
       (om/build pull-requests {:build build})
       (om/build commits {:build build})]]
     [:div.build-engine
      (popover/popover {:title nil
                        :body (if (= "1.0" platform)
                                (platform-link {:body-text "2.0 is coming soon!\n"
