File: classes.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 (18 lines) | stat: -rw-r--r-- 488 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
(ns fira-code.classes
  (:require
   [clojure.java.io :as io]
   [clojure.string :as str]
   [fira-code.glyphs :as glyphs]
   [fira-code.files :as files]))


(defn fill-class [font file]
  (let [[_ name] (re-matches #"([^.]+)\.fea" (.getName file))
        code     (slurp file)
        class    {:code (str/trim code)
                  :name name}]
    (glyphs/set-class font name class)))


(defn fill-all [font]
  (reduce fill-class font (files/find "classes" #"classes/[^/]+\.fea")))