From 2b6e1eec2bf5c27223fbf2d09cd10a322fc09909 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sat, 1 Apr 2023 18:04:45 -0700
Subject: Add: I dunno. lots of little things

---
 src/app.lisp | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/app.lisp')

diff --git a/src/app.lisp b/src/app.lisp
index 14765c7..59250e3 100644
--- a/src/app.lisp
+++ b/src/app.lisp
@@ -56,6 +56,11 @@ functions in url parameters in endpoint definitions."
     `(let ((,plist-var ,plist))
        (let ,bindings ,@body))))
 
+(defun get-checkboxes-from-body (name &optional (mapper #'object-with-uid))
+  (loop :for (key val) :on (lzb:request-body) :by #'cddr
+        :when (string-equal key name)
+          :collect (funcall mapper val)))
+
 ;;; VALIDATOR TRANSFORMS
 
 (defmacro define-id-plucker (class)
-- 
cgit v1.2.3