mirror of
https://github.com/penpot/penpot.git
synced 2025-01-09 16:30:37 -05:00
47 lines
1.4 KiB
Clojure
47 lines
1.4 KiB
Clojure
(ns uxbox.schema
|
|
(:refer-clojure :exclude [keyword uuid])
|
|
(:require [bouncer.core :as b]
|
|
[bouncer.validators :as v]))
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Validators
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(v/defvalidator keyword
|
|
"Validates maybe-an-int is a valid integer.
|
|
For use with validation functions such as `validate` or `valid?`"
|
|
{:default-message-format "%s must be a keyword"}
|
|
[v]
|
|
(cljs.core/keyword? v))
|
|
|
|
|
|
(v/defvalidator uuid
|
|
"Validates maybe-an-int is a valid integer.
|
|
For use with validation functions such as `validate` or `valid?`"
|
|
{:default-message-format "%s must be a uuid instance"
|
|
:optinal true}
|
|
[v]
|
|
(instance? cljs.core.UUID v))
|
|
|
|
(v/defvalidator color
|
|
"Validates if a string is a valid color."
|
|
{:default-message-format "%s must be a valid hex color"
|
|
:optional true}
|
|
[v]
|
|
(not (nil? (re-find #"^#[0-9A-Fa-f]{6}$" v))))
|
|
|
|
(def required v/required)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Public Api
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(defn validate
|
|
([schema] #(validate schema %))
|
|
([schema data] (first (b/validate data schema))))
|
|
|
|
(defn validate!
|
|
([schema] #(validate! schema %))
|
|
([schema data]
|
|
(when-let [errors (validate schema data)]
|
|
(throw (ex-info "Invalid data" errors)))))
|