/
githubmirror
/
FiraCode
Обзор
Документация
Войти
/
githubmirror
/
FiraCode
Код
Запросы
0
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
clojure/fira_code/main.clj
32 строки
1 KB
Nikita Prokopov
Updated Clojure generator to Glyphs formatVersion 3
02 мар 2026, 22:07
02 мар 2026, 22:07
1c4866e
Код
Авторство
О чём код?
(ns fira-code.main (:require [clojure.string :as str] [fira-code.calt :as calt] [fira-code.coll :as coll] [fira-code.checks :as checks] [fira-code.classes :as classes] [fira-code.features :as features] [fira-code.glyphs :as glyphs] [fira-code.not-space :as not-space] [fira-code.spacers :as spacers] [fira-code.time :as time] [flatland.ordered.map :refer [ordered-map]])) (defn -main [& args] (let [path (or (first args) "FiraCode.glyphs") font (glyphs/load path) ligas (for [g (:glyphs font) :let [name (:glyphname g)] :when (str/ends-with? name ".liga") :when (not= "0" (:export g)) :let [[_ liga] (re-matches #"([A-Za-z_]+)\.liga" name)]] (str/split liga #"_")) ;; [ ["dash" "greater" "greater"] ... ] font' (-> font (calt/replace-calt ligas) (classes/fill-all) (features/fill-all) (spacers/add-spacers ligas) (not-space/regen-not-space) (checks/widths))] (glyphs/save! (or (second args) path) font') (println)))