From 66c51b0e714fa8a1c80784108191270babc8525e Mon Sep 17 00:00:00 2001
From: unwox <me@unwox.com>
Date: Sun, 31 Aug 2025 17:51:57 +0600
Subject: implement shop

---
 pages/shop/cart/remove.fnl | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 pages/shop/cart/remove.fnl

(limited to 'pages/shop/cart/remove.fnl')

diff --git a/pages/shop/cart/remove.fnl b/pages/shop/cart/remove.fnl
new file mode 100644
index 0000000..d5e3531
--- /dev/null
+++ b/pages/shop/cart/remove.fnl
@@ -0,0 +1,23 @@
+(local lib (require :lib))
+
+(fn render [request db]
+  (if (= request.method "POST")
+    (let [order-id (lib.order-id request)]
+      (if (and order-id request.body)
+        (do
+          (local body-values (lib.parse-values request.body))
+          (_G.must
+            (luna.db.exec
+              db
+              "DELETE FROM order_lines WHERE id = ? AND order_id = ?"
+              [body-values.id order-id]))
+          (values
+            302
+            {:Location (_G.must
+                         (luna.http.decode-url
+                           (or body-values.redirect-url "/shop")))}
+            ""))
+        (values 400 {} "bad body")))
+    (values 404 {} "not found")))
+
+{: render}
-- 
cgit v1.2.3