 
 (def header-size 35)
 (def section-size 25)
-
-(defn pprint-str [x]
-  (pprint/write x :stream nil))
-
 (def indent-level 2)
-
-(defn no-trailing-whitespace [s]
-  (->> s
-       string/split-lines
-       (map string/trimr)
-       (string/join "\n")))
 
 (def headers {:problem/missing-key   "Spec failed"
               :problem/not-in-set    "Spec failed"

        _ (doseq [problem problems]
            (s/assert (s/nilable #{"Insufficient input" "Extra input" "no method"}) (:reason problem)))
        leaf-problems (leaf-problems (map (partial adjust-in form) (::s/problems (s/explain-data spec form))))
        _ (assert (every? :in1 leaf-problems) leaf-problems)
        grouped-problems (sort (path+problem-type->problems leaf-problems))]
    (if (empty? problems)

(ns expound.spec
  "Drop-in replacement for clojure.spec.alpha, with
  human-readable `explain` function"
  (:require [clojure.data]
            [cljs.spec.alpha :as s]
