6dca7b7

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

@@ -10,14 +10,6 @@   (zipmap sections           (rest (range)))) -(comment-  (def yaml-dict (yaml/parse-string (slurp "pinchord-javelin-dictionary.yaml")))--  (->> (:letters yaml-dict)-       (filter #(= (:order %) 2))-       (map (fn [m] [(:stroke m) (:data m)]))-       (into {})))- (defn finalize [m]   (update-keys m (partial str "-"))) @@ -60,7 +52,6 @@          :vowels   (with-gaps-filled :vowels chords)          :finals   (with-gaps-filled :finals chords))) -; TODO make this make all chords that aren't in chords.edn map to themself :D (defn -main [& _args]   (let [chords (-> (edn/read-string (slurp "chords.edn"))                    new-value@@ -72,7 +63,6 @@               :starters [{:stroke "#+" :definition "{^}{-|}" :mask "#+"}                          {:stroke "" :definition "{}" :mask ""}]               :letters (->> (reduce (fn [acc [bank entries]]-                                      ; TODO if the bank has no keys, map it to itself?                                       (if-let [bank-keys (banks bank)]                                         (into acc (mapv (fn [[stroke translation]]                                                           {:stroke stroke :data translation :order (priority bank)@@ -84,8 +74,6 @@                                                           {:stroke stroke :data translation :order (priority bank)})                                                         entries))))                                     #{} (select-keys chords sections))-                            (sort-by (comp - count :stroke))-                            ; Use this if you want finals to suppress space by default :)-                            #_(cons {:stroke "-" :data "{^}" :order (priority :finals)}))}+                            (sort-by (comp - count :stroke)))}         dict-path (str "pinchord-javelin-dictionary-" (:version chords) ".yaml")]     (spit dict-path (yaml/generate-string dict))))