   ([f path form]
    (walk-with-path (partial postwalk-with-path f) f path form)))
 
-(defn kps-path? [x]
+(defn kps-path?
+  "True if path points to a key"
+  [x]
   (and (vector? x)
        (kps? (last x))))
 

       ::irrelevant))
   form))

(defn highlight-line [prefix replacement]
  (let [max-width (apply max (map #(count (str %)) (string/split-lines replacement)))]
    (indent (count (str prefix))
            (apply str (repeat max-width "^")))))


(def header-size 35)
(def section-size 25)
(def indent-level 2)

(def headers {:problem/missing-key   "Spec failed"
              :problem/not-in-set    "Spec failed"
