                                :req-un [:fig-opt/build-config])
                               {;:http-server-root 1
                                :server-por 1
-                               :asdf 1
-                               :badly 3
+                               ;:asdf 1
+                               ;:badly 3
                                :build-confi {:id "asdf"
                                              :source-paths [""]
                                              :assert 1
-                                             :madly 2
+                                             ;:madly 2
 
                                               }}
                               )
+
   )
+
+
 
 ;; strict-keys
 

       (map (juxt identity #(similar-key ky %)))
       (filter second)))

;; score a spelling suggestion
;;  + 1 the value is a collection and conforms
;;  + 1 the value is complex and fuzzy conforms <-- TODO

          good-key-val-scores
          (->> (select-keys map-x good-keys)
               (keep key-to-score))
          adjusted-key-val-scores (->> (map (fn [[oldk newk]] [newk (get map-x oldk)]) adjusted-keys)
                                       (keep key-to-score))
          good-key-count (+ (count good-keys)
                            (count adjusted-keys))
          good-key-score (when-not (zero? (count map-x))
                           (/ good-key-count
                              (count map-x)))]
      #_(prn (into (vec good-key-val-scores) adjusted-key-val-scores))
      (avg [good-key-score
            (avg (into (vec good-key-val-scores) adjusted-key-val-scores))]))))


(comment

  (fuzzy-conform-score-helper (parse-keys-args
