Use GET for the delete path for convenience, just like

the OG repo has done. This is obviously bad. We can use HTMX to fix it
cleanly, instead of doing the usual workarounds.

src/usermanager/layouts/core.clj

@@ -71,9 +71,9 @@
                  [:tr (for [field [id name email department action]]
                         [:td field])]))
              users)
-        [:tr [:td {:colspan (count table-headers)}]
-         "No users exist but "
-         [:a {:href "/user/form"} "new ones can be added"]"."])]]))
+        (list [:tr [:td {:colspan (count table-headers)}
+                    "No users exist but "
+                    [:a {:href "/user/form"} "new ones can be added"] "."]]))]]))
 
 (def uri->page-name
   {"/" "Home"

src/usermanager/router/core.clj

@@ -34,7 +34,7 @@
   [_]
   handlers/default)
 
-(defmethod router [:delete "/user/delete/:id"]
+(defmethod router [:get "/user/delete/:id"]
   [_]
   (middleware/wrap-route-id-params
    handlers/delete-by-id

test/usermanager/handlers/user_test.clj

@@ -57,5 +57,5 @@
       (is (= {:status 200
               :trace-redirects [(str base-uri "user/list")]
               :body ""}
-             (-> (http/delete (str base-uri "user/delete/42"))
+             (-> (http/get (str base-uri "user/delete/42"))
                  (select-keys [:status :body :trace-redirects])))))))

test/usermanager/router/core_test.clj

@@ -129,7 +129,7 @@
        :application/view "list"}
 
       ;; 3. DELETE
-      (handle {:request-method :delete
+      (handle {:request-method :get
                :uri "/user/delete/2"
                :application/component {:database db}})
       {:status 303
@@ -190,7 +190,7 @@
          :application/view "list"}
 
         ;; Delete the lone user
-        (handle {:request-method :delete
+        (handle {:request-method :get
                  :uri "/user/delete/1"
                  :params {:id 1} ; We assume setup creates at least one user
                  :application/component {:database db}})