mirror of
https://github.com/penpot/penpot.git
synced 2026-11-06 01:50:39 +00:00
51 lines
1.9 KiB
Clojure
51 lines
1.9 KiB
Clojure
;; This Source Code Form is subject to the terms of the Mozilla Public
|
|
;; License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
;;
|
|
;; Copyright (c) KALEIDOS INC
|
|
|
|
(ns benches.render-wasm.node.request
|
|
"Resolved benchmark requests, sender defaults and receiver validation."
|
|
(:require
|
|
[app.common.schema :as sm]
|
|
[benches.render-wasm.node.cli.ab :as ab]
|
|
[benches.render-wasm.node.cli.build :as build]
|
|
[benches.render-wasm.node.cli.compare :as compare]
|
|
[benches.render-wasm.node.cli.console :as console]
|
|
[benches.render-wasm.node.cli.help :as help]
|
|
[benches.render-wasm.node.cli.merge :as merge]
|
|
[benches.render-wasm.node.cli.purge :as purge]
|
|
[benches.render-wasm.node.cli.run :as run]
|
|
[malli.transform :as mt]))
|
|
|
|
(defn- command-schema
|
|
[command options]
|
|
[:map {:closed true}
|
|
[:command [:= command]]
|
|
[:console {:default {}} console/schema:console]
|
|
[:options {:default {}} options]])
|
|
|
|
(def schema:request
|
|
[:multi {:dispatch :command}
|
|
["build" (command-schema "build" build/schema:options)]
|
|
["run" (command-schema "run" run/schema:options)]
|
|
["ab" (command-schema "ab" ab/schema:options)]
|
|
["compare" (command-schema "compare" compare/schema:options)]
|
|
["merge" (command-schema "merge" merge/schema:options)]
|
|
["purge" (command-schema "purge" purge/schema:options)]
|
|
["help" (command-schema "help" help/schema:options)]])
|
|
|
|
(def ^:private default-decoder
|
|
(delay (sm/decoder schema:request (mt/default-value-transformer))))
|
|
|
|
(defn apply-defaults
|
|
"Fills contextual defaults for the selected command and build source."
|
|
[partial-request]
|
|
(@default-decoder partial-request))
|
|
|
|
(def check
|
|
"Returns a complete valid request, or throws with schema explain data."
|
|
(sm/check-fn schema:request
|
|
:hint "invalid renderer benchmark request"
|
|
:type ::invalid-request))
|