From c694938a808096c7a0381473e6f27582b7949a39 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Mon, 2 Sep 2024 11:30:03 -0700
Subject: Add: json body parser

---
 pastiche.lisp | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'pastiche.lisp')

diff --git a/pastiche.lisp b/pastiche.lisp
index 90aafdb..1a0b582 100644
--- a/pastiche.lisp
+++ b/pastiche.lisp
@@ -210,6 +210,11 @@ from make-paste-filename."))
       min
       (>= hr 12))))
 
+(defun json-parse (str)
+  (jonathan:parse str :as :alist))
+
+(http:register-body-parser "application/json" 'json-parse)
+
 (http:defendpoint view-paste
   :get :route "paste" (:id +paste-id-regex+)
   :returns "text/html"
-- 
cgit v1.2.3