          message (cursor state [:evidence :message])
          input-mode (cursor state [:input_mode])
          {:keys [image_file name]} data]
-    (fn []
 
     [:div {:id "badge-settings" :class "row flip"}
      [:div {:class "col-md-3 badge-image modal-left"}

                                  (.preventDefault %)
                                  (swap! state assoc :tab [se/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.form-group
      [:div.col-md-9 {:class "new-evidence"}
       [:i.fa.fa-plus]
       [:a {:href "#"
            :on-click #(do (.preventDefault %)
                         (swap! state assoc :evidence nil
                                :show-preview false
                                :show-form false
