                        :href "#":on-click #(do
                                              (.preventDefault %)
                                              (evidence/toggle-input-mode :file_input state))
-                       } [:i.fa.fa-files-o] (t :page/Files)]]]]]
+                       } [:i.fa.fa-files-o] (t :page/Files)]]
+           [:div.cancel [:a {:href "#":on-click #(do
+                                                   (.preventDefault %)
+                                                   (swap! state assoc :tab [settings-tab-content (dissoc data :evidence) state init-data]
+                                                          :tab-no 2))}
+
+                         [:i.fa.fa-remove] (t :core/Cancel)]]]]]
 
 
         ;;Preview

                 [:div.col-md-9
                  [evidence/input {:name "narrative" :rows 5 :cols 40 :atom evidence-narrative-atom } true]]]])

             ]]])

        ;;url input
        (when (= @input-mode :url_input) [:div
                                          [:div.col-md-12
                                           [:div.resource-container {:style {:margin-bottom "10px"}}
                                            [evidence/input {:name "evidence-url" :atom evidence-url-atom :type "url" :placeholder "http://" :preview? (cursor state [:show-preview])}]]]])
        ;;Resource grid
        (when-not @(cursor state [:show-preview])[evidence/resource-input data state init-data])

        ;;Buttons
        [:div.col-md-12
         [:hr]
         (when @(cursor state [:show-preview])[:button {:type "button"
                                                        :class "btn btn-primary"
                                                        :disabled (not (url? @evidence-url-atom))
                                                        :on-click #(do
                                                                     (.preventDefault %)
                                                                     (if (= @input-mode :url_input) (reset! (cursor state [:evidence :properties :resource_type] ) "url"))
                                                                     (evidence/save-badge-evidence data state init-data)
                                                                     (when-not @(cursor state [:evidence :message])(swap! state assoc :tab [settings-tab-content data state init-data]
                                                                                                                          :tab-no 2)))}
                                               (t :core/Add)])
         [:a.cancel {:on-click #(do
                                  (.preventDefault %)
                                  (swap! state assoc :tab [settings-tab-content (dissoc data :evidence) state init-data]
                                         :tab-no 2))}
          (t :core/Cancel)]]]]]]))

(defn evidence-list [data state init-data]
  (let [evidence-name-atom (cursor state [:evidence :name])


    [:div {:id "badge-settings" :class "row flip"}
     [:div {:class "col-md-3 badge-image modal-left"}
      [:img {:src (str "/" image_file) :alt name}]
      ]
     [:div {:class "col-md-9 settings-content settings-tab"}
      (if @message [:div @message])
      [:div
       [:div.row {:style {:margin-bottom "10px"}} [:label.col-md-9.sub-heading (t :badge/Addnewevidence)]]
       [:div.evidence-info (t :badge/Evidenceinfo)]

       [:div.row.form-horizontal
