199aba3

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

@@ -55,16 +55,12 @@      :starters [{:stroke "#+" :definition "{^}{-|}" :mask "#+"}                 {:stroke "" :definition "{}" :mask ""}]      :letters (->> (reduce (fn [acc [bank entries]]-                             (if-let [bank-keys (bank-keys bank)]-                               (into acc (mapv (fn [[stroke translation]]-                                                 {:stroke stroke :data translation :order (bank->priority bank)-                                                  :avoidMask (str (when (= bank :finals)-                                                                    "-")-                                                                  (mask stroke bank-keys))})-                                               entries))-                               (into acc (mapv (fn [[stroke translation]]-                                                 {:stroke stroke :data translation :order (bank->priority bank)})-                                               entries))))+                             (into acc (mapv (fn [[stroke translation]]+                                               {:stroke stroke :data translation :order (bank->priority bank)+                                                :avoidMask (str (when (= bank :finals)+                                                                  "-")+                                                                (mask stroke (bank-keys bank)))})+                                             entries)))                            #{} bank-chords)                    (sort-by (comp - count :stroke)))}))