From 2e0c177d40419c92a93a45eb7efd136341ec52cc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Wed, 8 Jul 2020 02:15:40 +0200
Subject: Add /remove POST endpoint.

---
 module/entry-points/server.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm
index a0afa0f8..0698daf0 100644
--- a/module/entry-points/server.scm
+++ b/module/entry-points/server.scm
@@ -105,6 +105,18 @@
                                      intervaltype: 'month
                                      ))))))
 
+
+   (POST "/remove" (uid)
+         (unless uid
+           (return (build-response code: 400)
+                   "uid required"))
+
+         (aif (get-event-by-uid uid)
+              (begin (remove-event it)
+                     (return (build-response code: 204) ""))
+              (return (build-response code: 400)
+                      (format #f "No event with UID '~a'" uid))))
+
    ;; TODO this fails when dtstart is <date>.
    (POST "/insert" (cal data)
 
-- 
cgit v1.2.3