From 121292546942d83b57b3910768e258f9ae23d788 Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Sat, 8 Jun 2024 21:43:23 +0200
Subject: [PATCH] Add random id generator

---
 src/handlers/main.lisp | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/handlers/main.lisp b/src/handlers/main.lisp
index 33400d5..b9edca6 100644
--- a/src/handlers/main.lisp
+++ b/src/handlers/main.lisp
@@ -64,4 +64,11 @@
                          (get-universal-time)
                          (random 1000000))))
 
+(defun generate-random-id ()
+  (let ((charset "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789")
+        (length 11))
+    (coerce (loop repeat length
+                  collect (char charset (random (length charset))))
+            'string)))
+
 (defun string-empty-p (string) (= (length string) 0))