2afe73b

src/org/pinchord/generate.clj modified (view file)

@@ -47,8 +47,11 @@ (defn with-gaps-filled [chords]   (assoc chords :chords/bank-chords (fill-gaps-in-banks chords))) -(defn build-javelin-dictionary [{:chords/keys [banks bank-keys bank-chords]-                                 :keys [version]}]+(defn build-javelin-dictionary+  "Returns the Javelin orthospelling YAML dictionary.+   'letters' entry chords are sorted by chord length to keep diffs clean."+  [{:chords/keys [banks bank-keys bank-chords]+    :keys [version]}]   (let [bank->priority (zipmap banks (map inc (range)))]     {:name (str "Pinchord Base " version)      :maximumOutlineLength 1