allow deleting label

applications/admin.moon

@@ -106,6 +106,7 @@ class MoonRocksAdmin extends lapis.Application
 
       assert_valid @params, {
         {"label", type: "table"}
+        {"action", optional: true, one_of: {"delete"}}
       }
 
       trim_filter @params.label
@@ -115,13 +116,25 @@ class MoonRocksAdmin extends lapis.Application
       }
 
       import ApprovedLabels from require "models"
-      label = ApprovedLabels\create {
-        name: @params.label.name
-      }
+
+      label = switch @params.action
+        when "delete"
+          al = ApprovedLabels\find {
+            name: @params.label.name
+          }
+
+          if al
+            al\delete!
+            al
+
+        else -- create by default
+          ApprovedLabels\create {
+            name: @params.label.name
+          }
 
       json: {
-        success: true
-        id: label.id
+        success: label and true or false
+        id: label and label.id
       }
 
   }

views/admin/labels.moon

@@ -11,19 +11,24 @@ class AdminUsers extends require "widgets.page"
         a href: @url_for(label), label.name
       }
       "created_at"
+      {"delete", (t) ->
+        form method: "post", class: "form", ->
+          @csrf_input!
+          input type: "hidden", name: "label[name]", value: t.name
+          input type: "hidden", name: "action", value: "delete"
+          button "Delete"
+      }
     }
 
     h2 "Used labels that aren't approved"
     @column_table @uncreated_labels, {
       "label"
       "count"
       {"create", (t) ->
-
         form method: "post", class: "form", ->
           @csrf_input!
           input type: "hidden", name: "label[name]", value: t.label
           button "Create"
-
       }
     }