more sections for edit form

src/wanijo/instance/view.clj

@@ -138,13 +138,14 @@
          " | "
          [:a {:href (path :instance-show instance)}
           "Back to Instance"]]]
+    [:section.edit-instance
      [:h2 "Edit Instance"]
      (hform/form-to [:post (path :instance-edit instance)]
                     (form/render-widgets form form-data req)
                     (hform/submit-button "Edit!"))
      (hform/form-to [:delete (path :instance-delete instance)]
                     (anti-forgery-field)
-                   (view/delete-btn))
+                    (view/delete-btn))]
     (when (seq (:links-out instance))
       [:section.links-out
        [:h2 "Outgoing Links"]
@@ -174,6 +175,7 @@
                                                 :link-uuid (:uuid link)})]
                                 (anti-forgery-field)
                                 (view/delete-btn))]])]]])
+    [:section.link-instance
      [:h2 "Link Instance with Instance of Schema..."]
      [:ul
       (for [schema schemas]
@@ -181,7 +183,7 @@
          [:a {:href (path :instance-link-selection
                           {:uuid (:uuid instance)
                            :schema-uuid (:uuid schema)})}
-         (h (:name schema))]])]]))
+          (h (:name schema))]])]]]))
 
 (defn link-selection [instance schema form req]
   (view/layout!