Delete widget now suppressed unless there's a valid record.

src/adl/to_selmer_templates.clj

@@ -201,9 +201,14 @@
 
 (defn delete-widget
   "Return an appropriate 'save' widget for this `form` operating on this
-  `entity` taken from this `application`.
-  TODO: should be suppressed unless member of a group which can delete."
+  `entity` taken from this `application`."
   [form entity application]
+  (flatten
+   (list
+    (str "{% if all "
+         (s/join " " (map #(str "params." %) (key-names entity)))
+         " %}")
+
     (wrap-in-if-member-of
      {:tag :p
       :attrs {:class "widget action-dangerous"}
@@ -222,7 +227,8 @@
                          :value (str "Delete!")}}]}
      :editable
      entity
-    application))
+     application)
+    "{% endif %}")))
 
 
 (defn select-property