File: not_space.clj

package info (click to toggle)
fonts-firacode 6.2-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 11,796 kB
  • sloc: sh: 287; python: 146; makefile: 19
file content (14 lines) | stat: -rw-r--r-- 524 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
(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)))))