2020-04-15 16:51:08 +00:00
|
|
|
(ns fira-code.checks
|
|
|
|
|
(:require
|
|
|
|
|
[clojure.string :as str]
|
|
|
|
|
[fira-code.coll :as coll]
|
|
|
|
|
[fira-code.glyphs :as glyphs]))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defn width-ok? [w]
|
2020-06-05 19:28:13 +00:00
|
|
|
(#{"0" 0 1200 2400 3600} w))
|
2020-04-15 16:51:08 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
(defn widths [font]
|
|
|
|
|
(doseq [g (:glyphs font)
|
|
|
|
|
:when (not= "0" (:export g))
|
|
|
|
|
l (:layers g)
|
|
|
|
|
:let [w (:width l)]
|
|
|
|
|
:when (not (width-ok? w))]
|
|
|
|
|
(println (str "WARN glyph '" (:glyphname g) "' layer '" (:id (glyphs/layer l)) "' has width=" (pr-str w))))
|
|
|
|
|
font)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defn -main [& args]
|
|
|
|
|
(let [path (or (first args) "FiraCode.glyphs")
|
|
|
|
|
font (glyphs/load path)]
|
|
|
|
|
(widths font)))
|
|
|
|
|
|
