font-FiraCode/clojure/fira_code/spacers.clj

(ns fira-code.spacers
  (:require
   [clojure.string :as str]
   [fira-code.glyphs :as glyphs]
   [fira-code.time :as time]
   [flatland.ordered.map :refer [ordered-map]]))


(defn spacer [name]
  (ordered-map
    :color 3,
    :glyphname name,
    :lastChange (time/now-str),
    :layers
    [(ordered-map :layerId (:Light glyphs/weights), :width 1200)
     (ordered-map :layerId (:Bold glyphs/weights), :width 1200)]))


(defn add-spacers [font ligas]
  (let [needed   (->> (into #{} cat ligas)
                   (map #(str % ".spacer")))
        existing (->> (:glyphs font)
                   (map :glyphname)
                   (filter #(str/ends-with? % ".spacer")))
        new      (->> (remove (set existing) needed)
                   (sort-by str/lower-case))]
    (if-not (empty? new)
      (do
        (println "  added glyphs: " (str/join " " new))
        (update font :glyphs #(into % (map spacer new))))
      font)))