font-FiraCode/clojure/fira_code/not_space.clj

(ns fira-code.not-space
  (:require
   [clojure.string :as str]
   [fira-code.glyphs :as glyphs]))


(defn regen-not-space [font]
  (let [not-spaces (->> (:glyphs font)
                     (remove #(re-find #"^\.|space$|space\." (:glyphname %)))
                     (remove #(= "0" (:export %)))
                     (map :glyphname)
                     (sort))]
    (println "  regenerated NotSpace:" (count not-spaces) "glyphs")
    (glyphs/update-code font :classes "NotSpace" (constantly (str/join " " not-spaces)))))