example.clj

(ns fn2api.cli.example
  (:require [clojure.spec.alpha :as s]
            [spec-tools.core :as st]
            [spec-tools.spec :as sp]
            [fn2api.cli.tools-cli :refer [run-f!]]))


(s/def ::x (st/spec sp/int? {:description "divident"}))
(s/def ::y (st/spec (s/and sp/int? #(not (zero? %))) {:description "divisor"}))
(s/def ::x+y (s/keys :req-un [::x ::y]))

(s/fdef example-function
  :args (s/cat :params ::x+y))

(defn
  example-function
  "x/y"
  [{:keys [x y]}]
  {:return :ok
   :result (/ x y)})

(defn example-cli-run! [args]
  (run-f! (var fn2api.cli.example/example-function) args))