 ;; get keys that are similar to the keys we need in the project
 ;; to allow figwheel validation to detect and report misspellings
 
-(defn similar-key [ky ky2]
+(defn similar-key* [thresh ky ky2]
   (let [dist (metrics/levenshtein (name ky) (name ky2))]
-    (when (<= dist 3)
+    (when (<= dist thresh)
       dist)))
+
+(def similar-key (partial similar-key* 3))
 
 (defn get-keylike [ky mp]
   (if-let [val (get mp ky)]

  To learn more about how to configure Figwheel please see the README
  https://github.com/bhauman/lein-figwheel
"
  [project command & build-ids]
  (println "Figwheel: Cutting some fruit, just a sec ...")
  (clean-on-dependency-change project)
  (fig-dispatch project (cons command build-ids)))

   #_[clojure.pprint :as pp]
   [leiningen.core.eval :as leval]
   [leiningen.clean :as clean]
   [leiningen.core.main :as main]   
   [clojure.java.io :as io]
   [clojure.set :refer [intersection]]
   [clojure.pprint :as pp]
   [clj-fuzzy.metrics :as metrics]
   [simple-lein-profile-merge.core :as lm]))

