From a6c251123bbe9c174294287d494c4be99e40287a Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sat, 18 Feb 2023 09:18:10 -0800
Subject: Saturday Pair Session

---
 utilities.lisp | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'utilities.lisp')

diff --git a/utilities.lisp b/utilities.lisp
index b6cf16a..5644f2e 100644
--- a/utilities.lisp
+++ b/utilities.lisp
@@ -23,3 +23,15 @@
                                     :external-format :utf-8))
    :external-format :latin1))
 
+(defparameter +user-nick-chars+ "0123456789abcdefghijklmnopqrstuvwxyz-._")
+
+(defun/t valid-nick-p (nick)
+  :tests
+  (eql ("??????") nil)
+  (eql ("⚔") nil)
+  (eql ("cool_beans") t)
+  (eql ("COOOL_BEANS") t)
+  (eql ("COOL beans") nil)
+  :end 
+  (unless (zerop (length nick))
+    (every (lambda (char) (find char +user-nick-chars+)) (string-downcase nick))))
-- 
cgit v1.2.3