[feat] build font subset file

utils.hy

@@ -1,6 +1,7 @@
 #!/usr/bin/env hy
 (import requests)
 
+(import argparse)
 (import sys)
 (import os)
 (import json)
@@ -18,6 +19,24 @@
     (let [file (os.path.join root -file)]
       (when (and (in "posts" file) (file.endswith ".md"))
         (markdown-files.append file))))
-  (print markdown-files))
+  (return markdown-files))
 
-(get-post-files)
+(defn subset-font-file [post-files]
+  (let [str-set #{}]
+    (for [f post-files]
+      (with [o (open f "r" :encoding "utf-8")]
+        (for [w (o.read)]
+          (str-set.add w))))
+
+    (print f"{(len str-set)} characters in all files.")
+    (print (.join "" str-set))
+    (with [f (open "strdb.txt" "w")]
+      (f.write (.join "" str-set)))))
+
+(setv parser (argparse.ArgumentParser))
+(parser.add_argument "-d" :dest "deploy" :action "store_true")
+(setv args (parser.parse_args))
+
+(when args.deploy
+  (let [post-files (get-post-files)]
+    (subset-font-file post-files)))