*cider-scratch*.clj

;; This buffer is for Clojure experiments and evaluation.
;; Press C-j to evaluate the last expression.

(defn parse-number
  "Reads a number from a string. Returns nil if not a number."
  [s]
  (when (re-find #"^-?\d+\.?\d*([Ee]\+\d+|[Ee]-\d+|[Ee]\d+)?$"  (.trim s))
    (read-string s)))

(defn try-number-fallback-str
  [num]
  (cond
    (integer? num) num                ;; stop, we're an int
    (number? num) (int num)           ;; we can cast to an int
    :else (let [n (parse-number num)] ;; let's see if we can get a num
            (if (number? n)
              (int n)                 ;; cast to an int
              num))))                 ;; fallback to original input

(def +str->int-coercions+
  {s/Int try-number-fallback-str})

(s/defn json-coercion-matcher
  "A matcher that coerces keywords and keyword enums from strings, and longs and doubles
  from numbers on the JVM (without losing precision)"
  [schema :- types/Map]
  (or (+str->int-coercions+ schema)
      (coerce/+json-coercions+ schema)
      (coerce/keyword-enum-matcher schema)
      (coerce/set-matcher schema)))

(defn env
  "environ.core/env, but as a fn and not cached. Calling this often is slow, you should probably
   cache it yourself in a component."
  []
  (merge
    ;; These are technically private. I don't care.
    (#'environ/read-env-file ".lein-env")
    (#'environ/read-system-env)
    (#'environ/read-system-props)))