           (conj r
                 [:a {:on-click #(do
                                   (.preventDefault %)
-                                  ;(if (= (:value v) "badge") (open-modal [:badge :my] nil))
                                   (case (:value v)
                                     "badge" (open-modal [:badge :my] {:atom block-atom :type "pickable" :function (fn []
                                                                                                    (if index

                                    (if index
                                      (f/add-field block-atom {:type (:value v)} index)
                                      (f/add-field block-atom {:type (:value v)}))))
                     ;:data-dismiss "modal"
                     }
                 [:div.row


    (fn []
      (layout/default site-navi (content state)))))

(defn ^:export modalroute []
  {:block-type contenttype})
