johanels/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-12-11 22:14:05 +01:00
Code Issues Actions 9 Packages Projects Releases Wiki Activity

✨ Remove malli dev stuff from cljs build

Browse Source 
It only used on backend.
This commit is contained in:
Andrey Antukh
2025-11-26 13:05:02 +01:00
parent 9a58f0e954
commit d34b6b88b6
1 changed files with 24 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
common/src/app/common/schema.cljc
View File

@@ -8,6 +8,8 @@
(:refer-clojure :exclude [deref merge parse-uuid parse-long parse-double parse-boolean type keys]) (:refer-clojure :exclude [deref merge parse-uuid parse-long parse-double parse-boolean type keys])
#?(:cljs (:require-macros [app.common.schema :refer [ignoring]])) #?(:cljs (:require-macros [app.common.schema :refer [ignoring]]))
(:require (:require
#?(:clj [malli.dev.pretty :as mdp])
#?(:clj [malli.dev.virhe :as v])
[app.common.data :as d] [app.common.data :as d]
[app.common.math :as mth] [app.common.math :as mth]
[app.common.pprint :as pp] [app.common.pprint :as pp]
@@ -19,8 +21,6 @@
[clojure.core :as c] [clojure.core :as c]
[cuerdas.core :as str] [cuerdas.core :as str]
[malli.core :as m] [malli.core :as m]
[malli.dev.pretty :as mdp]
[malli.dev.virhe :as v]
[malli.error :as me] [malli.error :as me]
[malli.generator :as mg] [malli.generator :as mg]
[malli.registry :as mr] [malli.registry :as mr]
@@ -245,27 +245,30 @@
:level (d/nilv level 8) :level (d/nilv level 8)
:length (d/nilv length 12)}))))) :length (d/nilv length 12)})))))
(defmethod v/-format ::schemaless-explain #?(:clj
(defmethod v/-format ::schemaless-explain
[_ explanation printer] [_ explanation printer]
{:body [:group {:body [:group
(v/-block "Value" (v/-visit (me/error-value explanation printer) printer) printer) :break :break (v/-block "Value" (v/-visit (me/error-value explanation printer) printer) printer) :break :break
(v/-block "Errors" (v/-visit (me/humanize (me/with-spell-checking explanation)) printer) printer)]}) (v/-block "Errors" (v/-visit (me/humanize (me/with-spell-checking explanation)) printer) printer)]}))
(defmethod v/-format ::explain #?(:clj
(defmethod v/-format ::explain
[_ {:keys [schema] :as explanation} printer] [_ {:keys [schema] :as explanation} printer]
{:body [:group {:body [:group
(v/-block "Value" (v/-visit (me/error-value explanation printer) printer) printer) :break :break (v/-block "Value" (v/-visit (me/error-value explanation printer) printer) printer) :break :break
(v/-block "Errors" (v/-visit (me/humanize (me/with-spell-checking explanation)) printer) printer) :break :break (v/-block "Errors" (v/-visit (me/humanize (me/with-spell-checking explanation)) printer) printer) :break :break
(v/-block "Schema" (v/-visit schema printer) printer)]}) (v/-block "Schema" (v/-visit schema printer) printer)]}))
(defn pretty-explain #?(:clj
"A helper that allows print a console-friendly output for the (defn pretty-explain
explain; should not be used for other purposes" "A helper that allows print a console-friendly output for the explain;
should not be used for other purposes"
[explain & {:keys [variant message] [explain & {:keys [variant message]
:or {variant ::explain :or {variant ::explain
message "Validation Error"}}] message "Validation Error"}}]
(let [explain (fn [] (me/with-error-messages explain))] (let [explain (fn [] (me/with-error-messages explain))]
((mdp/prettifier variant message explain default-options)))) ((mdp/prettifier variant message explain default-options)))))
(defmacro ignoring (defmacro ignoring
[expr] [expr]