CodeMirror/FiraCode
1
0
Fork 0
mirror of synced 2024-05-16 02:23:44 +12:00
Code Issues Projects Releases Wiki Activity

Try-catch Block Added

Browse source
This commit is contained in:
Kenneth, Cho Kai Hung 2023-04-02 14:25:02 +01:00 committed by GitHub
parent a2e7b4258b
commit 40cfb4db96
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 15 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
clojure/fira_code/classes.clj
View file

@ -5,14 +5,21 @@
[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)))
(let [filename (.getName file)
class-name (->> filename
(re-find #"classes/([^/]+)\.fea$")
(second))
class-code (str/trim (slurp file))
class {:name class-name
:code class-code}]
(glyphs/set-class font class-name class)))
(defn fill-all [font]
(reduce fill-class font (files/find "classes" #"classes/[^/]+\.fea")))
(let [class-files (files/find "classes" #"classes/[^/]+\.fea$")]
(doseq [file class-files]
(try
(fill-class font file)
(catch Exception e
(println (str "ERROR: Could not fill class from file " (.getPath file) ": " e)))))
font))