Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-02 04:19:08 -05:00
Code Issues Activity

✨ Improve word-string schema generator

Browse source 
make it to generate a more readable strings
This commit is contained in:
Andrey Antukh 2024-08-16 12:04:18 +02:00
parent db52d98595
commit 0db1eed87f
1 changed files with 5 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
common/src/app/common/schema/generators.cljc
View file

@ -77,14 +77,11 @@
(defn word-string (defn word-string
[] []
(as-> tg/string-alphanumeric $$ (as-> tg/string-ascii $$
(tg/such-that (fn [v] (re-matches #"\w+" v)) $$ 50) (tg/resize 10 $$)
(tg/such-that (fn [v] (tg/fmap (fn [v] (apply str (re-seq #"[A-Za-z]+" v))) $$)
(and (not (str/blank? v)) (tg/such-that (fn [v] (>= (count v) 4)) $$ 100)
(not (re-matches #"^\d+.*" v)))) (tg/fmap str/lower $$)))
$$
50)))
(defn email (defn email
[] []