/
githubmirror
/
FiraCode
Обзор
Документация
Войти
/
githubmirror
/
FiraCode
Код
Запросы
0
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
clojure/fira_code/spacers.clj
29 строк
934 B
Nikita Prokopov
Code formatting, tools.namespace -> clj-reload, clojure+
02 мар 2026, 19:43
02 мар 2026, 19:43
c74dd80
Код
Авторство
О чём код?
(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)))