e2197d9

generate-dictionary.clj modified (view file)

@@ -3,8 +3,7 @@   "Javelin dictionary generation script"   (:require [cheshire.core :as json]             [clj-yaml.core :as yaml]-            [clojure.edn :as edn]-            [clojure.set :as set]))+            [clojure.edn :as edn]))  (def sections [:pre-prefixes :prefixes :initials :vowels :finals :suffixes]) @@ -21,9 +20,7 @@        (map (fn [m] [(:stroke m) (:data m)]))        (into {}))) -(defn finalize-  "Puts dashes before all the keys of m"-  [m]+(defn finalize [m]   (update-keys m (partial str "-")))  (defn mask [s1 s2]