      ^{:key (.-id d)}
      [:option {:value (.-id d)} (.-villagename d)])])
 
+(def button-tool-bar (r/adapt-react-class (aget js/ReactBootstrap "ButtonToolbar")))
+(def button (r/adapt-react-class (aget js/ReactBootstrap "Button")))
 
 (defn render-mutations [mutations]
   [:div
    [:div {:class "box"}
     [:div {:class "box-header"}
-     [:h3 "List of Mutations"]]
+     [:div.page-header [:h3 "List of Mutations"]]]
     [:div.col-md-12
      [:div.form-group
       [:div.row
        [:div.col-sm-2 "Mutation Number"
         [:input.form-control {:id "mutationnumber"
                               :type "text"
-                              :placeholder "Enter search by mutationnumber"}]]
-       [:div.col-sm-2 "Enter Search Text"
-        [:input.form-control {:id "dt" :type "text"
-                              :placeholder "Enter search text.."}]]]]
-
+                              :placeholder "Enter search by mutationnumber"}]]]]
      [:div.form-group
       [:div.row
-       [:div.col-sm-2 "Title"
-        [:input.form-control {:id "stitle"
-                              :type "text"
-                              :placeholder "Title"}]]
        [:div.col-sm-2 "District Name"
         [src-dist-sel-tag]]
        [:div.col-sm-2 "Sub Division Name"
         [src-sub-sel-tag]]
        [:div.col-sm-2 "Village Name"
         [src-vill-sel-tag]]
-       [:div.col-sm-2 "Name Of P.O"
-        [:input.form-control {:id "svillagename"
-                              :list "combo"
-                              :placeholder "Name Of P.O"}[datalist]]]]]
-     [:div.form-group
-      [:div.row
        [:div.col-sm-2 "O2 Number"
         [:input.form-control {:id "so2number"
                               :type "text"
                               :placeholder "O2 Number"}]]
+       [:div.col-sm-2 "Name of the First Party"
+        [:input.form-control {:id "snameofthefirstparty"
+                              :type "text"
+                              :placeholder "Name of the First Party"}]]]]
+
+     [:div.form-group
+      [:div.row
+       [:div.col-sm-2 "Name of the Second Party"
+        [:input.form-control {:id "snameofthesecondparty"
+                              :type "text"
+                              :placeholder "Name of the Second Party"}]]
+       [:div.col-sm-2 "Name Of P.O"
+        [:input.form-control {:id "svillagename"
+                              :list "combo"
+                              :placeholder "Name Of P.O"}[datalist]]]
+       [:div.col-sm-2 "Title"
+        [:input.form-control {:id "stitle"
+                              :type "text"
+                              :placeholder "Title"}]]
        [:div.col-sm-2 "Khasra Number"
         [:input.form-control {:id "skhasranumber"
                               :type "text"

                           [:b (str (first ((form-validator @data-set) id)))]])
                        [:div])]])))

(defn dist-onchange [id]
  (let [res (fn [json]
              (let [dt (getdata json)]
                (set-key-value :subdivisions dt)
                (set-key-value :villages nil)))]
    (http-get (str  "http://localhost:9000/districts/" id  "/subdivisions") res)))

(defn dist-sel-tag [id data data-set]
  [:select.form-control {:id id
                         :value (@data-set id)
                         :on-change #(dist-onchange (-> % .-target .-value)) }
   [:option {:value 0} "--Select--"]
   (for [d  data]
     ^{:key (.-id d)}

   [:div.col-sm-6 [dist-sel-tag id opt-data data-set]]
   [:div.col-sm-3 [:div]]])

(defn sub-onchange [id val data-set]
  (let [res (fn [json]
              (let [dt (getdata json)]
                (set-key-value :villages dt)))]
    (do (http-get (str serverhost "subdivisions/" val  "/villages") res)
        (swap! data-set assoc id val)
        )))

(defn sub-sel-tag [id data data-set]
  [:select.form-control {:id id
                         :value (@data-set id)
                         :on-change #(sub-onchange  id (-> % .-target .-value) data-set)}
   [:option {:value 0} "--Select--"]
   (for [d  data]
     ^{:key (.-id d) }
